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ASSEvbLY  and  OPfcRATION  INFORMATION 

USER'S  OWN  PAGE  No. 

1 

Room 

Ro002 

ROOOA 

THIS  LISTING'  IS  A COPY  oF  A VeRSIoN  oF 

compjter  in  the  unmanned  flight  of  apolld  lunar 

the  Program  intended  For  use  in  the  on-board 
module  1 THF  AS206  MISSION, 

PRIMARY  guidance 

R0006 

R0008 

the  details  of  implementation  are  spec 
AS  amended. 

IFIED  IN  REPORT  R-527,  "GUIDANCE  SYSTEM  OPERATIONAL  PLAN  AS206", 

R0009 

ROOll 

R0013 

REPORT  R-527  AND  THIS  PROGRAM  HAVe  BEEN  PREPARED  BY  THE  INSTRUMENTATION  LABORATORY,  MASSACHUSETTS 
institute  of  TE^^HNOLOG'Y,  75  CAMBRIDGE  PAR<WAY,  CAMBRIDGE*  MASSACHUSETTS,  UNDER  DSR  PROJECT  55-23850,  SOONSORED 
by  tH-  MANNfD  spacecraft  center  of  the  NATIONAL  AERONAUTICS  AND  SPACf  ADMINISTRATION,  CONTRACT  NAS  q-4065. 
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L 

assembly  and  operation,  information 

USER'S  OWN  page  NO.  2 

R0015 

TAfli  F OF  1 nr,  cARD.s: 

Rn0l7 

ASSEM3LY  AND  OPERATION  INFORMATION 

ROOI8 

R0019 

R0020 

ERASA3LE  ASSIGNMENTS 
INPJT/OOTPUT  channels 
INTERRUPT  LFAD  ins 

ROO2I 
ROO22 
R0SZ3  _ 

RESTART  TABLES  AnD  RESTARTS  ROUTINE 

phase  table  maintenance 

FRESH  START  AND  RESTA.^T 

R0024 

R0025 

R0026 

TARUPT  PROGRAM 

iMj  mode  switching  routines 

AOTMARR 

R0027 

R0028 

R0029 

RADAR  LEAD-IN  ROUTINES 

radar  test  programs 
extended  verbs 

ROO3O 

ROO3I 

R0032 

<EYRJ3T*  UPrUPT 

PINBA-L  game  buttons  AND  LIGHTS 
alarm  and  abort 

R0033 

ROO34 

R0035 

UPDATE  program  PART  1 OF  2 
UPDATE  PROGRAM  PART  2 OF  2 

down-telemetry  program, 

R0036 

R0037 

R0018 

INFLI3HT  alignment  ROUTINES 

rtb  o^i  codes 

LEM  flight  control  SYSTEM  TEST 

R0039 

Rooao 

Rooai 

IMJ  performance  tests  1 
IMJ  performance  tests  2 
IMU  performance  tests  3 

R00A2 

R00a3 

ROOAA 

OPTIMUM  PRELAUNCH  ALIGNMENT  CALIBRATION 
DAP  INTERFACE  SUBROUTINES 
T6-RJ3T  PROGRAMS 

Rooas 

ROOA6 

R00A7 

DAPIDuER  program 

P-AXI5  Reaction  control  system  autopilot 
Q*R-AXES  reaction  CONTROL  SYSTEM  AUTOPILOT 

ROOA8 

R00A9 

ROO5O 

□♦R-AXES  JET  select  AND  FAILURE  CONTROL  LOGIC 

RCs  failure  monitor 

KALMAN.  FILTER  FOR  UM  OAP 

ROOSl 

ROO52 

R0053 

TRIM  3'IMBAL  control  SYSTEM 

A0STA5K  AND  AOSJOB 

SPS  BACK-UP  RCS  CONTROL 

R005A 

R0055 

RQ056 

ATTITUDE  maneuver  ROUTINE 
GIMBALI  lock  AVOIDANCE 
KALCMANU  STFERING 

ROO57 

R00S8 

ROO59 

MISSION  PHASE  2 GUIDANCE  REFERENCE  RELEASE  ♦ BDOST  MONITOR 
MP  3 .•  suborbital  abort 

mpa-contingency  orbit  insertion 

ROO6O 

ROO6I 

R0062 

MISSION  PHASE  6 COAST  SIVB  ATTACHED 
MP  7 - SIVB/LEM  SEPARATION 
MISSION  PHASE  8 - DPS  COLD  SOAK 

R0063 

MP9-03S  1 BURN 

633A36A 

YUL  system  for  Agc:  revision  0 OF  program  BURST120  i3Y  NASA  2n21106-031 

DEC  7. 

1967 

(MAIN)  PAGE  3 
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R006A 

assembly  and  OPEraTIONi  information 

MISSION  PHASE  ll  - DP5j2yniH/AP_SJL___  „ _ _ 

USER'S 

OWN  page 

NO. 

3 

R0065  MISSION  PHASE  13  - A=52 

ROO66  MISSION  PHASE  lt>  - RC5  COLD  SOAK. 

RofljLL  integration  initialization 

ROO68  orbital  integration  program 

R0069  LMP  COMMAND  ROUTINES 
ROO7O  AS206  MIS_S10N._SLH£DUu'ING  PACJ^AGe 
R0071  206  SERVICE  ROUTINES 

R0072  TUMBLE  MONITOR 

R0073 PIPA  READER 

R007A  FIND  CDU  DESIRED 

roots  averase  g integrator 

R0076  MASS  CALCULATOR 

R0077  throttle  CONTROL 

Roots  imj  compensation  pac<iage 

_ R0079  _ DUMMY  206  iNITlftLIZATlON 

ROOSO  SECONO  DPS  GUIDANCE 
ROOBI  preburn  FOR  APS2 

RaOB2_  ASCENT  STEERING 

R0083  thrust  magnitude  FILTER 

ROO8A  L0GSU3i  ROUTINE 

ROOaS  LAMB 

ROO86  SUM  CHECK  END  OF  BAN<I  MARKERS 
R0087  INTER-BANK  COMMUNICATION 

ROOB8  INTERPRETER 

R0089  single  PRECISION  SUBROUTINES 
R0090  EXECUTIVE 

RfiOJL waitlist 

R0092  AGC  BuOCK  TWO  SELF-CHECK 


633A36A 

YUL  system  for  AgC!  revision  0 OF  PROGRAM  BURST120  6Y  NASA  3021106-031 

DEC  7. 

1967  (MAIN)  page  A 
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P0093 

assembly  AND  OPERATION.  INFORMATION 

VERB  AND  NOUN  INFORMATION 

USER'S  OWN  page 

NO.  A 

R0094  REGJlAR  verbs 

R0095  01  DISPLAY  OCTAL  CO*1P  1 (Rl) 

R0096  02 DISPLAY  OCTAL  CO*lPi  2 (Rl) 


R0097  03  DISPLAY  OCT«L  CO^IP  3 (Rl) 

R0098  OA  DISPLAY  OCTAL  C0>1P  1.2  (R1.R2) 

R0099  05  DISPLAY  OCTAL  CDJlP^A.2_i3  TRL.iI2.R3_) 

Roloo  06  decimal  display 

ROlOl  07  D3i  decimal  OISPLAY  (R1.R2) 

R0102  10  SJARE 

R0103  11  MDNITOR  OrT  COMP  1 (Rl) 

ROlOA  12  MONITOR  OrT  COMP  2 (Rl) 

_ _RO105 13 MONITOR  OCT  COMP  3 (Rl) 

R0106  lA  MONITOR  OCT  COMP  1.2  (Rl) 

R0107  15  MONITOR  OrT  COMP  1.2.3  (Rl.R2.R3) 

Roma 16  MONITOR  DFCIMAI 


R0109 

17 

monitor  dp  Decimal;  (ri.r2) 

ROllO 

20 

S3ARE 

ROlll 

21 

LOAD  COMP  1_JRD 

R0112 

22 

load  COMP  2 (R2) 

R0113 

23 

load  comp  3 (R3) 

ROllA 

2A 

LOAD  COMP  1.2  (R1.R2) 

R0115 

25 

LOAD  COMP  1*2.3  (R1.R2.R3) 

R0116 

26 

S5ARE 

R0117 

_E7  , 

FIXED  memory  display 

Roue 

30 

REQUEST  EXECUTIVE 

R0119 

31 

request  waitlist 

R0120 

32 

C(R2)  INTO  R3.  C(Ril)  INTO  R2 

R0121 

33 

PROCEED  WITHOUT  DATA 

R0122 

3A 

terminate  current  test  or  LOAD  REQUEST 

R0123 

35 

TEST  LIGHTS 

R012A 

36 

FRESH  START 

R0125 

37 

CHANGE  MAUOR  MODE 

R0126 

END 

0-  REGULAR  VERBS 

R0127  extended  VERBS 

R0128  AO  ZER0(USED  (JITH  NOON  20)  (N  AO  UNUSED  IN  206) 

RQ129  A 1 COARSE  ALISN  (US£Q  WITH  NOUN  20)  (N  AO  UNUSED  IN  206) 

R0130  a2  fine  align  IMU 

R0131  A3  LOAD  IMU  ATTITUDE  ERROR  METERS 

R0132  AA  Illegal  verb 

R0133  A5  command  LR  To  POSITION  2 (UNUSED  IN  206) 

R013A  A6  sample  RAdAR  ONCE  PER  SECOND  (UNUSED  IN  206) 

R0135  A7  perform  LEM  FC5  TEST 

R0136  50  P'.EASE  PERFORM 
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R0137  51  P.EASE  MAR<  _ _ . 

R0138  52  P'.EASE  MAR<  Y 

R0139  53  P.EASE  MAR<  X OR  Y 

_ ROUP  54  PJLSE  torque  GYRO'5 

ROlAl  55  align  time 

ROIA2  56  PERFORM  BAN<SUM 

R0U3  57  perform  SYSTEM  TEST 

ROUA  60  I. LEGAL  VERB 

R0U5  6i  Illegal  verb 

R0U6  62 SCAN  LEM  INBlTS 

R01A7  63  torn  off  DAP  AND  SEND  CDU'S  ONLY  ON  DOWNLINX, 

R0U8  6A  set  timer  to  grojnd  elapsed  time 

RQ149_  65 SET  GUIDANCE  REFERENCE  RELEASE  DISCRETE 

R0150  66  IN.ITIATE  LGC  DPI  TLM  CALIBRATE  ROUTINE 

R0151  67  send  Command  to  lMp 

R0152  70  SET  MISSION  TIMERi 

R0153  71  set  mission  PHASE  REGISTER 

R015A  72  SET  MISSION  PHASE  REGISTER  + TIMER 

_ R0_15J 73  RESET  DPS  OR  RPS  COLD  SOAX  DISCRETE 

R0156  7A  STOP  MISSION  TIMERS 

R0157  75  target  PARAMETER  UPDATE 

R&15fi 76  STATE  VECTO«  UPDATE 

R0159  77  illegal  VERB 
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assembly  and  0PERATI3''J  INFORMATION 

USER'S  OWN  PAGE  NO.  6 

P0I6O 

NORMAu  NOUNS  ..  _ _ 

SCALE  AND  DFCIMAL  POINT  __  __  _ _ _ . 

R0162 

00 

NOT  IN  USE 

R0163 

01 

SPECIFY  machine  ADDRESS  (FRACTIONAL) 

(.XXXXX) 

R0164 

02 

SPECIFY  machine  ADDRESS  (WHOLE)  __  _ 

(XXXXX.) 

R0165 

03 

SPECIFY  machine  ADDRESS  (DEOREES) 

(XXX.XXOEr,REES) 

R0166 

OA 

SPECIFY  machine  ADDRESS  (HOURS) 

(XXX.XXHOURS) 

R0167 

05 

S3ECIFY  machine  ADDRESS  (SECONDS) 

(XXX.XXSFCONDS) 

ROI68 

06 

SPECIFY  machine  ADDRESS  (GYRO  DEGREES) 

(XX.XXXDEGREES) 

R0169 

07 

SPARE 

ROIJO 

10 

CRANNEL  TO  BF  SPECIFIED 

Rom 

11 

SPARE 

R0172 

12 

SPARE 

R0173 

13 

SPARE 

R017A 

lA 

SPARE 

Rows 

15 

increment  machine  ADDRESS 

(octal  ONLY) 

ROW6 

16 

TIME  SELtONDS 

(XXX.XXSECQNDS)  __  _ _ _ 

R0W7 

17 

time  HOURS 

(XXX.XXHOURS) 

Rows 

20 

ICDU 

(XXX.XXDEGREES) 

RQ179 

21 

PI  PAS 

(XXXXX. pj|  SFS) 

ROI8O 

22 

NEW  ANGLES  I 

(XXX.XXDEGREES) 

ROI8I 

23 

DELTA  ANGl  E5  I 

(XXX.XXDEGREES) 

R0182 

2A 

DELTA  time  (SECONDS) 

(XXX.XXSFCONDS) 

R0183 

25 

CHECKLIST 

(XXXXX.) 

ROI8A 

26 

PRiIO/DELAY,  adres*  bbcon 

(OCTAL  ONi'Y) 

roibs 

?7 

self  test  ON/OFF  SWITCH 

(XXXXX.) 

R0186 

30 

STAR  NUMBERS 

(XXXXX.) 

R0187 

31 

ALMCADR,  ALMCADR  »1,  ERCOUNT 

(OCTAL  ONi'Y) 

R0U8 

32 

Decision  time  (Midcourse) 

(XXX.XXHOURS  (INTERNAL  UNITS  = WEEKS)) 

R0190 

33 

EPHEMERIS  time  (MIDCOURSE) 

(XXX.XXHOURS  (INTERNAL  UNITS  s WEEKS)) 

R0192 

3A 

measured  quantity  (MIDCOURSE) 

(XXXX.XKILOMETFRS) 

R0i_9l 

35 

INBIT  MFSSAGe 

(OCTAL  ONI  Y) 

ROI9A 

36 

landmark  data  1 

(OCTAf!  ONLY) 

ROWS 

37 

landmark  data  2 

(OCTAL  ONI  Y) 

R0196 

AO 

RENDEZVOUS  radar  ANGLES  (TRUNION .SHAFT ) 

(XXX.XXDFGREFS)  (UNUSED  IN  206) 

ROI98 

A1 

NEW  RENDEZVOUS  RADAR  ANGLES  ( TRUN I ON ♦ SHAFT ) 

(XXX.XXDEGREES)  (UNUSED  IN  206) 

R020O 

A2 

ADT  rotation  angles 

(XXX.XXDEGREES) 

R020I 

A3 

ADT  DETFNT  CODE 

(XXXXX.) 

R0202 

AA 

forward  velocity,  lateral  VELOCITY 

(XXXXX. FefT/SFC) 

R0203 

A5 

ROTATIONAL  HAND  CONTROLLER  ANGLE  RATES 

(XXXXX. OEG/SEC)  (NOT  USED  IN  206) 

ROZOS 

46 

SPARE 

R0206 

A7 

SPARE 

R0207 

SO 

FAILREG,  FAILREG  hI.  FAILREG  +2 

(OCTAL  ONLY) 

R0208 

SI 

SEARE 

R0209 

S2 

GYRO  bias  drift 

(.BBXXXXXM ILL I RAD/SEC) 

R021I 

S3 

GYRO  INPUT  AXIS  ACCELERATION  DRIFT 

(.BBXXXXX(MILLTRAD/SeC)/ (CM/SEC  SEC) ) 

R0213 

SA 

GYRO  SPIN  AXIS  ACCELERATION  DRIFT 

( .BBXXXXX IMILLI RAD/SEC) / (CM/ SEC  SeC) ) _ - 

R021S 

end 

Or  Normal  nouns 

633^t36A 
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ASSEV13LY  AND  OPERATION  INEORMaTION 

USER'S  OWN  page 

NO.  7 

R02I6 

MIXED  NOUNS  . . 

_S^A.LE._A.NO  DECIMAL  POINT  . 

R0218 

55 

landing  radar  altitude*  time  (SECONDS) 

(XXXXX.FEfT*  XXX.XXSeC) 

(UNUSED  IN 

206) 

R0220 

56 

landing  radar  VELX*  time  (SECONDS) 

(XXXXX.FefT/SeC*  XXX.XXSEC) 

(UNUSED  IN 

206) 

R0222 

57 

landing  RAdAR  VElY*  time  (SECONDS) 

(XXXXX.FEfT/SEC*  XXX.XXSEC) 

(UNUSED  IN 

206) 

R022^ 

60 

LANDING  radar  VELE*  TIME  (SECONDS) 

(XXXXX.FfET/SEC,  XXX.XXSEC) 

(UNUSED  IN 

206) 

R0226 

61 

target  azimuth  and  elevation 

(XXX.XXDEG*  XX.XXXDEG) 

R0228 

62 

RENDEZVOUS  RADAR  RANGE*  TRUNION.  SHAFT 

(XXXXXB.FFET.  XXX.XXDEG.  XXX.XXDEG) 

(UNUSED  IN 

206) 

R0230 

63 

r-ndezvous  radar  range  rate*  trunion*  shaft 

(XXXXX.FEET/SeC*  XXX.XXDEG*  XXX.XXDEG)  (UNUSED  IN 

206) 

R0232 

64 

INiITIAL  ALTITUDE*  HNAL  ALTITUDE*  ALT.  RATE 

(XXXXX.FEfT*  XXXXX.FEET*  XXXXX.FEET/SEC) 

R023A 

65 

SAMPLED  time  (HOJ'RS  ANO  SECONDS) 

(XXX.XXHOURS*  XXX.XXSEC) 

R0236 

(FETCHED  IN  INTERRUPT) 

R0237 

66 

SYSTEM  TEST  RESULTS 

(XXXXX.,  .xxxxx*  xxxxx.) 

R0239 

67 

DELTA  GYRO  ANGLES 

(XX.XXXDEG  FOR  EACH) 

R02<t0 

70 

53ARE 

R0291 

71 

SEARE 

R02«f2 

72 

0-LTA  POSITION 

(xxxx.xxii omftfrs  For  each) 

R02«(A 

73 

DELTA  Velocity 

(XXXX.XMETERS/SEC  FOR  EACH) 

R02£f6 

74 

measurement  data  (Midcourse) 

(XXX.XXHOURS  (INTERNAL  UNITS=WeEKS) , 

xxxx.xkilometeRs,  xxxxx. 

R02<f8 

75 

Measurement  Deviations  (mjdcourse) 

(XXXX.XCILOMftfRS.  XXXX.XMFTFRS/SfC. 

XXXX.XKILOMfTERS) 

R0250 

76 

POSITION  vector 

(XXXX.XCIi  OMETFRS  For  EACH) 

R0252 

77 

velocity  vector 

(XXXX.XMetERS/SEC  for  EACH) 
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P025A  TAiLE  jQF_£RROB__CQa£S _ 


R0255 

OPTICS 

sub-system 

R0256 

00105 

MARK  SYSTEM  CURRENILY„LM. USE  _ ^ 

R0257 

R0258 

R0259 

00111 

00112 

00113 

MARK  li*  MISSING  AFTER  V53  ENTER 

AOTMARK  system  has  not  been  INITIALIZED  TO  ACCEPT  TwIS  MARK 
NO  BIL3.  St  ,6_t^0R_Z_[INaLTS)  IN  CHANNEL  16 

R0260 

R0261 

OOlU 

00115 

requested  mark  not  made 

NO  MARK  TO  REUECT 

R0262  IMJ  SJB-SYSTEM 


R0263 

R026A 

00205 
OOZOi,  . , 

SATURATeD-PIRA  alarm 

Zero  cdu  not  allowed  with  coarse  align  and  gimbal  lock 

R0265 

R0266 

R0267 

00207 

00210 

00211 

iss  tjRn-on  request  not  present  For  go  seconds 
IMU  not  operating  when  icdu  zero  requested 

Coarse  align,  error,  gimbal  angles  not  within  z degrees  of  desired  angles 

R0269 

R0270 

R0271 

00212 
00213 
0021 A 

PIPA  fail  with  PIPA  fail  INHIBIT  BIT  SET 

ISS  turn  on  request  with  iss  operative  discrete  not  present 

Program  usin.G'  imu  when  turned  off 

R0272 

display 

ALARMS  (PART  1) 

R0273 

00300 

ABORT  COMMAN.0  RECEIVED  BUT  ABORT  NOT  ENA3LED 

R027A 

R0276 

R0278 

00310 

003i2__ 

curtains  alarm  (BADEND  in  attstall,  hustall,  etc,,  USUAI LY) 
DAP  maneuver  prevented  BY  FAILURE  OF  JETS 

when  ALARM2  IS  CALLED 
ALMCADR  Contains  q of 
CALLS  curtains 

BY  curtains 
ROUTINE  Which 

R0280 

R0281 

00315 

00316 

FORGETIT  ALARM 

RESTART  occurred  BUT  PROGRAM  WASN'T  RESTARTABLE  (FAi^ESTRT) 

Roiaz 

procedural  difficulty 

R0283 

R028A 

OOAOl 

OOAOA 

desired  GIM3AL  ANGLES  YIELD  GIMBAL  LoCK 

computed  DT  for  waitlist  too  big  or  negative  (TASKSeTR  - MP  9) 

. ABORT. 

R0266 

R0287 

R02B8 

0OAO5 

OOAIO 

OOAll 

LAMBERT  iterations  NOT  CONVERGING—  MISSION  PHASE  13 
overflow  prior  to  OR  DURING  COMPUTATION  oF  ACS  OR  AfCS  (MP  11) 
OVERFLOW  IN  ANG  MOMENTUM  CMD  (COMPUTATION  OF  AFCSl)  (MP  11) 

R0289 

OOA12 

OVERFLOW  AFTER  COMPUTATION  OF  AFCSl  (MP  11) 

R0290 
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USER'S  OWN  PAGE  NO. 
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R0291 

RADAR  ERRORS  . . ^ 

R0292 

R0293 

00501 

00502 

radar  Antenna,  out  of  limits  of  each  mode 

desired  RADARi  GIMBAL  ANGLES  OUT  OF  LIMITS  OF  EACH  MODE 

R0294 

R0296 

R0298 

00503 

00510 

0051A 

NO  rendezvoJ'S  radar  data  good  sional  within  30  Seconds  with  lockon  requested 
Rendezvous  zero  cdu  requested  with  rendezvous  radar  not  in  auto  mode 
RADAR  Rendezvous  auto  powfr  off  with  prosram  using  ^he  rendezvous  radar 

R0300 

R0301 

R0302 

00520 

00521 
0052? 

RADAR  RUPT  OCCURRED  BUT  NOT  EXPECTED 
RADAR  Data  could  not  be  read 
landing  RADARi  not  IN  DESIRED  POSITION 

R0303 

R0305 

00523 

0052A 

landing  radar.  DID  NOT  ACHIEVE  POSITION  2 UPON 
target  Vector-  requires  rendezvous  radar  angles 

Request  in  desireD  time  interval 
NOT  WITHIN  limits  OF  EITHER  MODE 

R0307 

MlSSUM- 

scheduler  errors , 

R0308 

00601 

MISSION  PHASE  DUE  BUT  PHASE  REGISTER  = 0 

RD3D9 

COMPJTER 

hardwARf  malfunctions 

R0310 

R0312 

01102 

AGC  self  test  error 

when  alarm?  is  called 

ALMCADR  CONTAINS  Q OF 

BY  ERRORS 
ROUTINE  WHICH 

R031A 

R0316 

R0318 

01103 

unused  CCS  3RANCH  EXECUTED,  ABORT 

CALLS  ERRORS 

when  AB0RT2  IS  CALLED 

ALMCADR  CONTAINS  Q OF 

BY  CCSHOLE 
ROUTINE  which 

R0320 

R0322 

R0323 

01105 

01106 

downlink  TOO'  FAST 
uplink  TOO  FAST 

called  ccshole 

R032A 

R0325 

01107 

OHIO 

PHASE  Table  entries  do  not  agree  — do  a fresh 
restart  but  no  groups  active 

start 

R0326 

LIST  OVERFLOWS  <ALL  A30RTS) 

R0327 

R0329 

01201 

01202 

EXECUTIVE  OVERFLOW  - NO  VAC  AREAS 
executive  overflow  - NO  CORE  SETS 

when  AB0RT2  IS  CALLED 
ALMCADR  CONTAINS  Q OF 

BY  ABORT 
ROUTINE 

R033I 

R0333 

R033A 

01203 

01206 

01207 

waitlist  overflow  - TOO  MANY  TASKS 
keyboard  ano  display  waiting  line  overflow 
NO  vac  AREA  FOR  MARKS 

WHICH  called  abort 

R0335 

01210 

MORE  T^^AN  one  IMU.  RR,  AOT,  OR  ATTITUDE  PROGRAM  ATTEMPTING  TO  USE  STALL  ROUTINES  AT  1 

SAME  time 

Ro337  interpreter  eRR°R5 


W338~  ' 01301 


ARCSIN-ARCC3S  INPUT  ANGLE  TOO  LARCjE.  ABORT 


633^t36A 


L 

R0339 


R03^0 

R03^tl 

R03<i2 

R0343 

ROS'tS 

R03^7 

R03^t9 

R0353 

ROSS'* 
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ASSEM3LY  AND  OPERATION,  INFORMATION  USER'S  OWN  PAGE  NO.  10 

01302  SORT  called  with  negative  argument. ABJOil __ 


DISPLAY  ALARMS  (PART  2) 

0U05  DV  ALA.RM,  ENGINE  ON  BUT  NO  THRJST  ^ __  __  

OUlO  JET  fail  during  PCS  TEST 

OUll  CDU  DOES  NOT  AGREE  WITH  COMMAND  TO  1 DEGREE  ALMCADR  FoR  ALL  ROUTINES  WHICH  CALL 

0U12  .CDU  DOES  NOT  AGREE  WITH  COMMAND  TO  5 DEGREES  ALARMS  (WHICH  CALLS_  ALARM)  WJLL 

contain  alarms  +3.  Q OF  THE 

originating  routine  will  Be  stored 

AT  (3PLACE 

keyboard  and  display  program 

01501 keyboard  and  display  error  DURING'  INTERNAL  USE.  A3oRT  _ 


R0355  SYSTEMi  TEST  ALARMS 

RQ356  01600  DRIFT  TEST  OVERFLOW 

R03S7  01601  BAD  I MU  tOROJE  IN  DRIFT  OR  IN  GYROCOMPASS 


633^36A 

YUL  SYSTEM 

POR  AgC; 

; R 

EVISION  0 OF  PROGRAM  BURSTlZD  BY  NASA  2021106-031 

DEC  7. 

1967  (MAIN)  PAGE  11 

L 

P0358 

assembly  and  OPERATI3''!. 
INSTRUCTION  CODES 

information 

USER'S  OWN  PAGE 

NO.  11 

R0359 

R0360 

R0361 

NORMAL  (NON-E^TENDE 

D) 

Codes: 

R0362 

R0363 

R036A 

TC 

CCS 

TCP 

000 

001 

001 

OD 

_0i. 

transfer  control 

COUNT.  COMPARE.  AND  SXIP 
TRANSFER  CONTROL  TO  FIXED 

R0365 

TCP 

001 

ID 

DITTO 

R0366 

TCP 

001 

11 

DITTO 

R0367 

DAS 

OlO 

OD 

DP  add  TO  STORAGE 

R0368 

LXCHi 

OlO 

01 

EXCHANGE  L WITH  STORAGE 

R0369 

INCT 

OlO 

ID 

increment  STORAGE 

R0370 

ADS 

OlO 

u 

ADD  TO  STORAGE 

R0371 

CA 

Oil 

CLEAR  AND  ADD 

R0372 

cs 

loo 

CLEAR  AND  SUBTRACT 

RQ373 

INDEX 

IJLL 

00 

index  next  instruction 

R037A 

DXCHl 

loi 

01 

DP  exchange  with  storage 

R0375 

TS 

loi 

ID 

TRANSFER  TO  STORAGE 

R(J3J6 

XCrl 

101 

11 

EXCHANGE  A WITH  STORAGE 

R0377 

AD 

lio 

ADD 

R0378 

MAS<I 

111 

MASK  ("AND"  TO  A) 

R0379 

R0380 

R0381 

extended 

CODES; 

R0382 

R0383 

REA3 

000 

OD 

0 

READ  from  channel 

R038A 

WRITE 

000 

OD 

I 

write  channel 

R0385 

RAND> 

000 

01 

0 

read.  "AND"  TO  A 

R0386 

WAND 

Ooo 

01 

1 

WRITE.  "AND"  TO  A 

R0387 

ROR 

000 

ID 

0 

READ.  "OR"  TD'  a 

R0388 

WOR 

Ooo 

ID 

1 

WRITE.  "OR"  TO  A 

R0389 

RXdri 

DM" 

11 

0 

read,  exclusive  "OR"  TO  A 

R0390 

EDRJPT 

Ooo 

11 

1 

INTERRUPT 

R0391 

R0392 

DY 

001 

OD 

DIVIDE 

R0393 

SZP 

001 

01 

BRANCH  ON  ZERO  TO  FIXED 

R0394 

0ZP 

Ool 

ID 

ditto 

R0395 

azp 

001 

11 

DITTO 

R0396 

MSJ 

OlO 

OD 

MODULAR  subtract 

R0397 

OXCHi 

OlO 

01 

exchange  q with  storage 

R0398 

AU3 

OlO 

ID 

augment  storage 

R0399 

DIM 

OlO 

11 

diminish  storage 

ROAOO 

DCA 

Oil 

DP  CLEAR  AND  ADD 

Roaoi 

DCS 

loo 

DP  CLEAR  AND  SUBTRACT 

ROA02 

INDEX 

loi 

INDEX  NEXT  EXTENDED  INSTR. 

R0A03 

su 

110 

OD 

SUBTRACT 

ROAOA 

BZM  = 

110 

01 

branch  on  0 or  - to  FIXED 

ROA05 

BZMP 

lio 

ID 

DITTO 

R0A06 

3ZMP, 

110 

11 

DITTO 

R0A07  VIP  111  MULTIPLY 


633<f36A 

YUL  system  for  aqc:  revision 

0 OF  program  BUR5T12D  BY  NASA  2n21106-031 

DEC  7,  1967  (MAIN)  PAGE  12 

L 

ERASA3LE  ASS lOflMENTS 

USER'S  OWN  PAGE  NO,  1 

0001 

OjOQO, 

A 

XQUALS_J2 

0002 

0001 

L 

equals  1 

l and  q are  both  channels  and  r=-gisters. 

0003 

0002 

3 

equals  2 

^004 

CL0n3_ 

E3ANK 

EQUALS  3 

0005 

0004 

F3ANK 

equals  4 

0006 

0005 

Z 

equals  5 

adjacent  to  fbank  and  bbank  for  dxch  z 

0007 

OQOii__ 

_0  3 ARK 

EQiJAL&_6-  - 

(DTCB)  AND  OXCH  FBANK  (DTCF). 

A0008 

REGISTER  7 IS  A ZERO-SOURCE,  USED  BY  ZL, 

0009 

00X0 

ARUPT 

eQjJALS  10 

INTERRUPT  storage. 

0010 

0011 

LRUPT 

equals  11 

0011 

0012 

3RUPT 

equals  12 

0012 

0013 

samptime 

equals  13 

SAMPLED  TIME  1 6 2. 

0013 

0015 

ZRUPT 

equals  15 

(13  AND  14  ARE  SPARES.) 

0014 

0016 

bankrupt 

equals  16 

USUALLY  HOLDS  FBANK  OR  BBANK, 

0015 

0017 

BRUPT 

equals  17 

RESUME  ADDRESS  AS  WELL, 

0016 

0020 

CVR 

equals  20 

0017 

0021 

SR 

EQUALS  21 

0018 

0022 

CYL 

equals  22 

0019 

0023 

E50P 

equals  23 

EDITS  INTERPRETIVE  OPERATION  C05E  PAIRS. 

0020 

0024 

T1ME2 

EQUALS  24 

0021 

0025 

TIMEI 

EQUALS  25 

0022 

0026 

TIME3 

equals  26 

0023 

0027 

TIME4 

EQ.UA^LS  27_ 

0024 

0030 

TIMES 

equals  30 

0025 

0031 

TIME6 

equals  31 

0026 

0032 

C3UX 

equals  32 

0027 

0033 

C3UY 

equals  33 

0028 

0034 

C3UZ 

equals  34 

0029 

0035 

0=TY 

EQUALS  35 

0030 

0036 

OPTX 

equals  36 

0031 

0037 

PIPAX 

equals  37 

0032 

0040 

PIPAY 

equals  40 

0033 

0041 

PlPAZ 

equals  41 

0034 

0042 

3MAGX 

equals  42 

0035 

0042 

RHCP 

EQUALS  42 

0036 

0043 

BMAGY 

equals  43 

0037 

0043 

RHCY 

EQUALS  43 

0038 

0044 

BMAGZ 

EQUALS  44 

0039 

0044 

RHCR 

equals  44 

0040 

0045 

INLINK 

equals  45 

0041 

0046 

RNRAD 

EQUALS  4t> 

0042 

0047 

GYROCTR 

EQUALS  47 

0043 

0047 

GYROCMO 

equals  47 

0044 

0050 

C3UXCM3 

EQUALS  50 

0045 

0051 

C3UYCM3 

equals  51 

633436A  YUL  SYSTEM  FOR  AGCt  REVISION  ~0  OF  PROGRAM  BURST12D  SY  NASA  2n2110fe-031 
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L erasable  assignments 


USER'S  OWN  PAGE  NO.  2 


00A6 

0052  CDUZCMD 

equals 

52_ 

00A7 

0053 

O^TYCMD 

equals 

53 

00A8 

005A 

0=’TXCMD 

equals 

5A 

00A9 

0055 

E_MSP 

,^uals 

55 

0050 

0055 

thrust 

equals 

55 

0051 

0056 

LEMONM 

equals 

56 

0052 

, , 0057 

0UTL1N< 

equals 

5_7_ 

0053 

0060 

altm 

equals 

60 

R005A  _ vac-relative  INTERPRETER  ASSIGNMENTS: 


0055 

0056 

0042  LVSQUARE 
0044  LV 

equals  34D 
equals  36D 

square  of  vector  input  to  AbvAL  and  unit 
length  of  vector  input  to  unit. 

0057 

0046  XI 

equals  380 

INTERPRETIVE  SPECIAL  REGISTERS  RELATIVE 

0058 

0047  X2 

equals  39D 

TO  THE  WORK  AREA. 

0059 

0050  SI 

equals  400 

0060 

0051  S2 

equals  410 

0061 

0052  O^RET 

equals  420 

YUL 

system  for  AgC!  R 

EVISION 

0 OF 

PROGRAM  BURST120  BY  NASA  2?iZ1106-031  DEC  7t  1967  (MAIN)  PAGE  lA 

L 

P0062 

0063 

ERA5A3Lt 

GEN|£lAi,_ 

; assignments 
erasable  ASSl 

jNMtNLSj 

USER'S  OWN  PAGE  NO.  3 

0061 

SETLOC 

61 

ROO6A 

the  FOLLoWIN 

3'  Set  comprises  the 

: interrupt  temporary  storage 

POOL. 

ROO66 

any  of  thfs- 

MAY  Be 

USfD 

AS  TfMPORARIFS 

OURING 

INTf5RUPT  or 

with  interrupt  inhibited,  the  itemp  series 

ROO68 

IS  used 

DURING  Calls 

TO  the  executive  and  waitlist  - the 

: ruptRegs  are 

NOT. 

0070 

0061 

0061 

iTempi 

'RASE  _ 

0071 

REF 

1 

0061 

waitexit 

equals 

ITEMPI 

0072 

REF 

2 

last  lA 

0061 

exectemi 

equals 

ITEMPI 

0073 

0062 

0062 

I TEMP2 

erase 

OO7A 

ref 

1 

0062 

WAITBANX 

equals 

ITEMP2 

0075 

REF 

2 

LASJ  lA 

0062 

EXECTEM2 

equals 

IJEMP2-_-  -- 

0076 

0063 

0063 

I TEMP3 

erase 

0077 

RFF 

1 

0063 

WAITADR 

SQUALS. 

lJi..MP3--  . 

0078 

REF 

2 

LAST  lA 

0063 

NEWPRIO 

equals 

ITEMP3 

0079 

Q06A 

0064 

ITFMP4 

frasf 

0060 

ref 

1 

0064 

LUCCTR 

equals 

ITEMP4 

0081 

REF 

2 

LAST  lA 

0064 

WAITTEMP 

equals 

ITEMd4 

0082 

0065 

0065 

ITEMP5 

ERASE 

0083 

REF 

1 

0065 

NEWLOC 

equals 

IIEMP5 

008A 

0066 

0066 

I Temp 6 

erase 

A0085 

NEWLOC+1 

equals 

ITEMP6 

DP  ADDRESS. 

0086 

0067 

SETLOC 

67 

NEWUOB  MUST  BE  IN  LOCATION  67. 

0087 

0067 

0067 

NEWJOB 

erase 

0088 

0070 

0070 

RJPTRE31 

ERASE 

0089 

0071 

0071 

RJPTRE32 

erase 

0090 

0072 

0072 

RJPTRF33 

erase 

0091 

0073 

0073 

RJPTRE34 

erase 

0092 

ref 

1 

0073 

XEYTEMPl 

equals 

RUPTREG4 

0093 

REF 

7 

LAST  lA 

0073 

D5RUPTEM 

equals 

RUPTREG4 

009A 

REF 

1 

0070 

RCSMONTl 

equals 

ruptregi 

FOUR  temporaries  USED  BY  RCSMONIT 

0095 

ref 

1 

0071 

RCSM0NT2 

EQUAi  S 

RCSMnNTl  +1 

ROUTINE  (PART  OF  T4RUPT) . THEIR  ORDER 

0096 

REF 

2 

LAST  lA 

0072 

RC5M0NT3 

equals 

RCSMONTl  +2 

IS  NOT  IMPORTANT.  6 THEY  DON'T  EVEN  HAVE 

0097 

REF 

3 

last  lA 

0073 

RCSM0NT4 

equals 

SCSMnNTl  +3 

TO  BE  ADUACENT  LOCATIONS. 

633i»36A  YUL  SV'StEM  FoR  AGcT^^iEVlSlON  0 oF  PRO^RA'I  BURStIZO  BY  NASA  2021106-031  DEC  7.  1967  (MAIN)  PaQE  15 


L ERA5A3LE  ASSIGNMENTS  USER'S  OWN  PAGE  NO.  A 


P009B 

flag 

6 sinttcHi  reservations. 

0099 

0074  0103 

state 

erase 

♦ 7 

120  SWITCHES 

0100 

REF 

1 

0075 

FLAGWRDl 

equals 

STATf 

♦ 1 

0101 

REF 

2 LAST 

IS  0076 

FLAGWRD2 

equals 

STATF 

+ 2 

0102 

REF 

3 LAST 

IS  0077 

dapbools 

equals 

STATE 

♦3  . 

0103 

REF 

4 LAST 

IS  0100 

FLAGWRD4 

equals 

STATE 

+ 4 

OlOA 

REF 

5 LAST 

.l.S  0101 

lmpjfail 

equals 

statf 

+ 5 

0105 

ref 

6 LAST 

IS  0102 

CH5MAS< 

equals 

STATF 

+ 6 

0106 

REF 

7 LAST 

IS  0103 

CH6MAS< 

EQUALS 

STATE 

+ 7 

R0107 

interpretive  switch  bit  assignments: 

0108 

0000 

WMATFLAG 

equals 

0 

0109 

0001 

JSWITCH 

equals 

1 

0110 

0002 

MIDFLAG 

equals 

2 

0111 

0003 

MOONFLAG 

equals 

3 

0112 

0004 

nbsmbi T 

equals 

4 

0113 

0005 

COAROFIN 

equals 

5 

0114 

0007 

I MUSE 

fQuals 

7 

0115 

0010 

RRUSE 

equals 

80 

0116 

0011 

R7NBSW 

equals 

9D 

0117 

0012 

LOKONSW 

EQUALS 

lOD 

0118 

0032 

SIVBGONE 

equals 

26D 

0119 

0034 

grrflag 

equals 

28D 

0120 

007A 

CONVSW 

equals 

60D 

0121 

0075 

DONESW 

equals 

610 

0122 

0076 

ITERSW 

equals 

620 

0123 

0077 

GUE5SW 

fOUALS 

63D 

0124 

0100 

PIESW 

equals 

640 

0125 

0101 

MDONSW 

equals 

65D 

0126 

REF 

1 

0101 

ESCPSW 

equals 

MOONcW 

0127 

REF 

2 last 

IS  0101 

SMANGLSW 

equals 

moOnsw 

0128 

0102 

BAKT04 

equals 

660 

0129 

0103 

DIRECT 

equals 

67D 

0130 

0104 

PASS 

equals 

680 

0131 

0105 

Hw' 

equals 

690 

0132 

0106 

I NTEGRSw 

equals 

700 

0133 

0107 

ENGOFFSW 

equals 

710 

R0134 

note 

that  FLAGWRDl  AND  FLaGWRD2  CORRESPOND  TO  I NT E^^PRET  I VE  SijITCHfS 

I5O  through  44D.  DAPBOOLS  AND 

R0136 

F 

■_AGWR04 

correspond  to  interpretive 

switches 

45d  Through  ?4d. 

R0137 

BIT  FLAGWORD  SWITCH 

SWITCH 

ON-STATE 

off-state 

R0139 

LOCATION  number  SYMBOL  NUMBER 

SYMBOL 

indicates 

indicaies 

R0141 

633«(36A 
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L 

ERASASLE 

assignments 

USER'S 

OWN  page  no.  5 

R0143 

STATE 

1 

lA 

AVAILABLE, 

ROl^tA 

2 

13 

AVAILABLE 

ROl^S 

3 

12 

AVAILABLE 

ROl  A6 

A . , 

. __  11  _ 

AVATLABLEL  , , . . 

R0147 

5 

LOKONFLG  10 

LOKONSa/ 

RADAR  LOCia-ON  REOUESt 

NO  RADAR  LOCK-ON  ReOUeST 

R0U9 

(LOCKED  ON  0) 

R0151 

6 

. _..9  _ 

RRNBSiY 

RA0,AR  T.ARGEI..  LN  NAVIGATION  ... 

RADAR  target  IN  STABLF  MfMBfR 

R0153 

BASE  coordinates 

COORDINATES 

R0155 

7 

^RUSeFLG  8 

rruse 

rendezvous  radar  in  use 

rendezvous  radar  not  In  use 

R0157 

(.LOCKED  ON  0)  _ _ . . 

R0159 

8 

IMUSEFLG  7 

I MUSE 

IMJ  IN  JSf 

IMU  NOT  IN  USE 

R0161 

9 

6 

available 

R0162 

..  5 

COAROFIN 

VECTOR  IN  NAVIGATION  BAS^ 

VECTOR  IN  stable  MfMBeR 

R016A 

COORDImATES 

coordinates 

ROI66 

11 

A 

N3SMBIT 

Star  position  in  navigation 

STAR  POSITION  IN  StABl- 

ROI68 

base  coordinates 

member  coordinates 

R0170 

12 

3 

MOONFLAG 

LUNAR  QR3TT 

earth  orbit  (Locked  dn  o) 

R0172 

13 

2 

MIDFLAG 

mio-coursf  orbit 

earth  or  lunar  local  orbit 

R017A 

(LOCKED  ON  0)  . _ _ 

R0176 

lA 

1 

JSWITCM 

/J-viaTRIX  reING  extrapolated 

state  Vector  being 

R0178 

EXTRAPOLATED  (LOCKED  ON  0) 

ROI8O 

^5 

0 

wmatflag 

W-MATRIX  to  be  extrapolated 

NO  w-matRix  extrapolation 

R0182 

(LOCKED  ON  0) 

ROI8A  flagwrdi 

1 

29 

average  3 integrating 

average  g not  integrating 

ROI86 

2 

28 

guidance  reference  release 

GUIDANCE  reference  ReL-ASE 

ROI88 

HAS  DCrURRED 

HAS  NOT  OCCURRED 

R0190 

.. 

- 

R0192 

3 

27 

ccc  failure,  no  further 

UPLINK  error  reset  OR  NO  CCC 

R019Z 

UPLINK  commands  EXCEPT 

FAILURE 

R0196 

error  reset  accepted 

R0198 

A 

_26  SIVBGONE 

SIVB  UETTlSONED 

SIVB  ATTACHED 

R02OO 

5 ENGINBIT 

25 

TO  DV  MONITOR  ENGINE  SHOULD 

TO  DV  MONITOR  ENGINE  SHOULD 

R0202 

BE  ON 

BE  OFF 

R020A 

6 

2A 

GO  TO  ENOQFUOB  AT  AVGEND 

GO  TO  POOH  AT  AVGEND 

R0206 

7 

23 

AVAILABLE 

R0207 

8 

22 

fine  align  inhibited  due  to 

FINE  align  allowed 

R0209 

R0210 

9 

21 

AVAILABLE 

R02II 

10 

20 

AVAILABLE 

R0212 

11 

19 

AVAILABLE 

R0213 

12 

18 

NORMAL  restart  ALLOWED 

FAKE  START  ALLOWED 

R02l5 

13 

17 

EXCESSIVE  TUMBLING 

NO  EXCESSIVE  TUMBLING 

R0217 

lA 

16 

TUMBLE  monitor  ON 

tumble  monitor  off 

R0219 

15 

15 

AVAILABLE 

633A36A 

YUL  SYSTEM  FOR  ^GC:  REVISION 
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L 

ERASASLE 

assignments 

USER'S  OWN  PAGE  NO.  6 

R0220 

FLAGWRD2 

1 

A4 

RCS  COLO  <;OAK  INHIBIT 

RCS  COLD  SOAK  ALLOWED 

R0222 

(CAN  BE  SET  TO  o ON.Y  BY 

R022A 

UPDATE  V73) 

R0226 

2 

_ A3 

OPS  COLD  SOAK  INHIBIT 

DPS  COLD  SOAK  ALLOWED 

R0228 

3 

A2 

RCS  TESTING  INHIBIT 

RCS  testing  allowed  can  Be 

R0230 

SET  TO  0 ONLY  BY  UP-jATE  V73) 

R0232 

<* 

_^_1 

trim  GIMB a L .OISE NAB L£P  DUE 

trim  gimbal  allowed 

R023A 

TO  IHROTTLING 

R0235 

5 

AO 

MISSION  PuASe  timers  ENABLED 

MISSION  phase  timers  NOT 

R0237 

enabled 

R0239 

6 

39 

V33  verification  OF  UPDATE 

V33  verification  OF  UPDATE 

R0241 

program  when  inverted 

PROGRAM  WHEN  INVeRTcD 

R02A3 

7 

. 38 

ORBITAL  integration 

orbital  integration  NOi 

R02^5 

integrating 

integrating 

R02A7 

8 

37 

Asc  Feed  test  in  process 

ASC  Feed  test  not  in  process 

R02A9 

9 

36 

abort  command  monitor  enabled 

abort  Command  monitor  ndj 

R0251 

enabled 

R0253 

10 

35 

abort  command  received  and 

abort  command  not  received  or 

R0255 

. accepted  . . 

not  accepted 

R0257 

11 

3A 

KALCMANJ  IN  PROCESS 

KALCMANU  NOT  IN  PROCESS 

R0259 

12 

33 

IGNORE  final  YAW 

FINAL  YAW  adjustment  RjQJIReD 

R0_l6l 

13 

32 

START  UPDATE  PROCESS  FOR 

UPDATE  PROCESS  FOR  DESiRfD  CDU 

R0263 

desired  cdu  angles  in 

angles  continues  DJ'PING 

R0265 

KALCMANU 

KALCMANU 

R0267 

K 

31 

NO  FINAL  YAW  RfQUIRED  FOR 

FINAL  YAW  required  FOR  THREE 

R0269 

THREE  AXIS  alignment 

AXIS  alignment 

R0271 

15 

30 

spacecraft  in  non-accelerated 

spacecraft  in  ACCELERAIEO 

R0273 

flight 

FLIGHT 

R0275 

DAPBodLS 

1 - 15 

A5  - 59 

Defined  in  log  section  "dap  interface  subroutines" 

R0277  FLaGWRDA 

1 

7A 

AVAILABLE 

R0278 

2 

73 

AVAILABLE 

R0279 

3 

72 

AVAILABLE 

R0280 

A 

71 

engoffsw 

engine  OFf  COMMAND  HAS  BEEN 

engine  off  command  has  not 

R0282 

SENT  and  further  commands 

BEEN  SENT  AND  COMMAND  IS 

R028A 

ARE  PRnHIBITED 

allowed 

R0286 

5 

70 

integrsw 

IGNITION  atate  Delayed 

NORMAL  ignition  STATE 

R0288 

6 

69 

hc 

Rco  NOT  Controlled 

RCO  constrained 

R0290 

7 

68 

PASS 

BYPASS  TCn  CALC  IN  ASCeNT 

DO  tco  calculation 

R0292 

8 

67 

DIRECT 

ASCENT  EO  SET  FOR  MP  13 

ascent  EO  SET  FOR  MP  A 

R029A 

9 

66 

SAKTOA 

tgo  estimator  used  in  MPa 

tgo  estimator  used  in  ascent 

R0296 

STEERING 

R0298 

10 

65 

MOONSW 

INSIDE  MOONSPHfRE 

OUTSIDE  MOONSPHERE 

R0300 

(LOCKED  ON  0) 

R0302  10  ^ 65  ESCPSW  HYPERBOLIr  TRAJECTORY  ELLIPTICAL  ORBIT  (LOC<E5  OM  0) 
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ERASA3LE  ASSIGNMENTS 

USER'S 

OWN  PAGE  NO.  7 

R0304 

10 

65 

_^MANGLSrt  _ 

NORMA^LLEEJ)  TIME, 

TIME  SCALED  tj  ..(LaCI<;ED  ON  01 

R0306 

11 

64 

PIESW 

transfer  angle  greater  than 

transfer  angle  less  than 

R0308 

180  degrees 

180  DEGREES 

R0310 

12 

63 

o JeSSw 

guess  is  available 

LAMBERT  COMPUTES  GUiSS 

R0312 

13 

62 

ITERSW 

FIRST  LAMBERT  ITERATION 

other  than  first  LAMBERT 

R0314 

ITERATION 

R0316 

14 

61 

DONES^J 

lamberilroutinf  completion 

LAMBFRT  ROUTINF  NOT  COvlPI  FTP 

R0318 

15 

60 

CDNV5W 

LAMBERT  ROUTINE 

LAMBERT  ROUTINE  CONVERGENCE 

R0320 

NON-CONVERGENCE 

633<i36A 

YUl 

SYSTEM  for  Agc! 

VISION  0 

OF  PROGRAM  BURST120  BY  NASA  202110fc- 

031  dec  7»  1967  (MAIN)  PAGE  19 

L 

erasable  assignments 

USER'S  OWN  PAGE  NO.  8 

P0321 

the 

FOLLOWI  m3' 

are  executive  TEMPORaRJES 

WHICH 

May  3f  USFD 

between  CCS  NEWJOB  INQUIRIES. 

0323 

0104 

0104 

INTB15* 

erase 

reflects  i5Th  bit  of  indexable  addresses 

032A 

REF 

L. 

0104 

DSEXIT 

S 

TNTB15* 

RETURN  FOR  DSPIN 

0325 

REF 

2 

LAST 

19 

0104 

EXITEM 

= 

INT3i 5+ 

RETURN  FOR  SCALE  FACTOR  ROUTINE  SELECT 

0326 

REF 

3 

LAST 

19 

0104 

8LANKRET 

= 

INT315+ 

RETURN  FOR  2BLANK 

0327 

0105 

0105 

INTBIT15 

erase 

similar  to  above. 

0328 

REf 

1 

0105 

/JRDRET 

s 

INT3IT15 

RETURN  FOR  5BLANK 

0129. 

REF 

2_ 

LAST 

^ 

0105 

»^DRET 

s 

INT3IT15_ 

RETURN  For  dspwd 

0330 

REF 

3 

LAST 

19 

0105 

OECRET 

: 

INT3IT15 

RETURN  FOR  PUTCOM(DEC  LOAD) 

0331 

REF 

4 

LAST 

19 

0105 

21/22REG 

= 

INT3TT15 

TEMP  FOR  CHARIN 

R0332 

the 

re^istets 

Between 

addrwd  and  priority  must 

stay  in  the 

FOLLOWING  order  FOR  INTERPRETIVE  TRACE. 

033A 

0106 

__  0L06 

ADDRWD 

ERASE 

12  bit  interpretive  OPERAND  SUB.ADDRESSl 

0335 

0107 

0107 

POLISH 

erase 

HOLDS  cadr  Made  from  polish  address. 

0336 

REF 

1 

0107 

jpdatret 

= 

POLISH 

return  for  updatnn,  updatvb 

0337 

REF 

2 

LAST 

19 

0107 

CHAR 

s 

polish 

temp  For  charin 

0338 

REF 

3 

last 

19 

0107 

ehcnt 

Z 

polish 

counter  For  error  light  reset 

0339 

REF 

4 

last 

19 

0107 

DECOUNT 

POLISH 

counter  For  scaling  and  display  (deo 

03<t0 

REF 

5 

LAST 

19 

0107 

PWRPTR 

POLISH 

rootpsrs  PWR  tabl  pointer 

03^1 

0110 

0110 

FIXLOC 

erase 

WORK  AREA  ADDRESS, 

03^2 

0111 

0111 

dvfind 

erase 

SET  NON-ZERO  on  overflow. 

03^3 

0112 

0117 

V3UF 

erase 

♦ 5 

temporary  storage  used  for  vectors. 

03«f4t 

REF 

1 

0112 

55N0N 

s 

VBJF 

TEMP  FOR  ON 

03^5 

REF 

2 

last 

19 

0112 

NDUNTEM 

s 

VBJF 

counter  for  mixnoun  fetch 

03^t6 

REF 

3 

LAST 

19 

0112 

DISTEM 

= 

V3JF 

counter  for  octal  display  Verbs 

0347 

REF 

4 

LAST 

19 

0112 

DECTEM 

= 

VBJF 

COUNTER  FOR  FETCH  (DEC  DISPLAY  VERBS) 

0348 

ref 

5 

LAST 

19 

0113 

SoNOFF 

s 

VBJF  +1 

TEMP  FOR  ON 

0349 

ref 

6 

LAST 

19 

0113 

nvtemp 

s 

VBjF  +1 

TEMP  FOR  NVSuB 

0350 

REF 

7 

LAST 

19 

0113 

sftempi 

r 

VBJF  ♦! 

STORAGE  FOR  SF  CONST  HI  PART ( =SFTEMP2-1 ) 

0351 

REF 

8 

LAST 

19 

0114 

CODE 

VBJF  +2 

FOR  DSPIN 

0352 

REF 

9 

LAST 

19 

0114 

SFTEMP2 

5 

VBjF  *2 

STORAGE  FOR  SF  CONST  LO  PART (=SFTEMP1*1 ) 

0353 

REF 

10 

LAST 

19 

0114 

dxcrit 

= 

VBJF  +2 

ROOTPSRS  CRITERION  FOR  ENDING  ITERS  HI 

0354 

REF 

11 

last 

19 

0115 

MIXTEM? 

S 

VBJF  +3 

FOR  MIXNOUN  DATA 

R0355 

ALSO 

MiIXTEMP*!  = VBUF  + 4,  MIXTEMP  + 2 = VBUF  + 5. 

0356 

REF 

12 

LAST 

19 

0115 

SIGNRET 

z 

VBJF  +3 

RETURN  FOR  +,-  ON 

0357 

REF 

13 

LAST 

19 

0115 

DXCRIT+1 

z 

VBJF  +3 

ROOTPSRS  CRITERION  FOR  ENDING  ItERS  LO 

0358 

REF 

14 

last 

19 

0116 

RDOTPS 

= 

VBJF  +4 

ROOTPSRS  ROOT  HI  ORDER 

0359 

REF 

15 

LAST 

19 

0117 

RDOTPS+l 

VBJF  +5 

ROOTPSRS  ROOT  LO  ORDER 
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0360 

. 11120  _ 

0122 

-BJF 

■RASE.^^- 

temporary. ^scalar  storage. 

0361 

0362 

REF 

REF 

1 

2 LAST 

20 

0120 

0120 

indexldc 

S/^WORD 

EQUALS  BJF 
EQUALS  BUF 

CONTAINS  address  OF  SPECIFIED  ImDFX. 

address  of  switch  word. 

0363 

REF 

3 last 

20 

0121 

S/JBIt 

equals  BJF  *1 

SWITCH  Bit  Within  switch  word. 

0364 

REF 

4 LAST 

20 

0122 

RETROOT 

__BUF  +2 

ROOTPSRS  RETURN  ADDRESS  OF  USFR 

0365 

0123 

0124 

BJF2 

ERASE  *1 

0366 

0367 

REF 

1 

0125 

0125 

0125 

M=TEMP 

dmpntemp 

erase 

s MPTEMP 

temporary  used  in  multiply  and  aHIFT 
DMPiNSUB  temporary 

0368 

0126 

0126 

DDT INC 

ERASE 

COMPONENT  increment  FOR  DOT  SU3?0JTINE. 

0369 

RLF 

1 

0126 

Dy/SIGN 

equals 

dotinc 

DETERMINES  SIGN  OF  DDV  RESUlT. 

0370 

REF 

2 

LAST 

20 

0126 

ESCAPE 

equals 

ootinc 

USED  IN  ARCSIN/ARCCOS. 

0371 

REF 

3 

LAST 

20 

0126 

entret 

DOTING 

EXIT  FROM  enter 

0372 

0127 

_ 0127 

.ddtret 

erase 

return  FROM  DOT  SUBROUTINE. 

0373 

REF 

1 

0127 

DYNORmcT 

equals 

dotrft 

DIVIDEND  normalization  cOUNt  IN  DDV. 

0374 

REF 

2 

LAST 

20 

0127 

ESCAPE2 

equals 

OOTRFT 

alternate  ARCSIN/ARCCOS  SWITCH. 

0375 

REF 

3 

LAST 

20 

0127 

WDCNT 

s 

dotret 

CHAR  counter  for  DSPWD 

0376 

REF 

4 

LAST 

20 

0127 

INREL 

= 

dotrft 

INPUT  buffer  selector  ( X.Y.Z.  REG  ) 

0377 

0130 

0130 

mating 

erase 

VECTOR  INCREMENT  IN  MXV  AND  VXM. 

0378 

REF 

1 

0130 

MAXDVSW 

EQUALS 

mating 

♦0  IF  DP  quotient  IS  NEAR  ONE  - ELSE  -1. 

0379 

REF 

2 

LAST 

20 

0130 

PDLYCNT 

equals 

MATINC 

POLYNOMIAL  LOOP  COUNTER 

0380 

REF 

LAST 

20 

0130 

DSPMMTEM 

z 

MAJLNlC 

DSPCDUNT  SAVF  FOR  DSPMM 

0381 

REF 

4 

LAST 

20 

0130 

MIXBR 

z 

Mating 

INDICATOR  FOR  MIXED  OR  NORMAL  NdUN 

0382 

REF 

5 

LAST 

20 

0130 

pwrcnt 

= 

MATING 

ROOTPSRS  DER  TABL  LOOP  COUNTER 

0383 

0131 

0131 

TEMl 

erase 

EXEC  TEMP 

0384 

rlf 

1 

0131 

pdlyret 

s 

TEMl 

0385 

REF 

2 

LAST 

20 

om 

DSREL 

- 

TEMl 

REL  ADDRESS  FOR  DSPIN 

0386 

REF 

3 

LAST 

20 

0131 

DERPTR 

= 

TEMl 

ROOTPSRS  DER  TABL  POINTER 

R0387 

the 

following 

' 10  registers  are 

USED  FOR 

temporary  StORAGF  of 

THE  derivative  COEFFICIENT  TABLE  DF 

R0389 

subroutine  ROOTPSRS. 

they  must 

remain 

WITHOUT  interference  WITH 

ITS 

SUBROUTINES  wHIcH  ARE  POwRSERS  (POlY) ♦ 

R0391 

DMPSJ3;* 

DMPnSUB*  SHORiTMP.  DDV/BDDV,  ABS 

, AND  USPR 

CAOR. 

0392 

0132 

0132 

TEM2 

ERASE 

EXEC  TEMP 

0393 

REF 

1 

0132 

DSMAG 

S 

TEM2 

MAGNITUDE  STORE  FOR  DSPIN 

0394 

REF 

2 

LAST 

20 

0132 

IDADDTEM 

r 

tem? 

MIXNOUN  INDIRECT  ADDRESS  STORAG- 

0395 

REF 

1 

0132 

DERCOF-8 

= 

MPAG 

-12 

ROOTPSRS  DER  COF  N-4  HI  ORDER 

0396 

0133 

0133 

TEM3 

ERASE 

EXEC  TEMP 

0397 

ref 

1 

0133 

COUNT 

TEM3 

FOR  dSPIN 

0398 

REF 

2 

LAST 

20 

0133 

DERCOF-7 

= 

MPAG 

-11 

ROOTPSRS  DER  COF  N-A  LO  ORDER 

0399 

0134 

0134 

TEM4 

erase 

EXEC  TEMP 
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OAOO 

REF 

1 

. 0134 

__L5tPIR_  _ _ 

= 

^ list  Pointer  for  orabusy 

^ OAOl 

REF 

2 

LAST 

21 

0134 

RELRET 

z 

TEM(f 

RETURN  for  RELDSP 

OA02 

REF 

3 

last 

21 

0134 

freeret 

z 

TEMi, 

return  for  freeosp 

OA03 

REF 

3 

LAST 

20 

0l_34 

DERCOF-6 

z 

MPAC 

-10 

ROOTPSRS  DER  CoF  N-3  HI  ORDER 

040A 

0135 

0135 

TEM5 

ERASE 

EXEC  TEMP 

OA05 

REF 

1 

0133 

N3UNA03 

s 

TEM5_  _ 

temp  STORAGE  FOR  NOUN  ADDRESS 

0A06 

REF 

4 

last 

21 

0135 

DERCOF-5 

= 

MPAC 

-7 

ROOTPSRS  DER  CoF  N-3  LO  ORDER 

0A07 

013_6 

. . 0136 

nmadtem 

erase 

TEMP  FOR  NOUN  ADDRESS  TABLE  ENTRY 

0A08 

ref 

5 

LAST 

2l 

0136 

DERcOF-4 

- 

MPAc 

-6 

ROOTPSRS  DER  COF  N-2  HI  ORDeR 

0A09 

0137 

. _ Q13J 

nstyptem 

-rase 

TEMP  FOR  NOUN  LYPE  TABLE  fcNiRY 

0410 

REF 

6 

last 

21 

0137 

OERCOF-3 

MPAC 

-5 

ROOTPSRS  DER  COF  N-2  LO  ORDER 

0411 

0140 

0140 

IOAOiTEM 

tRASe 

temp  for  INDIR  ADRESS  TABLe  eNT RY (Ml X^iN) 

A0412 

MUST  = IDAD2TEM-1,  s IDAD3TEM-2. 

0413 

REF 

7 

LAST 

2l 

0140 

OERCoF-2 

= 

MPAC 

-4 

ROOTPSRS  DER  CoF  N-1  HI  ORDER 

0414 

0141 

0141 

I3AD2TEM 

erase 

temp  for  INDIR  ADRESS  TABLE  eNTRY(MIXNN) 

A0415 

MUST  = IDADlTEM+1*  = IDAD3TEM-1. 

0416 

ref 

8 

last 

21 

0141 

d£Rcof-i 

s 

MPAc 

-3 

ROOTPSRS  oER  COF  N-1  LO  ORDER 

0417 

0142 

0142 

I0AD3TEM 

erase 

TEMP  FOR  INDIR  ADRESS  TABLE  ENTRY(MIXNN) 

A0418 

MUST  = IDADlTEM+2.  = IDAD2TEM+1. 

0419 

REF 

9 

last 

2l 

0142 

DERCOFN 

= 

MPAC 

-2 

ROOTPSRS  DER  COF  N HI  ORDER 

0420 

0143 

0143 

RJTMXTEM 

erase 

TEMP  FOR  SF  ROUT  TABLE  ENTRY (MIXNN  ONLY) 

0421 

REF 

10 

LAST 

21 

0143 

DERCOF.l 

= 

MPAC 

-1 

ROOTPSRS  DER  CoF  N LO  ORDER 

R0422 

STORA 

iGE  USEO 

BY  the 

EXECUTIVE. 

0423 

0144 

0152 

M = AC 

erase 

♦ b 

MULTI-PURPOSE  ACCUMULATOR. 

0424 

0153 

0153 

MODE 

erase 

+1  FOR  TP,  +0  for  dp,  or  -1  FOR  VECTOR. 

0425 

0154 

0154 

LOC 

erase 

location  ASSOCIATED  WITH  JOB. 

0426 

0155 

0155 

bankset 

erase 

USUALLY  CONTAINS  BBANK  SETTING. 

0427 

0156 

0156 

PJSHLOC 

erase 

WORD  OF  packed  INTERPRETIVE  PARAMETERS. 

0428 

0157 

0157 

PRIORITY 

erase 

PRIORITY  OF  present  JOB  AND  WOR<  AREA. 

0429 

0160 

0267 

ERASE 

♦710 

SEVEN  SETS  OF  12  REGISTERS  EACH. 
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ROA31 

RESERVED  FOR  PINBALL  EXECUTIVE 

ACTION 

0432 

0270 

„ 02XQ__ 

DSPCOUNT 

erase.  

DISPLAY  POSITION  INDICATOR 

0433 

0271 

0271 

DECBRNCH 

erase 

♦DEC,  - DEC,  OCT  INDICATOR 

0434 

0272 

0272 

VERBREG 

erase 

VERB  CODE 

0435 

_ - 0273 

0273 

N3UNRE3 

erase 

NOUN  CODE 

0436 

0274 

0274 

XREG 

erase 

R1  INPUT  BUFFER 

0437 

0275 

0275 

YREG 

erase 

R2  INPUT  BUFFER 

0438 

_ ___  0276 

02.16 

ZREG 

erase 

R3  INPUT  BUFFER 

0439 

0277 

0277 

XReGLP 

erase 

Lo  Part  of  xreg  (For  dec  conv  only) 

0440 

0300 

0300 

yreglp 

erase 

Lo  Part  of  yreg  (For  dec  conv  only) 

0441 

0301 

0301 

ZREGLP 

erase 

LO  PART  OF  ZR£G  (FOR  DEC  CONV  ONLY) 

0442 

0302 

0302 

M3DREG 

erase 

MODE  CODE 

0443 

0303 

0303 

DSPLOC< 

erase 

KEYBOARD/SUBROUTINE  CALL  INTERL3C< 

0444 

0304 

0304 

REGRET 

ERASF 

RETURN  REGISJIB  FOR  LOAD 

0445 

0305 

0305 

ldadstat 

erase 

status  indicator  for  LOADIST 

0446 

0306 

0306 

CIPASS 

erase 

PASS  INDICATOR  CLEAR 

04A7 

0307 

0307 

ndut 

erase 

ACTIVITY  counter  FOR  DSPTAB 

0448 

0310 

0310 

NDUNCADR 

=rase 

MACHINE  CADR  FoR  NOUN 

0449 

0311 

0311 

MDNSAVE 

erase 

N/V  CODE  FOR  MONITOR.  (=  MONSAVEl-1) 

0450 

0312 

0312 

MDNSAVEl 

=RASE 

NOUNCADR  FOR  MONITOR (MATBS)  sMDnSAVE  tl 

0451 

0313 

0326 

DSPTAB 

ERASE  +11D 

o-iOD*  Display  panel  buff.  iid,  c/s  lts. 

0452 

0327 

0327 

CADRSTDR 

ERASE 

ENDIDLE  storage 

04  i3 

0330 

0330 

GRABLOCX 

erase 

internal  interlock  for  display  system 

0454 

0331 

0331 

NVQTEM 

er  ase 

NVSUB  storage  FOR  CALLING  ADDRESS 

A0455 

MUST  = NVBNKTEM-1 

0456 

0332 

0332 

NVBNKTEM 

erase 

NVSUB  STORAGE  FOR  CALLING  BANK 

A0457 

MUST  = NVQTEM+1 

0458 

0333 

0335 

dsplist 

erase 

+ 2 

waiting  list  FOR  DSP  SYST  INTERNAL  USE 

0459 

0336 

0336 

EXTVBACT 

erase 

extended  verb  activity  interlock 

0460 

0337 

0341 

DSPTEMI 

erase 

+ 2 

BUFFER  STORAGE  AREA  1 (MOSTLY  F3R  TIME) 

0461 

0342 

0344 

0SPTEM2 

erase 

+ 2 

BUFFER  STORAGE  AREA  2 (MOSTLY  FdR  DEG) 

R0462 

end  DrI  ERASABLES  RESERVED  FOR 

PINBALL  EXECUTIVE  A 

iCTION 

ROA63  reserved  FOR  PINBALL  INTERRUPT  ACTION 

OA6A 03A5 03A5  PSPCNT  ERASE COUNTER  FOR  DSPOUT 

A0A65  reception  OF  A BAD  MESSAGE  IN  UNLINK) 

R0A66  end  of  ERASABLES  RESERVED  FOR  PINBALL  INTERRUPT  ACTION 
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0A68 

0346 

0346 

T4L0C 

erase 

_ 046.9 

0347 

0347 

DSRUPTSw 

ERASE 

0470 

0350 

0350 

DIDFLG 

erase 

0471 

0351 

0352 

ALT 

ERASE 

♦ 1 

0472 

0333 

0353 

altrate 

_£RA5E  _ 

0473 

0354 

0355 

FINALT 

erase 

♦ 1 

(MAY  NOT  BE  REQUIRED  FOR  FLIGHTS). 

0474 

0356 

0356 

LoYRO 

erase 

0475 

0357 

0357 

FORVEL 

erase 

0476 

0360 

0360 

LATVEL 

ERASE 

0477 

0361 

0361 

LASTYCMD 

ERASE 

0478 

0362 

0362 

LASTXCMD 

ERASE 

0479 

0363 

0364 

ALTSAVE 

erase 

♦ 1 

R04B0  END 

Or.  T4RUPT  ASsiGnMcNTS 

0481 

0365 

0365 

I M0DES30 

erase 

0482 

0366 

0366 

IMODES33 

erase 

0483 

0367 

0372 

modecaor 

erase 

♦3 

0484 

REF 

1 

0367 

imucadr 

equals 

MODErADR 

0485 

REF 

2 

LAST 

23 

0370 

ADTCADR 

equals 

MODErADR 

tl 

_ _0486_ 

REF 

0370 

OPTCADR 

equals 

AOTCaDR 

0487 

REF 

3 

LAST 

23 

0371 

radcadr 

equals 

MODErADR 

♦ 2 

0488 

REF 

4 

LAST 

23 

0372 

ATTCADR 

equals 

MODErADR 

+ 3 

0489 

0373 

0373 

markstat 

erase 

0490 

0374 

0374 

XYMARK 

erase 

0491 

0375 

0375 

D3 

ERASE 

R049102 

START 

CODING 

FOR 

MODULE 

3 remake, 

AUGUST 

1967»»hSTART  coding  FOR 

MODULE 

3 

REMAKE,  AUGUST 

1967»«JHHHHHHHHHt»**»i,# 

049106 

0376 

0376 

/Tempi/ 

ERASE 

049107 

0377 

0377 

S^IARTFLG 

erase 

ANY  PNZ  VALUE  REQUESTS  SmARTUOS. 

R049108 

»*END 

CODING 

FOR 

MODULE 

3 remake, 

AUGUST 

l967»»)H( 

■end  coding  for  I 

MODULE 

3 

REMAKE,  AUGUST 

0492 

0400 

setloc 

400 

0493 

0400 

0402 

thetad 

erase 

+ 2 

0494 

0403 

0410 

DELVX 

ERASE 

♦ 5 

R0A95  downlink  List  address. 

0A96  OAll  OAll  DMUSTADR  ERASE 


R0A97  RADAR  ERASABLE 
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L erasable  assignments 


USER'S  OWN  PAGE  NO.  13 


0498  _ ..  _J3412 0-412  - RADMODES  £RA5E 


0499 

0413 

0413 

SAMPLl M 

ERASE 

0500 

0414 

0415 

samplsjm 

ERASE 

♦ 1 

0501 

ref 

1 - - 

.0414 

SAMP.SUY1  . 

EQUALS- 

-S-AMPrsUM 

0502 

0416 

0417 

0?TYHOL0 

ERASE 

♦ 1 

0503 

0420 

0421 

TIMEHOlD 

erase 

+ 1 

0504 

REF 

2 LAS-L  -2A 

0414 

. RRTARGET 

equals 

SAMPfSUM 

HALF  UNIT  VECTOR  IN  SM  OR  NB  AX-5. 

0505 

0422 

0423 

tang 

erase 

+ 1 

desired  trunnion  and  shaft  angles. 

0506 

REF 

1 

0422 

MDDEA 

equals 

TANG 

0507 

0424 

0425 

MDDEB 

ERASE 

♦ 1 

DODES  CLOBBERS  TANG  +2. 

0508 

ref 

1 

0424 

NSAMP 

equals 

MOoEr 

0509 

0426 

0426 

DESRET 

erase 

0510 

REF 

1 

0426 

3UDATA3D 

=QUALS 

desret 

USED  IN  DATA  READING  ROUTINES. 

0511 

0427 

0427 

DESCOUNT 

erase 

R0512 

end 

3=1  radar  erasable 

assignments 

0513 

0430 

0430 

VACIUSE 

ERASE 

0514 

0431 

0503 

VACl 

erase 

+ 423 

- 0515- 

0504 

0504 

VAC2USE 

ERASE 

0516 

0505 

0557 

VAC2 

erase 

+ 420 

0517 

0560 

0560 

VAC3USE 

erase 

0518 

0_5-61 

0633 

VAC3 

=RASE 

+ 423 

0519 

0634 

0634 

VAC4USE 

erase 

0520 

0635 

0707 

VAC4 

ERASE 

+ 423 

0521 

0710 

0710 

VAC5USE 

ERASE 

0522 

0711 

0763 

VAC5 

ERASE 

+ 420 

_0523 

0764 

0764 

PHASENJM 

ERASE 

0524 

0765 

0765 

1/PIPADT 

erase 

time  base  OR  DT  FOR  IMU  COMP  IN  C.S. 

, _0525 

ref 

1 

0765 

OLDBTl 

EQUALS 

1/PIdADT 

ADJACENT  TO  PHASENUM  FOR  DOWNLINK.^ 

R0526 

XALCMANU 

I-DAP 

I NT ERFACE i 

0527 

0766 

0770 

C3UXD 

erase 

+ 2 

CDU  desired  registers; 

0528 

REF 

1 

0767 

C3UYD 

equals 

COUXD  +1 

scaled  at  pi  radians  (180  DEGREES) 

0529 

REF 

2 

LAST 

24 

0770 

C3UZD 

equals 

CDUXD  +2 

(STORED  IN  2*  COMPLEMENT) 

0530 

0771 

0773 

DELCDUX 

ERASE 

+ 2 

negative  of  desired  looMS  CDU  Increment: 

0531 

REF 

1 

0772 

DELCDUY 

EQUALS 

OELCdUx  +1 

scaled  at  pi  radians  (180  DEGREES) 

0532 

REF 

2 

LAST 

24 

0773 

DELCDUZ 

EQUALS 

OELCnUX  +? 

(STORED  IN  2'  COMPLEMENT) 

0533 

0774 

0776 

OMEGaPD 

ERASE 

+ 2 

ATTITUDE  Maneuver  desired  rates 

0534 

REF 

1 

0775 

OMEGAqD 

EQUALS 

DMFGAPD  +1 

(NOT  explicitly  referenced  IN  GtS  CNTRL) 

0535 

REF 

2 

LAST 

24 

0776 

0MEGAR3 

equals 

OMEGAPD  +2 

scaled  at  PI/4  radians/second 

0536 

1000 

SETL3C 

lOOo 

0537 

1000 

1001 

T5ADR 

erase 

+ 1 

GENADR  of  next  LM  dap  T5RUPT.  » 2CADR  * 

b33tt3bA 

YUL  SYSTEM  FOR  '^GC!  REVISION  0 OF  PROGRAM  BURST120  6Y  I 

NASA  2ri21106-031 

DEC  7.  1967  (MAIN)  PAGE  25 

L 

A0538 

erasable  assignments 

USER'S  OWN  PAGE  NO.  19 
B.BCON  _ OF  NXT  LM  DAP  T5RUPT.  " ^CADi?  * 

0539 

1002  1003 

T6NEXT  erase 

+ 1 

LIST  OF  T1ME6  DT-S  FOR  JET  LIST  PROGRAM 

051^0 

1009  1006 

T6NEXTJT  erase 

♦ 2 

list  of  jet  policies  for  JTLST  3R3GRAM 

0591 

i_oar  . _ 1007 

OELAYCTR  ERASE 

_ C_0JJN TFR  For  ^ M IjN I M U M _ I MPULSF  USf  OF  RHC 

633436A 

YUL  System  for  agc:  revision  o of  program  bursu20  by  nasa 

2n211O6-031  DEC  7i 

1967 

(MAIN)  PAGE  26 

L 

P05it2 

erasable  assignments 

erasable  assignments  for  average  G INTEGRATOR: 

USER'S  OWN  PAGE 

NO. 

15 

05A3 

1010 

unji 

1015 

1023 

RN. 



ERASE 

ERASE 

+ 5 

^ 

05A5 

1029 

1031 

3DT/2 

ERASE 

♦ 5 

05A6 

1032 

1037 

JNITR 

ERASE 

f 5 

0597 

1090 

1095 

JNITW 

ERASE. 

♦ 5 

0598 

1096 

1097 

RMAG 

ERASE 

♦1 

0599 

REF 

1 

0903 

DELV 

equals 

OELVv 

0550 

1050 

1055 

RNl 

ERASE 

♦ 5 

0551 

1056 

1063 

VNl 

ERASE 

+ 5 

0552 

1069 

1071 

oDTI/2 

ERASE 

♦ 5 

0553 

..  . __10.72  . 

L073 

AVGEXIT 

erase 

♦1  _ 

0559 

1079 

1075 

avgoutf 

ERASE 

♦ 1 

0555 

ref 

1 

1079 

DVMNEXiT 

= 

AVoOiiTF 

. R0556 

waitlist  REPEAT  FLAG; 

0557 

1076 

1076 

RJPTAGN 

erase 

0558 

REF 

1 „ . 

1076 

<EY1EM2. 

R.iPTaGN 

. .TEMP_  for.  KEYRuPT.  UPRuPT 

R0559 

PHASE  table  and  RESTART 

counter 

> • 

633436A 

YUL 

SYSTEM  FOR  AGC;  REVISION  0 

OF  program  BURST120  BY  NASA  2n21106-031 

DEC  7.  1967  (MAIN)  PAGE  27 

L 

ERASA3LE  ASSIGNMENTS 

USER'S  OWN  PAGE  NO.  16 

P0560 

THf 

FOLLOWING  ARe  TO  LOCATED  IN 

unswitcheo  lrrassible 

R0561 

TBaSE(I)  are  used  in  waitlist  restarts 

R0562 

PHSPSDT(I)  ARE  USfO  TO'  STORE  EITHER  PRIORITY  OR 

D=LTA  TIMF  FnR  VARIABLE 

Restarts 

R056A 

PHASEd)  AND  -PHaSE(I)  ARe  USeD 

TO  STORE 

; the  phase  INFORMATION  AND  PHASe 

; INFORMATION  COMPLEMENTED  FoR  EACH  OF  TH 

R0566 

GROUPS 

0567 

1077 

1077 

-PHASEl 

cR  ASE. 

0568 

1100 

1100 

PHASEl 

erase 

0569 

1101 

1101 

-PHASE2 

ERASE 

0570 

1102 

1102 

PHASE2 

ERASE 

0571 

1103 

1103 

-PHASES 

erase 

0572 

1104 

1104 

PHASE3 

ERASE 

0573 

1105 

1105 

-PHASE4 

erase 

057A 

1106 

1106 

PHASE4 

erase 

0575 

1107 

1107 

-PHASF5 

ERASE 

0576 

1110 

1110 

phases 

erase 

0577 

1111 

nil 

-PHASE6 

erase 

0_578 

1112 

1112 

PHASE6 

FRASE 

0579 

1113 

1113 

T3ASE1 

erase 

0580 

1114 

1114 

PHSPRDTl 

ERASE 

0581 

1115 

1115 

T3ASE2 

erase 

0582 

1116 

1116 

PHSPRDT2 

erase 

0583 

1117 

1117 

T3ASE3 

erase 

0584 

1120 

1120 

PHSPRDI3 

ERASE 

0585 

1121 

1121 

T3ASE4 

ERASE 

0586 

1122 

1122 

PHSPRDT4  erase 

0587 

1123 

1123 

T3ASE5 

erase 

0588 

1124 

1124 

PHSPRDTS 

ERASE 

0589 

1125 

1125 

T3ASE4 

ERASE 

0590 

1126 

1126 

PHSPRDT6 

ERASE 

0591 

1127 

1127 

rstrtwrd 

erase 

EACH  BIT  INDICATES  ReSTARTABI LI TY  OF  A 

A0592 

PARTICULAR  MISSION  PHASE. 

A0593 

ON  bit  = YES  IT  IS  RESTARTA3.E. 

A0694 

BIT  NO.  = MISSION  PHASE  NO. 

R0595 

erasable  for  single  precision  SUBROUTINES. 

0596 

1130 

1130 

HALFY 

erase 

0597 

1131 

1131 

RDOTRET 

erase 

0598 

1132 

1132 

S3RARG 

ERASE 

0599 

REF 

1 

1130 

TEMK 

equals  HALFv 

0600 

REF 

1 

1131 

S3 

equals  RDOTrET 

R0601 

ERASABLE  ASSIGNMETNS  FOR  LMP  ROUTINES 

0602 

1133 

1142 

LMPCMO 

erase  +7 

CIRCULAR  BUFFER  OF  LAST  8 COMMANDS. 

0603  ^ ' U43  1143  L^IPIN  ^ ERASE  ' POINTS  TO  NEXT  AVAILABLE  INPUT  SLOT, 
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L 

erasable  assignments 

USER'S  OWN  PAGE  NO.  17 

0604 

IIAA 

ii4A_ 

lmpdlil 

-RASF 

POJNlS  LQ,  next  -OUTPUT  LOCATION  IN.  BUFFER 

0605 

11A5 

1145 

lmpoutt 

erase 

interrim  storage  for  the  above. 

0606 

1146 

1146 

lmpret 

erase 

2CA0R  RETURN  ADDRESS  FOR  SUBROUTINES. 

0607 

1147  . 

1147 

lmpbbanc 

= RASEL_ 

0608 

1150 

1150 

SAVDT 

erase 

0609 

.LL5.1 

1152 

ldngcadr 

erase 

♦ 1 

unswitch_£d  erasable  For  lqmgcaljI 

0610 

1153 

1154 

longtime 

ERASE 

♦ 1 

0611 

iX5_5  _ 

1161 

cmemory 

erase 

+ 4 

0612 

REF 

1 

1155 

TEMX 

eqjals 

CMEMnRY 

0613 

REF 

2 last 

2B 

1156 

temy 

equals 

cmemory 

+ 10 

061A 

REF 

3 LAST 

28 

1157 

T£MZ 

equals 

cmemory 

+ 2D 

0615 

REF 

A LAST 

28 

1160 

temxy 

equals 

CMEMORY 

♦ 30 

0616 

REF 

5 LAST 

28 

1161 

pipage 

equals 

CMEMnRY 

♦ 40 

0617 

1162 

1162 

uEtreset  erase 

maintained  by  RCSMONIT. 

0618 

1163 

1163 

THISCH32  erase 

DITTO 

R0619  storage  FOR  rOR  MISSIOKi  JIMeR/PHASE  REGISTER  PAJRS. 


0620 

1164 

1164 

MTIMER4 

erase 

0621 

1165 

1165 

MTIMER3 

erase 

0622 

1166 

1166 

MTIMER2 

erase 

0623 

1167 

1167 

MTIMERI 

erase 

0624 

1170 

1170 

MPHASE4 

ERASE 

0625 

1171 

1171 

MPHASE3 

ERASE 

0626 

1172 

1172 

MPHASE2 

erase 

06  Z7 

1173 

1173 

MPHASEl 

erase 

0628 

1174 

1177 

MTIMER4T 

erase 

♦ 3 

RESTART  storage  AREAS  FOR  THE  ABOVE. 

0629 

1200 

1200 

MDUETEMP 

ERASE 

0630 

1201 

1201 

STATECTR 

erase 

timer  for  internal  state  vector  UPDATES. 

0631 

1202 

1202 

U^’PHASE 

erase 

NEW  PHASE  AS  SENT  UP  THE  UPLIN<. 

0632 

1203 

1203 

UPDT 

ERASE 

NEW  DT  AS  SENT  UP  THE  UPLINK.  . . 

0633 

1204 

1204 

UPINDEX 

ERASE 

INDEX  OF  timer  MODIFIED  BY  UPLINK. 

0634 

1205 

1206 

UPGET 

erase 

♦ 1 

get  for  uplink  request. 

0635 

1207 

1207 

mreturn 

erase 

RETURN  REGISTER. 

R0636 

pmemdriy  assignments 

0637 

1210 

1335 

PMEMORY 

ERASE 

♦ 85D 

0638 

ref  1 

1210 

refrrect 

equals 

PMEMnRY  +nOD 

statf  vectors  for  orbital  intfsration 

0639 

REF  2 LAST  28 

1216 

REFVRECT 

equals 

PMEMnRY  +06D 

633^36A 

YUL 

SYSTEM  FOR  AGCi  R 

iVISION  0 

OF  program  BURST120  BY  NASA  2021106-031 

OEC  7*  1967  (MAIN)  PAGE 

29 

L 

erasable  assignments 

USER'S  OWN  PAGE  NO,  18 

06^0 

REF 

3 

LAST 

2H 

. 122  A 

DELTAV 

eqjals 

PMEMnRY 

♦ l^D 

STATE  DEYIATIONS 

06^fl 

ref 

A 

LAST 

29 

1232 

NJV 

EQUAlS 

pmemory 

+ 180 

06A2 

ref 

5 

LAST 

29 

12A0 

REFRCV 

equals 

PMEMORY 

+ 2AD 

06A3 

REF 

6 

LAST 

29 

12A6 

REFVCV 

EQUALS 

PMEMoRY 

+300  . 

06AA 

REF 

1 

125A 

REFTC 

Z 

REFTrY 

06^t5 

REF 

7 

LAST 

29 

125A 

REFTCY 

equals 

PMEMORY 

+ 360 

06^(6 

REF 

8 

LAST 

29 

1256 

T£ 

equals 

PMEMnRY 

+ 380 

tet,time  corresponoing  to  Lem  state 

Obit! 

REF 

9 

last 

29 

1260 

REFXKEP 

equals 

PMEMORY 

+ ^0D 

ROOT  TO  KEPLER  EQUATIONS 

06<»8 

REF 

10 

last 

29 

1262 

REFSMMAT 

equals 

pmemory 

+ 420 

transformation  matrix  Between  sm  and 

REF 

06A9 

REF 

11 

LAST 

29 

130A 

pipretrn 

equals 

pmemory 

+ 600 

0650 

REF 

1 

130A 

TOECTEMP 

equals 

piprftrn 

0651 

REF 

12 

LAST 

29 

1306 

PIPTIME 

equals 

PMEMORY 

+ 620 

0652 

REF 

13 

LAST 

29 

1310 

DYSELECT 

equals 

PMEMnRY 

+ 640 

0653 

REF 

lA 

LAST 

29 

1311 

TEVENT 

equals 

PMEMORY 

+ 650 

065A 

REF 

15 

LAST 

29 

1320 

MASS 

equals 

PMEMnRY 

+ 720 

0655 

REF 

16 

LAST 

29 

1330 

C3UTEM= 

equals 

pmemory 

+ 800 

Vector  used  in  findcdud 

0656 

REF 

17 

LAST 

29 

1322 

/ACF/ 

equals 

PMEMnRY 

+ 7AD 

06J57 

REF 

1 8 

LAST 

29 

132A 

/AF/ 

equals 

PMEMnRY 

+ 760 

0658 

REF 

19 

LAST 

29 

1323 

pcntf 

equals 

PMEMORY 

+ 750 

0659 

REF 

20 

LAST 

29 

1326 

STATIME 

equals 

PMEMORY 

+ 780 

DP  DOWNLINK  TIME-DONT  VIOLATE  THESE 

REGS 

0660 

1336 

1336 

SLOSHCTR 

erase 

ERASABLE  USED  BY  GIMBLMON  FOR  A COUNTR 

0661 

1337 

1337 

STARTDYC 

ERASE 

VALUE  for  DVCNTR  FOR  ENGINE  ON^"' 

0662 

13A0 

13A0 

STOPDYC 

erase 

VALUE  FOR  DVCNTR  FOR  ENGINE  OFF 

0663 

13A1 

13A1 

SETDVCNT 

erase 

CONTENTS  WILL  BE  LOADED  INTO  DVCNTR 

066A 

13A2 

13A2 

RSDTTEMP 

erase 

SP  temp  used  for  restart  DT'S, 

0665 

13A3 

13AA 

TPRELTER 

erase 

♦ 1 

TIME  OF  PRELAUNCH  TERMINATION 

0666 

13A5 

13A5 

DApOFFOT 

erase 

TIME  FROM  TlG+26  IN  Mpll  TO  TUR\I  OAp 

OFF 

0667 

13A6 

13A6 

OLDDYSEL 

erase 
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L 

P0668 

ERASA3LE  assignments 

aSSI GmMENTS  reserved  exclusively  for, self-chec< 

USER'S  OWN  page  NO.  19 

0669 

Qfe.70 

1353 

1377 

1353 

SELFERAS 
■ E^ESIORE. 

ERASE 

equals 

1353  - 1377 
1353 

0671 

1354 

selfrft 

EQUALS 

1354 

0672 

1355 

SMODE 

equals 

1 355 

0673 

_ 135^6_ 

REDOCTR 

equals 

13-56 

DO  NOT  change  THE  ORDfR  OF  RFGISTFRS  RF- 

067A 

1357 

SFAIL 

equals 

1357 

DOCTR  THRU  SCOUNT  (NOUNS  AND  DOwNLINO. 

0675 

1360 

FA1LRE3 

EQUALS 

1360 

0676 

13.63 

ALMCADR 

equals 

1363 

0677 

1365 

ERCOUNT 

equals 

1365 

0678 

1366 

SCOUNT 

= 

1366 

0679 

_ 137_l 

S<.EEP1 

s 

_1 3-7 1 

06B0 

1372 

S<EEP2 

= 

1372 

0681 

1373 

S<EEP3 

1373 

0682 

1374 

5<EEP4 

1374 

0683 

1375 

SCEEP5 

1375 

068A 

1376 

SCEEP6 

= 

1376 

0685 

1377 

S<EEP7 

- 

^L3?7 

R0686 

waitlist 

TASK  LISTS 

0687 

E3.1400 

setloc 

1400 

0688 

£3»1A00 

E3.1407 

LSTl 

erase 

♦ 7 

DELTA  T'S. 

0689 

E3.U10 

E3 ♦ I43I 

LST2 

ERASE 

♦ I7D 

2CADR  task  addresses. 

0690 

E3.U32 

E3.1433 

LDNGBASE 

ERASE 

+ 1 

ERASABLE  FOR  LONGCALL 

0691 

E3.U3A 

E3  » 1435 

L3NGEX1T 

ERASE 

+ 1 

R069.2 

iMu  compensation  parameters? 

0693 

E3*1A36 

E3  * 1436 

P3IA5X 

erase 

PIPA  BIAS  AND  PiPA  SCALE  FACTOR  TfRMS 

069A 

REF  1 

E3.1436 

pIpABI AS 

£ 

P3I  A«;X 

intermixed. 

0695 

E3,U37 

E3.1437 

PIPASCFX 

ERASE 

0696 

REF  1 

E3.1437 

PIPASCF 

S 

PIPASCFX 

0697 

E3  * 1 AAO 

E3 . 1440 

P3IASY 

ERASE 

0698 

E3,1aA1 

E3.1441 

PIPASCFY 

ERASE 

0699 

E3,14A2 

E3.1442 

P3IASZ 

ERASE 

0700 

E3,UA3 

E3  f 1443 

PIPASCFZ 

ERASE 

0701 

c3  « 1444 

E3.1444 

N3dX 

erase 

GYRO  BIAS  DRIFTS 

0702 

REF  ^ L. 

L3.1444 

o3IAsX 

- 

NBOX 

0703 

E3,KA5 

E3, 1445 

N3DY 

ERASE 

070A 

E3 » 1 AA6 

E3 .1446 

N3DZ 

ERASE 

0705 

£3 « 1447 

E3*1447 

ADIAX 

ERASE 

acceleration  Sensitive  drift  along  the 

0706 

£3.1450 

E3.1450 

adiay 

ERASE 

INPUT  axis 

0707 

£3,1451 

E3.1451 

A3IAZ 

ERASE 

633IV36A 

YUL 

system  for  agc!  revision  0 

OF  PROGRAM  BURST120  BY  NASA  2n21106-031 
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L 

ERASA3LE  ASSIGN'^ENTS 

USER'S  OWN  PAGE  NO.  20 

0708 

. _ E3.1452 

_jE3,1452 

AOSRAX 

£RA5£^_ 

acceleration  Sensitive  drift  along  the 

0709 

£3,1453 

£3,1453 

AOSRAY 

erase 

SPIN  reference  axis 

0710 

£3,1454 

E3, 1454 

A0SRA2 

erase 

0711 

£3,1455 

E3*1462 

GCOMP 

ERASE 

♦ 5 

CONTAINS  COMPENSATING  TORQUES 

_ 0712„ 

£3,1463 

E3.1463 

sCOMPSW 

ERASE 

0713 

REF 

1 

£3*1455 

COMMAND 

equals 

GCOMd 

0714 

ref 

2 LAST  31 

£3,1460 

CDUINO 

EQUALS 

GCQMP  +3 

R0715 

STORAGE  for  RR  TASKS. 

07_16 

E3 , 1464 

-.E3.il4.64... 

RRRET 

PRASE 

0717 

£3,1465 

£3,1465 

ROES 

ERASE 

0718 

£3,1466 

£3,1466 

RRINDEK 

ERASE 

R0719 

AOt 

calibrations  in  AEIMUtH  and  elevation  AT  detents 

0720 

£3,1467 

E3,1471 

AOTAZ 

ERASE 

+ 2 

„ _0.72i  .. 

£3,1472 

£3,1474 

AOTEL 

ERASE 

♦ 2 

R0722 

ASSIGNMENTS  FOR  PRESENTLY  UNUSED  NOUNS. 

0723 

F3,1475 

A2ANG 

equals 

Delete  when  optical  tracker  noums  gone. 

0724 

£3,1475 

ELANG 

equals 

0725 

£3,1475 

DESLOTSY 

equals 

0726 

£3,1475 

OESLOTSX 

equals 

0727 

£3 ,1475 

£3,1477 

ROLL 

ERASE 

+ 2 

0728 

£3,1500 

E3,1505 

landmark 

ERASE 

♦ 5 

R0729 

the 

FOLLOWING  REGS  ARE  USED  BY 

THE  standby  VeR3S 

0730 

£3,1506 

£3,1507 

TIMESAV 

ERASE 

+ 1 

0731 

£3,1510 

£3,1511 

scalsay 

ERASE 

+ 1 

0732 

£3,1512 

£3,1513 

TIMAR 

erase 

♦1 

0733 

£3,1514 

£3,1515 

TIMEDIFF 

erase 

+ l 

R0734 

the 

FOLLOWING  MAY  BE  =LACeD  IN 

SWITCHED 

eRrassibl 

R0735 

PHSNAvtE(I)  AND  FHSBB(I)  STORE 

the  2CADR 

FOR  variable  ReStARTc  For  each 

OF  the  groups 

0737 

£3,1516 

£3,1516 

PHSNAMEl 

ERASE 

0738 

£3,1517 

£3,1517 

phsbbi 

ERASE 

0739 

£3,1520 

£3,1520 

P4SNAME2 

ERASE 

0740 

£3,1521 

£3,1521 

PMSBB2 

ERASE 

0741 

£3,1522 

£3,1522 

PHSNAME3 

ERASE 

0742 

£3,1523 

£3,1523 

PHSBB3 

ERASE 

0743 

£3,1524 

£3,1524 

PHSNAME4 

ERASE 

0744 

£3,1525 

£3,1525 

PHSBB4 

ERASE 

0745 

£3,1526 

£3,1526 

P-ISNAME5 

erase 

0746 

£3,1527 

£3,1527 

PHSBB5 

ERASE 

0747 

£3,1530 

£3,1530 

PMSNAME6 

ERASE 

0748 

£3,1531 

£3,1531 

PHSBB6 

erase 
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L erasable  assignments 


USER'S  OWN  PAGE  NO,  21 


0749 

E3,1532 

E3.1534 

BCDU 

rRASE 

*? 

0750 

E3,1535 

E3.1556 

Mis 

ERASE 

♦ 17D 

0751 

£3,1557 

£3,1600 

MFS 

ERASE 

+ 170 

0752 

£3.1601 

£3,1622 

TMlS 

ERASE 

♦ 17  0 

0753 

RLF 

1 

E3,1601 

tmfi 

EQUALS 

tmis 

0754 

£3,1623 

£3,1630 

CDF 

ERASE 

0755 

£3,1631 

E3.1631 

CPHI 

ERASE 

0756 

£3,1632 

£3,1632 

ctheta 

erase 

0757 

£3,1633 

£3,1633 

C = SI 

ERASE 

0758 

RtF 

1 

_£3jl55i_ 

MFI 

equals 

MFS  __ 

0759 

£3,1634 

£3,1641 

cdfskew 

ERASE 

+ 5 

0760 

£3,1642 

£3,1643 

AM 

ERASE 

+ 1 

0761 

REF 

2 LAST 

32 

£3,1601 

MFISYM 

equals 

TMIS 

0762 

£3 , 1644 

£3,1645 

cam 

ERASE 

+ 1 

0763 

REF 

1 

£3,1607 

C2SQP 

EQUALS 

<2 

0764 

REF 

2 last 

32 

£3,1611 

C2SQM 

equals 

<2  +; 

0765 

REF 

3 LAST 

32 

£3,1613 

C2PP 

equals 

<2  +4 

0766 

REF 

1 

£3,1615 

C2MP 

equals 

<3 

0767 

REF 

2 LAST 

32 

£3,1617 

CIPP 

equals 

+T> 

0768 

REF 

3 last 

32 

£3,1621 

CIMP 

equals 

<3  +4 

0769 

REF 

1 

E3,1601 

P2l 

equals 

<1 

0770 

REF 

2 LAST 

32 

£3^1603 

D21 

equals 

<1  +7 

0771 

REF 

3 LAST 

32 

£3,1605 

321 

equals 

<1  +4 

0772 

^3  1646 

E3.1647 

RAD 

ERASE 

+ 1 

0713 

£3,1650 

E3.1651 

RSQ 

ERASE 

♦1 

0774 

0775 

0776 

REF 

REF 

REF 

2 

3 

1 

LAST 

LAST 

32 

32 

£3,1557 

£3,1565 

E3.1634 

El  equals 

E2  EQUALS 

I S FQUAl 

MFS 

MFS  *6 
COF<;i^EW 

0777 

REF 

3 

LAST 

32 

E3.1615 

OoF  EQUALS 

TMIS  +12D 

0778 

REF 

4 

LAST 

32 

£3,1601 

<1  EQUALS 

TMIS 

0719 

REF 

5 

LAST 

?2 

E3.1607 

<2  EQUALS 

TMIS  +6 

0780 

REF 

6 

LAST 

32 

£3,1615 

<3  EQUALS 

TMIS  +12D 

0781 

REF 

4 

LAST 

32 

£3,1557 

<£L  equals 

MFS 

0782 

£3,1652 

£3,1652 

rateinox  erase 

0783 

£3,1653 

£3,1653 

SPNDX  erase 

0784 

£3,1654 

£3,1654 

myndx  erase 

0785 

REF 

2 

LAST 

32 

£3,1634 

BRATE  equals 

COFSi^EW 

0786 

REF 

1 

E3.1644 

tm.  equals 

CAM 

0787 

REF 

7 

LAST 

32 

£3,1601 

ncdu  equals 

TMIS 

0788 

REF 

8 

LAST 

32 

E3.1604 

fi£.XTIME  EQUALS 

TMIS  *3l 

0789 

REF 

3 

LAST 

24 

0771 

deldcdu  equals 

DELCriUX 

0790 

REF 

1 

0772 

DELDCOUl  EQUALS 

DELCDUY 

0791 

REF 

1 

0773 

DELDCDU2  EQUALS 

DELCDUZ 

0792 

REF 

9 

LAST 

32 

£3,1605 

ttemp  equals 

TMIS  +4 

0793 

£3,1655 

£3,1662 

PDlNTVSM  ERASE 

+ 5 

07_94 

£3,1663 

E3.1670 

SCAXIS  erase 

+ b 

0797 

£3,1671 

£3,1672 

tf  erase 

+1 

0798 

£3,1673 

£3,1674 

cdgavail  erase 

+1 

0799 

£3,1675 

E3.1677 

SPLOC  -RASE 

♦2 

0800 

£3,1700 

£3,1705 

umri  erase 

+5 
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L 

eRasasle  assignments 

£3,1706 

■ E3L,.ma_ 

ROVEC 

-£R.A5£,. 

_±5 

USER'S  OWN  PAGE  NO.  22 

0802 

REF  1 

E4,1723 

VOVEC 

EQJALS 

(/DYErT 

0803 

£3,1714 

E3,1721 

JNNORM 

ERASE 

+ 5 

0804 

E3,1722 

E3.1723 

INDEP 

ERASE 

♦ 1 

0805 

E3,1724 

E3,1725 

TWEEKIT 

erase 

+ 1 

0806 

E3,1726 

E3,1727 

DEPVAr 

ERASE 

♦ 1 

0807 

£3,1730 

£3,1731 

PREVDEP 

ERASE 

♦ 1 

0808 

£3,1732 

£3,1733 

DELDEP 

ERASE 

+ 1 

0809 

£3,1734 

£3,1735 

DELINDEP 

ERASE 

♦ 1 

0810 

0026 

MININDEP 

EQUALS 

22D 

0811 

0032 

MAXINOEP 

EQUALS 

26D 

R0812 

ReSTRTCS-ReSTRTCS  +77D  IS  UStD  FOR  RESTART  PRDTE 

::tion 

durinF,  PReLAUNCH 

0813 

£3,1600 

RESTRTCS 

= 

1600 

Ao814 

erasabl£  For  mission  phase  two 

0815 

£3,1736 

£3,1737 

ToRR 

-rase 

+ 1 

time  Of  guidance  reference  release 

0816 

£3,1740 

E3,1741 

TLIFTOFF 

erase 

+ 1 

time  of  liftoff 

0817 

£3,1/42 

£3,1742 

DJ-LIFT 

-RAS£^ 

DT  from  GRR  to  liftoff 

0818 

REF  1 

£3,1742 

A30RTNDX 

equals 

DI-LtFT 

0819 

£3,1743 

£3,1744 

DT-LETJT 

erase 

+ 1 

DT  FROM  LIFTOFF  TO  POST-LET  UETTISON 

0820 

£3,1745 

£3,1746 

A2GR 

ERASE 

+ 1 

PAD  37B  vertical  to  ref  X-Z  PLANE. 

0821 

£3,1747 

£3,1750 

TILT 

erase 

+ i 

Y ABOUT  Z IN  REVS. 

0822 

£3,1751 

£3,1752 

ZSMAZ 

ERASE 

♦1 

Z FROM  NORTH  IN  REVS. 

0823 

£3,1753 

£3,1755 

TEPHEM 

ERASE 

+2 

TP  cs  from  00:00:00  UULY  1 TO  3y:do:oo 

0824 

£3 ,1756 

£3,1757 

AZO 

erase 

+1 

ANGLE  BETWEEN  GREENWICH  AND  X-Z  PLANE 

0825 

£3,1760 

E3,1761 

P37BLAT 

ERASE 

+1 

LAUNCH  pad  LATITUDE 

0826 

£3,1762 

E3,1763 

P37BLONG 

erase 

+1 

LAUNCH  PAD  LONGITUDE 

A0827 

OF  launch  day. 

0828 

£3,1764 

£3,1771 

DELVBUF 

erase 

+ 5 

holds  VEL  CORR  when  L/0  caught  3Y  DVMON. 

0829 

REF  1 

E3,1764 

GLIFTOFF 

equals 

DeLYrUF 

WRITTEN  over  VIA  DELVBUF  AFTER  5RR  SET 

0830 

£3,1772 

£3,1772 

MP6T07 

ERASE 

erasable 

FOR 

MP6 

0831 

£3,1773 

£3,1773 

M38T09 

erase 

erasable 

FOR 

MIS, 

08315 


E3,177A  E3.1775  RSBB6Q  ERASE  +1 


WILL  BE  filled  WITH  BB  AND  0 ON  RESTART 
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L 

P083Z 


0833 

083A 

R0835 

R0837 

R0839 

0840 

0841 

0842 

0843 

0844 

0845 

0846 

0847 

0848 

0849 

0850 

0851 
0852_^ 

0853 

0854 

0855 

0856 

0857 

0858 

0859 

0860 
0861 
0862 

0863 

0864 

0865 

0866 
0867 

_086^ 

0869 

0870 
087JL 

0872 

0873 
_ 08J^ 

08  75 


erasable  assignments  USER'S  OWN  PAijE  NO.  23 

FRASA3LE  assignments  FOR  EBANK  4 


E4*1400  SEFLOC  2000 

E4.1400 E4.1626  AMEMORY  ER_ASE  +1500 

the  FOLLOWING'  a MEMORY  LOCATIONS  ARE  JSEO  By  MID-CoiiRSe  NAVIGATION 

caution:  orbital  integration  registers  ravfgon.  vavegon  and  second  ops  gukoance  Registers  tpip.  ttF/4, 

TTF/4IMP,  TULLG  aRE  ALL  In  USE  SIMULTANEOUSLY  anD  Must  NOT  ConFLICT. 


Ki-r 

REF 

- 1. 

2 

LAST 

34 

c t*  % IHUU 

E4» 1400 

RlGNTION 

equals 

►M’lc-’inKT  ♦uvuu' 
A^1EV10RY  +O00D 

. 

■ ■ 

REF 

3 

LAST 

34 

£4  » 1 406 

VRECT 

equals 

AMEMnRY  +O06D 

REF 

4 

LAST 

34 

__E4*1406 

VIGNTION 

equals 

AMEMnRY  +0060 

REE 

5 

LAST 

34 

E4.1414 

TOELTAV 

equals 

AMEMORY  +012D 

REF 

6 

LAST 

34 

E4.1414 

NEWDLT  AV 

equals 

AMEMORY  +0120 

REF 

7 

last 

34 

L4tl422 

tnuv 

-quals 

AMEMORY  +0180 

REF 

8 

LAST 

34 

E4»1422 

NEWNUV 

equals 

AMEMORY  +0180 

REF 

9 

LAST 

34 

E4*1430 

RCV 

equals 

AMEMORY  +0240 

REF 

10 

LAST 

34 

E4» 1430 

FOUNDR 

equals 

AMEMORY  *0240 

REF 

11 

LAST 

34 

E4»1436 

vcv 

equals 

AMEMORY  +0300 

REF 

12 

LAST 

34 

E4.1436 

FOUNDV 

equals 

AMEMORY  +0300 

REF 

13 

LAST 

34 

E4*1444 

TC 

equals 

AMEMnRY  +0360 

REF 

14 

LAST 

34 

£4 » 1 446 

TET 

equals 

AMEMORY  +0380 

ref 

15 

LAST 

34 

E4. 1450 

X<EP 

equals 

AMEMORY  +040D 

REF 

16 

LAST 

34 

E4*1452 

ALPHAV 

equals 

AMEMORY  +0420 

REF 

17 

LAST 

34 

E4*1452 

DELR 

equals 

AMEMORY  +0420 

REF 

18 

LAST 

3A 

E4.1460 

BETAV 

equals 

AMEMORY  +0480 

REF 

19 

LAST 

3A 

E4* 1460 

DELVEL 

equals 

AMEMORY  +0480 

ref 

20 

LAsT 

34 

E4*1466 

PHIV 

equals 

AMEMORY  +0540 

REF 

21 

last 

34 

£4 » 1 466 

BVECTOR 

equals 

AMEMORY  +0540 

REF 

22 

LAST 

34 

E4.1474 

PSIV 

equals 

AMEMORY  +5600 

ref 

23 

LAST 

34 

E4.1502 

FV 

equals 

AMEMorY  +066D 

REF 

24 

last 

34 

£4*1510 

VECTAB 

equals 

AMEMORY  +0720 

REF 

25 

LAST 

34 

E4.1510 

tavegon 

equals 

AMEMnRY  +0720 

ref 

26 

lAst 

34 

E4,1512 

TRESUME 

equals 

AMEMnRY  +074D 

REF 

27 

last 

34 

E4*1514 

RAVEGON 

equals 

AMEMnRY  +0760 

SEE 

CAUTION 

ABOVE 

REF 

28 

LAST 

34 

E4.1522 

VAVEGON 

equals 

AMEMORY  +0820 

SEE 

CAUTION 

ABOVE 

REF 

29 

LAST 

34 

E4.1530 

RIG-2SEC 

equals 

AMEMnRY  *0880 

REF 

30 

LAST 

34 

E4*1554 

ALPHAM 

equals 

AMEMnRY  +1080 

REF 

31 

LAST 

34 

E4.1556 

BETAM 

equals 

AMEMORY  +1100 

REF 

32 

LAST 

34 

E4.1560 

tau 

equals 

AMEMnRY  *1120 

REF 

33 

LAST 

34 

£4*1560 

GIVENT 

equals 

AMEMORY  +1120 

REF 

34 

LAST 

34 

E4*1562 

DT/2 

equals 

AMEMORY  +1140 

REF 

35 

LAST 

34 

E4*1564 

H 

equals 

AMEMORY  *1160 

REF 

36 

LAST 

34 

E4.1566 

TOEC 

equals 

AMEMORY  +1180 

633^f36A 

yul 

SYSTEM  FOR  «GC;  REVISION 

0 OF  program  BURST123  BY  NASA  2n2110f,-03l 

OEC  7, 

1967 

(MAIN)  PAGE  35 

L 

. 08T6 

ERASABLE  assignments 

E4.1566 

ENGQFFOT  EQUALS 

TDEC 

USER'S  OWN  PAGE 

NO. 

24 

0877 

REF 

37  LAST 

3A 

E4.1570 

F3RANCH  eQJALS 

AMEMnRY  +120D 

0878 

REF 

38  LAST 

35 

E4«1571 

43RANCH  EGIJALS 

AMEMORY  +121D 

0879 

REF 

35  last 

35 

_E4»1572 

gmode  eojals 

AM_£M0RTL+122D 

0880 

REF 

<►0  LAST 

35 

E4*1573 

3READY  EQUALS 

AMEMORY  +123D 

0881 

REF 

Al  LAST 

36 

E4*157A 

MEASQ  equals 

AMEMnRY  +1240 

0882 

REF 

A2  LAST 

35 

_ F4t-1576 

DELTAQ  EQUALS 

AMEMnRY  +1260 

0883 

REF 

A3  last 

35 

» 1600 

MEASM03E  equals 

AMEMORY  +1280 

088A 

ref 

A4  last 

35 

E4,1601 

NVCODE  equals 

AMEMORY  +1290 

0885 

REF 

A5  LAST 

35 

E4.1602 

MlOEXir  equals 

AMEMORY  +1300 

0886 

REF 

A6  last 

35 

tA.1602 

D5PRTRN  equals 

AMEMORY  +1300 

0887 

REF 

A7  last 

35 

EAj.1.603 

incorpex  equals 

AMEMORY  +1310 

0888 

REF 

A8  last 

35 

E4» 1604 

STePEXIT  equals 

AMEMORY  +1320 

0889 

REF 

A9  last 

35 

E4»1605 

difeqcnt  equals 

AMEMORY  +1330 

_ _DA90 

REF 

50  LAST 

11 



NORMGAM  equals 

AMEMnRY  +1330 

0891 

REF 

51  last 

35 

« 1 606 

SEALEA  equals 

AMEMnRY  +1340 

0892 

ref 

52  last 

35 

El4  • 1 607 

SCALEB  eqjAls 

AmEMOrY  +1350 

0893 

REF 

53  LAST 

35 

^t4_t  1j5.1  3 

YV  equals 

AMEMORY  +1390 

089^  REF  5^  last  35  t^,l621  cOJALS  AME'InRY  +145D 
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L erasable  assignments  USER'S  OWN  PAGE  NO.  25 

P0895  ..  variables  -FOR  SECOJ^D  DPS__GUmAJ«:E-  

R0896  caution:  ORBITAL  INTEoRATlON  REGISTERS  RAVeGON,  VAVeGON  ANO  AECONO  DPS  GUIDANCE  REGISTERS  TRIP.  TTF/A, 

_P0898  TTF/aJMP,  _IU.LLo  aR-E--AJ.L_  la  USE-  SiMULTanEDJSLY.  and -MSLJlOT__XOatLiCT._  . 

R0899  2t^PS  presently  ReCeWeS  CeRTAIN  VARIABLES  FROM  THe  ORBITAL  INTEGRATION  PROGRAM  IN  REGISTERS  USED  IN  COMMON  BY 

R0901  THE  TWO  PROGRAMS.  THESE  VARIABLES  ARf  TFT.  RIGNTlON.  vIGNTlON.  ?DPS  CARfFULLY  TRANSFERS  THeSE  VARIABLES  TO 

R0903  registers  OF  PROGRAM  CALCRVG  BeFORE  WRItHG  INTO  THe  REGISTERS  IN  WHICH  THeSe  VARIABLES  ARRIVE, 

R0905  SOME  TIME  SHARING  OF  2PPS  REGISTERS  BY  20RS_ VARI A3LES  HAS  BEEN  ARRANGED.  MORE  IS  POSSIBL_e. 

R0907  but  it  becomes  INCREASINGLY  DIFFICULT  TO  PROVE  RE sf ART AB 1 LI T Y. 


0908 

REF 

55  LAST  35 

t4.1400 

E2DPS 

- 

AMEMOR.Y 

R0909 

control  variables 

0910 

REF 

1 

L4»1400 

N0X2DPS 

s 

E2D?s 

0911 

ref 

1 

E4»  1401 

NOXBR 

= 

NDX2DPS 

♦ 1 

0912 

REF 

1 

i-4il402 

FIPASSO 

- 

Ndxbr 

+ 1 

0913 

REF 

1 

fc.^  * 1403 

COUNTFC 

s 

FLPASSO 

+ 1 

0914 

REF 

1 

£4* 1404 

COUNTFCT 

= 

cojntfc 

+ 1 

R0915 

R0916 

address  variables 

0917 

REF 

1 

E4.1405 

AVGXTEMP 

- 

COUNTFCT 

+ 1 

0918 

ref 

1 

E4 » 1406 

retntle 

r 

AVGXTEMP 

+ 1 

0919 

REF 

1 

£4*1407 

RETxIGNI 

s 

RtTNTLZ 

+ 1 

0920 

REF 

1 

E4*1410 

RETTHRT 

s 

RETXIGNI 

*1 

R0921 

R0922 

COORDINATE  FRAME  VECTORS  AND 

MATRICES 

0923 

REF 

1 

E4,1411 

CLT/2 

RETTuRT 

+ 1 

R0924 

R0925 

tables 

0926 

REF 

1 

E4*1433 

tablttf 

_ 

CLT/7 

♦ 22 

R0927 

R0928 

STATE 

variables 

0929 

REF 

1 

E4.1444 

PIPTIMET 

g 

TABl TTF 

+ 11 

0930 

REF 

1 

E4tl446 

TPlP 

: 

PlPTiMET 

+ 2 

SEE 

caution 

ABOVE 

0931 

REF 

1 

E4*  1450 

TPIPOLD 

TPIP 

♦ 2 

0932 

REF 

1 

E4.1452 

TTF/4 

TPIPnLD 

♦ 2 

SEE 

CAUTION 

ABOVE 

0933 

REF 

1 

E4*1454 

TTF/4TMP 

s 

TTF/a 

+ 2 

See 

CAUTION 

ABOVE 

0934 

REF 

1 

E4  * 1456 

TJLLG 

= 

TTF/4TMP 

+ 2 

SEE 

CAUTION 

ABOVE 

0935 

REF 

1 

E4.1460 

R 

z 

TULLK 

♦ 2 

0936 

ref 

1 

E4.1466 

V 

s 

R 

+ 6 

0937 

REF 

1 

£4.1474 

VL 

= 

V 

+ 6 

0938 

ref 

1 

E4.1502 

R=2 

s 

VL 

♦ 6 

0939 

ref 

1 

£4.1504 

MAP2 

z 

RP2 

♦ 2 

633^t36A 

YUL 

system  for  AGC:  revision  0 OF  PROGRAM  BURST123 

BY  NASA  2n21106-031  DEC  7.  1967  (MAIN)  PAGE  37 

L 

0940 

ERASA3LE  ASSIGNMENTS 

REF  1 E4.1506 

II 

(.i 

Of 

MAP2 

USER'S  OWN  PAGE  NO.  26 

0941 

ref 

1 

E4.1510 

RS  = 

RC 

+ 2 

0942 

REF 

1 

E4il510 

RTEMP  = 

RS 

0943 

REF 

2 

LAST  3 7 £4.1516 

s_ 

RS 

*6 

0944 

REF 

1 

E4.1516 

VTEMP  = 

VS 

0945 

REf 

2 

last  37  E4.1524 

CRS2  = 

vs 

+ 6 

5946^ 

REF 

1 

E4.1526 

CRS2 

0947 

REF 

1 

6.4  • 1 530 

TRS2  I 

SRS2 

.2 

0948 

REF 

1 

£4.1532 

ASPRT  : 

TRS2 

+ 2 

0949 

REF 

1 

£4.1532 

G30TM1T  s 

ASPRt 

R0950 

R0951 

AEC 

calculation  VARIA3LES,  QUADRATIC  AND  LINEAR 

0952 

REF 

2 

LAST  37  £4.1540 

ACS  = 

ASPRT 

+ 6 

0953 

ref 

1 

£4.1546 

AFCS  = 

Acs 

+ 6 

0954 

REF 

1 

£4.1554 

AFC  = 

AFCS 

+ 6 

0955 

REF 

1 

£4.1562 

/AFC/ 

AFC 

+ 6 

0956 

REF 

1 

E4.1564 

/AFC/old  = 

/AFC/ 

+ 2 

0957 

REF 

1 

E4.1566 

JNAFCy2  = 

/AFC/old 

+ 2 

0958 

REF 

1 

E4.1574 

JNAFC/20  = 

JNAFC/2 

+ 6 

0959 

REF 

1 

E4.1574 

A3LINS  = 

JNAFC/20 

0960 

REF 

2 

LAST  37  £4.1602 

QDUMPRES  = 

JNAFr/20 

0961 

REF 

1 

E4.1602 

ADELLINS  = 

GDJMPRES 

0962 

REF 

2 

LAST  37  E4.1610 

5D0TM1  = 

GDJMPRES 

+ 6 

0963 

REF 

1 

E4.1610 

TTFLIN/4  = 

GDOTMl 

R0964 

R0965 

A5SI 

3NMENTS  within  THE  WORK  AREA 

0966 

0006 

PDUM  s 

6 

0967 

0010 

RDUM  = 

10 

0968 

0016 

VDUM  = 

16 

0969 

0040 

AOUM  : 

40 

ONLY  ADUM  CAN  USE  THE  AREA  DESTROYED  BY 

0970 

0024 

JDUM  = 

24 

taking  the  unit  of  RDUM  IN  SUBR  GOUMCL, 

0971 

0032 

5DUM  = 

32 

PLACE  GDUM  to  preserve  /RDUM/  For  OTHERS 

R0972 

R0973 

completes  Second  dps  erasables 

(EXCEPT  FdR 

CPT6/2  WmICH 

IS 

assigned  elsewhere) 

633436A  YUL  SYSTEM  FOR  AgC!  REVISION  0 OF  PROGRAM  BURSU2D  BY  NASA  2021106-031  DEC  7*  1967  (MAIN)  PAGE  3b 

L ERASA3LE  ASSIGNMENTS  USER'S  OWN  PAGE  NO.  27 

Pa9J_5,  ERASA3LES  FOR  ASCeNT  jUIDANCE 


R0976  ERASA3LES  FoR  P«EAPS2 


0977 

REF 

56 

last 

36 

LAilAOO 

PAXISl 

equals 

amemory 

VECTOR 

0978 

REF 

57 

LAST 

38 

EA.1A06 

3AXIS 

equals 

AMEMORY 

+ &D 

VECTOR 

0979 

REF 

58 

LAST 

38 

EA.1A14 

SAXIS 

equals 

AMEMORY 

+ 120 

VECTOR 

0980 

ref 

59 

last 

38 

E4.1422 

AT 

equals 

AMEMORY 

♦ 18D 

DP  » 

DO  " 

0981 

ref 

50 

LAST 

38 

EA.1A2A 

VE 

s 

AMEMORY 

+ 20D 

DP  » 

NOT  " 

0982 

REF 

51 

LAST 

38 

EA.1A26 

T3UP 

equals 

AMEMnRY 

+ 220 

DP  # 

change  " 

0983 

REF 

52 

LAST 

38 

E4.1A30 

ATMEAS 

r 

AMEMORY 

+ 240 

VECTOR" 

THE  ORDER  " 

098A 

REF 

53 

LAST 

38 

E4.1436 

<R1 

equals 

AMEMORY 

+ 300 

DP  * 

OF  " 

0985 

rEf 

5A 

last 

38 

E4*1440 

RDOTD 

equals 

AMEMOrY 

+ 32D 

DP  " 

THESE  * 

0986 

REF 

55 

last 

38 

£4*1A42 

YDOTD 

EQUALS 

AMEMORY 

+ 340  . 

DP  " 

LOCATIONS" 

0987 

REF 

56 

LAST 

38 

£4  * 1444 

ZDOTD 

equals 

AMEMORY 

+ 36D 

DP 

0988 

REF 

57 

LAST 

38 

E4.1446 

RRETURN 

equals 

AMEMORY 

+ 380 

DP 

0989 

REF 

58 

LAST 

38 

E4.1450 

ascret 

equals 

AMEMaRY_ 

♦ 400_ 

SP 

R0990 

ERASA3LES  FOR 

ASCENT 

0991 

REF 

59.  LAST 

38 

E4+1451 

lamprlo 

EQUALS 

AMEMORY 

+ 410 

SP 

0992 

REF 

70  LAST 

38 

E4+1452 

tco 

equals 

AMEMnRY 

+ 420 

DP 

0993 

REF 

71  last 

38 

E4+1454 

TREF 

EQUALS 

amemory 

+ 440 

DP 

0994 

REF 

72  LAST 

38 

E4.1456 

VTO 

s 

AMEMORY 

+ A60 

0995 

REF 

73  LAST 

38 

E4. 1460 

<R 

equals 

AMEMnRY 

+ 48D 

DP 

0996 

REF 

74  LAST 

38 

E4.1464 

YCONS 

equals 

AMEMnRY 

+ 520 

DP 

0997 

REF 

75  LAST 

38 

E4 • 1466 

YOOT 

EQUALS 

AMEMnRY 

+ 540 

DP 

0998 

REF 

76  LAST 

38 

£4.1470 

LAXIS 

equals 

AMEMORY 

+ 56D 

VECTOR 

0999 

REF 

77  LAST 

38 

E4.1476 

ZAXIS 

equals 

AMEMORY 

+ 620 

VECTOR 

1000 

REF 

78  LAST 

38 

E4, 1504 

ZOOT 

equals 

AMEMnRY 

+ 680 

DP 

1001 

ref 

79  LAST 

38 

E4.1506 

TIME 

equals 

AMEMnRY 

+ 700 

OP 

1002 

REF 

30  LAST 

38 

E4.1510 

oEFF 

equals 

amemory 

+ 720 

DP 

1003 

REF 

31  LAST 

38 

E4. 1512 

PCONS 

equals 

AMEMORY 

+ 740 

DP 

RlOOA 

""" 

THE  registers  AMEMORY 

+760  THRU  amemory  +b7D 

1 CONTAIN  RAUEGON  AND 

VAVeGON.  and  must  not  Be  USED  BY  THE 

R10Q6 

ASCENT  EQUATIONS. 

1007 

REF 

32  LAST 

38 

E4.1530 

PRATE 

equals 

AMEMORY 

+ 880 

DP 

1008 

ref 

33  LAST 

38 

E4.1532 

HI 

EQUALS 

AMEMnRY 

+ 90D 

VECTOR 

1009 

REF 

34  LAST 

38 

E4.1540 

ToO 

AMEMnRY 

+ 960 

DP 

1010 

REF 

35  LAST 

38 

E4.1542 

TFL 

= 

AMEMORY 

+ 980 

DP 

1011 

REF 

36  LAST 

38 

E4. 1546 

ROOT 

equals 

AMEMORY 

+ 1020 

DP 

1012 

REF 

37  LAST 

38 

E4.1550 

RY 

equals 

AMEMnRY 

+ 1040 

DP 

1013 

ref 

38  last 

38 

E4.1552 

URCO 

equals 

AMEMnRY 

+ 1060 

VECTOR 

633<t36A 

YUL 

SYSTEM  FOR  Agc;  REVISION  0 

OF  PROGRAM  BURST12D  BY  NASA  2021106-031 

DEC  7. 

1967  (MAIN)  PAGE  39 

L 

erasable  Assignments 

USER'S  OWN  page 

NO.  28 

RlOlA 

ERASA3LES  FOR  THRUST  MAGNiTUDEL 

FILTER 

1015 

1016 

REF 

ref 

1 

1 LASX  3V  

E4.1430 

E4»l432 

1/DVl 

1/0V2 

equals 

equals 

ATMEAS 

A_TM£aS 

1017 

1018 
R1019 

REF 

REF 

MORE 

3 LAST  39 
1 

3F  these  are  in  £7. 

E4.1434 

E4.1737 

1/DV3 

RCOV 

equals 

ATMEAS  +4 
RO 

633436A 

YUl  system  for  Agq:  revision  0 

Of  program  BUR5T123  BY  NASA  2021106-031 

DEC  7»  1967  (MAIN)  PAGE  AO 

L 

erasable  assign»^ents 

USER'S  OWN  PAGE  NO.  29 

P1020 

ERaSa3LE5_  U5EP_  In_OR3JJaL  IfJE 

GRA-TJON  - - 

1021 

1022 

£A,1627 

REF  1 __  

E4tl627 

EA»lfe3_0 

P300Y  erase 

/t  EOlIALS  PBOJY  +JL 

used  in  orbital  integration 
UNUSED  LN...2D.6»  BUT  REFERRED  JO  3Y 

A1023 

orbital  integration 

102A 

EA. 1630 

E4  t -163X 

AVMIDRTN  -RASf  +l 

. Return _addR£SS  from  avetohiu  dr  mididave 

R1025 

1026 

the  following 

A«E 

USED  BY  FINDCDUD 

iA,l6.32  EA._L6.3.7_ 

A>(ISD.. 

erase 

♦ b . . 

VECTOR 

1027 

1028 
1029 

EA, 16A0 
EA . 1 6 A6 
EA.165A 

EA.16A5 
EA.1653 
EA.  166JL 

AKiS 

CDSCDJ 

SINCOU 

ERASE 

ERASE 

ERASE 

♦ 5 

+ 5 

♦ 5 

vector 

VECTOR 

VECTOR 

1030 

R1031 

REF  2 LAST 

ERASA3LES  FOR 

29 

MlSSIO't  PHASES 

130A 

7.9.11,13 

RETSAVE 

PIPRfTRN 

R1032 

MISSION 

PHASE 

7 

1033.  _ 

£A» 1662 

EA.1662 

DT2TFMP 

ERASE 

103A 

* 1663 

EA . 166A 

DT2TEMP0 

erase 

♦ 1 

R1035 

MISSION 

PHASE 

9 

1036 

REF  1 

» 1662 

SHJUMPl 

-QJALS 

DT2TfMP 

HOLDS  ADDRESS  FOR  NEXT  COMPUTATION 

1037 

EA , 1665 

EA, L666 

TDI 

erase 

+ 1 

descent  injection  cutoff  time 

1038 

REF  1 

EA.1663 

T THRUST 

equals 

0T2TFMPD 

DPSl  MANEUVER  THRUST  TIME 

1039 

EA.1667 

EA.1670 

TiGN 

erase 

♦1 

DPSl  IGNITION  TIME 

lOAO 

EA.1671 

£4  ♦ 1676 

JNITVG 

erase 

+ 5 

UNIT  VECTOR  OF  VELOCI TY-TO-BE-GAI N£D 

RlOAl 

MISSI ON 

PHASES 

' 11 

AND  13 

10  A2 

REF  2 

LAST 

AO 

EA.1662 

M^RETRN 

EQUALS 

0T2TfMP 

10a3 

REF  2 

LAST 

AO 

EA.1663 

DTllTEMP 

equals 

DT2TFMPD 

633A36A 

YUL  system  for  aqc:  revision 

0 OF  PROGRAM  BURST123  BY  NASA  2021106-031 

DEC  7, 

1967  (MAIN)  page  41 

~o  |- 
o 

erasable  assigm^ents 
erasable  ST0RAGE_F0R  JPDAIES 

NON 

_5iARA.BLE_ 

USER'S 

OWN  PAGE 

NO.  30 

10A5 

1046 

-4,1677 

E4.1715 

£4,1714 
E4.1715 

STBUFF 

__S1CQUnT 

erase  +15 

erase 

1047 

£A,l7l6 

£4,1716 

JROLDMOD 

erase 

1048 

£4,1717 

E4,1717 

J=TEMP 

erase 

1049 

£4,1720 

£4,1720 

JRTEMPI 

ERASF 

1050 

£4,1721 

£4,1721 

j=verb 

erase 

1051 

£4,1722 

£4,1722 

CDMPNUMB 

erase 

R1052  erasable  StoRASE  FQR  3QWNLIN<  LIMITED  SHARI 'jG  PaSSiBUE 


1053 

£4,1723 

E4,1730 

ydvect 

erase 

♦ 5 

VELOCITY  desired 

1059 

REF 

2 

LAST 

33 

£4,1723 

D5WN2DRS 

z 

YDYErT 

1055 

£4,1731 

£4,1736 

YGVECT 

erase 

+ 5 

velocity  to  be  gained 

1056 

£4,1737 

E4.1744 

RD 

erase 

♦ 5 

POSITION  DESIReD 

1057 

£4,1745 

17^6 

TTGO 

erase 

+ 1 

time  to  GO  IN  CENTISECONDS^ 

R1058 

euan< 

4 

NON  : 

SHARABLE 

erasable 

Load  storage 

1059 

£4,1751 

£4,1777 

E4L0AD 

erase 

2351  - 

2377 

1060 

REF 

1 

£4,1751 

M=DT08 

EQUALS 

E4LOAD 

DELTA  time  FROM  MP7  TO  MPfl 

1061 

REF 

2 

LAST 

4l 

E4+1752 

MP9-11DT 

equals 

E4L0AD 

♦ 1 

delta  time  from  MP9  TO  MPll 

1062 

REF 

3 

last 

4l 

E4.1753 

MP11T013 

EQUALS 

EaLOAD 

+ 2 

DELTA  TIME  FROM  MPll  TO  MP13 

1063 

REF 

4 

LAST 

4l 

E4.1754 

RP 

EQUALS 

EaLOAD 

+ 3 

DP  target  parameter  for  DPSi  BURN 

1064 

REF 

5 

last 

41 

£4*1756 

CPT6/2 

equals 

EALOAD 

♦5 

VECTOR  TARGET  PARAMETER  FOR  DPS?  BURN 

1065 

REF 

6 

LAST 

41 

E4.1764 

RlVEC 

equals 

EALOaD 

+ 13 

VECTOR  target  PARAMETER  FOR  APS2  rURN 

1066 

REF 

7 

last 

41 

£4,1772 

TINT 

equals 

EaLDAD 

+ 21 

DP  TARGET  PARAMETER  FOR  APS?  BURN 

1067 

REF 

8 

last 

4l 

£4,1774 

RCO 

equals 

E4LDA0 

+ 23 

DP  TARGET  PARAMETER  FOR  APS2  BURN 

1068 

REF 

9 

last 

41 

£4,1776 

TIgNTIDN 

EQUALS 

£4L3aD 

+ 25 

DP  time  of  state  (VPATCHER). 

633i»36A  YUL  SYSTEM  PoR  ''GC!  ?£VlSioN  0 OF  PROGRAM  BURSU23  BY  NASA  2021106-031 


DEC  7*  1967  (MAIN)  PaGE  A2 


L eI<A5A3Le  assignments'  USER'S  OWN  PAGE  NO.  31 

P1069  ERASaBLES  F0R_  MA5S_U  = 2AJ£  ( a I'ART  OF  AVERAGE  , i),  A ND-_1HRJJ1LLE.  COJOfiOL-  ^ 


R1070  initial  VALUES  FoR  MASS;  tHeSl  ERASABLeS  ARE  SACROSANCT. 


1071 

L7»1776  E7.1777 

LEMMASS2 

ERASE 

illb  - 3777 

1072 

REF 

11  LAST 

21 

OlAA 

LEMMASSl 

_ 

MPAC 

IHHHHUH*  T E M P 0 R A R Y » 

R1073 

eRasasles  for 

MASS 

UPDATE  routine 

107A 

REF 

1 

E5« 15AA 

eVex 

Z 

SAVERASE  +30D 

1075 

rEf 

1 

E5.15AA 

vexdex 

= 

EVEX 

1076 

REF 

2 LAST 

A2 

ES.15A5 

J>REFmCE 

£ 

EuEX  +1 

1077 

REF 

3 LAST 

A2 

E5*15A7 

VEXNOM 

s 

EvEX  +3 

1078 

REF 

A LAST 

A2 

E5fl551 

delarea 

z 

EVEX  +5 

1079 

REF 

5 LAST 

A.?  . 

--  E5«1553 

AREARATE 

- 

EVEX  +7  

1080 

REF 

6 LAST 

A2 

E5.1555 

NEGVEX 

z 

EVEX  +11 

1061 

REF 

7 last 

A2 

E5.1557 

dareatmp 

z 

EVEX  +13 

1082 

AEF 

8 .LASJ 

A2 

£5*1561 

MASSIEMP 

£ 

FVEX  +15  

1083 

ref 

9 LAST 

A2 

£5,1563 

MINIMASS 

EVEX  +17 

108A 

ref 

2 LASL 

A2 

ETHROT 

SAVEoASE  +A7D 

1085 

REf 

1 

E5,1565 

fold 

z 

ETHRnT 

1086 

REF 

2 LAST 

a2 

E5*1567 

FCOLD 

z 

ETHROT  +2 

1087 

ref 

3 LAST 

A2 

E5.1570 

FC 

ETHROT  +3 

1088 

REF 

A LAST 

AZ 

E5,1572 

PIF 

ETHROT  +5 

1089 

REF 

5 LAST 

AZ 

E5,157A 

PIFPSET 

z 

ETHRnT  +7 

1090 

REF 

6 LAST 

AZ 

E5,157A 

rtnhold 

9 

ETHROT  +7 

1091 

REF 

7 LAST 

AZ 

E5,1576 

FWEIGHT 

z 

ETHROT  +11 

633i»36A  YUL  SYSTEM  FOR  "GC:  REVISION  0 OF  PROGRAM  BURST  123  BY^NASA  2021106-031 


DEC  7»  1967  (MAIN)  PAGE  A3 


L ^ eRASASLE  assignments 


USER’S  OWN  PAGE  NO.  32 


_ P1092 


R1093  the  following  ERASABLE  RfGIStfRS  ARf  USf^  BY  THf  EHIRT  AND  IN  It T ALIZAj ION  JOB  OF  THE  FCS  T£ST_.FuR  LeM. 


1095  REF  39  LAST  38  EA*1A00  FCSCNTR  EQJALS  AMEMoRY  +OOOD 


R1096 

R1097 

THE  FOLLOWING  ERASABLE  REGISTERS  ARE  USED  BY  TH 
(OPTIMUM  PRELAJNCH  A C USES  JETSTEP- JETST EP  +77D 

E JETSET  TAc;k. 

FOR  RESTART  PROOF) 

1098 

1099 

ref  90  LAST 
REF  91  LAST 

A3 

A3 

EA.IAOI 

EA.1A02 

XJBUF 

Y2JBUF 

EQJALS 

equals 

AMEMnRY 

AMEMORY 

+ 001D 
+ 002D 

1100 

REF  92  LAST 

A3 

EA.1A03 

JFBUF 

equals 

AMEMORY 

♦ 003D 

1101 

REF  93  LAST 

A3 

EA* lAOA 

FCNTR 

equals 

AMEMORY 

♦ OOAD 

1102 

REF  9A  last 

A3 

EA.1A05 

thbuf 

equals 

AMEMORY 

■fOOSD 

1103 

REF  95  LAST 

A3 

£4 » 1 406 

OFFTMBJF 

equals 

AMEMnRY 

+ 006D 

IlOA 

REF  96  LAST 

A3 

EA.1A07 

JETSTEP 

equals 

AMEMORY 

+ 007D 

U05 

REF  97  last 

A3 

EA.IAIO 

NTIMES 

equals 

AMEMnRY 

tOOSD 

1106 

REF  96  LAST 

A3 

EA.1A20 

NEXTTIME 

equals 

AMEMORY 

4-0 1 6D 

1107 

REF  99  LAST 

A3 

EA.1A30 

JETONTM 

EQUALS 

AMEMORY 

♦ 02AD 

uoe 

REF  130  LAST 

A3 

EA. lAAO 

XJETS 

equals 

AMEMORY  +n32D 

1109 

REF  131  LAST 

A3 

EA.1A50 

YZJETS 

equals 

AMEMORY 

♦ OAOD 

1110 

REF  132  last 

A3 

EA.1A60 

JETOFFTM 

equals 

AMEMnRY 

+ 0A8D 

Run 

THE  FOLLOWING  ERASABLE 

: Registers  are 

used  by  the  engine  dn-off  task. 

„ _ ilia 

ref  133  LAST 

A3 

EA.1A70 

ENGSTEP 

EQUALS 

AMEMnRY 

♦ 056D 

1113 

REF  13A  LAST 

A3 

E4  f 1 47 1 

CYLTIMES 

equals 

AMEMORY 

+ 057D 

im 

ref  135  LAST 

A3 

EA.1A7A 

NEXTCYLT 

equals 

AMEMORY 

♦ O60D 

1115 

REF  136  LAST 

A3 

EA.1A77 

ontime 

equals 

AMEMORY 

♦ 063D 

1116 

REF  137  LAST 

a3 

EA.1502 

OFFTIME 

equals 

AMEMnRY 

+ 066D 

1117 

ref  138  LAST 

A3 

EA.1505 

offtimer 

equals 

AMEMnRY 

+ Q69D 

Rlll8 

the  following  erasable 

registers  are 

USED  BY  TH 

E TRIM 

TASC 

1119 

ref  139  last 

A3 

Ea.1510 

TRIMSTEP 

equals 

AMEMnRY 

+ 072D 

1120 

ref  110  last 

A3 

Ea.1511 

NJMTIMES 

equals 

AMEMnRY 

♦ 073D 

1121 

REF  111  LAST 

A3 

EA.1525 

STEPDLYT 

equals 

AMEMnRY 

+ 085D 

1122 

REF  112  LAST 

A3 

EA.15A1 

TRIMONT 

equals 

AMEMnRY 

+ 0970 

1123 

REf  113  last 

“a3 

EA.1555 

TRIMOFFT 

EQUAlS 

AMEMORY 

+ V09D 

112A 

ref  llA  last 

A3 

EA.1571 

trimind 

equals 

AMEMORY 

+ 121D 

R1125 

THE  FOLLOWING  ERASABLE 

registers  are 

USED  BY  TH 

E THROTTLE  TASK 

1126 

ref  115  LAST 

A3 

EA . 1605 

thrtstep 

EQUALS 

AMEMORY 

♦ 1 33D 

1127 

REF  116  LAST 

aB 

fci4  f 1606 

ddtimfs 

equals 

AMEMORY 

+ 134D 

1128 

REF  117  LAST 

A3 

EA.161A 

DELAY 

equals 

AMEMORY 

♦ 1 AqD 

1129 

REF  118  LAST 

A3 

EA.1622 

thritime 

equals 

AMEMnRY 

♦ 1 A6D 

1130 

REF  119  LAST 

a3 

EA.1630 

THCOMMl 

equals 

AMEMORY 

♦ 152D 

633^36*  YUL  system  FOR  *GC;  REVISION  0 OF  PROGRAM  BURST  123  BY  NASA  2021106-031 


DEC  j,  1967  (MAIN)  PAGE  AA 


L erasable  Assignments  user's  own  page  no.  33 

1131  REF  120  LAST  A3 Ea.1636  HCQMM2  EJ0ilAJ_S._AJlEMQR3T_  ^1550  _ _ 

R1132  the  following  ERASABLE  REGISTERS  ARE  USE^  BY  THE  INTERFACE  TOOK  TASK. 


1133 

REF 

121  last 

A4 

t4 » 1 644 

33bUF1 

EQUALS 

AMEMORY  +164D 

113A 

REF 

122  LAST 

A4 

E4,1650 

30BUFO 

equals 

AMEMORY  +168D 

1135 

REF 

123  last... 

,4A.  . 

-J.4  , L654  _ 

3JITLOO< 

equals 

AMEMnRY  >17ZD  . 

1136 

ref 

12A  last 

A4 

E4,1655 

CHCNTr 

equals 

AMEMDRY  +1730 

_1  L37 

E5.1A00 

SETLOC 

_Z4.00 . 

R1138 

the 

FOLLOWING 

E«ASAB 

L£  LOCATIONS  ARE  UTILIZED  BY 

THe  in. 

-fliomt  alignment 

routines 

1 lAO 

£5.1400  E5.142I  XBM 

ERASE 

♦ 170 

llAl 

REF 

1 

E5,1406 

YSM 

XSM  +6 

11A2 

REF 

2 LAST 

f 1 4 1 4 

ZSM 

Z 

XSM  +120 

UA3 

£5,1422 

F5,1443 

XDC 

ERASE 

+ 170 

11A4 

REF 

1 

E5,1430 

YDC 

s 

XOC  *6 

11A5 

REF 

2 LAST 

A4 

E5,1436 

ZDC 

= 

XOC  *120 

11A6 

REF 

3 LAST 

44 

E5,1422 

XNB 

s 

XOC 

11A7 

REF 

4 LAST 

44 

E5,1430 

ynb 

z 

XOC  +6 

11A8 

REF 

5 LAST 

44 

E5,1436 

ZNB 

z 

XOC  +120 

11A9„ 

E5.1A44 

E5,1465 

5TARAD 

ERASE 

♦ 170 

1150 

E 5 « 1466 

E5,1473 

star 

ERASE 

+ 5 

1151 

£5,1474 

E5,1475 

SAc 

ERASE 

♦ 1 

1152 

£5,1476 

E5,1477 

PAC 

-RASE 

♦ 1 

1153 

£5,1500 

E5,1501 

03c 

ERASE 

♦ 1 

115A 

£5,1502 

E5, 1503 

I3C 

ERASE 

♦ 1 

1155 

£5,1504 

E5,1505 

M3C 

ERASE 

+ 1 

1156 

0026 

ZPRIME 

: 

22D 

1157 

0026 

POA 

z 

220 

1158 

0020 

COSTH 

z 

160 

1159 

0022 

SINTH 

z 

180 

1160 

0024 

THETA 

z 

200 

U6l__ 

OOAO 

STARM 

z 

JZQ 

R1162 

THE  FOLLOWING  ERASABLE  LOCATIONS  ARE  UTlLlZEO  BY 

THE  SYSTEM  ?ESTS 

116.3 

£5,1506 

E5,1507 

AZIMUTH 

ERASE 

♦ 1 

1164 

£5,1510 

E5,1511 

latituoe 

erase 

♦ 1 

.1.16.5 

£5.1512 

E5,1512 

EROPTN 

erase 

1166 

£5,1513 

E5,1520 

ERVECTOR 

erase 

+ 5 

1167 

£5,1521 

E5,1526 

GYROO 

ERASE 

+ 5 

I.IM 

£5,1527 

E5,1527 

LENGTHOT 

ERASE 

1169 

£5,1530 

£5,1535 

LOSVEC 

ERASE 

+ 6 

1170 

£5,1536 

E5,1536 

N3P0S 

erase 

1171 

£5,1537 

E5,1537 

NOXCTR 

ERASE 

1172 

£5,1540 

E5,1540 

PIPANO 

erase 

633i,36A  YUL  system  FOR  AGC:  REVISION  0 OF  PROGRAM  BURST  123  BY  NASA  2n2110ft-031 
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L erasable  assignments 


USER'S  OWN  PAGE  NO,  3A 


1173 

_EP»15A1 

.E5  + 15A1 P.IPLN.DE.X. 

_ERA£E_ 

117A 

1175 

^L76 

E5il5A2 
EP+ 15AA 
E5 , 1 5A5 

E5+15A3 

E5.15AA 

E5tl5A5 

PIPNDX 
PDSITON 
QPLAC 

erase 

erase 

ERASE 

+ 1 

1177 

E5.15A6 

E5.15A6 

QPLACE 

ERASE 

1178 

E5,15A7 

E5,15A7 

qplaces 

ERASE 

1179 

E5,_1550 

£5.1550 

RUN 

£RA_5£ 

1180 

E5,1551 

E5.1551 

STOREPL 

erase 

1181 

E5»  1552 

E5.1552 

SOUTHDR 

ERASE 

1182 

E5,1553 

_ £5.1560 

TAZELI 

ERASE 

1183 

E5,1561 

E5.1562 

TEMPTIME 

erase 

+ 1 

118A 

E5,1563 

E5.1563 

TtSTNO 

erase 

1185 

E5+156A 

E5.1565 

TMARK 

erase 

+ 1 

1186 

E5+1566 

E5.1566 

SHAFTA 

erase 

1187 

EP.1567 

E5.1567 

thuna 

erase 

1188 

E5.1570 

E5.1776 

GENPL 

'RASE 

♦ 13An 

1189 

REF 

1 

E5.1570 

cdutimei 

GENPL 

1190 

REF 

2 

LAST 

AP 

E5.1572 

cdutimef 

z 

GENPL  +2 

1191 

REF 

3 

LAST 

A5 

E5.157A 

CDUOANG 

z 

GENPL  +A 

1192 

REF 

A 

LAST 

A5 

E5.1575 

CDUREADF 

= 

GENPL  +5 

1193 

REF 

5 

LAST 

AP 

E5il^76 

CDUREADI 

GENPL  +6 

119A 

REF 

6 

LAST 

AP 

E5.1577 

CDULIMIT 

= 

GENPL  +7 

1195 

REF 

7 

last 

AP 

1196 

ref 

8 

LAST 

AP 

1197 

REF 

9 

last 

AP 

1198 

REF 

10 

LAST 

AP 

1199 

REF 

11 

LAST 

AP 

1200 

REf 

12 

LAST 

AP 

S5. 


.1.5  7.A 


1575 

1576 

1577 


tempadd 

temp 

NDBITS 

CHAN 


GENPl  ♦A 
GENPI.  +5 
GENPl  +6 
GENPL  *7 


E5,1600  LDSl  : GENPL  +8D 

E5>1606  L3S2 = GENpi  ♦IAD 


1201  REF  13  LAST  A5 

1202  REF  lA  LAST  A5 

1203  REF  15  LAST  A5 

120A  REF  16  LAST  AP 

1205  REF  17  LAST  AP 

1206  “REF  18  LAST  ^ 

1207  REF  19  LAST  A5 

1208  ref  20  LAST  ^ 

1209  REF  21  LAsT  A5 

1210  REF  22  LAST  AP 

1211  rIF  23  last  ^ 

1212  REF  2A  LAST  A5 

1213  REF  25  LAST  AP 


121A  REF  26  LAST  AP 

1215  REF  27  LAsT  AP 


161A 

1615 


1616 

1617 

1620 


1623 

162A 


CALCDIR  equals  GENPL  +20D 
CDUFLAG  EQUALS  GENPL  *210 
GlfTOBETD  equals  GENPl  +22D 
O^TNREG  equals  GENPI  +23D 
save  equals  GENPl  ♦2AD 
SFCONSTI  equals  GENPl  +270 
TIMER  equals  GENPL  +28D 


THREE  CONSEC  LOC 


1626 

1570 

1670 


1672 

1673 
1676 


E5+1677 
E5, 1570 


OATAPL  equals  GENPL  +300 
RDsP  equals  GENPL 
MA5KREG  EQUALS  GENPL  +6AD 
C3UNDX  equals  GENPI  +660 
RESULTCT  equals  GENPl  +670 
CDUNTPL  equals  GENPl  +700 

CDUANG  equals  GENPl  +710 
AINlA  = GENPl 


FIX  later  possibly  KEEPl 


110  pEC  OR  156  OCT  LOCATIONS 
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L ERASA3LE  ASSIGNMENTS  USER'S  OWN  PAGE  NO.  35 


1216 

REF 

1 

L5. 1570 

W.ANGO... 

-opals 

..Al.NLA. 

VERT  ERATE 

1217 

REF 

2 

LAST 

96 

E5.1572 

WANGI 

equals 

AINLA  *2D 

HORIZONTAL  ERATE 

1218 

REF 

3 

LAST 

96 

E5.1579 

WANGT 

EQUALS 

AINLA  +9D 

T 

1219 

REF 

1 

E5.1574- 

TDRQNDX 

z 

WANGT 

1220 

REF 

9 

LAST 

96 

E5.1576 

D'^IFTT 

equals 

AINLa  +6D 

1221 

REF 

5 

LAST 

96 

E5.1600 

ALXIS 

equals 

AINLA  +8D 

1222 

REF 

6 

LAST 

96 

_E  5. 16.01 

CMPXl 

equals 

A1H.LA  +9D  ....  .. 

IND 

1223 

REF 

7 

LAST 

96 

E5.1602 

ALK 

equals 

AINLa  +10D 

GAINS 

122A 

REF 

8 

LAST 

96 

E5*1616 

VLAUNS 

equals 

AINLA  +220 

1225 

REF  _ 

1 

E5«16J.6 

T-lETAX 

s 

YLAUNS 

1226 

REF 

9 

LAST 

96 

E5«1620 

WPLATO 

equals 

AINLA  +290 

1227 

REF 

10 

LAST 

96 

E5.1629 

INTY 

equals 

AINLA  +280 

SOUTH  PIP  INTE 

1228 

REF 

11 

LAST__ 

96 

E5  * 1526 

ANGZ 

EQUALS 

AINLA  +300 

EAST  AXIS 

1229 

ref 

12 

last 

96 

E5.1630 

INTZ 

equals 

AINlA  +320 

EAST  PIP  I 

1230 

REF 

13 

last 

96 

£5  » 1632 

ANGY 

equals 

AINLA  +390 

SOUTH 

1231 

REF 

1 

. E5tl629 

HETAN 

5 

INTY  

1232 

REF 

19 

LAST 

96 

L5.1639 

AMGX 

equals 

AINLA  +360 

VE 

1233 

REF 

15 

LAST 

96 

E5.1636 

D^IFTO 

equals 

AINLA  +380 

vert 

1239 

REF 

16 

LAST 

_9.6 

, . £5  f 16.4Q 

D=ilFTI 

FQUALS 

A.1.NLA.  +900 

SOU 

1235 

REF 

17 

last 

96 

£5 » 1 644 

YLAUN 

equals 

AINLA  +990 

1236 

REF 

1 

E5.1699 

FILDELY 

r 

YLAUn 

1237 

REF 

18 

LASTL 

96 

E5.1696 

ACCWD 

equals 

AINLa  +960 

1238 

REF 

1 

E5  » 1696 

INTVEC 

s 

ACCWD 

1239 

REF 

19 

LAST 

96 

E5«1659 

PDSNV 

equals 

AINLA  +520 

1290 

ref 

LAST 

96 

E5.1656 

OPIPAY 

equals 

AINI  A +590 

south 

1291 

REF 

21 

LAST 

96 

£5*1 662 

D^IPAz 

equals 

AINLA  +580 

north  PIP  increment 

1292 

REF 

22 

LAST 

96 

E5.1669 

ALTIM 

equals 

AINLA  +600 

1293 

REF 

23 

LAST 

96 

E5.1665 

ALTIMS 

equals 

AINLA  +610 

INDEX 

1299 

REF 

29 

LAST 

96 

£5,1666 

AIDK 

equals 

AINLA  +620 

time  const an 

1295 

REF 

25 

LAST 

96 

E5,1709 

DELM 

equals 

AINLA  +760 

1296  - 

REF 

26 

last 

96 

E5,1719 

wplati 

equals 

AINLA  +890 

1297 

REF 

27 

LAST 

96 

E5,1716 

GEOSAVEO 

equals 

AINLa  +860 

1298 

REF 

28 

LAST 

96 

£5,1717 

ptemtrxc 

equals 

AINLA  +870 

1299 

REF 

29 

LAST 

96 

£5,1720 

P^ELMTRX 

equals 

AINLA  +880 

1250 

REF 

1 

E5,1720 

T^ANSMl 

s 

PRELMTRX 

1251 

REF 

30 

LAST 

96 

F5,1792 

GEOCOMPS 

equals 

AINCa  +1060 

1252 

REF 

31 

LAST 

96 

E5,1793 

OLDGT 

equals 

AINLA  +1070 

1253 

REF 

32 

last 

96 

E5,1799 

ISECXT 

equals 

AINLA  +1080 

1259 

ref 

33 

last 

96 

£5,1795 

GTSWTLST 

EQUALS 

AINLA  +1090 

1255 

ref 

39 

last 

96 

E5,1796 

E^ECTIME 

equals 

AINLA  +1100 

1256 

REF 

35 

LAST 

96 

£5,1797 

GEOMTRX 

equals 

AINLA  +11  ID 

1257 

REF 

36 

last 

96 

E5,1771 

E^COMP 

equals 

AINLA  +1290 

1258 

REF 

37 

last 

96 

£5,1777 

ZERONDX 

EQUALS 

AINLA  +1350 

1259 

ref 

28 

last 

95 

£5,1570 

B memory 

equals 

GENPL 

1260 

REF 

2 

LAST 

26 

0905 

DELVY 

fQUALS 

OELVy 

+ 2 

1261 

ref 

3 

LAST 

96 

0907 

DELVZ 

equals 

DELVX 

♦9 

63343&A 

YUL 

system  FOR  AGC;  REVISION 

0 OF  program  BURST123  BY  NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  47 

L 

erasable 

ASSIGNMENTS 

USER'S  OWN  PAGE  NO,  36 

R1 

TUMBLE  MONITOR 

1263 

REE 

1 

E6,1411 

PCDUX  equals  E 

1264 

REF 

1 

£6,1412 

PCDUY  FQJALS  FDOTf?) 

1265 

REF 

1 

£6,1413 

PGDUZ  equals  ER 

1266 

REF 

1 

E6,1416 

DQDUY  equals  OMEGaQ 

1267 

REF 

1 

£6,1420 

DCDUZ  equals  OMEGAR 

1268 

REF 

1 

E6,1422 

omega  equals  edotp 

1269 

£7,1400 

SEtLOC  3403 

R1270 

downlink  storage. 

1271 

E7»1400 

£7,1400 

LDATALST  ERASE 

1272 

£7,1401 

£7,1401 

O'lTMGOTO  erase 

1273 

£7,1402 

£7,1402 

tmindex  erase 

1214 

£7,1403 

£7.1403 

DSCDUCMT  ERASE 

1275 

£7,1404 

£7,1404 

OVCDUN  erase 

DNCDUN  +1  CDU  SAMPLES  ARE  DOWNLIN<E0. 

1276 

£7,1405 

£7,1405 

cdulmit  erase 

1277 

£7 , 1406 

E7.1406 

DSQ  =RASe 

return  address  of  downlink  subroutines 

1278 

£7,1407 

E7.1434 

DVTMBUFF  ERASE  +210 

SNAPSHOT  BUFFER. 

R1279 

R1280 

erasable  injection  I 

parameters 

FOR  MISSION  PHASE  4.  PRELOADeD. 

. I2a_l 

£7»1435 

E7.1436 

rinuect  erase  +1 

INUECTION  RADIUS  DeSIRED.  THIS  QUANTITY 

A1282 

determines  The  perigfe.  must 

BE  IN  meters  * 2(-25) 

1213 

£7,1437 

E7.1440 

VINUECT  erase  +1 

INUECTION  VELOCITY  DESIRED.  T+IS  OUANTI 

A1284 

TY  determines  APOGEE,  MUST  BE 

IN  METERS/CEnTISECOnUS  * 2 (-7) 

R1285 

R1286 

RADAR  Test  storage. 

1287 

£7,1441 

£7,1441 

RTSTDEX  ERASE 

1288 

£7,1442 

£7,1442 

RTSTMAX  erase 

66  FOR  HI  SPEED,  6 FOR  LOW  SPEED  RR, 

A1289 

AND  18  FOR  Low  SPEED  LR. 

1290 

£7,1443 

£7,1443 

rtstbase  erase 

USED  FOR  CYCLIC  SAMPLING, 

1291 

£7 , 1444 

£7,1444 

RTSTLOC  erase 

GOES  0(6)RTSTMAX 

1292 

REF 

1 

£7,1444 

RSTKLO:  equals  RlSTi'OC 

1293 

£7,1445 

£7,1445 

rsampdt  erase 

PNZ  FOR  CYCLIC  SAMPLING,  -1  FOR  HI  SPEED 

A1294 

INSERT  +0  here  MANUALLY  TO  TERMINATE  TST 

1295 

£7,1446 

£7,1446 

rfailcnt  erase 

1296 

£7,1447 

£7,1556 

RSTACK  erase  +710 

BUFFERS  FOR  RADAR  TESTING. 

R1299 STORASt  FOR  INBIT  SCANNER. 


1300 

£7,1557 

£7,1561 

LAST30 

ERASE  +2 

LAST  SAMPLED  INBITS, 

1301 

£7,1562 

E7,1562 

MSGCnT 

ERASE 
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L 

- -R1302 
1303 

erasable  assignments 

the  comptork  re^istebs  are  redundant  WILH  thftan 

El, 1563  E7.1570  COMPTOTiC 

-OR.  OOWNLlNic 
ERASE  +5 

USER’S  OWN  PAGE  NO.  37 

PURPOSES. 

V,  S,  E GYROCOMPASS  GYRO  TORUUeS, 

13033 

E7,1571 

E7.1572 

VTO-DpS 

erase 

♦ 1 

FOR  Mp  4 

13035 

E7.1573 

E7,_L5_74 

VTAILOFF 

U^RASt. 

♦ E 

FOR  MP  9 

13037 

E7,1575 

E7.1576 

YTO-APS 

erase 

♦■1 

FOR  MP  13 

1304 

_ £7.1577 

. E7,16Q0_ 

T oOnOM 

=-RAS£ 

♦ 1 . 

FOR  MP  13  . _ 

1305 

£7,1601 

E7.1602 

C0S27 

erase 

+ 1 

FOR  MP  13 

1306 

w7 » 1 603 

E7.1604 

SIN27 

ERASE 

+ 1 

FOR  MP  13 

1307 

£7,1605 

E7.1612 

yconom 

erase 

♦ 5 

FOR  MP  13 

1308 

£7,1613 

E7.1620 

RCOTEMPY 

erase 

+ 5 

FOR  MP  13 

13086  E7.1621  t7fl622  TAG5  ERASE  ♦!  £0R_ML13_ 


1309 

£7,1623 

E7.1625 

A3DVC0NV 

erase 

+ 2 

FOR 

Mp  11 

13095 

£7,1626 

E7.1627 

<T 

ERASE 

♦ 1 

FOR 

MP  4 6 13, 

R1310 

BMEMORY 

USED  for 

consecutive 

assignments  for 

SERVtCER 

restart 

1311 

E5,1506 

saverase 

equals 

2506 

1312 

REF 

3 

LAST 

42 

E5,1506 

dytotal 

equals 

SAVERASE 

+ 000D 

1313 

REF 

4 

LAST 

48 

E5,1511 

DVCNTR 

equals 

sayerase 

+ 003D 

1314 

REF 

5 

LAST 

48 

E5.1512 

PIPCTR 

equals 

SAVERASE 

+ 0040 

1315 

REF 

6 

LAST 

48 

E5.1513 

VR 

equals 

SAVERASE 

+ 005D 

1316 

REF 

7 

LAST 

48 

E5.1522 

VoCNTR 

equals 

SAVERASE 

+ 012D 

1317 

REF 

8 

LAST 

48 

E5.1523 

ERR0R5JM 

equals 

SAVERASE 

♦ 0130 

1318 

REF 

9 

LAST 

48 

E5,1531 

diffang 

EQUALS 

SAVERASE 

+ 0190 

1319 

REF 

10 

LAST 

48 

E5,1533 

STREXIT 

rOUALS 

SAVERASE 

+ 021D 

1320 

rEF 

11 

last 

48 

E5.1534 

A3DELV 

equals 

SAvErASE 

+ 022D 

1321 

REF 

12 

LAST 

48 

E5.1536 

SWITCH 

EQUALS 

SAVERASE 

+ 24D 

1322 

REF 

13 

LAST 

48 

E5.1537 

NEGXDV 

equals 

SAVERASE 

+ 25D 
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U erasable  assignments  USER'S  OWN  PAGE  NO,  38 

P 1122 EBANK-6  assignments. 

R132A  (DIGITAL  AUTOPILOT  USES  ALL  OF  E3ANK-6) 


1325 

E6*1A00 

SETLOC 

3000 

R1326 

AXIS 

iRANSFqBKATION  MATRJLX  - PJLOJ  J0._| 

oI.m3al  axes: 

1327 

E6*1400  E6*1400 

mri2  erase 

scaled 

AT 

2 

THESE  FOUR  P-G  MATRIX  ELE- 

1328 

£6,J401  ti,,1401 

VIR22  erase 

scaled 

AT 

1 

ments  are  in  this  order  Tn 

1329 

£6,1402  E6.1402 

MR13  erase 

scaled 

at 

2 

COMPUTE  RATE  HOLD  DeLCDUS 

1330 

£6,1403  E6«1403 

MR23  erase 

scaled 

AT 

1 

WITH  AN  indexed  LOOP 

R1331 

AXIS 

transformation  matrix  - GIMBAL  to 

PILOT  axes: 

1332 

E6a1404  E6*1404 

Mil  ERASE 

scaled 

AT. 

1_  . 

1333 

£6,1405  E6,1405 

M21  erase 

scaled 

AT 

1 

1334 

£6,1406  E6,1406 

M31  ERASE 

1335 

REF 

1 . . £6,1401 

M22  equals 

MR2i 

scaled 

AT 

1 

1336 

REF 

1 £6,1403 

M32  equals 

MR23 

scaled 

AT 

1 

R1337  angle  measurements. 


1338 

1339 

REF 

1 

£6,1407 

E6,1410 

E6,1410 

EOOT 

EOOT(R) 

-rase 

EQUALS 

+ 1 

EDDT  +1 

error  in  angular  RATE: 

scaled  down  to  PI/16  RADIANS/SECOND 

1340 

sO 

ill 

E6,1412 

E 

ASE 

♦ 1 

ANGLE  error  scaled  AT  PI  RADIANS 

1341 

REF 

2 

LAST 

47 

£6,1412 

E00T(2) 

EQUALS 

E +1 

ERROR  RATE  SqUARED  SCALED  AT  Pl(2)/16 

1342 

REF 

3 

last 

49 

£6,1411 

E3 

equals 

E 

THIS  PAIR  OF  names  IS  USED  TO  R-FeR  TO 

1343 

REF 

2 

LAST 

47 

£6,1412 

ED0T(2)Q 

EQUALS 

EOOT (2) 

the  above  eRASABLeS  as  Q-AXIS  DATA 

1344 

£6,1413 

£6,1414 

ER 

erase 

+ 1 

THIS  PAIR  OF  NAMES  REFERS  TO  LOCATIONS 

1345 

REF 

2 

LAST 

47 

£6,1414 

EOOT (2) R 

EQUALS 

ER  +1 

FOR  the  R-AXIS  data:  INTERCHANGES  WITH  Q 

1346 

£6,1415 

£6,1421 

qmegap 

-rase 

+ 4 

BODY-AXIS  ROT.  RATES  SCALED  AT  ^1/4  AND 

1347 

REF 

1 

£6,1416 

dmegaq 

EQUALS 

OMEgAr  *1 

BODy-AXIS  accelerations  scaled  at  PI/8 

1348 

REF 

2 

LAST 

49 

E6,1417 

ALPHAQ 

EQUALS 

OMEGaP  +2 

(IN  DESCENT)  OR  PI/2  (IN  ASCENT) 

1349 

REF 

3 

LAST 

49 

E6,1420 

omegar 

EQUALS 

OMEGAP  +3 

these  w,a  pairs  are  needed,  alphap  has 

1350 

REF 

4 

LAST 

49 

E6,1421 

AUPHAR 

equals 

OMEGAP  +4 

NO  USE  IN  the  digital  AUTOPILOT 

1351 

£6*1422 

£6,1424 

EOOTP 

erase 

+ 2 

ERRORS  IN  ANGULAR  RATE! 

1352 

ref 

2 

LAsT 

“47 

£6,1423 

EOOTQ 

equals 

EdOTP  +1 

EdOT  = 3MEGA  - OMEGA (qEsIREd) 

1353 

REF 

3 

LAST 

49 

£6 , 1424 

eootr 

EQUALS 

EDOTd  +2 

scaled  at  PI/4  Radians/second 

1354 

REF 

1 

£6*1423 

qratedif 

equals 

EOOTn 

ALTERNATIVE  NAMES: 

1355 

ref 

1 

£6*1424 

RRATEDIF 

equals 

eddtr 

DELETE  when  NO,  OF  REFERENCES  = 0 

1356 

£6,1425 

£6,1430 

OLDXFORP 

erase 

+ 3 

STORED  CDu  Readings  for  p and  o,r  rate 

1357 

REF 

1 

E6,1426 

oldyforp 

equals 

OLOXpORP  +1 

derivations:  scaled  at  pi  radians  (2*S) 

1358 

REF 

2 

LAST 

49 

t6*l427 

OLDYFORQ 

equals 

OLDXpORP  ,2 

(THERE  MUST  BE  TWO  REGISTERS  FOR  CDUY 

1359 

ref 

3 

lAst 

49 

E6,1430 

OlDZFORQ 

^UAlS  OlDXFORP  +3 

SINCE  P AND  Q,R  ARE  NOT  IN  PHASE) 
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R1360  RHi:„l_\|PUTS  SCALED  AT  RAD/SJEC 


1361 

1362... 

E6,1A31 
E6.U32 

E6,1431 
E6jl4a2__ 

PCOM 

RCOM 

ERASE 

erasf 

1363 

E6,U33 

E6,1433 

YCOM 

ERASE 

- - R136  A. 

RHC  nUNTFR  RFGIS 

1365 
1366.  . 

0043 
0042 

P-RHCCTR 

3-RHCCTR 

fOJALS 

equals 

43 

42 

1367 

0044 

R-RHCCTR 

equals 

44 

R1368 

OT.HER  VAR1ABLE.S* 

1369 

1370 

E6.1A39 

E6,1435 

E6,1434 

£6,1435 

TJETSI5N 

PRATECOM 

erase 

ERASE 

S+/-BIT1  TO 

SHOW 

SIGN  OF 

P-AxlS  ROTATION 

1371 

1372 

. 1373- 

E6,1A36 

E6,1A37 

E6.1440 

£6,1436 
£6,1437 
£6 • 1440 

edotgen 

ratedif 

1 /2JTSP 

erase 

erase 

fRAse 

137A 

1375 

1376 

£6,1441 

E6,1442 

£6,1443 

E6 , 1441 
£6 , 1442 
E6 ,1443 

FPQR 

MINRA 

MINRAS3 

ERASE 

ERASE 

ERASE 

1377 

1378 

1379 

REF  1 

^6  f 1 444 
£6  9 1445 

E6 , 1444 
£6,1444 
£6.1445 

hdap 

FCTI 

U 

ERASE 

EQUALS 

ERASF 

HDAP 

1380 

1381 

1382 

£6,1 446 
£6,1447 
E6 ,1450 

£6,1446 

£6,1447 

E6,1450 

OENOM 

RATIO 

L.PVT-CG 

erase 

erase 

erase 

1383 

138A 

13^5 

£6,1451 

£6,1452 

£6,1453 

£6,1451 

£6,1452 

£6,1453 

TEIMPINER 
I XX 
lYY 

erase 

ERASE 

ERASE 

1386 

1387 
13.88 

£6,1454 

£6,1455 

E6.1456 

£6,1454 

£6,1455 

£6.1456 

HZ 

4JETT0R4 

JETT0R<4 

ERASE 

erase 

ERASE 

1389 

1390 

1391 

ref  3 LAST  19 

£6,1457 
£6 , 1460 

£6,1457 

0062 

£6,1460 

C3SMG 

DELTAP 

FRQRMIN 

ERASE 

equals 

erase 

ITEM02 

1392 

1393 
139A 

£6,1461 

£6,1462 

£6,1463 

£6,1461 
£6,1462 
£6 , 1463 

NJET 

pratedif 

lastper 

erase 

erase 

erase 

these  6 REG 

used 

FOR  ATT 

ERR  DISPLAY 

1395 

1396 

1397 

£6 , 1464 
£6 , 1465 
£6 , 1466 

£6,1464 
£6 , 1465 
£6,1466 

LASTQER 

lastrer 

perror 

erase 

erase 

ER4SF 

1398 

1399 

£6,1467 

£6,1470 

£6,1467 

E6,1470 

3ERR0R 

rerror 

erase 

erase 

Riaoo 

Riaoi 

JET  STATE  CHANGE 
(JT50NN0W),  and 

VARIABLES-  TIME  (TOFJTCHS) , JET  3ITS  WRITTEN  NOW 
JET  BITS  WRITTEN  AT  T6  RUPT  (JTSATCHG). 

1A02 

£6,1471 

£6,1471 

jISONNDrt 

erase 
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REVISION 
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1403 

E6,l472 

_ £6,1472  _ 

^JISALCHG. 

_"RAS_E.  . 

1404 

1405 
14  Q6 

£6,1473 

£6,1474 

E6.1475 

E6,1473 
E6,1474 
£6.1475 

A3DT6JTS 

A0DTLT6 

TOFJTCHG 

ERASE 

ERASE 

frase 

1407 

1408 

REF 

£6,1476 

£6*1477 

E6.1476 

JRGLMS 

_JlGLM„l 

erase 

EQUALS 

+ 1 

urglms 

these  two  aduacent  registers  ho^d  the 

ASCENT  OR  DESCENT  4-UET  URGENCY  LIMIT 

1409 

REF 

2 last 

51 

£6,1477 

JRGLM2 

EQUALS 

URGLMS  ♦! 

scaled  at  2(+9)  AND  2(*4)  SECS,  RESPECT. 

14i0 

£6,1500 

E6,1501 

-_2JETLIM 

ERASE 

_ *1  _ . . __ 

RATE  COMMAND  4-UET  RATE  DIFFERENCE  LIMIT 

1411 

REF 

1 

£6,1501 

-RATED3 

EQUALS 

-2JETLIM  +1 

AND  RATE  DEADBAND  FOR  ASCbNT  OR  DESCENT 

R1412 

Q«R 

AXIS  erasables 

1413 

1414 

ref 

4 LAST 

50 

£6,1502 

0062 

£6,1503 

OELO 

JRGENCY3 

EQUALS 

erase 

ITEMP2 

♦ 1 

1415 

1416 

1417 

ref 

1 

£6,1504 

£6,1506 

£6,1505 

0066 

E6.1506 

JRGENCYR 
JRGLIMIT 
A + B 

ERASE 

ERASE 

♦ 1 

ITEMP6 

1418 

1419 

1420 

£6,1507 

£6,1510 

E6,1511 

£6,1507  A-B 
£6.1510  TERMA 
E6.1512  TERMS 

erase 

ERASE 

erase 

♦1 

1421 

1422 

£6,1513 

£6,1515 

£6,1514 

£6.1515 

nvACCsa 

DISPLACT 

ERASE 
= RASE 

+ 1 

FLAG  FOR  eIGHTBALL  ATT.  ERROR  DISPLAY. 

1423 


E6,1516  £6,1516  P3LTEST  £R4SE 
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USER'S  OWN  PAGE 

NO. 

41 

P 1 4 2_4  IR I M 5'IMBaL  CQMTRQL  LftW  ERASABLES; 


R1425 

the 

FOLLOWING 

ASSIGN 

IENTS  of 

RUPtREGS  and  ITeMPS 

NAS  Been  made  in 

AN  effort  to  optimize  USe  OE  eRASABLes: 

1427 

REF 

2 

LAST 

lA 

0070 

<2THETA 

equals  RUPTrEGi 

D.P.  K(2)THETA  and  "NEGUSUM" 

1428 

REF 

1 

0071 

etheta 

equals  RUPTREG2 

s.p.  error  angle  scaled  at  pl/64  RADIANS 

1429 

REF 

1 

_ 0072 

A2CNTRAL 

_£OUALS  RUPJREG3 

D.P.  ALPHA(2)  SCALED  AT  PI(2)/6!.  R/S(?) 

1430 

REF 

2 

LAST 

52 

0072 

SFl 

equals  RUPTREG3 

S.P.  VARIABLE  SCALE  FACTORS  WHICH  ARE 

1431 

REF 

3 

LAST 

14 

0073 

SF2 

equals  RUPTREG^, 

S.P.  - REALLY  SINGLE  BITS  (OR  ZERO) 

1432 

REF 

3 

last 

14 

J3061 

omega, < 

equals  ITEMPl 

D.P.  OMEGA*K  supercedes  K AND  <(2) 

1433 

REF 

4 

LAST 

52 

0061 

<central 

equals  ITEMPl 

S.P.  K FROM  KU  OR  KR  FIRST  AT  Pl/2(8) 

1434 

ref 

5 

Last 

51 

0062 

<2CnTraL 

equals  ITEMP2 

S.P.  K(2)  FROM  Q Or  R 1ST  aT  PI(2)/2(16) 

1435 

REF 

3 

LAST 

14 

0063 

wlentral 

equals  ITEMP3 

S.P,  OMEGA  SCALED  AT  PI/4  RADI  A\|S_/SEC0NO 

1436 

REF 

3 

LAST 

14 

0064 

ACENTRAL 

equals  1TEMP4 

S.P.  ALPHA  scaled  at  PI/8  RAD/SEC(2) 

1437 

REF 

2 

last 

14 

0065 

del 

equals  ITEMP5 

S.P.  SGN(FUNCTION) 

1438 

REF 

2 

LAST 

51 

0066 

QRCNTR 

equals  1TEMP6 

S.P.  COUNTER:  U.Y=0.  R.Zs2 

Ri439 

tHe 

A30Ve  quantities 

AKe  only 

Needed  on 

A Very  temporary  basis  and 

have  Been  proven  to  be  non-conflicting. 

1441 

£6,1517 

E6,1517 

TJSR 

erase 

1442 

£6,1520 

E6,1520 

mjltflag 

erase 

INDICATOR  FOR  SPDPMULT  ROUTINE 

1443 

£6,1521 

F6,1522 

FUNCTION 

erase  +1 

D.P,  WORD  FOR  DRIVE  FUNCTIONS 

1444 

£6,1523 

E6,1525 

NEgUQ 

-rase  +2 

NEGATLV.E  OF  Q-AXIS  gIMBAL  DRIVE 

1445 

REF 

1 

E6,1525 

NEGUR 

equals  NEGJo  +2 

negative  of  R-AXIS  GIMBAL  DRIVE 

1446 

^6 » 1 526 

E6,1531 

<0 

erase  +3 

.3ACCD0TQ  scaled  AT  PI/2 (8) 

1447 

ref 

1 

E6,1527 

<02 

£QjAl.S  +1 

KQ2  = KOitKQ 

1448 

REF 

2 

last 

52 

£6,1530 

<rdap 

equals  <q  ♦? 

,3  ACCDOTR  SCALED  AT  PI/2(8) 

1449 

REF 

3 

LAST 

52 

66,1531 

<R2 

EQUALS  <Q  ,3 

KR2  = KR#KR 

I45O 

£6,1532 

Eb ♦ 1 535 

accdoto 

ERASE  +3 

Q-UERK  SCALED  AT  PI/2  (7)  UNSIGNED 

__  1451 

RER 

1 

E6,1533 

OArrDOT 

equals  AcCOnTQ  +l 

Q-UERK  Scaled  at  pi/2_i7)  signed 

1452 

REF 

2 

LAST 

52 

£6,1534 

ACCDOTR 

equals  ACCOnTO  +2 

R-UERK  SCALED  AT  PI/2(7)  UNSIGNED 

1453 

REF 

3 

LAST 

52 

E6,1535 

RACCDOT 

equals  ACCOOTQ  +3 

R-UERK  SCALED  AT  PI/2 (7)  SIGNED 

1454 

REF 

1 

£6,1467 

OOIFF 

equals  QERROR 

ATTITUDE  errors: 

1455 

REF 

1 

E6,1470 

ROIFF 

EQUALS  RERRnR 

scaled  at  Pl  RADIANS 

1456 

£6,1536 

£6,1536 

TIMEOFFO 

erase 

times  to  go  until  trim  GIMBAL  TJRN-OFF, 

1457 

£6,1537 

£6,1537 

TIMEOFFR 

erase 

zero  means  no  ACTION,  SCALED  AS  WAITLIST 
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P1A58 

■ KALMAN..  FIL1EB_ 

ERaSABlES, 

1A59 

E6.1540 

E6,1540 

STORCDjy 

erase 

THIS  S.P.  PAIR  IS  used  TO  SAVE  EDJY.Z 

lAbO 

E6. 1J41 

E 6*  15.41 

5TORCDJ2 

erase 

FOR  the  GTS  RUPT 

lA6l 

REF 

3 LAST 

52 

0072 

cou 

EQUALS 

RUPTREG3 

RUPTREG3*A  used  as  D.P.  word  FO:?  CDU 

A1462 

VALUE  WITHIN  FILTER  IS  rOMP  AT  5PI  RAD 

1A63 

REF 

5 last 

52 

0061 

COUDOT 

equals 

ITEMPi 

ITEMPI, 2 USED  AS  D.P,  WORD  FOR  CDJDOT 

A146A 

value  within  FILTER  SCALED  AT  PI/A 

1A65 

REF 

4 LAST 

52 

0063 

C0U2OOT 

equals 

n EMP3 

ITEMP3*4  used  AS  D.P.  WORD  FOR  rDJ2D0T 

A1A6l6 

VALUF  within  FILTFR  scaled  at  Pl/fi 

1A67 

E6.1S42 

E6,1542 

DT 

erase 

TIME  ELAPSED  SCALED  AT  l/e:  N0MtNAL=50MS 

1A68 

E6, 1543 

E6*1543 

daptime 

ERASE 

USED  TO  RECORD  Last  Time  from  c^nnel  4 

1A69 

E61 1544 

E6,1544 

STEERAOR 

erase 

DTCALC  switch  IN  FILTER  INI T I ALI ZAT I DN 

IA7O 

E6  * 1545 

E6*1546 

OPDIFF 

erase 

+ 1 

D.P.  Weighting  vector  factor  at  pi 

1A71 

E6,1547 

E6,1547 

»J301NTER 

erase 

POINTER  TO  weighting  VECTOR  TA3fE 

LA72 

£6.1550 

E6*1552 

/JO 

erase 

+ 2 

THETA  WEIGHT 

IA73 

REF 

1 

E6,1551 

/II 

equals 

WO  +1 

omega  WEIGHT 

1A7A 

REF 

1 

E6,1552 

/IZ 

equals 

W1  +1 

ALPHA  WEIGHT 

IA75 

£6*1553 

£6*1554 

COUYFIL 

erase 

+ 1 

Y-AXiS  D.P.  filtered  THETA  AT  Z^I 

1A76 

E6.1555 

E6*1556 

COUZFIL 

erase 

+ 1 

Z-AXIS  D.P.  filtered  ThETA  at  231 

1A77 

£6,1557 

E6*1560 

DCDUYFIL 

ERASE 

+ 1 

Y-AXIS  D.P.  FILTERED  OMEGA  AT  Pt/A 

1A78 

£6,1561 

E6*1562 

OLOUZFIL 

erase 

+ 1 

Z-AXIS  D.P.  filtered  OMeGA  AT  PI/A 

1A79 

£6,1563 

E6,1564 

02C0UYFL 

erase 

+ 1 

Y-AXIS  D.P.  filtered  ALPHA  AT  Pl/8 

1A80 

£6,1565 

E6*1566 

02CDUZFL 

erase 

+ 1 

Z-AXIS  D.P,  filtered  ALPHA  AT  Pl/8 

1481 

£6,1567 

E6*1567 

Y3D0T 

erase 

Y-AXIS  S.P,  JERK  at  PI/2(7) 

1482 

£6,1570 

£6*1570 

C0U3DOT 

ERASE 

LOOP  REGISTER  (SPACER) 

1483 

£6,1571 

E6*1571 

Z3D0T 

erase 

Z-AXIS  S.P.  JERK  AT  PI/2(7) 

1484 

£6,1572 

E6*1573 

pfiltaor 

erase 

+ 1 

2CAOR  FOR  FILTER  RUPT  30  MS  AFTfR  P-AXIS 

1485 

£6,1574 

E6*1603 

pFRpTLST 

erase 

♦ 7 

POST  FILTER  RUpT  LIST 

R1486 

TORQJr  VECTOR 

reconstruction 

VARIABLES: 

1487 

£6,1604 

E6*1606 

jetrate 

fRASe 

♦ ? 

weighted  RATES  DUE  TO  JeTS  APPLIED  IN 

1488 

REF 

1 

£6*1605 

JETRATEQ 

EQUALS 

jETRaTE  +1 

the  last  control  sample  period  of  100  MS 

1489 

REF 

2 last 

53 

E6 « 1 606 

JcTRATER 

equals 

JETRATE  +2 

scaled  at  PI/A  RADIANS/SECOND 

1490 

£6*1607 

E6*1610 

N0'.QJETS 

-RASE 

+ 1 

number  of  q and  r Jets  that  are  given 

1491 

ref 

1 

E6  1 1610 

NO.RJETS 

equals 

NO.OlETS  +1 

BY  THE  JET  SELECT  LOGIC 

1492 

£6,1611 

E6*  1612 

T? 

erase 

TIME  CALCULATED  BY  TJETLAW  FOR  3,  QR 

1493 

REF 

1 

t.6  f 1 6 1 2 

TOR 

EQUALS 

TP  *1 

scaled  as  TIME6,  THEN  TOR  ReSCA.EO  TO  1 

1494 

£6,l6l3 

E6*l6l7 

IJACC 

E'RASE 

ACCELERATIONS  DUE  TO  1 JET  TORQJING 
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1A95 

ref 

1 

E6_,J.i!l4 UACCa 

gQJALS 

IJACC  ♦!  - 

SCALED  AT  .PL/4-RAD1ANS/-SEC0ND 

1A96 

REF 

2 

LAST 

54 

F6,1615 

1 JACCR 

EOJALS 

lUACr  +2 

1^97 

REF 

3 

LAST 

54 

E6,1616 

IJACCU 

equals 

lUACr  +3 

FOR  U,V-AXES  THE  SCALE  FACTOR  15  DIFF: 

1A98 

REF 

4 

LAST 

5 A 

. . Jt6  f 16 1 7 

UACCV 

EQUALS 

lUA.Cr  +4. 

scaled  at  PI/2  radians/second  (FOR  A5C) 

1A99 

£6,1620 

E6,1620 

INERCTR 

ASE 

1500 

£6. Ife21 

E6,l621 

INERCTRX 

£RASE^ 

R1501 

ASCENT  ' 

i/ARlABLESj 

1502 

£6,l6Z2 

E6,1623_ 

SAVRATEO 

erase 

+-1 

UN-WEIGHTE_D  JETRATE  i-'OR  LAST  CSi  3£F0RE 

1503 

REF 

1 

E6,1623 

savrater 

equals 

SAVRATEQ  +1 

AOSTASK,  initial  VALUES  FOR  SJmRATeS. 

1504 

£6  , lfi24 

t:6*l625 

sjmrateq 

ERASE— 

♦ I 

SUM  OF  UN-WEIGHT_£D  UETRAIE  TERMs 

1505 

ref 

1 

E6,1625 

sjmrater 

equals 

SUMRATEQ  ♦! 

SCALED  at  PI/4  RAQI ANs/sECOND 

1506 

C.6  * 1626 

E6,1627 

OlOWFoRj 

erase 

omega  value  2 SECONDS  A50 

1507 

REF 

1 

£6,1627 

OIDWFORR 

equals 

OLD^FORQ  ♦! 

scaled  at  PI/4  RADIANS/SECOND 

1508- 

-6»lh30 

E6,1631  ' D3MINIMP 

-ra_se 

+J. 

_MINIMUM  impulse.  DEADBANDi  (EUUA.w- LN  DESC 

1509 

ref 

1 

E6,1631 

MlNlMPjB 

equals 

DBMImIMP  +1 

AT  .3  dEG,  0,-dB  respectively  FoR  AjC) 

1510 

£6,1632 

t6  1 1632 

D3MNMPAX 

erase 

p-AXis  VALUE:  scaled  at  pi  radians. 

1511 

£6,1633 

£6 ♦ 1637 

.5ACCMNE 

ERASE 

+ 4 

(1/2) (1/ACCMIN)  WHICH  IS  THE  INVERSE  OF 

1512 

ref 

1 

E6,1634 

,5ACCMNa 

equals 

.SAcrMNE  *1 

The  MINIMUM  acceleration  (A  CONSTANT  FOR 

1513 

REF 

2 

LAST 

54 

E6,1635 

.5ACCMNR 

EQUALS 

.SACrMNE  +2 

DESCENT  AND  A VARIABLE  FOR  ASCENT  DAP) 

1514 

REF 

3 

LAST 

54 

E6,1636 

.5ACCMNU 

EQUALS 

.5ACCMNE  +3 

SCALED  AT  2(*8)/PI 

1515 

REF 

4 

last 

54 

E6,l637 

.5ACCMNV 

equals 

.SACCMNE  +4 

IN  UNITS  OF  SEC0NDS(2)/RADIAN 

1516 

E6 » 1 640 

£6 1 1641 

(i/FORP 

erase 

+ 1 

W = K/(NOMINAL  DT) 

1517 

REF 

1 

E6,1641 

(YFORQR 

equals 

(YFORp  +1 

SCALED  AT  16 

1518 

£6,1642 

E6,1643 

(1-K) 

erase 

+ 1 

1-K  SCALED  AT  1 

1519 

ref 

1 

E6,1643 

(UK)  /8 

EQUALS 

(l-<i)  +1 

1-K  SCALED  AT  8 

1520 

£6 , 1644 

E6,1647 

1/NJTS3 

erase 

♦3 

1/NUETACC  FOR  EACH  AXIS 

1521 

REF 

1 

E6,1645 

1/NJTSR 

EQUALS 

1/njtsq  +1 

FOR  DESCENT  THIS  IS  ALwAyS  1/2JTS 

1522 

REF 

2 

LAST 

54 

£6*1 646 

1/NJTSJ 

equals 

1/NJ^SQ  +2 

FOR  ASCENT  WITH  HIGH  OFFSET:  1/4UTS 

1523 

REF 

3 

LAST 

54 

E6,l647 

1/NJTSV 

equals 

1/NJtSQ  +3 

SCALED  AT  2(8)/Pl  SEC(2)/RAD 

1524 

£6,1650 

E6,1650 

<COEFCTR 

erase 

COUNTER  FOR  ASCENT  DAp  

1525 

1526 

1527 

REF 

1 

£6,1651 

£6,1652 

E6,1651 

E6,1653 

E6,1653 

DLCDUIOX 

PJUMPAOR 

QJUMPADR 

ERASE 

erase 

equals 

+ 1 

PUUMdADR  ♦!  __ 

S~A V E "r  AT E H^DEX  , = 1 , 0 

IN_THE_LM_  D^P  T5RUPTS  JO  SKIP- P.-AX.IS 

1528 

1529 

£6,1654 

£6,1655 

E6, 1654 
E6,1655 

CH5TEMP 

-.06R/S2 

■ rase 
erase 

descent  VAL.=0,  ascent  VAL,=  -.06  RAO/S 

1530 

l6, 1656 

£6,1656 

lOOMSPTQ 

ERASE  ~ 

1 
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i5il  _ 

ERASA3LE  assignments 

R&E 1 

E6.1656 jR.lSTJa  T 

lOOMcPTQ 

USER'S  OWN  PAGE 

NO.  AA 

1532  £6.1657  £6.1657  N3.PJETS  ERASE 


R1533 

THE 

following 

LM  OAP  ErAsABLES  Are  ZEROED  iN  THE 

STArTDAP  SErTiON 

OF 

THE  dApidler  Program  and  the  coastasc 

R1535 

SECTION 

OF  THF  AqSTASCu  the 

ORDfR  must 

BE  PRfSeR\/eD  FOR 

thf  indexing 

Methods  which  are  fmployfd  in  thosf 

R1537 

SECTIONS  AND 

elsewhere. 

1538 

zt % 1660 

E6.1663 

AOSO 

ERASE 

+ 3 

ASCENT  OFFSET  ACCELERATION  ESTl  vlATES; 

1539 

REF 

1 

E6. 1661 

AOSR 

equals 

A0S3  +1 

ESTIMATED  EVERY  2 SECONDS  BY  AOSTASK. 

15A0 

REF 

2 

LAST 

55 

£6.1662 

AOSU 

-DUALS 

A0S3  +2 

U.V-AXES  ACCS  formed  BY  VECTOR  ADDITION. 

15A1 

REF 

3 

LAST 

55 

E6  « 1663 

AOSV 

EQUALS 

A3S3  +3 

SCALED  AT  PI/2  RADI ANS/SECOND ( 2 ) . 

15A2 

£6 ♦ 1 66^ 

E6. 1665 

AOSOTERM 

erase 

♦1 

(.1-.05K)A0S 

15A3 

REF 

1 

E6  » 1665 

AOSRTERm 

equals 

A0S3tERm 

*L 

SCALED  AT  pI/4  RADI ANS/SECOND. 

15AA 

£6  V 1666 

E6.1675 

NJ+Q 

cRASE 

+ 7 

2 UET  OVER-RIDe  FLAGS; 

15A5 

REF 

1 

E6. 1667 

NJ.Q 

::QUALS 

NU.3  *1 

whenfver  the  offsft  accfLfratIdn  about 

15A6 

REF 

2 

last 

55 

E6.1670 

NJ+R 

cQUALS 

NU+3  +2 

AN  AXIS  IS  So  HIGH  THAT  2 UeTS  rOULD  NOT 

15A7 

ref 

3 

LAST 

55 

E6.1671 

nJ-r 

equals 

NU+3  +3 

control  attitude  successfully,  then  nu 

15A8 

REF 

A 

last 

55 

E6.1672 

NJ  + U 

fqUALS 

N.J  + 3 +4 

FOR  that  axis  (IN  THE  DIRECTION  OPPOSING 

15A9 

REF 

5 

LAST 

55 

E6.1673 

NJ-U 

equals 

NU+3  +5 

AOS)  IS  SET  TO  1.  otherwise.  THE  VALUE 

1550 

REF 

6 

LAST 

55 

E6.167A 

NJ  + V 

rQUALS 

NU+3  +6 

IS  Zero,  these  flags  prevent  t»jo  uets 

1551 

REF 

7 

LAST 

55 

£6.1675 

NJ-V 

equals 

Nj+3  +7 

FROM  BEING  REQUESTED  TO  FIGHT  THE  AOS. 

1552 

zb f 1676 

£6.1715 

l/NET+23 

ERASE 

+ 1 5n 

1553 

REf 

1 

E6.1677 

1/NET+AO 

EOUAi F 

1/NET+2Q 

+ 1 

155A 

REF 

2 

LAST 

55 

E6.1700 

lZNET-23 

equals 

1/NET+2Q 

+ 2 

1555 

REF 

3 

LAST 

55 

£6.1701 

l/NET-AQ 

equals 

1/NET+2Q 

+ 3 

1556 

ref 

A 

LAST 

55 

£6.1702 

1/NET+2R 

equals 

l/NET+20 

+ 4 

1557 

REF 

5 

LAST 

35 

£6.1703 

1/NET+AR 

EQUALS 

1/NET+2Q 

+ 5 

1558 

REF 

6 

LAST 

55 

F6.170A 

1/NET-2R 

equals 

l/NET+20 

+ 6 

1559 

REF 

7 

LAST 

55 

E6.1705 

1/NET-AR 

equals 

1/NET+2Q 

+ 7 

1560 

REF 

8 

LAST 

35 

£6.1706 

1/NET+lU 

EQUALS 

1/NET+2Q 

+ 80 

1561 

REF 

9 

LAST 

55 

£6.1707 

1ZNET+2U 

equals 

l/NET+20 

+ 9D 

1562 

REF 

10 

LAST 

55 

£6.1710 

1/NET-lU 

equals 

1/NET+2Q 

+ 10D 

1563 

REF 

11 

LAST 

55 

£6.1711 

1/NET-2U 

equals 

1/NET+2Q 

+ 110 

156A 

REF 

12 

LAST 

55 

£6.1712 

1/NET+lV 

equals 

1/NET+2Q 

+ 12D 

1565 

REF 

13 

LAST 

55 

£6.1713 

1/NET+2V 

equals 

1/NET+2Q 

+ 13D 

1566 

REF 

lA 

LAST 

55 

E6.171A 

1/NET-lV 

equals 

1/NET+2Q 

+ 14D 

1567 

REF 

15 

LAST 

55 

E6.1715 

1/NET-2V 

equals 

1/NET+2Q 

+ 15D 

1568 

£6.1716 

£6.1716 

SIGNTA3 

erase 

1569 

REF 

1 

£6.1706 

1/NETACS 

equals 

1/NFt+IU 

1570 

£6.1717 

E6»1720 

1/ACCQ 

ERASE 

+ 1 

inverse  net  accelerations  for  urgency. 

1571 

ref 

1 

£6.1720 

1/ACCR 

equals 

1/AcrQ  +1 

Scaled  at  2(+8)/pi  secondS(2) /radIan. 

1572 

£6.1721 

£6.1722 

1/AMIN3 

erase 

+ 1 

inverse  min  accelerations  For  urgency. 

1573 

REF 

1 

£6.1722 

1/AMINR 

equals 

1/AMtNQ  +1 

scaled  at  2(+8)/PI  SEC0NDSf2)/RADIAN. 

4 
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L 

erasable  assignments 

USER'S  OWN  PAGE  NO.  45 

1574 

-6.1723 

F6,17?3 

1 /AMlNJ 

erase 

1575 

E6.1724 

E6,1724 

1/AMINi/ 

erase 

1576 

^ -6 .1725 

£6,1726 

JR6RAX3 

rRAS£_ 

1 ^ 

URGENCY  function  CORRECT  ION  JACtOR  RATIO 

1577 

1578 

1579 

REF  1 

E6.1727 
E6. 173Q 

E6,1726 
£6,1727 
. £6  ,JL730 

JRGRATR 

srtemp 

sdrttxmp 

equals 

erase 

-RASE 

UR3RATQ 

♦ 1 

scaled  at  1. 

SCRATCH  Cells  for  dapsqrt 
scratch  CfLLS  for  dapsqrt 

1580 

E6.1731 

E6,1731 

sdrttemd 

erase 

SCRATCH  cells  FOR  DAPSQRT 

1581 

-6.1737 

iL6»l732 

ADSCOUNT 

erase 

1502 

REF  1 

£6,1727 

DJOTTEMP 

equals 

SRTEmP 

SCRATCH  Cell  for  q,r-axis  TJETLAW. 

1583  ^ 

£6,1733 

E6 ,173  5 

DACDOTMP 

_IRASe 

_t  2 

Q(R)ACCDOT  VALUES  STORED  HERF  3pTWFFN 

158^ 

REF  1 

£6,1735 

RACDOTMP 

equals 

QACDnTMP 

+ 2 

gts,dgts  before  the  filter  can  jse  them 

R1505 

SPACING  Between  racdtiimp  and 

qacdotmp  , 

IS  USED  IN 

indexing. 

15851 

15852 

E6, 1736 
_E6,17_37 

£6,1736 
_ E6,1737 

PASSCTR 

SLECTLAW 

iRASE 

erase 

COUNT  required  KALMAN  FILTER  PASSES  LEFT 
CONTROL  FLOW  SWITCHING  CELL. 

15853 

15854 

15855 

ref  1 

E6.1740 

E6.1742 

£6,1741 

E6,1741 

£6,1742 

HDLDCDJY 

hdldcdjz 

STEERAD2 

ERASE 

equals 

erase 

+ 1 

HOLDrDUY 

+ 1 

TWO  cells  hold  CDUS  during  INITIAL  RATE 
CALCULATION  IN  KALMAN  FILTER. 

CONTROL  FLOW  SWITCHING  CELL. 

15856 

E6.1743 

£6,1743 

CDUNTBDX 

erase 

LOAD  FOR  initializing  PASSCTR. 

R158565 

START  CODING 

FDR  MODJ'-E  3 REMA<F.  AUGUST  1967iHt»SlART  C0DIN3‘  FOR 

MODULE 

3 RFMAKF,  august  1967*'HH"HHt**»»HHH"HHHHt 

15857 

A158571 

£6,1744 

£6,1744 

TRIMCNTR 

erase 

counter  to  ENSURE  A GTS  PASS  SHORTLY 
BEFORE  THROTTLF-UP.  (LOADED  NEGATIVE) 

158572 

A158573 

£6,1745 

£6,1745 

3TSMNITR 

erase 

FLAG  TO  FORCE  A GTS  PASS  SOON  AFTER  DPS 
ENGINE-ON.  (LOADED  +0) 

R158574 

parameters  in 

erasable  LOAD; 

158575 

E6,1J46 

__  £6,1746 

fdrcetrm 

£RASE 

PLACED  IN  TRIMCNTR  WHEN  DPS  TURmeD  ON. 

158576 

158577 

15858 

ref  1 

£6,1747 

£6,1750 

E6,1747 

£6,1752 

E6.1752 

drivelim 

DRiVFACa 

DRIVFACR 

prase 

erase 

s 

,2 

DRWpACQ 

*Z 

MAX  GIMBAL  DRIVE  TIME  SCALED  AT  16  SEC. 
RESCALING  AND  DAMPING  FACTORS  F3R  GIMBAL 
DRIVE  TIMES. 

158581 

158582 

158583 

REF  1 

£6,1753 

£6,1755 

E6,1754 

£6,1754 

E6.1755 

QolMTIMR 
R3IMTI MR 
MAXTIME 

erase 

ERASE 

+ 1 

QGIMtIMR 

+ 1 

gimbal  drive  timers 

158584 

158585 

158586 

£6,1756 

£6,1757 

£6,1761 

£6,1756 

E6,1760 

£6,1762 

/TEMP2/ 

/TEMP3/ 

/TEMP5/ 

erase 

ERASE 

PRASE 

♦ 1 
♦ 1 

158507 

15859 

158595 

£6,1763 

£6,1764 

£6,1765 

E6,1763 

£6,1764 

E6.1765 

TMlNAPS 

SIMPCNTR 

SlMPINlT 

erase 

prase 

erase 

POSITIVE  FOR  GTS  SIMPCTRL.  DECISECONOS 
initializes  SIMPCNTR.  DECISeCDnDS 

158598 

£6,1766 

£6,1766 

BlGBOX 

pRASe 

used  for  PASSCTR  DURING  FORCED  SIMPCNTRL 

R1586 

)>»END  CODING 

FDR  MODJ'Lt  3 REMA<E,  AUGUST  l967»*»»i»END  CDDlNo  FOR 

MODULE 

^3  R_EM_AKE,_  AUGUST  \gbl  ********* ********** 
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L 

ERASA3UE  assignments 

USER'S  OWN  page 

NO, 

A6 

R15B65.  HEMP  AND_JLUeiRM-A5,5JMMENTS_  m.m_DAEX 


Rise? 

FOR 

eightbal 

section: 

1588 

REF 

6 

LAST 

53 

0061 

AXISCNTR 

equals 

ITEMPI 

LOOPCTR  AND  VARIABLE  INDEXER. 

1589 

REF 

6 

LAST 

52 

0062 

TtMPERR 

EOjALS 

ITEMP2 

temporary  storage  FOR  BOyNDED  ERROR. 

R1590 

FOR 

p-Axis  program; 

1591 

REF 

3 

LAST 

52 

0065. 

R£L 

-QUALS 

IT£Mp5 

tablf  indfx  usfd  by  p uft  Select  routine 

1592 

REF 

3 

last 

52 

0066 

CTR 

EQUALS 

ITEMp6 

table  entry  counter  used  by  P jet  SELECT 

R1593 

FOR 

PoLTYPEP 

program: 

159A 

REF 

3 

last 

52 

0070 

tRanonly 

equals 

RUPTREGi 

FLAG  FOR  PURE  TRANSLATION  REQUESTS 

1595 

REF 

2 

last 

52 

. _ OOJZl 

ANyTRANS 

EQUALS 

RUPTREG? 

flag  to  INDICATE  DIRECTION  OF  TRAN.. 

1596 

REF 

A 

last 

53 

0072 

transndw 

cQUAlS 

RUPTREG3 

FLAG  TO  INDICATE  TRANS.  W/  ROT.  POSSIBLE 

1597 

REF 

A 

LAST 

52 

0073 

TRANSAVE 

EQUALS 

RUPToEG^ 

flag  and  holder  FOR  SAVED  TRANS.  POLICY 

1598 

REF 

7 

last 

57 

0061 

NETACN3X 

EQUALS 

iTEMpi 

INDEX  TO  INDICATE  AXIS.  NO..  ANO  OIReCt. 

1599 

REF 

7 

LAST 

57 

0062 

tJetadr 

equals 

ITEMP2 

GeNADR  of  RETURN  TO  TJETLAW 

1600 

REF 

5 

LAST 

53 

0063 

pdlreldc 

equals 

ITEMP3 

POLICY  TABLE  INDEX  (RELATIVE  AOOReSS) 

1601 

REF 

A 

LAST 

52 

006A 

L30PCTR 

equals 

ITEMpa 

number  of  alternate  POLICIES. 

1602 

REF 

A 

LAST 

57 

0065 

THISPOLY 

equals 

ITEMP5 

stored  policy  to  eliminate  indexing. 

1603 

REF 

A 

last 

5 7 

0066 

1/NETACC 

equals 

ITEMP6 

iNv,  Net  ACC.  for  tuetlaw. 

160A 

ref 

1 

0066 

1/NJETAC 

* 

1/NEtACC 

_ L605, 

REF 

16 

LAST 

55 

E6.1676 

1/2JTS3 

_ 

1/NET+2Q 

1606 

REF 

1 

66*1702 

1/2JTSR 

= 

1/NET+2R 

1607 

REF 

1 

E6.1707 

1/2JETSU 

= 

1/NET+2U 

1608 

REF 

1 

£6,1713 

1/2JET5V 

s 

1/NET+2V 

R1609 

FOR 

aostask  program: 

1610 

REF 

8 LAST 

57 

0061 

< 

EQUALS 

ITEMpi 

1611 

ref 

9 LAST 

57 

0061 

,l-.05< 

equals 

ITEMPI 

1612 

rEF 

8 lAsT 

57 

0062 

COEFFA 

equals 

ITEMP2 

1613 

ref 

9 LAST 

57 

0062 

.5-.5C0F 

EQUALS 

ITEMP2 

ri6ia 

mpac 

designations  fori  aosuob; 

1615 

REF 

12  last 

A2 

OlAA 

JOBAXES 

equals 

MPAC 

ADUACENT  ENTRY  INDEXER. 

1616 

REF 

13  LAST 

57 

01A5 

NJpLACE 

equals 

MPAC  +1 

ONE  APART  entry  INDEXER, 

1617 

REF 

lA  LAST 

57 

01A6 

tabplace 

equals 

MPAC  +2 

THREE  APART  ENTRY  INDEXER. 

1618 

REF 

15  LAST 

~57 

01A7 

TEMPAOS 

equals 

MPAC  +3 

- AOS  TEMPORARY  STORAGE  (SCALED  AT 

PI/2) 

1619 

REF 

16  LAST 

57 

0150 

TEMPACC 

equals 

MPAC  +A 

UET  acceleration  TEMP.  (SCALED  AT 

Pl/2) 

1620 

REF 

17  last 

57 

0151 

TtMPNET 

equals 

MPAC  +5 

NET  acceleration  TEMP,  (SCALED  AT 

Pl/2) 

1621 

RET 

18  LAST 

0152 

~atvlaosq 

equals 

MPAC  +6 

-ABVAL(AOSQ)  SCALED  AT  PI/2  RAO/SEC 

:(2) . 
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erasable  assignments  USER'S  OWN  PAGE  NO.  A7 

1622  rEF  19  LAsI iZ -Q-15-3_,_A3i/_LAQ5R- -EQUALS  ^PAC^tJ .-ABVALXALiSRl  SCALED„A1  P_l^_2_RAg/S£CX21-»^ 
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L 

0001 

input/output  channels 

0003 

HiSCALAR 

-QJALS 

J 

USER'S  OWN  PAGE 

NO.  1 

0002 

0004 

LOSCALAR 

equals 

4 

00025 

0007 

SJPERBN< 

equals 

7 

SUPER-BANK. 

0003 

0010 

OJTO 

equals 

10 

0004 

0011 

D5ALM0JT 

equals 

11 

0005 

0012 

CHAN12 

equals 

12 

ooot 

0013 

CHAN13 

equals 

13 

0007 

0014 

CHAN14 

equals 

14 

0008 

0015 

mnkeyin 

equals 

15 

0009 

0016 

NAVKEYIN 

^QUALS_ 

JJ* 

001.0 

0033 

CHAN33 

equals 

33 

0011 

0034 

DNTMl 

equals 

34 

Q012 

0035 

DNTM2 

equals 

35 

R00I3  end  O'-  CHANNEL  AsslGM^IENTS 
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L interrupt  Lead  ins  user's  own  page  no.  i 


0001 

4aao 

-■ SETLOC 

4005 

0002 

4000 

0 0004  0 

INHINT 

GO 

0003 

R£F 

1 

4001 

3 4054  1 

CM 

GQB3 

OOOA 

REF 

1 

4002 

56  006  1 

XCH 

BBANic 

0005 

REF 

1 

4003 

1 2163  0 

TCF 

GOPROG 

0006 

REF 

1_ 

400A 

52  Oil  0 

OXCH 

ARJPT 

T6RUPT 

0007 

4005 

0 0006  1 

EXTEND 

0008 

REF 

1 ^ 

4006 

J_,505L_0 

OCA 

T6ADR 

0009 

4007 

52  006  0 

3TCB 

0010 

ref 

2 LAS_T_ 

, 40_10 

3,2  Oil  0 

3XCH 

.ARJPt  , 

„,  ,T5S.UPI 

0011 

4011 

0 0006  1 

EXTEND 

0012 

ref 

1 

4012 

3 1001  1 

OCA 

TsAOr 

0013 

4013 

52  006  0 

3TCB 

OOIA 

REF 

3 LAST 

60 

4014 

52  Oil  0 

DXCH 

ARUPt 

T3RUPT 

0015_ 

reje 

1 

4015 

3 4056  0 

CAF 

T3RPTBB 

0016 

REF 

2 LAST 

60 

4016 

56  006  1 

XCH 

3BANX 

0017 

REF 

1 

4017 

1 3577  0 

TCF 

T3RJPT 

0018 

REF 

4 LAST 

60 

4020 

52  on  0 

OXCH 

ARUPT 

T4RUPT 

0019 

REF 

1 

4021 

3 4063  0 

CAF 

T4RPTBB 

00195 

ref 

3 LA3T 

60 

4022 

56  006  1 

XCH 

BBANKn 

0020 

ref 

1 

4023 

1 2000  1 

TCF 

T4RJPT 

0023 

REF 

5 LAST 

60 

4,fi24 

52  Oil  0 

DXCH 

ARJPt 

KEYRUPTL 

0024 

ref 

1 

4025 

3 4057  1 

CAF 

XEYRPTBB 

0025 

REF 

4 LAST 

60 

4026 

56  006  1 

XCH 

BBANK 

00_26 

ref 

1 

4027 

1 3474  1 

TCF 

XEYRUPTl 

0027 

REF 

6 LAST 

60 

4030 

52  on  0 

DXCH 

ARUPT 

KEYRUPT2 

_ - 002,8  , 

REF 

1 

4031 

3 4060  0 

CAF 

MKRJPTBB 

0029 

REF 

5 LAST 

60 

4032 

56  006  1 

XCH 

8BANK 

0030 

ref 

1 

4033 

1 3221  1 

TCF 

MARXrUPT 

0031 

REF 

7 LAST 

60 

4034 

52  on  0 

DXCH 

ARJPT 

UPRUPT 

0032 

REF 

1 

4035 

3 4057  1 

CAF 

JPRPTBB 

0033 

REF 

6 LAST 

60 

4036 

56  006  1 

XCH 

BBANK 

0034 

REF 

1 

4037 

1 3514  0 

TCF 

UPRJPT 

0035 

REF 

8 LAST 

60 

4040 

52  on  0 

3XCH 

ARJPT 

DOWNRUPT  , - 

0036 

REF 

1 

4041 

3 4061  1 

CAF 

DwNRPTBB 

0037 

REF 

7 LAST 

60 

4042 

56  006  1 

XCH 

BBANK 

0038 

REF 

1 

4043 

1 2001  0 

TCF 

DODDWNTM 

0039 

REF 

9 LAST 

60 

4044 

52  on  0 

DXCH 

ARJPT 

RADAR  RUPt 

OOAO 

REF 

1 

4045 

3 4062  1 

CAF 

RDRPTBB 

0041 

REF 

8 LAST 

60 

4046 

56  006  1 

XCH 

BBANK 
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L 

INTERRUPT  LEAD  iNS 

USER'S  OWN  page  no.  2 

00A2 

REF 

1 

4047 

„1..5736__1_ 

rCF 

NOORSM  +1 

WAS  TCF  RADAREAD  (NO  RADAR  IN  236). 

R00A21 

traps 

31B  and 

32  SHO>- 

D Never 

Be  set. 

therefore- 

R00a22_ 

RDpT 

10  WILL 

always  refer  to 

thf  hand  I 

controller 

LPD  OR 

mInimUm  Impulse 

R00a23 

USE. 

SEE  George  cherry 

For  rationale  regarding  th 

iE  aforesaid. 

00a3 

REF 

10  LAST 

60 

4050 

5?  Oil  0 

JXCH 

ARJPt. 

RUPT  10  USED  For  rhc  minimp  mod?  only. 

OOAA 

REF 

1 

4051 

3 7762  0 

CAF 

Two 

00A5 

REF 

1 

4052 

55*007  0 

TS 

DELAyCTR 

00A6 

REF 

1 

4:05.1 

A 5-737  0 

TCF 

-NOUBRSM 

00A7 

REF 

1 

E3 

eban<= 

LSTl 

RESTART  USES  EO*  E3 

00A8 

REF 

2-LA5T. 

60 

4054 

0ZQD3  0 

GDB.B  .. 

3BCDN 

GOPROG 

0049 

REF 

1 

EO 

EBAN<= 

TIME! 

0050 

REF 

1 . 

4055 

- ,04000  0 

T6RPTB3 

3BC0NI 

resume  - 

»*»FIX  LATER**** 

0051 

REF 

2 LAST 

61 

E3 

EBAN<= 

I’STl 

0052 

REF 

2 LAST 

60 

4056 

02003  0 

T3RPTB3 

3BC0N 

T3RUPT 

0053 

REF 

1 

EO 

EBAN<= 

<EYTeMPi 

005A 

ref 

2 LAST 

60 

4057 

26000  0 

<£YRPT3B 

3BC0N 

4EYRUPT1 

0055 

ref 

1 

E3 

EBAN<= 

AOTA7 

0056 

REF 

2 LAST 

60 

4060 

26003  0 

MCRUPTBB 

3BCON 

MARCrUPT 

0057 

REF 

2 LAST 

60 

4057 

J=RPTB3 

= 

<eyrptbb 

0058 

REF 

1 

E7 

£BAN<= 

DNTMrUFF 

0059 

REf 

2 LAST 

60 

4061 

32007  1 

DWNRPT3B 

3BC0N 

OOOOwNTM 

0060 

REF 

1 

El 

EBAN<= 

RADMnDES 

0061 

REF 

1 

4062 

20001  1 

RDRPTB3 

3BC0N 

RAOAREAD 

0062 

REF 

1 

E6 

£BAN<= 

MU 

0063 

ref 

1 

4063 

24006  1 

TARPTB3 

3BCON 

T4RUPTA 
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RESTART  TABLES  A^d  RESTARTS  ROUTINE 


USER'S  OWN  page  NO.  1 


RESTART  TAB1£Sl _ _ . 

DO  NOT  REMOVE  FROM  THE  BEGINNING  OF  THIS  BANK 


ROOOl 
R0002 
R0003 

Roooa 
R0006 
Roods 
Rooio 
Rooii 
ROOU EXAMPlE-l 


tHere  are  two  forms  Of  restart  tables  for  each  group,  they  a're  known  as  tHe  even  Restart  tables  and  the  odd 
restart  tables.  THe  dud  tables  have  only  one  entry  of  three  locations  while  the  even  tables  have  two  entries 
each  JSJ_NG  three  locations.  THf  information  as  J0_WHEJH£R  LT  JS  A^UOBj  JAlTUSTi  _0_R  A LONGCALL  IS_GIVENJY  TH£_ 
way  THiINGS  are  PUT  INTO  THE  TABLES. 

A UOB  HAS  Its  priority  stored  in  PRDTTAB  of  the  correct  phase  spot  with  Its  2CADR  IN  the  cadrtab.  eor 


AoOIA 

AOOIS 


5.7SP0T 


OCT 

ZCAPR 


230oK 

SQMF.lOB 


R0016  A Restart  of  group  5 with  phase  seven  would  then  cause  somejob  to  be  restarted  with  a priority  of  23. 

R0OI8  A L0N3CALL  HAS  ItS  GeNADR  OF  ITS  2CADR  STORED  NeGATIVeLY  ANO  ITS  BBCON  STORED  POSITIVELY.  IN  ITS  PRDTTAB  IS 

R0020  placeo  The  location  of  a qP  Register  ThAt  contains  The  delta  time  that  longcall  h^d  been  originally  started 
^ R 0 Q2Z with  . EXAMPLEj 


A0023 

A002A 

A0O25 

Ao026 

A0027 


3.6SPOT 


oENADR  DELTAT 
r5ENAQfR_LQNoiA5IC^ 


3BC0N  I ONGtASK 

OCT 3JLaoo 

2CAOR  JOBAGAIN 


Ro028  this  would  START  UP  lQNGTASK  AT  THe  APPROPRIATE  TIMe.  OR  IMMfDIATfLY  IF  THe  TIMe  HAD  ALREADY  PASSfD.  IT_LHQU_LD 

R0030  BE  NOTED  That  IE  oeltat  is  in  a switched  e bank,  This  informatoin  should  be  in  The  bbcon  ofthe  2CAdr  of  the 

R0032  task.  from  above,  we  See  that  the  second  part  of  this  phase  would  be  started  as  a UOB  with  a priority  of  31. 


R003A 

R0036 

R0038 

Rooao 

R00a2 

ROOAA 


waitlist  Calls  are  identified  by  the  fact  that  th-Ir  2Caor  ia  stored  negatively,  if  prdttab  of  the  phase  spot 
IS  POSITIVE,  Then  it  contains  the  delta  time,  if  ^Rottab  is  negative  Then  it  is  the  -genadR  of  an  erasable 

location  containing  the  delta  time,  that  is,  the  time  is  stored  indirectly. IT  SHOULD  be  noted  as  above,  that 

IF'  fni  time  is  Stored  indirectly,  the  bbcon  must  contain  the  necessary  e bank  information  if  applicable,  with 
waitlist  we  have  one  further  option,  if  -0  is  stored  in  prdttab,  it  will  cause  an  immediate  restart  of  the 
task.  EXAMPLES' 


A00A5  OCT  77777  THIS  WILL  CAUSE  AN  IMMEDIATE  REkTART 

A00A6  _ _ _ -2CADR  ATASK  OF  THE  TASK  lATASK!  


A00A7 

AOOA8 

A0OA9 

Aooso 


OEC  200  IF  THE  TIME  OF  THE  2 SECONDS  SIwCE  DUMMY 

-2_CADR  DUmwY  _ __WAS  pJJT  ON_WAIJLLST  1_S_  U^,  J T WILL  BEGIN 
IN  io  MS,  OTHERW'^ISE  IT  WILL  BE3IN  WHEN 
II  normally  would  have  begun. 


AOOSl  -GENAiOR  DTIMp  " WHERE  DTIME  CONTAINS  THe  DELTA  TIME 

A0052  -2CADr  TASKTAsK  OTHERWISE  THIS  IS  As  ABOVE 


ROO53  »*»»» 


NOW  the  TAB-ES  themselves 
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L RESTA^iT  tables  And  restarts  routine  USER'S  Own  page  no.  2 


005A 

06,2000 

PRDTTA3 

-DUALS 

2A00n 

USED  TO  FIND  THF  PRIORITY  OR  DeT-TA  TIME 

0055 

06,2001 

CADRTA3 

equals 

2A001 

THIS  AND  the  NeXT  LOCATION  (RELATIVE) 

A0056 

CONTAIN  the  restart  CADR 

0057 

06,2000 

3AN< 

06 

0058 

REF 

3 LAST  J>1 

_ _ £3 

£BAN<= 

LSX] 

GOPROG  MUST  switch  IN  IHIS  eBANLC 

0059 

REF 

1 

06,2000 

02627  0 

PHS2CADR 

3ENADR 

PHSPART2 

DO  NOT  REMOVE  THE  FOLLOWING  6 LOCATIONS 

0060 

ref 

1 

06,2001 

02A1A  1 

PRT2CADR 

senadr 

3ETPART2 

from  beginning  of  bank 

0061 

REF 

1 

06,2002 

057A1  0 

lgclcadr 

5ENADR 

L0N5CALL 

0062 

REF 

1 

06,2003 

05516  0 

FVACCADR 

3ENADR 

findvac 

. . _ 0063 

REF 

1 

06,200A 

05663  1 

WTLTCADR 

3ENADR 

waitlist 

006A 

REF 

1 

06,2005 

0 5221  0 

RTRNCADR 

TC 

SrtRETURN 

0065 

___  _ ._06j2oT26_ 

10000  0 

1,2SP0T 

dCt 

lOQOO 

temporary  entry  to  establish  table 

0066 

REF 

A LAST 

63 

E3 

EBAN<= 

LSTl 

0067 

06,2007 

05576  0 

2CADR 

DUMMvUOB 

C00i>J 

REF 

1 

06,2010 

0A003  0 

0068 

06,2011 

lOOOO  0 

dct 

10000 

0069 

REF 

5 LAST 

63 

E3 

EBAN<= 

LSTl 

0070 

06,2012 

05576  0 

2CADR 

DUMMyUOB 

C0070 

ref 

2 LAST 

63  06,2013 

0A003  0 

ROO7I 

any 

M3RE  GROUP 

i.evem  Restart 

VALUES  SHOULD  GO  HERE 

0072 

06,201a 

00303  1 

1.3SP0T 

dec 

195 

0073 

REF 

8 last 

A2 

E5 

eban<= 

ETHRnT 

OO7A 

06,2015 

7A321  1 

• 2CADR 

PCNTnVER 

COO7A 

REF 

1 

06,2016 

17712  0 

ROO75 

any 

MORE  GROUP 

l.ODD  RESTART 

VALUES  SHOULD  GO  HER 

0076 

06,2017 

20000  0 

2.2SP0T 

DCT 

20000 

0077 

REF 

2 last 

35 

EA 

£BAN<= 

TDEC 

0078 

06,2020 

02063  0 

2CADR 

llREn02 

C0078 

REF 

1 

06,2021 

7A06A  0 

0079 

REF 

1 

06,2022 

0130A  1 

3ENADR 

tdectemp 

0080 

REF 

1 

06,2023 

75657  1 

■3ENADR 

TIGll-30 

0081 

REF 

3 LAST 

63 

EA 

eban<= 

TDEC 

0082 

REF 

2 LAST 

63  06,202A 

7A06A  0 

3BCDN 

TIGll-30 

0083 

06,2025 

15530  0 

2.ASP0T 

DEC 

7000 

008A 

REF 

A LAST 

63 

EA 

eban<= 

TDEC 

0085 

06,2026 

7A7AI  0 

i2CA0R 

POSTkALC 

C0085 

ref 

1 

06,2027 

11713  1 

0086 

06,2030 

20000  0 

DCT 

20000 

0087 

REF 

5 last 

63 

EA 

eban<= 

TDEC 

0088 

06,2031 

03023  0 

2CADR 

callyalc 

C0088 

ref 

1 

06,2032 

6606A  0 

R0089 

any 

MORE  GROUP 

2.EVEM  restart 

VALUES  should  GO  HERE 
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L 

RESTART 

tables  And 

restarts  I 

ROJI INE 

USER'S  OWN  PAGE  NO,  3 E3 

OO9O 

36,2033 

X7777  0 

2. 3 SPOT  OCJ__ 

-77-7  77 - 

mission  SCHEDULING  PACKAGE  TO-  SlELT  JJP 

0091 

REF 

6 

LAST 

63 

E3 

EBAN<= 

LSTl 

0092 

36,203A 

756A6  1 

-2CADR 

REDOMDUE 

C0Q9i 

JR£F 

1 

36,2035 

1571A  1 

0093 

36,2036 

1257A  1 

2.5SP0T  3EC 

5500 

009A 

REF 

6 

LAST 

63 

EA 

£BAN<= 

TDEC 

00_95 

36.2037 

75123  0 

-2CADR 

SI  VR2 

COO95 

ref 

1 

36,20AO 

25773  0 

0096 

36.20A1 

77777  0 

2.7SP0T  3CT 

77777 

0097 

BjEJ' 

7 

LAST 

6A 

EA_ 

fBAN<= 

TDEC 

0098 

36,20A2 

7561A  0 

W 2^  AOr^ 

SBORrA 

C0098 

ref 

1 

36,20A3 

25773  0 

0099 

36.20AA 

0a620  0 

2.11SP3T  3EC 

AOO 

0100 

REF 

8 

LAST 

6A 

EA 

EBAN<= 

TDEC 

0101 

36,20A5 

75A70  0 

-2CAOR 

SBDRrB 

COlOl 

ref 

1 

36,20A6 

25773  0 

0102 

REF 

2 

LAST 

33 

36,20A7 

76035  0 

2.13SP3T-3ENADR 

DT-LIFT 

0103 

REF 

1 

E3 

EBAN<= 

T GRfR 

OlOA 

36,2050 

7555A  1 _ 

_ -2CA_DR_ 

□ F_Tjo£F  __ 

COlOA 

ref 

1 

36,2051 

2177A  0 

0105 

36,2052 

0127A  1 

2.15SP3T  3EC 

700 

0106 

__ref 

9 

LAST 

6A 

EA 

FBAN<= 

TDEC 

0107 

36,2053 

75A26  0 

-2CADR 

TI5A_A1 

C0107 

ref 

1 

36,205A 

11713  1 

0108 

36,2055 

00310  0 

2.17SP0T  3EC 

200 

0109 

REF 

10 

LAST 

6A 

EA 

EBAN<= 

TDEC 

0110 

36,2056 

75361  1 

-2CADR 

TI3A-3A 

. COUP 

ref 

1 

36,2057 

11713  1 

0111 

36,2060 

77777  0 

2.21SP0T  OCT 

77777 

0112 

REF 

11 

LAST 

6A 

EA 

•BAN<= 

TDEC 

0113 

36,2061 

75621  0 

.2CADR 

DPSTaRT 

C0113 

ref 

1 

36,2062 

03713  1 

OllA 

36,2063 

01356  0 

2.23SP0T  OEC 

750 

0115- 

REF 

12 

LAST 

6A 

EA 

EBAN<= 

TDEC 

0116 

36,206A 

75566  0 

-2CA0R 

T I ol  1 

C0116 

ref 

1 

36,2065 

03713  1 

0117 

36,2066 

77777  0 

2.25SP0T  OCT 

77777 

0118 

REF 

13 

LAST 

6A 

EA 

EBAN<= 

TDEC 

0119 

36,2067 

75361  1 

-2CAOR 

MPllwOLD 

C0119 

ref 

1 

36,2070 

03713  1 

0120 

36,2071 

OOIAA  0 

2.27SP0T  OEC 

100 

0121 

REF 

lA 

LAST 

6A 

EA 

eban<= 

TDEC 

0122 

36,2072 

7531A  0 

-2CADR 

MPllnUT 

COI22 

ref 

1 

36,2073 

03713  1 

0123 

36.207A 

20000  0 

2.31SP0T  OCT 

20000 

012A 

REF 

15 

LAST 

6A 

EA 

fBAN<= 

TDEC 

0125 

36,2075 

02017  0 

2CADR 

llREDOl 

C0125 

ref 

1 

36,2076 

7A06A  0 

0126 

36,2077 

20000  0 

2.33SP0T  OCT 

20000 

0127 

REF 

16 

LAST 

6A 

EA 

EBAN<= 

TDEC 
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L 

RESTARiT 

TABLES  And 

restarts  routine 

USER'S  OWN  pace  nO. 

4 E3 

0128 

06,2100 

OZfiSZ..! 

?CADR 

J.NT_RJ.N  ^ 

C0128 

ref 

1 

06,2101 

74064  0 

0129 

REF 

2 

LAST 

63 

06,2102 

01304  1 

2.35SP0T  3ENADR 

TDECTEMP 

0130 

REF 

3 

LAST 

63 

06,2103 

75657  1 

-5ENADR 

JIGll -30  _ 

0131 

REF 

17 

LAST 

64 

E4 

EBAN<= 

TDEC 

0132 

ref 

4 

LAST 

65 

06,2104 

74064  0 

3BC0N 

TIGli -30 

0133 

06,2105 

77777  0 

2.37SP0T  OCT 

77777 

013A 

REF 

18 

LAST 

65 

E4 

eban<= 

TDEC 

0135 

06,2106 

_754.53  1 

..  . .-2CADR 

MOVENDX 

C0135 

REF 

1 

06,2107 

03713  1 

0136 

06,2110 

01750  1 

2.415P0T  OEC 

1000 

0137 

REF 

J.9 

LAST 

65 

._E4 

Ea.AN4  = 

TDEC 

0138 

06,2111 

75445  0 

-2CADR 

CCSMpRET 

C0138 

REF 

1 

06,2112 

03713  1 

0139 

06*2113 

15530  0 

2i4ASPC)T  OEC 

7000 

OUO 

REF 

20 

LAST 

65 

E4 

EBAN<= 

TDEC 

0141 

06,2114 

74741  0 

-2CADR 

PQSTkALC 

C0141 

ref 

? 

LAST 

63 

06,2115 

11713  1 

0142 

06,2116 

02114  1 

2.45SP0T  OEC 

1100 

0143 

REF 

21 

LAST 

65 

E4 

EBAN<= 

TDEC 

0144 

06.2117 

74665  1 

-2CADR 

iBZi^MP 

C0144 

ref 

1 

06,2120 

11713  1 

0145 

06,2121 

11610  0 

2.47SP0T  OEC 

5000 

0146 

REF 

?2 

LAST 

65 

E4 

tBAN<? 

TDEC 

0147 

06,2122 

74327  1 

-2CADR 

228LmP 

C0147 

ref 

1 

06,2123 

11713  1 

0148 

06,2124 

00062  0 

2.51SPDT  OEC 

50 

0149 

REF 

1 

E2 

eban<= 

AVoExIT 

0150 

06,2125 

74535  1 

-2CADR 

gULLnFF 

COISO 

ref 

1 

06,2126 

11715  1 

0151 

06,2127 

00372  1 

2.53SP0T  OEC 

250 

0152 

REF 

2 

LAST 

65 

E2 

^BAN<= 

AVoExIT 

0153 

06,2130 

74527  1 

-2CADR 

9EDBATT 

C0153 

ref 

1 

06,2131 

11715  1 

0154 

REF 

3 

LAST 

65 

06,2132 

76473  0 

2.55SPDT-0ENADR 

tdectemp 

„ .0155 

REF 

?3 

LAST 

65 

E4 

EBAN<= 

TDEC 

0156 

06,2133 

74437  1 

-2CA0R 

cutoff 

C0156 

ref 

1 

06,2134 

11713  1 

nl57 

06,2135 

00764  1 

2.57SP0T  OEC 

500 

0158 

REF 

24 

last 

65 

E4 

EBAN<= 

TDEC 

0159 

06,2136 

74415  1 

-2CADR 

87LMd 

C0159 

ref 

1 

06,2137 

11713  1 

0160 

06,2140 

77777  0 

2.61SP0T  OCT 

77777 

0161 

ref 

2 

LAST 

6A 

E3 

£BaN<= 

TGSR 

0162 

06,2141 

75547  0 

-2CADR 

RED02.61 

C0162 

REF 

1 

06,2142 

21774  0 

0163 

06,2143 

77777  0 

2.63SP0T  OCT 

77777 

0164 

ref 

3 

LAST 

65 

E3 

£BAN<= 

TGRR 

0165 

06,2144 

75534  1 

-zCadr 

RED05.63 

C0U5 

ref 

1 

06,2145 

21774  0 
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R0166 

0167 

R0168 

0169 


restart  tables  And  restarts  routine 

any  more.  GROU.P  2. odd  restart  values  should  go  HfR- 


USER'S  OWN  page  NO. 


E3 


REF  1 06.2006  3.2SP0T  EOJALS  1.2SP0T 

any  more,  group  _3_.^VE_'l_R.ESTART..y.A.LU£.S  SHOJtp.. go  H£_RE 


06.21A6  00062  0 3.3SPOT  OEC 


50 


„ f_V_ 

0171 

_rsvr 

06.21A7 

75A15  0 

-2CADS 

1 

ABMOn 

Com 

ref 

1 

06,2150 

03713  1 

Q172 

06,2151 

77777  0 

3.5SP0T  OCT 

77777 

0173 

REF 

26  LAST 

66 

EA 

EBAN<= 

TDEC 

Ol7A 

06,2152 

75307  1 

-2CADR 

TUMTASK 

C017A 

REZ 

1 

06,2153 

17713  1 

0175 

ref 

1 

06,215A 

017A3  0 

3.7SP0T  3ENA0R 

ot-lftjt 

0176 

REF 

1 

06,2155 

75507  1 

-3ENADR 

POSTLET 

0177 

REf 

A LAST 

65 

E3 

fBAN<5 

TGRR 

0178 

REF 

2 last 

66 

06,2156 

56003  1 

3BC0N 

POSTI  ET 

0179 

06,2157 

77777  0 

J.llSPDT  3CT 

77777 

0180 

REF 

1 

E2 

EBAN<= 

mtimera 

0181 

06,2160 

757A0  0 

-2CADR 

REDD3.il 

C0181 

ref 

l._ 

06,2161 

15715  0 

0182 

06,2162 

OOIAA  0 

3.13SP0T  OEC 

100 

0183 

REF 

2 last 

66 

E2 

eban<= 

Ml IMfRA 

OliA 

06,2163 

75777  1 

-2CADR 

MMAINT 

C018A 

ref 

1 

06,216A 

15715  0 

0185 

06,2165 

02260  1 

3.15SP0T  OEC 

1200  , 

0lB6 

REF 

?7  LAST 

56 

EA 

EBAN<= 

TDEC 

0187 

06,2166 

7522A  1 

-2CADR 

NEXLmP 

C0187 

ref 

1 

06,2167 

03713  1 

0188 

06,2170 

00310  0 

3.17SP0T  OEC 

200 

0189 

REF 

28  LAST 

66 

EA 

eban<= 

TDEC 

0190 

06,2171 

75215  0 

-2CADR 

NEXLmPI 

C0190 

ref 

1 

06,2172 

03713  1 

0191 

06,2173 

OOIAA  0 

3.21SP0T  OEC 

100 

0192 

REF 

29  LAST 

66 

EA 

EBAN<= 

TDEC 

0193 

06,217A 

75207  0 

-2CADR 

NEXLwPa 

C0193 

ref 

1 

06,2175 

03713  1 

019A 

06,2176 

13560  0 

3.23SP0T  OEC 

6000 

0195 

REF 

30  last 

66 

EA 

-BAN<= 

TDEC 

0196 

06,2177 

75200  1 

-2CADR 

NEXLMP3 

C0196 

ref 

1 

06,2200 

03713  1 

0197 

06,2201 

OOIAA  0 

3.25SP0T  OEC 

100 

0198 

REF 

31  last 

66 

EA 

EBAN<= 

TDEC 

0199 

06,2202 

75232  0 

-2CADR 

MPHtASK 

C0199 

ref 

1 

06,2203 

03713  1 

0200 

06.220A 

20000  0 

3.27SP0T  OCT 

2000n 

0201 

REF 

3 LAST 

AA 

E5 

EBAN<= 

XSM 

0202 

06,2205 

02651  1 

2CADR 

REDD3.27 

C0202 

REF 

1 

06,2206 

72065  1 

633436A 

YUL 

system  for 

! agc;  revision 

0 OF  PROGRAM  BURST120  BY  NASA  202110A-031 

DEC  7,  1967  (MAIN) 

PAGE  67 

L 

0203 

restart 

tables 

, and  restarts  routine 

06.2207 7777-7-0- 

3.31SPDT  3CT 77777 

USER'S  OWN  Page  no.  6 

E3 

020A 

REF 

1 

E4 

eban<=  TTGD 

0205 

06,2210 

74326  0 

-2CADR  DUMMvl3 

C0205 

ref 

1 

06,2211 

21773  1 

0206 

06,2212 

04704  0 

3.33SPDT  OEC  2500 

0207 

REF 

2 

last 

67 

E4 

£BAN<=  TTGO' 

02Q8 

06,2213 

74272  0 

»2GADR TRMDMYI3 

C0208 

ref 

1 

06,2214 

21773  1 

R0209 

any 

MORE  CjRoUF 

’ 3, ODD  RESTART 

VALUES  SHOULD  GO  HERE 

0210 

REF 

2 

last 

66 

06,2006 

4.2SP0T  EQUALS  1.2SpOT 

R0211 

any 

MORE  QROUP 

’ 4. even  restart 

VALUES  should  GO  HERE 

0212 

06,2215 

30000  1 

4.3SP0T  OCT  3000O 

02  L3 

REF 

9 

last 

63 

— E&- 

FBAN<=  ETHROT 

0214 

06,2216 

03540  0 

2CADR  ALCL.IOB 

C0214 

REF 

1 

06,2217 

60065  1 

0215 

06,2220 

10000  0 

4.5SP0T  OCT  lOOoR 

0216 

REF 

1 

E3 

eban<=  RATEtNDX 

0217 

06,2221 

02670  1 

2CA0R  COLDSOAK 

C0217 

ref 

06,2222 

56003  1 

0218 

06,2223 

15000  0 

4.7SP0T  DCT  15000 

0219 

REF 

5 

last 

66 

E3 

EBAN<=  TGRR 

0220 

06,2224 

02056  0 

2CADR  MP2UnB 

C0220 

ref 

1 

06,2225 

56003  1 

0221 

06,2226 

25000  0 

4,11SP0T  OCT  25000 

0222 

ref 

10 

LAST 

67 

E5 

£BAN<=  ETHROT 

0223 

06,2227 

03507  0 

2CADR  PCNT.lOB 

C0223 

REF 

1 

06,2230 

60065  1 

0224 

REF 

4 

LAST 

6S  06,2231 

01304  1 

4.13SP0T  5ENA0R  TDECTEMP 

0225 

REF 

1 

06,2232 

74643  0 

-oENAOR  T1G9-66 

0226 

REF 

32 

LAST 

66 

E4 

£BAN<=  TDEC 

0227 

REF 

2 

LAST 

6?  06,2233 

66064  0 

3BC0N  TIG9-66 

0228 

06,2234 

27000  1 

4.15SP0T  OCT  2700n 

0229 

REF 

33 

LAST 

67 

E4 

EBAN:<=  TDEC 

0230 

06,2235 

03157  1 

2CADR  ORBINTUB 

C0230 

ref 

1 

06,2236 

66064  0 

0231 

REF 

5 

LAST 

67  06,2237 

76472  1 

4.17SPOT-3ENAOR  TDECTEMP  +1 

0232 

REF 

3 

last 

65 

E2 

EBAN<=  AYGEXIT 

0233 

06,2240 

74547  1 

-2CADR  T1G9-0 

C0233 

ref 

1 

06,2241 

11715  1 

R0234 

any 

MORE 

GROUP 

4. ODD  RESTART 

VALUES  SHOULD  GO  HERE 

0235 

06,2242 

21000  1 

5.2SP0T  OCT  21000 

0236 

REF 

1 

E4 

EBAN<=  RAVEoON 

0237 

06,2243 

02412  1 

2CADR  NORMi IZE 

C0237 

ref 

1 

06,2244 

60064  0 

0238 

06,2245 

00310  0 

DEC  200 

YUL 

system  for 

AGC 

! REVISION  0 
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DEC  7,  1967  (MAIN) 
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L 

resta7iT  Tables 

1 and 

restarts  routine 

USER'S  OWN  page  NO.  7 

E3 

0239 

REf 

1 

E5_ 

..  _ -BAN<=  OVCNTR 

0240 

36,2246 

75144  1 

-2CA0R 

REREADAC 

C0240 

ref 

1 

36,2247 

17712  0 

0241 

_ 36,2250_ 

00310  0 

5.4SP0T  _3£C_ 

2Qil- 

0242 

REF 

1 

E5 

£BaN<= 

BMEMnRY 

0243 

36,2251 

75777  1 

-2CADR 

PRERFAD 

C0243 

ref 

1 

36,2252 

iJJ12„0 

0244 

36,2253 

32000  0 

OCT 

3200n 

0245 

REF 

7 LAST 

64 

E3 

EBAN<= 

CSTl 

0246 

36,2254 

0J575  0 

2CADR 

LASTrIAS 

C0246 

ref 

1 

36,2255 

24003  1 

0247 

36,2256 

00310  0 

5.6SP0T  3EC 

200 

0248 

REF 

2 LAST 

68 

E5 

EBAN<= 

DVCNTR 

0249 

36,2257 

75144  1 

-2CA0R 

REREaDAC 

C0249 

ref 

2 LAST 

68 

36,2260 

17712  0 

0250 

36,2261 

20000  0 

DCT 

2000O 

0251 

REF 

3 last 

68 

E5 

eban<= 

OVCNTR 

0252 

36,2262 

02133  1 

2CADR 

servtcer 

C02^2 

ref 

1 

36,2263 

60065  1 

R0253 

ANY 

MORE  GROUP 

S.EVEM  KeSTART 

VALUES  Should  go  here 

0254 

36,2264 

00310  0 

5.3SP0T  3EC 

200 

0255 

REF 

4 LAST 

68 

E5 

eban<= 

OVCNTR 

0256 

36,2265 

75144  1 

-2CADR 

REREaDAC 

C0256 

REf 

3 LAST 

68 

36.2266 

17712  0 

0257 

36,2267 

00000  1 

5.5SP0T  2DEC 

0 

5.5  SPOT  NOT  USED 

C0257 

36,2270 

00000  1 

0258 

36,2271 

00000  1 

3EC 

0 

0259 

36,2272 

20000  0 

5.7SPOT  3CT 

2000n 

0260 

REF 

4 LAST 

66 

E5 

EBAN<= 

XSM 

0261 

36,2273 

02020  1 

2CADR 

RSTGtSI 

C0261 

ref 

1 

36,2274 

72065  1 

0262 

36,2275 

77777  0 

5.11SP3T  3CT 

77777 

0263 

REF 

- 5 LAST 

68 

E5 

EBAN<= 

XSM 

0264 

36,2276 

75706  1 

-2CADR 

ALLOnPl 

C0264 

ref 

1 

36,2277 

05712  0 

0265 

36,2300 

20000  0 

5.13SP3T  3CT 

20030 

0266 

REF 

6 LAST 

68 

E5 

fBAN<= 

XSM 

0267 

36,2301 

02727  1 

2CADR 

lYTLISTNT 

C0267 

ref 

1 

36,2302 

72065  1 

0268 

36,2303 

20000  0 

5.15SP3T  3CT 

20000 

0269 

REF 

7 LAST 

68 

E5 

FBAN<= 

XSM 

0270 

36,2304 

02757  0 

2CA0R 

NOCHnRLD 

C0270 

ref 

1 

36,2305 

72065  1 

0271 

36,2306 

20000  0 

5.17SP3T  OCT 

20000 

0272 

REF 

8 LAST 

68 

E5 

£BAN<= 

XSM 

0273 

36,2307 

02710  0 

2CADR 

3EDSTRT4 

C0273 

ref 

1 

36,2310 

72065  1 

0274  36,2311  20000  0 5.21SP3T  OCt 


2000n 
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L restart  tables  And  restarts  routine  USER'S  Own  page  no.  e e3 


_0 2J_5 ref  9 LAST  68 £5 EBAN<s  XSM 


0276 

06.2312 

02126  0 

2CADR 

ALFCtI 

C0276 

ref 

1 

06.2313 

72065  1 

0217 

06,2314 

77777  0 

5.23SPDT  OCT 

77777 

0278 

REF 

10  LAST 

69 

E5 

eban<= 

XSM 

0279 

06.2315 

75666  0 

-2CADR 

SPECSTS 

C0279 

ref 

_! 

06,2316 

05712  0 

0280 

06,2317 

20000  0 

5.25SP0T  OCT 

20000 

0281 

REF 

11  LAST 

69 

E5 

eban<= 

XSM 

0282 

06,2320 

02630  0 

2CADR 

RESTaIER 

C0282 

REF 

1 

06,2321 

72065  1 

0283 

06,2322 

00620  0 

5.27SP0T  OEC 

400 

0284 

REF 

1 

E5 

EBAN<= 

DVTOTAL 

0285 

06,2323 

75777  1 

-2CADR 

PREREAD 

C0285 

ref 

2 LAST 

68 

06,2324 

17712  0 

0286 

06,2325 

77777  0 

5.31SP0T  OCT 

77777 

0287 

REF 

1 

E5 

eban<= 

NEGXnV 

0288 

06,2326 

75707  0 

-2CADR 

REDOS. 31 

C0288 

ref 

1 

06,2327 

17712  0 

0289 

06,2330 

77777  0 

5.33SP0T  OCT 

77777 

0290 

REF 

5 last 

68 

E5 

eban<= 

OVCNTR 

0291 

06,2331 

75777  1 

-2CADR 

PREREAD 

C0291 

ref 

3 LAST 

69 

06,2332 

17712  0 

0292 

REF 

1 

06,2333 

76435  1 

5.35SPOT-5ENAOR 

RSOTTEMP 

0293 

REF 

2 LAST 

69 

E5 

EBAN<= 

DVTOTAL 

0294 

06,2334 

75777  1 

-2CaDR 

prerfad 

C0294 

ref 

4 LAST 

69 

06,2335 

17712  0 

0295 

06,2336 

77777  0 

5.37SP0T  OCT 

77777 

0296 

REF 

6 LAST 

67 

E3 

EBAN<= 

TGRR 

0297 

06,2337 

75754  0 

-2CADR 

SETPtPDT 

C0297 

rEf 

1 

06,2340 

21774  0 

R0298 

any 

MORE  GROUP 

5. 

ODD  RESTART 

values  should  go  Here 

0299 

06,2341 

00764  1 

6.2SP0T  DEC 

500 

029901 

ref 

2 LAST 

61 

E7 

eban<= 

ONTMpUFF 

029902 

06,2342 

75225  0 

-2CAD.R 

DAPOFF 

C029902 

ref 

1 

06,2343 

55770  1 

029903 

06,2344 

30000  1 

DCT 

30000 

029904 

REF 

3 LAST 

69 

E7 

EBAN<= 

DNTMrUFF 

029905 

06,2345 

02541  0 

2CA0R 

TGOFf 

C029905 

ref 

1 

06,2346 

22007  0 

R0300 

any 

MORE  GROUP 

6. 

even  restart 

VALUES  SHOULD  GO  HERE 

0301 

06,2347 

00764  1 

6.3SP0T  dec 

500 

0302 

ref 

4 LAST 

69 

E7 

eban<= 

DNTMrUFF 

0303 

06,2350 

75225  0 

-2CADR 

DAPOFF 

~f0303 

rEf 

2 LAST 

06,2351 

55770  1 

0304 

06,2352 

33000  1 

6.5SP0T  OCTAL 

33000 

0305 

REF 

1 

E4 

eBan<= 

STBUFF 

0306 

06,2353 

02440  0 

2CA0R 

I=4.rONT 

C0306 

ref 

1 

06,2354 

54004  1 
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0307 

06,2355 

30i).0.0_  1 

_6j.7S£.0T  OCT. 

.3X1000 

0308 

REF 

2 

LAST 

69 

E4 

eban<= 

srsjFF 

0309 

06,2356 

02464  0 

2CADR 

JPajITRM 

CQ109 

REF 

L. 

3fe»2357 

54004  1 

030901 

REF 

1 

06,2360 

76432  0 

6.11SPDT-3ENA0R 

OAPO^FDT 

030902 

REF 

5 

LAST 

69 

E7 

EBAN<= 

ONTMrUFF 

030903 

06,2361 

75504  1 

_ -2CAD.R  . 

llAAPOFF  _ . 

C030903 

ref 

1 

36,2362 

03710  1 

R0310 

any 

MORE 

GROUP 

6, ODD 

RESTART 

VALUES  SHOULD  GO  HERE 

0311 

REF 

3 

LAST 

67 

36,2363 

00000  1 

SIZETA3  oENADR 

1.2SP0T  -24006 

0312 

ref 

1 

36,2364 

00010  0 

jENAoR 

1.3SP0T  -24004 

0313 

REF 

1 

36,2365 

00011  1 

jENAOR 

_2*2SP0T  -24006  . 

031A 

ref 

1 

36,2366 

00027  1 

3ENA0R 

2.3SPOT  -24004 

0315 

ref 

1 

36,2367 

00000  1 

3ENA0R 

3.2SP0T  -24006 

0316 

REF 

1 

361.2370 

00142  0 

3ENA0R 

3.3SP0T  -240.04... 

0317 

ref 

1 

36,2371 

00000  1 

3ENA0R 

4.2SPOT  -24006 

0318 

ref 

1 

36,2372 

00211  0 

3ENADR 

4.3SP0T  -24004 

0319 

ref 

1 

36j2373 

00234  1 

3ENA0R 

5..2SPOT  -24006 

0320 

REF 

1 

36,2374 

00260  0 

3ENA0R 

5.3SPOT  -24004 

0321 

REF 

1 

36,2375 

00333  1 

3ENA0R 

6.2SP0T  -24006 

0322 

REF 

1 

36,2376 

00343  0 

3ENA0R 

6.3SP0T  -24004 

633436A 

YUL 

system  fob 

: AGC: 

; REVISION 

0 of  program  BURST123  BY  NASA  2021106-031 
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L 

P0323 

RESTART 

tables 

, and 

RESTARTS  ROUTINE 

USER'S  OWN  PAGE  NO.  10  E3 

0324 

REF 

20 

LAST 

58 

36,2377 

3 0151 

1 

RESTARTS  CA 

MPAC  +5 

GET  GROUP  NUMBbR  -1 

0325 

36,2400 

6 0000 

1 

30JBLE 

SAVE  FOR  INDEXING 

0326 

REF 

1 

36,2401 

54  145 

0 

ts 

TEMPgG 

0327 

REF 

1 

36,2402 

3 2003 

0 

CA 

FVACCADR 

let:s  assume  this  is  a job,  this  will 

0328 

ref 

1 

36,2403 

54  734 

0 

GOL^  -1 

SAVE  US  A COUPLE  OF  LOCATIONS,  TUT  NOT 

A0329 

NECESSARIALY  ANY  TIME  - 50  BE  IT  - 

0330 

REF 

1 

D6  $2404 

3 2^0  00_ 

0 

CA 

PHS2rADR 

SET  UP  EXIT  IN  CASE  IT  IS  AN  EVfN 

0331 

ref 

1 

36,2405 

54  147 

1 

TS 

TEMPSNCH 

TABLE  PHASE 

0332 

REF 

1 

36,2406 

3 2005 

0 

CA 

rtrncadr 

TO  SAVE  TIME  ASSUME  IT  WILL  GET  NFXT 

0333 

REF 

2 

last 

71 

36,2407 

54  737 

0 

TS 

GOLor  +2 

GROUP  after  this 

0334 

REF 

1 

36,2410 

3 0144 

0 

_ CA 

T_£MP_PMS 

0335 

REF 

1 

36,2411 

7 5352 

1 

MAS< 

OCT1400 

0336 

REF 

1 

36,2412 

10  000 

0 

CCS 

A 

IS  IT  A variable  or  TABLE  RESTART 

0337 

REF 

1 

36,2413 

1 2424 

0 

tcf 

iTSAvAR 

it;s  a variable  restart 

0338 

REF 

2 

LAST 

71 

36,2414 

10  144 

1 

GETPART2  CCS 

TEMPPHS 

is  it  an  X.l  restart 

. . 03a9_. 

REF 

_2_ 

last 

71 

36,2415 

10  000 

CCS 

A 

0340 

REF 

1 

36,2416 

1 2513 

0 

TCF 

ITSAtBL 

NO,  ITS  A table  restart 

0341 

REF 

1 

36,2417 

3 5640 

0 

CA 

PRI314 

IT  IS  AN  X.l  Restart,  therefore  start 

0342 

REF 

2 

LAST 

63 

36,2420 

0 5516 

0 

TC 

findvac 

the  display  restart  job 

0343 

REF 

8 

LAST 

68 

E3 

EBAN<= 

LSTl 

0344 

36,2421 

05567 

0 

2CADR 

iNITnSP 

C0344 

REF 

1 

36,2422 

04003 

0 

0345 

REF 

2 

LAST 

71 

36,2423 

0 2005 

0 

TC 

RTRNCADR 

finished  with  this  group.  Get  npxt  one 

0346 

REF 

1 

5567 

INITDSP  equals 

ENDDFJOB 

0347 

ref 

2 

LAST 

7I 

36,2424 

7 5352 

1 

ITSAVAR  MAS< 

3CT1400 

IS  IT  type  B ? 

0348 

ref 

3 

last 

7I 

36,2425 

10  000 

0 

CCS 

A 

0349 

REF 

1 

36,2426 

1 2475 

1 

TCF 

ITSLtXEB 

YES, IT  IS  type  B 

0350 

36,2427 

0 0006 

1 

EXTEND 

store  the  job  (OR  TASK)  2CADR  FOR  EXIT 

0351 

REF 

2 

last 

71 

36,2430 

5 0145 

1 

NDX 

TEMP26 

0352 

REF 

1 

36,2431 

3 1517 

0 

3CA 

phsnamei 

0353 

REF 

3 

last 

TT — 

36,2432 

52  736 

1 

3XCH 

GOLDC 

0364 

REF 

3 

LAST 

7l 

36,2433 

3 0144 

0 

CA 

TEMPPHS 

see  if  this  is  a job,  task,  or  a longcal 

0355 

REf 

1 

36,2434 

7 7765 

0 

MAs< 

0CT7 

0356 

REF 

1 

36,2435 

6 5336 

1 

AD 

MINJS2 

0357 

REF 

4 

LAST 

71 

D6  % 2436 

10  000 

0 

CCS 

A 

0358  1 06,2437  1 2576  0 fCF  ITSLNGCL  ITS  A LONGCALL 


0359 


06,2440  37776  0 0^T37776  OCT 


37776 


CANT  GET  HERE 
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L 

RESTART 

tables 

. And 

restarts  I 

routine 

USER'S  OWN  page  no.  11 

E3 

0360 

REEL 

1 

36.2441 

1 2443  1 

LEE 

iTSAu'iAIT 

0361 

REF 

1 

36,2442 

1 2510  0 

TCF 

ITSAJOB 

ITS  A JOB 

0362 

REF 

1 

36,2443 

3 2004  1 

ITSAWAIT  CA 

WTLTCADR 

SET  UP  WAITLIST  CALL 

0363 

ref 

4 

last 

7l 

36,2444 

54  734  0 

TS 

GOLDC  -1 

03&4 

ref 

3 

LAST 

7l 

36 ,2445 

50  145  1 

ndx 

TEMP2G 

DIRECTLY  STORED 

0365 

REF 

1 

36,2446 

3 1114  1 

CA 

PHSPRDTl 

0366 

REF 

5 

LAST  . 

7l 

^6,2447 

10  OOP  0 

TIMETEST  CCS 

A 

IS  IT  AN  immediate  RESTART 

0367 

REF 

6 

LAST 

72 

36,2450 

24  000  1 

INCR 

A 

NO, 

0368 

REF 

1 

36,2451 

1 2454  1 

TCF 

FINDtIME 

FIND  OUT  WHEN  IT  SHOULD  BEGIN 

0369 

REF 

1 

36,2452 

1 4064  0 

TCF 

IT5INDIR 

Stored  indirectly 

0370 

REF 

1 

36,2453 

1 2473  1 

TCF 

IME3I ATE_ 

IT  WANTS  AN  IMMEDIATE  RESTART 

R0371 

THIS  MUST  be 

IN  EIXeD  I 

"IXED 

0372 

4064 

3L0C< 

02 

0373 

REF 

5 

last 

72 

4064 

22  736  0 

ITSINOIR  _XCH 

GoLor  +1 

Get  the  Correct  e bank  in  case 

THIS  IS 

0374 

REF 

L 

4065 

22  006  1 

^XCH 

BB 

switched  errasible 

0375 

REF 

7 

LAST 

72 

4066 

50  000  1 

ndx 

A 

Get  the  time  indirectly 

0376 

4067 

3 0001  0 

CA 

1 

0377 

REF 

2 

LAST 

72 

4070 

22  006  1 

LXCH 

BB 

RESTORE  THE  BB  AND  GOLOC 

0378 

REF 

6 

LAST 

72 

4071 

22  736  0 

lxch 

GOLDr  +L 

0379 

REF 

2 

LAST 

72 

4072 

1 2454  1 

rcF 

findtime 

FIND  OUT  WHEN  IT  SHOULD  BEGIN 

R0380 

iUkthiiih 

YOUB  MAY 

Returvi  to  switched  fixed 

QiBi_ 

06,2454 

RANK 

06 

0382 

36,2454 

4 0000  0 

findtime  com 

MAKE  NEGITIVE  SINCE  IT  WILL  BE 

SUBTRACTD 

0383 

REF 

1 

36,2455 

54  001  1 

rs 

L 

AND  SAVE 

0384 

REF 

4 

LAST 

72 

D6  *24^6 

50  145  1 

NDX 

TEMP?G 

0385 

ref 

1 

36,2457 

4 1113  1 

CS 

TBASEl 

0386 

36,2460 

0 0006  1 

EXTEND 

0387 

ref 

2 

LAST 

61 

36,2461 

60  025  0 

5U 

TIMEl 

0388 

REF 

8 

LAST 

72 

36,2462 

10  000  0 

CCS 

A 

0389 

36,2463 

4 0000  0 

COM 

0390 

REF 

1 

36  9 2464 

6 2440  0 

AD 

0CT37776 

0391 

REF 

1 

36,2465 

6 7763  1 

AD 

ONE 

0392 

REF 

2 

LAST 

72 

36 « 2466 

6 0001  0 

AD 

L 

0393 

ref 

9 

LAST 

72 

36,2467 

10  000  0 

CCS 

A 

0394 

REF 

1 

36,2470 

3 7767  0 

CA 

ZERO 

0395 

36,2471 

1 2473  1 

TCF 

♦ 2 

0396 

36,2472 

1 2473  1 

TCF 

+ 1 

0397  REF  2 LAST  7Z  06,2473  6 7763  1 IMEDIATE  AD  OME 


633<*36A  YUL  SYSTEM  FOR  AGC;  'REVISION  0 OF  PROGRAM  BURST12D  SY  NASA  2n211Ofe-031 


DEC  7t  1967  (MAIN)  PAGE  73 


L restart  tables  And  restarts  routine  user's  own  page  no.  12  E3 


03J8 

REF 

7 

LAST 

72 

36.2474 

0 0734 

TC 

GQLOr  -1 

0399 

REF 

3 

LAST 

71 

36,2475 

3 2005 

0 

itslkeb 

CA 

RTRNCAOR 

TYPE  B,  SO  store  RETURN  IN 

OAOO 

REF 

2 

LAST 

7l 

36,2476 

54  147 

1 

TS 

TEMPswCH 

TEMPSWCH  IN  CASE  OF  AN  EVEN  PHASE 

0401 

REF 

1 

36,2477 

3 2001 

1 

:a 

PRT2CADR 

SET  UP  EXIT  TO  GET  TABLE  PART  3F  THIS 

0402 

REF 

8 

LAST 

73 

36,2500 

54  737 

0 

TS 

GDLDC  +2 

VARIABLE  type  OF  PHASE 

0403 

REF 

4 

LAST 

71 

36,2501 

3 0144 

0 

CA 

tempphs 

make  the  phase  LOOK  RIGHT  FOR  T RE  TABLE 

0404 

REF 

1 

36,2502 

7 5342 

0 

MAS< 

DCT177 

PART  OF  THIS  VARIABLE  PHASE 

0405 

REF 

5 

last 

36,2503 

_54  144 

1 

IS 

TEMPpHS 

0406 

36,2504 

0 0006 

1 

EXTEND 

0407 

REF 

5 

LAST 

72 

36,2505 

5 0145 

1 

NDX 

TEMPoG 

OBTAIN  THE  JOBiS  2CADR 

0408 

REF 

2 

LAST 

7l 

36,2506 

3 1517 

0 

OCA 

PHSNAMEl 

0409 

REF 

9 

LAST 

73 

36,2507 

52  736 

1 

3XCH 

GOLOr 

0410 

REF 

6 

LAST 

73 

36,2510 

50  145 

1 

ITSAU03 

NDX 

TEMP2G 

NOW  ADD  THE  PRIORITY  AND  LeTIS  GO 

0411 

ref 

2 

lAst 

72 

36,2511 

3 1114 

1 

CA 

phsprdti 

0412 

REF 

10 

LAST 

73 

36,2512 

0 0734 

1 

TC 

30L3C_-i 

0413 

REF 

1 

36,2513 

54  020 

1 

itsatbl 

ts 

CYR 

find  out  if  the  phase  is  odd  or  even 

0414 

REF 

z 

LAST 

73 

36,2514 

10  020 

1 

CCS 

CYR 

0415 

36,2515 

1 2516 

0 

TCF 

♦ 1 

it;s  even 

0416 

ref 

1 

36,2516 

1 2616 

0 

TCF 

ITSFVEN 

0417 

REF 

4 

LAST 

73 

36,2517 

3 2005 

0 

CA 

Rtrncadr 

IN  Case  this  is  tHe  second  part  of  a 

0418 

REF 

11 

LAST 

73 

36,2520 

54  737 

0 

rs 

oQLOr  +2 

TYPE  B restart,  WE  NEED  PROPER  EXIT 

0419 

REF 

6 

LAST 

73 

36,2521 

3 0144 

0 

CA 

tempphs 

SET  UP  POINTER  FOR  FINDING  OUR  pLACE  IN 

0420 

ref 

1 

36,2522 

54  021 

0 

IS 

SR 

The  restart  tables 

0421 

REF  - 

2 

LAST 

73 

36,2523 

6 0021 

1 

AD 

SR 

0422 

REF 

7 

LAST 

73 

36,2524 

50  145 

1 

\1DX 

TEMPpG 

0423 

ref 

1 

36,2525 

6 2364 

1 

AD 

SIZETAB  +1 

0424 

REF 

1 

36,2526 

54  146 

0 

IS 

pointer 

0425 

36,2527 

0 0006 

1 

C0NTBL2 

EXTEND 

FIND  OUT  WHATIS  IN  THE  TABLE 

0426 

ref 

2 

LAST 

73 

36,2530 

5 0146 

1 

NDX 

pointer 

0427 

REF 

1 

36,2531 

3 2002 

1 

OCA 

CADRTAB 

GET  THE  2CADR 

0428 

REF 

12 

LAST 

73 

36,2532 

22  736 

0 

lxch 

G0L3C  +1 

STORE  the  BB  information 

0429 

REF 

10 

LAST 

72 

36,2533 

10  000 

0 

CCS 

A 

IS  IT  A UOB  OR  IS  IT  TIMED 

0430 

REF 

11 

last 

73 

36,2534 

24  000 

1 

INCR 

A 

POSITIVE,  MUST  BE  A UOB 

0431 

REF 

1 

36,2535 

1 2610 

0 

TCF 

ITSAI0B2 

0432 

REF 

12 

LAST 

73 

36,2536 

24  000 

1 

INCR 

A 

MUST  BE  either  A WAITLIST  OR  LONGCALL 

0433 

ref 

13 

LAsT 

73 

36,2537 

54  735 

1 

Ts 

GOLOC 

LET-s  store  the  CORRECT  CADR 

0434 

REF 

2 

LAST 

72 

36,2540 

3 2004 

1 

CA 

WTLTCADR 

SET  UP  OUR  EXIT  TO  WAITLIST 

0435 

REF 

14 

LAST 

T3 

36,2541 

54  734 

0 

TS 

GOLOr  -1 

633436A 

YUL 

ststem  for  agci 

; REVISION 

0 OF  PROGRA'I 

BURST123  by 

NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  74 

L 

0436 

RESTART 
REF  15 

TABLES  And 
LAST  73 

Restarts  i 
36j_i5A2_ 

routine 

_3_D-73_t 

0_ 

CA 

oOLOC  *1 

USER'S  OWN  PAGE  NO.  13  E3 

NOW  FIND  OUI  IF  IT  IS  A WAITLIST  CALL 

0437 

ref 

1 

36,2543 

7 7752 

1 

*tAS< 

BiTlO 

THIS  SHOULD  BE  OnE  IF  WE  HAVE  -3B 

0438 

REF 

13 

LAST  73 

36,2544 

10  000 

0 

CCS 

A 

FOR  THAT  MATTER  SO  SHOULD  BE  BItS  9,8,7, 

A0439 

_6j5i  AND  last  but  NOT  .least  (PERHAPS  NOT 

A0440 

IN  importance  anyway,  bit  4 

0441 

REF 

1 

36,2545 

1 2603 

1 

TCF 

US/JtLST 

IT  IS  A WAITLIST  CALL 

0442 

REF 

3 

last  73 

36,2546 

50  146 

1 

MDX 

pointer 

OBTAIN  the  original  DeUtA  T 

0443 

REF 

1 

36,2547 

3 2000 

0 

CA 

prdttab 

address  For  this  longcall 

0444 

REF 

1 

36,2550 

1 4073 

0 

TCF 

ITSLGCLl 

NOW  GO  GET  THE  DELTA  TIME 

R04^5  this  MUST  BL  L'IJtI X E D_ F 1 J(£ D 


0446 

4073 

3L0C< 

02 

0447 

REF 

16 

last 

74 

4073 

2.2_  736.  0 

ITSLGCLl  I.XCH 

GOLOr  *1 

OBTAIN  THF  CORRECT  E BANK 

0448 

ref 

3 

LAST 

7Z 

4074 

22  006  1 

LXCH 

SB 

0449 

REF 

17 

last 

74 

4075 

22  736  0 

LXCH 

GOLOr  +1 

AND  PRESERVE  OUR  E AND  F BANKS 

0450 

4076 

0 0006  1 

extend 

GET  THE  DELTA  TIME 

0451 

REF 

14 

LAST 

74 

4077 

5 0000  1 

NDX 

A 

0452 

4100 

3 0001  0 

3CA 

0 

0453 

REF 

18 

LAST 

74 

4101 

22  736  0 

LXCH 

GOLOr  +1 

RESTORE  OUR  E AND  F BANK 

0454 

REF 

4 

LAST 

74 

4102 

22  006  1 

lXCH 

BB 

RESTORE  THE  TASKS  E AND  F BANKS 

0455 

REF 

19 

LAST 

74 

4103 

22  736  0 

LXCH 

GOLOr  +1 

AND  PRESERVE  OUR  L 

0456 

REF 

1 

4104 

1 2551  0 

TCF 

ITSLGCL2 

NOW  LET:S  PROCESS  THIS  LONGCALL 

R0457 

youb  may 

METURN,  to  switched  fixed 

0458 

06,2551 

3AN< 

06 

0459 

REF  . 

1 

36,2551 

53*154  1 

1TSLGCL2  3XCH 

longtime 

0460 

36,2552 

0 0006  1 

extend 

CALCULATE  TIME  LEFT 

0461 

REF 

1 

36,2553 

4 0025  1 

DCS 

T1ME2 

0462 

REF 

2 

LAST 

74 

36,2554 

21*154  1 

3AS 

LONGTIME 

0463 

36,2555 

0 0006  1 

EXTEND 

0464 

ref 

1 

36,2556 

3 1433  1 

3CA 

longrase 

5465 

REF 

3 

LAST 

74 

36,2557 

21*154  1 

DAS 

LONGTIME 

0466 

REF 

4 

Last 

74 

36,2560 

11*153  0 

CCS 

longtime 

Find  out  how  this  should  be  restarted 

0467 

REF 

1 

36,2561 

1 2571  1 

TCF 

LONSri.Cl 

0468 

36,2562 

1 256A  0 

TCF 

♦ 2 

0469 

REF 

2 

LAST 

72 

36,2563 

1 2470  1 

ICF 

IMEDIATE  -3 

0470 

REF 

5 

LAST 

74 

36»2564 

11*154  1 

CCS 

longtime  +1 

0471 

REF 

2 

LAST 

74 

36,2565 

1 2571  1 

ICF 

LONGCLCL 

0472 

36,2566 

1 2567  0 

NOOP 

can:t  get  here 

0473 

ref 

3 

LAST 

74 

36,2567 

1 2470  1 

TCF 

IMEDIATE  -3 

REF  4 LAST  7A  36,2570  1 2473  1 TCF  |n1E3IATE 
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0A75 

REF 

1 

06,2571 

3 700? 

1 

LDNGCLCL 

CA 

lgclcadr 

WE  WILL  GO  TO  LONGCALL 

0A76 

REF 

20 

LAST 

7A 

06,2572 

54  734 

0 

T5 

GOLDC  -1 

0A77 

. 0.6*25i3 

0 0006 

1 

EXTEND 

prepare  our  entry  to  LONGCALL 

0A78 

REF 

6 

last 

74 

06,2574 

3 1154 

0 

OCA 

LONGTIME 

0A79 

REF 

21 

LAST 

7i> 

06,2575 

0 0734 

1 

TC 

GOLDC  -1 

0A80 

REF 

3 

LAST 

73 

06,2576 

3 2004 

1 

ITSLNGCL 

CA 

WTLTCADR 

ASSUME  IT  WILL  Go  TO  WAITLIST 

oabi 

REF 

22 

LAST 

75 

06,2577 

54  734 

0 

TS 

GOLDC  -1 

0AB2 

REF 

8 

LAST 

73 

06,2600 

50  145 

1 

NOX 

TEMP2G 

0A83 

REF 

3 

LAST 

73 

06,2601 

4 1114 

0 

CS 

PHSPRDTl 

get  THE  delta  T ADDRESS 

OABA 

REF 

2 

LAST 

74 

06,2602 

1 4073 

0 

TCF 

I TSLGCLl 

NOW  GET  THE  DELTA  TIME 

0A85 

REF 

23 

last 

75 

06,2603 

4 0736  1 

ITSWTLST 

CS 

GoLDC  *1 

CORRECT  THE  BBCON  INFORMATION 

04B6 

REF 

24 

last 

75 

06,2604 

54  736 

1 

TS 

GOLDC  tl 

0Aa7 

REF 

4 

last 

74 

06.2605 

50  146 

1 

VIDX 

Pointer 

Get  tHf  Dt  AND  FIND  OUT  IF  IT  WaS  STDRfD 

0AB8 

ref 

2 

last 

74 

06,2606 

3 2000 

0 

rA 

PRqTtAB 

directly  OR  indirectly 

0A89 

REF 

1 

06,2607 

1 2447 

0 

TCF 

timetest 

FIND  OUT  HOW  THE  TIME  IS  STORED 

OA9O 

REF 

25 

last 

7S 

06,2610 

56  735 

0 

ITSAJ032 

xch 

GOLDC 

STORE  THE  CADR 

0A91 

REF 

2 

last 

7I 

06.2611 

3 2003 

0 

CA 

Fvaccadr 

STORE  TC  FINDVAC. 

OA92 

ref 

26 

last 

75 

06,2612 

54  734 

0 

TS 

GOLDC  -1 

0493 

REF 

5 

last 

75 

06,2613 

50  146 

1 

viDX 

pointer 

ADD  the  priority  AND  LETiS  GO 

0494 

ref 

3 

LAST 

75 

06,2614 

3 2000 

0 

CA 

prdttab 

0495 

REF 

27 

last 

75 

06,26l5 

0 0734 

1 

TC 

GOLDC  -1 

0496 

FIEF 

3 

LAST 

73 

06,2616 

3 0147 

0 

ITSEVEM 

CA 

TeMPsWCH 

set  up  for  either  the  SECOND  PA9T  OF  THE 

0497 

REF 

28 

last 

75 

06,2617 

54  737 

0 

ts 

GOLDC  +2 

TABLE.  OR  A RETURN  FOR  THE  NEXT  GROUP 

049B 

REF 

9 

LAST 

75 

06,2620 

50  146 

1 

NDX 

TEMP2G 

SET  UP  pointer  FOR  OUR  LOCATION  WITHIN 

0499 

ref 

2 

last 

73 

06,2621 

3 2363 

0 

CA 

SUETAB 

The  table 

0500 

REF 

7 

LAST 

73 

06,2622 

6 0144 

0 

AD 

TEMPPHS 

THIS  MAY  LOOK  BAD  BUT  LeT;S  SEE  YOU  00 

0501 

REF 

8 

LAST 

7t> 

06,2623 

6 0144 

0 

AD 

tempphs 

BETTER  IN  TIME  OR  NUMBERR  OF  LOCATIONS 

0502 

REF 

9 

LAST 

75 

06,2624 

6 0144 

0 

AD 

TEMPPHS 

0503 

REF 

6 

LAST 

73 

06,2625 

54  146 

0 

TS 

pointer 

0504 

REF 

1 

06,2626 

1 2527 

1 

TCF 

C0NTRL2 

NOW  PROCESS  WHAT  IS  IN  THE  TABLE 

0505 

REF 

1 

06,2627 

3 6311 

1 

PHSPART2 

CA 

THREF 

SET  the  pointer  FOR  THE  SECOND  HALF  OF 

0506 

REF 

7 

LAST 

75 

06,2630 

26  146 

0 

ADS 

Pointer 

THE  TABLE 

0507 

REF 

5 

LAST 

73 

06,2631 

3 2005 

0 

CA 

RTRNCADR 

THIS  WILL  BE  OUR  LAST  TIME  THRD  )GH  THE 

0508 

REF 

29 

last 

75 

06,2632 

54  737 

0 

TS 

GOLDC  +2 

EVEN  table  . SO  AFTER  IT  GET  The  NEXT 
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A0509 

_____  GROUP  _ ._ 

0510 

REF 

2 

last 

75  36,2633 

1 2527  1 

rCF  C0NTRL2 

SO  let:s  get  the  second  entry  Im  the  tbl 

0511 

REF 

21 

LAST 

71 

0144 

TEMPPHS 

EQUALS  NP^  . 

0512 

REF 

22 

last 

76 

0145 

TEMP2Q 

EQUALS  MPAC  +1 

0513 

REF 

23 

LAST 

76 

0146 

POINTER 

equals  NPAC  +2 

0514 

REF 

LAST. 

76 

0X47 

. lEMPSW-CH 

-QUALS  viPAC  *3 

0515 

REF 

1 

0735 

GOLOC 

equals  \/AC5  +20D 

0516 

REF 

1 

5336 

MINUS2 

equals  NEG2 

0517 

_.REE 

5342 

0CT177  . 

equals  L0W7 

R0518  sETRSTRT  - restart  FlAG  UP  OR  DOWN  DEPENDING  ON  CONTENTS  OF  fRAsAbLE  RSTRTWRD. 


Rfl5?0  CALLI  NG  SECOUFNCE 

A0521 

CAF 

BITX 

USE  BIT  CORRESPONDING  TO  MISS  PHASE  NUM. 

A0522 

rc 

SETRrTRT 

T1523 4105 3L0CiC OZ 


0524 

0525 

REF 

REF 

1 

1 

4105 

4106 

22  002 
I 1127 

0 

0 

SETRSTRT 

LXCH 

*1AS< 

3 

RSTRTWRD 

0526 

4107 

0 0006 

1 

EXTEND 

0527 

4110 

1 4114 

0 

3ZF 

0528 

REF 

1 

4111 

0 6051 

0 

rc 

FLAGiUP 

user 

MISSION 

PHASE 

IS  ReSTARTASlE 

0529 

4112 

04000 

0 

OCT 

04000 

0530 

REF 

3 

LAST 

72 

4113 

0 0001 

0 

TC 

L 

0531 

REF 

1 

4114 

0 6067 

0 

,4 

tc 

FLAGlDWN 

USER 

MISSION 

PHASE 

NOT  RESTARTA3LF 

0532 

4115 

04000 

0 

OCT 

0400fi 

0533 

REF 

4 

LAST 

76 

4116 

0 0001 

0 

TC 

L 
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L 

phase 

TABLE  1 

Maintenance 

USER’S  OWN  PAGE  NO.  1 

P0056 

subrojtine 

TO'  UPDATE 

the  PROGRAM  number  DISPLAY 

ON  IHL  DSKX, 

00569 

4117 

3L0C< 

02 

0057 

REF 

2 

LAST 

75 

_ „ . 4.1 17  _ 

50  0 02  -0. 

NEWMODEX  index 

0 

UPDAT.E  MODREG.  ENTRY  FOR  MODE.  U FIXED. 

0058 

4120 

3 0000  1 

CAF 

0 

0059 

REF 

3 

LAST 

77 

4121 

24  002  0 

INCR 

0 

0060 

REF 

1 

4122 

56  302  0 

NEWMODEA  <CH 

MODRfG 

entry  for  mode  in  a 

0061 

4123 

4 0000  0 

COM 

IF  NO  CHANGE  IN  MODE,  RETURN  IMMEDIATELY 

0062 

REF 

2 

LAST 

7Y 

4124 

6.  0302  0 

AD 

MODREG 

0063 

4125 

0 0006  1 

EXTEND 

006A 

REF 

1 

4126 

1 7020  0 

3ZF 

TCD 

00645 

4127 

3 4132  0 

CAF 

♦ 3 

CALL  pinball  SUBROUTINE 

0065 

ref 

9 

LAST 

60 

4130 

22  006  1 

PREBJUMP  lXcH 

BBANlf 

PUTS  BBANK  IN  L 

0066 

REF 

1 

4131 

1 5230  1 

TCF 

BAN<jUMP 

PUTS  Q INTO  A 

0067 

REF 

1 

4132 

72000  1 

CADR 

SETUPDSP 

R0068 

Return  to 

CALLeR  +3 

IF  Mode  = 

tHAt  At  calLer  +i 

otherwise  Return  to  caller 

0070 

REF 

4 

LAST 

77 

4133 

50  002  0 

CHECKMM  INDEX 

0 

0071 

4134 

4 0000  0 

,'S 

0 

0072 

REF 

3 

LAST 

77 

4135 

6 0302  0 

AD 

MODReG 

0073 

4136 

0 0006  1 

EXTEND 

0074 

ref 

1 

4137 

1 7017  1 

3ZF 

3 + 2 

0075 

REF 

1 

4140 

1 7015  0 

TCF 

3+1 

NO  MATCH 

0078 

REF 

? 

LAST 

77 

7020 

TCQ  = 

3 + 2 .,1 

00781 

35,2000 

3ANK 

35 

00782 

35*2000 

0 0004  0 

setupdsp  inhint 

007824 

ref 

4 

LAsT 

57 

35.2001 

52  071  0 

dxch 

RUPTrEGI 

SAVE  CALLER-s  return  2CAqR 

00783 

ref 

1 

35*2002 

3 5210  1 

CAF 

PRI030 

either  a task  or  job  can  come  to 

00784 

REF 

1 

35,2003 

0 5505  1 

TC 

NOVAr 

NEWMODEX 

00785 

REF 

4 

LAST 

77 

EO 

;BAN<= 

MODReG 

00786 

35,2n04 

02011  0 

^ADR 

DSPMmJOB 

C00786 

REF 

1 

35,2005 

72060  1 

007864 

REF 

5 

LAST 

77 

35,2006 

52  071  0 

DXCH 

RUPTREGI 

00787 

35,2007 

0 0003  1 

RELINT 

00788 

REF 

1 

35,2010 

52  006  0 

DXCH 

z 

RETURN 

007892 

REF 

1 

35,2011 

0 5206  0 

DSPMMJOB  TC 

8AN<rALL 

007894 

1 

35,2012 

13403  1 

CAOR 

OSPMMl 

007896 

REF 

2 

LAST 

71 

35,2013 

1 5567  1 

TCF 

ENDOeUOB 

007898 


AlAl 


3L0C<  02 
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PHASE  TABLE  MAINTENANCE 

USER'S  OWN  PAGE  NO.  2 S3 

P0079 

phaschng  is  t±ie  main  way  uF 

making  phast  changes  -or  r 

fSTARTS.  THfRF  ARFJHReF  ..forms  of  phaschng,  |fNOW_N  AS  TYPE 

Rooei 

A,  ty^e  b,  and  type  c,  they 

are 

ALL  CALLeO  as  FOL.OWS, 

WHeRe  OCT 

XXXXX  contains  THe  phase  information, 

&D0B3 

TC 

PHAirwNG 

A008A 

OCT 

XXXXX 

Rooas 

tYPf  4 IS  cgnceRnfd  with  fixed 

PHASE  CHANofS.  that  IS, 

phase  INFORMATIONTHAT  IS  STORfD  PERMANENTLY.  THeSe 

R0087 

OPTIONS  ARE,  where  G STANioS 

for 

A GROUP  ANo  ,X  FOR  THE 

Phase. 

ROO88 

G.O 

INACTIVE,  WILLNQT  PERMIT  A GROUP__ 

G restart 

R00891 

R0091 

R0093 

G.l 

G.EVEN 

WILL  cause  THE  LAST  DISPLAY  TO  BE 
A DOUBLE  table  RESTART,  CAN  CAUSE 
LONGCALL  TO  BE  RESTARTED. 

REACTIVATED,  USED  MAINLY  IN  MANNED  FLIGHTS 
ANY  COMBINATION  OF  TWO  JOBS,  TASKS,  AmD/OR 

ROO94 

G.ODD  NOT  .1 

A SINGLE  table  RESTART 

, CAN  cause 

either  a JOB,  TASK,  OR  LONGCALL  RESTART 

ROO95 

this  INFoRMatLON  IS__5>I  JNTD 

the  octal  word  after  tc  phaschng  as  zollows 

R0096 

TLO  DDP  PPP 

PPP 

GGG 

ROO99 

Rcioi 

RqIOA 

where  each  letter  or  number 
octal  0 - 127.  0;S  MUST  BE 
T IS  set  to  1,  Otherwise  it 

STANDS  for  a Bit,  th-  g:s  stand  for 
0.  IF  ON?  WISHES  TD  HAVE 

IS  Set  to  0.  simiarly  if  one  wishes 

THe  group,  octal  1 - 7,  the  P;S  FOR  THe  phase, 
the  TBASE  OF  GROUP  G TO  Be  SET  AT  THIS  TIME, 
TO  SET  LONGBASE,  THeN  L IS  SET  TO  1,  DtHeRwISe 

ROIO6 

IT  IS  SET  TO  0,  some  EXAMPLES, 

A0107 

TC 

PHASCHNG. 

JLHIS  WILL  CAUSE  GROUP  3 TOBe  SET  TO  0, 

A0108 

OCT 

00003 

MAKING  GROUP  3 INACTIVE 

A0109 

TC 

PHASCHNG 

IF  A RESTART  OCCURS  THIS  WOULD  CAUSE 

AOllO 

DCT 

00012 

GROUP  2 TO  RESTART  THE  LAST  DISPLAY 

AOlll 

TC 

PHASCHNG 

THIS  SETS  the  TBASE  OF  GROUP  A AND  IN 

AOII2 

A0U3 

A0114 

DCT 

A006A 

CASE  OF  A RESTART  WOULD  START  Js  THE  TWO 
THINGS  LOCATED  IN  THE  DOUBLE  4,s  RESTART 
LOCATION 

AOIIS 

A0116 

A0117 

TC 

OCT 

Phaschng 

20135 

THIS  SETS  LONGBASE  AND  UPON  A RESTART 
CAUSES  5.13  TO  BE  RESTARTED  (SINCE 
LONGBASE  WAS  SET  THIS  SINGLE  ENTRY 

A0118 

A0119 

A0120 

TC 

OCT 

PHASCHNG 

60124 

SHOULD  Be  a LONGCALL) 

SINCE  both  TBASE4  AND  LONGBASE  ARE  SET, 
4,12  SHOULD  CONTAIN  BOTH  A TASK  AMD  A 

AOI2I 

LONGCALL  TO  BE  RESTARTED 

_R0122 

type  c phaschng  contains  tHe 

variable  type  of  phaschng 

INFORMATION.  INSTEAD  OF  THf  INFORMATION  BfING  IN  A 

Ro12A  permanent  form,  one  stores  tHe  Desired'  reSta"rt  information  in  a variabke  location,  the  bits  are  as  follows. 


RQ126 


TLO  lAD  XXX  CJW  GGG 


R0127  where  each  LETTER  OR  NUMBER  STANDS  FOR  A 3lT.  TH=  G:S  STAND  FOR  tHe  GROUP,  OCTAL  1 - 7.  IF  THE  RESTART  IS  TO 

RO 1 2 9 B E B Y waitlist,  W IS  SET  TO  I,  IF  IT  IS  A UOB,  J IS  SET  TO  1.  IF  IT  IS  A LONGCAll,  C _ IS  SET  TO  1.  ONl  Y ONF  OF 

R0131  these  three  bit  S may  be  set,  XjS  are  IGNORED  "l  MUST  Be  1,  AND  0 MUST  Be  0.  AGAIN  T STANDS  FOR  THE  TBASE, 
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PHASE  table  MAINTENAmCE 

USER'S  OWN  page  NO,  3 S3 

R0133 

and  l for  LONGBASf.  the  bits  a and  D ARF  concerned  i^ITH  the  variable  information,  if  D is  Set  to  1 . a priority 

Ro135 

Ro137 

RQ139 

OR  deCita  time  will  Be  Read  from  the  next  location  after  the  octal  information,  if  this  is  to  be  indirect,  that 
IS,  the  name  of  a location  containing  the  information  (Delta  time  only),  then  this  is  given  as  the  -genadr  of 
that  location  which  Contains  the  delta  time,  if  the  old  priority  or  delta  time  is  to  be  used,  that  which  is 

Roul 

RoXA3 

R0145 

already  in  the  VARIA3LE  STORAGE,  THEN  D IS  SET  TO  0.  NEXT  THe  A BIT 
that  would  be  restarted  during  a restart  is  the  NeXT  location  after 

(TC  PHASCHNG)  +2  OR  ♦•S,  DEPENDING  ON  WHETHER  D HAD  BEEN  SET  OR  NOT. 

IS 

the 

IF 

used,  if  it  is  set  to  0,  the  ADoReSS 
PHASE  information,  THAT  IS,  eItHeR 
A IS  Set  to  1,  then  the  addrfss  that 

R0147 

WOULD  Be  restarted  is  the  2CAUR  THAT  IS  READ  FROM  THE  NEXT  TuO  LOCATIONS.  EXAMPLES, 

A£U49 

A_D 

_ __  TC  PHASrJHNG 

THIS  WOULD  CAUSE  LOCATION  AD  +3  TO  BP 

Ao150 

AOlSl 

A0152 

AO+1 

AD+2 

AD*3 

DCT  05023 

OCT  23000 

restarted  BY  Group  three  witha  priority 

of  23.  NOTE  UPON  RETURNING  IT  WOULD 
ALSO  GO  TO  AD+3 

A0153 

AOISA 

ad 

AD+l 

tC  PHASCHNG 

DCT  27AA1 _ 

GROUP  1 WOULD  CAUSE  CAUSE  CaLLCALL  TO 

Be  started  as  a longcall  from  the  time_ 

Ao155 

Ao156 

Ao157 

AD+2 

AD+3 

AD+a 

-GENAOR  OeLtiMe 
zCADR  CALLCALL 

stored  in  longbase  (longbase  was  Set)  by 
A Deltatime  stored  in  deltime,  the 
BBCON  OF  the  zCADR  SH0U_LD  CONTAIN.  THE  E 

Ao158 

A0159 

AD+5 

BANK  OF  DeLTIMe,  PHASCHNG  RetURvS  TO 
LOCATION  AD+5 

Rouo 

Ro162 

ROJtA 

TYPe  31  PHASCHNG  IS  A COMBINATION  OF  VARIABLE  AND  FIXeD  PHASe  CHANGES 

below  and  also  Start  up  one  fixed  restart*  that  is  either  an  g,i  or 
double  entry,  the  bit  information  is  as  Follows, 

, It  will  start  up  a Job  as  indicated 
A G,oDD  or  tHe  first  entry  of  G,eYeN 

R0165 

TLl  DAP  PPP  PPP  GGG 

R0I66 

ROI68 

Ro170 

where  each  Letter  or  number  stands  for  a bit, 
phase  information,  octal  0 - 127,  1 must  Be  1, 
time  stands  only  for  priority  since  this  will 

TH-  GJS  stand  for  tHe  group,  octal  1-7,  the  P!S  For  THe  fixed 
and  again  t etands  for  the  tbase  and  l for  longbase.  d this 
3f  CONSIDeRfD  a job.  and  it  must  Be  givfn  directly  if  given. 

Ro172 

Ro17A 

again  a Stands  for  thie  ad"DReSs  of  tHe  location 
tHe  NeXT  location, (thi£  Return  location  of  phas 

TO  Be  Restarted,  i if 
CHNG)  examples. 

2^ADR  is  given  ♦ OR  o IF  It  1 5 TO  Be 

A0175 

A0I76 

A0177 

aD 

AD+l 

AD+2 

TC  PHASrHNG 

OCT  560A3 

DCT  31000 

tbase  is  set  and  arestart  Cause  group  3 
TO  Start  the  job  ajobajob  with  sriority 
31  and  the  first  entry  of  3.aSP0T(WE  can 

A0178 

A0179 

Aoieo 

AD+3 

AD+A 

AD+5 

2CADR  AJ03AJOB 

assume  it  is  a task  since  we  Set  tbaseb) 

UPON  RETURN  FROM  PHASCHNG  CoNTHrL  WqJLD 
GO  TO  AD+5 

A0181 

A0182 

AD 

AD+i 

iC  PHASCHNG 

dCt  looiE 

UPON  A restart  the  LAST  DISPLAY  WoULO  BE 

restarted  and  a job  with  the  previously 

A0183 

AOI8A 

AD+2 

stored  priority  would  Be  Begun  at  ad+2 
by  Means  of  group  5 

R0185 

SUMMARY  OF  BITS 

R0186 TYPE 


TLO  33P  PPP  PPP  QQQ 
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R0187 

PHASE  table 
type  3 

maintenamce 

TLl  OAF  PPg_PPR  GGG  _ _ _ _ _ 

USER'S  OWN  page 

NO, 

A S3 

R0188 

type  C' 

TLO  lAD  XXX  CJW  GGG 
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P01B9  2PHSC-ING  IS  USE^  WHeN  ONe  WISHES  TO  START  UP  A GRoUP  OR  CHANIfiF  A GROUP  WHILE  UNDER  THf  CONTROL  OF  A PIFFfRfNt 
R0191  GROUP,  FOR  example,  change  THe  PHASE  OF  GROUP  3 WHIILe  THE  PORTION  OF  THe  PROGRAM  IS  UNDER  GROUP  5.  ALL  zPHSCHNG 
R0193  calls  are  made  IN  THE  FOLLOWING  MANNER. 


A019A 

A0195 

A0196 

TC 

OCT 

_.1CJ_  . 

2PHSrHNG 
XXXXX 
YYYY_Y_  . 

R0197 

Ro199 

where  OCT  XXXXX  must  3E 
difference  ■ — Note-  if 

OF  type  a and  OCT  YYYYY  MAY  Be  OF  EITHER 
LONGBASe  is  TO  Be  set  this  information  is 

type  A 
given 

OR  type  B or  TYPeC.  tHeRe  is  one 
IN  the  OCT  YYYYY  INFORMATION.  It  WILL 

R02OI 

BE  Dl 

sregarded  If  given 

WITH 

the  OCT 

XXXXX  INFORMATION, 

, A couple 

of  examples  may  help. 

AQ2Q3 

ad 

tC 

2PHSCHNG 

SET  TBASF3  and  if  A RfStART  OCCURS  START 

A02OA 

AD+1 

OCT 

40083 

THE  TWO  entries  IN  3.8  TABLE  LOCATION 

A0205 

AD+2 

OCT 

05025 

THIS  IS  OF  TYPE  C,  SET  THE  JOB  TO  BE 

A02O6 

AD+3 

OCT 

18000 

TO  Be  LOCATION  AD+4.  WITH  A PRIORITY  18. 

A0207 

AD+4 

FOR  GROUP  5 PHASE  INFORMATION 

_ _ 0209 

AlAl  0 0004 

0_ 

2PHSCHNG 

iNHINT 

THE  ENTRY  FOR  A DOUBLE  PHASF  CjANGf 

0210 

REF 

5 

last 

77 

4142 

50  002 

0 

\|DX 

3 

0211 

4143 

3 0000 

1 

CA 

0 

0212 

REF 

6 

last 

81 

4144 

24  002 

0 

INCR 

3 

0213 

REF 

1 

4145 

54  072 

0 

TS 

IEMPP2 

021A 

REF 

2 

last 

71 

4146 

7 7765 

0 

MASK 

0CT7 

0215 

4147 

6 0000 

1 

DOUBLE 

0216 

REF 

1 

4150 

54  071 

0 

IS 

TEMPr,2 

0217 

REF 

2 

last 

8l 

4151 

3 0072 

1 

CA 

TEMPP2 

0218 

REF 

1 

4152 

7 4241 

0 

MASK 

0CI17770 

NEED  ONLY  1770,  BUT  WHY  GET  A NEW  CONST. 

0219 

4153 

0 0006 

X 

EXTEND 

0220 

REF 

1 

4154 

7 7750 

0 

MP 

BIT17 

0221 

REF 

3 

last 

8l 

4155 

56  072 

1 

XCH 

TEMPP2 

0222 

REF 

1 

• 4156 

7 77A5 

1 

MASK 

BIT15 

0223 

REF 

1 

4157 

54  066 

0 

IS 

TEMPSW2 

indicates  whether  TO  SET  TBASE  OR  NOT 

022A 

REF 

1 

4160 

1 4164 

1 

tcf 

PHASCHNG 

+ 3 

0225 

4161 

0 0004 

0 

PHASCHNG 

INHINT 

0226 

REF 

3 

last 

7^ 

4162 

3 7763 

1 

CA 

ONE 

INDICATESWE  CAME  FROM  A PHASCHNG  ENTRY 

0227 

REF 

2 

last 

8l 

4163 

54  066 

0 

TS 

TEMP4W2 

0228 

ref 

7 

LAST 

8l 

4164 

50  002 

0 

NDX 

3 

0229 

4165 

3 0000 

1 

CA 

0 

0230 

REF 

8 

last 

8l 

4166 

24  002 

0 

INCR 

3 

0231 

ref 

1 

A167 

54  065 

0 

IS 

TEMP5W 

0232 

4170 

0 0006 

1 

EXTEND 
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L 

0233 

PHASE 

REF 

: table 
1 

MAINTENAmCE 

4i7-L 

3 4L7-4- 

-J. 

-3E-A 

A0RPfHN2 

USER'S  OWN  page  no.  6 S3 

OFF  TO  SWITCHED  BANK 

0234 

02345 

ref 

9 

LAST 

71 

4172 

52  006  0 
E3_ 

3TCB 

FBAN<= 

LSTl 

0235 

4173 

02634 

1 

ADRPCHN2 

2CADR 

PHSCMNG2 

C0235 

REF 

1 

4174 

14063 

1 

0236 

REF 

1 

4175 

22  073 

0 

oneort-yo 

lxch 

TEMPrBCN 

0237 

REF 

10 

LAST 

77 

4176 

22  006 

1 

.XCH 

BBANK 

0238 

ref 

2 

LAST 

82 

4177 

JLl  073 

0 

uXCH 

TEMPBBCN 

0239 

REF 

1 

4200 

7 5640 

1 

MAS< 

OCTUOOO 

SEE  WHAT  KIND  OF  PHASE  CHANGE  IT  IS 

0240 

REF 

1 5 

LAST 

74 

4201 

10  000 

0 

CCS 

A 

0241 

REF 

1 

4202 

1 4242 

0 

TCF 

CHECK’S 

IT  IS  OF  type  :b: 

0242- 

REF 

1 

4203 

3 0062 

JL- 

CA 

TFMPP 

0243 

ref 

1 

4204 

7 7755 

0 

MAS< 

BIT? 

0244 

REF 

16 

LAST 

82 

4205 

10  000 

0 

CCS 

A 

SHALL  WE  USE  THE  OLD  PRIORITY 

0245 

REF 

1 

4206 

1 4226 

1 

TCF 

GEJPr_LO 

NO  get  a NEW_pRIORIIY  (OR  DELT4  T) 

0246 

REF 

1 

4207 

50  061 

0 

DLDPRID 

VDX 

TEMPO 

USE  THE  OLD  PRIORITY  (OR  DELTA  T) 

0247 

ref 

4 

LAST 

7-5 

4210 

3 1112 

1 

CA 

PHSPRDTI  -2 

0248 

ref 

1 

4211 

54  070 

1 

rs 

TEMPPR 

0249  ' 

REF 

2 

last 

82 

4212 

3 0062 

0 

CDNl 

CA 

TEMPP 

SEE  IF  A 2CADR  IS  GIVEN 

0250 

ref 

1 

4213 

7 7754 

1 

MAS< 

BIT8 

0251 

REF 

17 

LAST 

82 

4214 

10  000 

0 

CCS 

A 

0252 

REF 

1 

4215 

1 4232 

1 

TCF 

GETNfWNM 

0253 

ref 

9 

LAST 

8l 

4216 

3 0002 

0 

CA 

3 

0254 

ref 

1 

4217 

54  063 

0 

rs 

TEMPWM 

0255 

REF 

5 

LAST 

74 

4220 

3 0006 

1 

CA 

BB 

0256 

ref 

1 

4221 

54  064 

1 

TS 

TEMPrB 

0257 

REF 

1 

4'222 

3 4225 

0 

TDC0N2 

CA 

C0N2ADR 

BACK  TO  SWITCHED  BANK 

0258 

ref 

3 

LAST 

82 

4223 

22  073 

0 

_XCH 

TEMPrBCN 

0259 

4224 

52  006 

0 

3TCB 

0260 

REF 

1 

4225 

02722 

1 

CDN2ADR 

3ENA0R 

C0N2 

0261 

REF 

10 

LAST 

82 

4226 

50  002 

0 

GETPRIO 

>IDX 

3 

D0N:T  care  IF  DIRECT  OR  INDIRECT 

0262 

4227 

3 0000 

1 

CA 

0 

LEAVE  that  Decision  to  restarts 

0263 

REF 

11 

LAST 

82 

4230 

24  002 

0 

INCR 

3 

OBTAIN  RETURN  ADDRESS 

0264 

ref 

1 

4231 

1 4211 

0 

TCF 

CONI  -1 

0264_5 

4232 

0 0006 

1 

GETNEWMM 

FXTFND 

0265 

ref 

12 

LAST 

82 

4233 

5 0002 

0 

INDEX 

3 

0266 

4234 

3 0001 

0 

OCA 

0 

0267 

REF 

2 

LAST 

82 

4235 

52  064 

1 

3XCH 

TEMPmM 

0268 

ref 

2 

LAST 

6l 

4236 

3 7762 

0 

CA 

TrtO 
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0269 

REF 

13 

LASJ 

_ 4237  _ 

26_0J12  1 

ADS 

Q 

QBT-Am  R_EJURN  ADDR£_SS 

0270 

ref 

1 

4240 

1 4222  0 

TCF 

T0CDN2 

0271 

4241 

17770  1 

DCT17770 

OCT 

17770 

0272 

REF 

2 

LAST 

71 

5640 

3CT14O0O 

equals 

PR  I 31 4 

0273 

REF 

1 

7765 

DCT7 

equals 

SEVEN 

027A 

REF 

10 

LAST 

57 

0061 

TEMPG 

equals 

ITEMdI 

0275 

REF 

10 

LAST 

57 

0062 

TEMPP 

equals 

ITEMP2 

0276 

REF 

6 

LAST 

5 7 

0063 

TEMPNM 

equals 

ITEMP3 

0277 

REF 

5 

LAST 

57 

0064 

TEMPBB 

EQUALS 

ITEMP4 

0278 

REF 

5 

LAST 

57 

0065 

tempsw 

equals 

ITEMP5 

0279 

REF 

5 

LAST 

57 

0066 

TEMPSW2 

equals 

ITEMP6 

0280 

REF 

6 

LAST 

77 

0070 

TEMPPr 

equals 

RUPTREGi 

0281 

REF 

3 

LAST 

57 

0071 

TEMPG2 

equals 

RUPTREG2 

0282 

REF 

5 

LAST 

57 

0072 

TEMPP2 

equals 

RUPTREGs 

0283 

REF 

5 

last 

57 

0073 

TEMPBBCN 

equals 

RUPTrEG^j 

0284 

ref 

11 

last 

8 A _ 

0006  _ 

B3 

-EOUAlB., 

0285 

0285_1^ 

REF 

3 

LAST 

73 

06,2634 

E3 

BANK 

EBANiC: 

06 

: PHSNaMEI 

0286 

REF 

4 

LAST 

82 

36,2634 

22  073 

0 

PHSCHN32  LXCH 

TEMPrBCN 

0287 

ref 

2 

LAST 

8l 

D6  »2635 

3 0065 

1 

CA 

TEMPSW 

0288 

REF 

3 

last 

8l 

36,2636 

7 7765 

0 

MASK 

0CT7 

0289 

36,2637 

6 0000 

1 

30UBLE 

0290 

ref 

2 

LAST 

82 

36,2640 

54  061 

1 

TS 

TEMPO, 

0291 

REF 

3 

LAST 

83 

36,2641 

3 0065 

1 

CA 

TEMPSW 

0292 

REF 

2 

LAST 

8l 

36,2642 

7 4241 

0 

MASK 

3CT17770 

0293 

36,2643 

0 0006 

1 

EXTEND 

0294 

REF 

2 

LAST 

8l 

06,2644 

7 7750 

0 

MP 

8IT12 

0295 

ref 

3 

LAST 

82 

36,2645 

54  062 

1 

TS 

TEMPP 

0296 

REF 

4 

LAST 

83 

36,2646 

3 0065 

1 

CA 

tempsw 

0297 

REF 

1 

36,2647 

7 2705 

0 

MASK 

3CT60000 

0298 

REF 

5 

LAST 

83 

36,2650 

56  065 

1 

KCH 

TEMPSW 

0299 

REF 

2 

LAST 

82 

06,2651 

7 5640 

1 

mask 

3CT14000 

0300 

REF 

18 

LAST 

82 

36,2652 

10  000 

0 

CCS 

A 

0301 

REF 

1 

36,2653 

1 4175 

1 

TCF 

3NE3RTW0 

0302 

REF 

4 

LAST 

83 

36,2654 

3 0062 

n 

CA 

TEMPP 

start  STORING  THE  PHASE  INFORMATION 

0303 

REF 

3 

LAST 

83 

36,2655 

50  061 

0 

NDX 

TEMPO, 

0304 

ref 

1 

36,2656 

55*076 

0 

TS 

PHASEl  -2 

0305  3 last  BT 


36.2657  10  066  0 BELOWl  ZQS 


TEMPSW2 


IS  IT  A PHASCHnG  or  A 2PHSCHnG 
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L 

PHASE 

TABLE 

MAINteNAVCE 

USER'S  OWN  page  NO.  8 S3  E3 

0306 

REF  __ 

A.  ..  . 

361^660 

, . rCF 

.8.EL3W.2  _ ... 

_.J.L:_S  A PHASCHNG 

0307 

36,2661 

1 2662 

0 

TCF 

+ 1 

IT:S  a 2PHSCHNG 

OJQfl 

4 I.AST 

Bl 

36.2662 

4 n072 

0 

CS 

TEMPP2 

0309 

REF 

5 LAST 

84 

36,2663 

22  072 

1 

-XCH 

TEMPP2 

0310 

REF 

2 LAST 

8l 

36,2664 

50  071 

1 

VDX 

TEMPG2 

0311 

REF 

1 

36*2665 

33'076 

0 

3XCH. 

. -PilASEl 

0312 

ref 

4 last 

83 

06  * 2666 

10  066 

0 

CCS 

TEMPSW2 

0313 

i6,Z667 

1 2670 

0 

. . VOOP, 

can:t  get  here 

0314 

ref 

2 LAST 

84 

36,2670 

1 2674 

1 

TCF 

BEL3W2 

o.ai5_. 

REE  _ 

3 LAST 

72 

36,2671 

4 0025 

1 

C5 

TlMEl 

0316 

REF 

3 LAST 

8A 

36,2672 

50  071 

1 

MDX 

TEMPG2 

0317 

ref 

2 LAST 

72 

36,2673 

55'  111 

0 

TS 

TBASEl  -2 

0318 

ref 

6 

last 

83 

06,2674 

10  065 

0 

BEL0W2 

CCS 

TEMPsW 

SEE  IF  WE  SHOULD  SET  TBASE  OR  LOnGBAsE 

0319 

REF 

1 

06,2675 

1 2710 

1 

rCF 

8EL0W3 

SET  LONGBASE  ONLY 

0320 

.„ref. 

1. 

36i26i6 

_ 1 2713 

1 

_TCF_  „ 

BELDW4 

SET  neither 

0321 

REF 

4 

LAST 

84 

06,2677 

4 0025 

1 

C5 

TIMfi 

SET  TBASE  TO  BEGIN  WITH 

0322 

ref 

__  4_. 

xast 

83 

O6,2j00 

50  061 

0 

NDX 

TEMPg 

0323 

ref 

3 

LAST 

8A 

06,2701 

55'111 

0 

TS 

TBASfI  -2 

0324 

rEf 

7 

last 

06j_22P2 

3 0065 

1 

CA 

TEMPsW 

shall  we  nPjl  set  LOnGBAsE 

0325 

REF 

1 

06,2703 

6 2706 

1 

AD 

BlTUCOM 

0326 

REF 

19 

LAST 

83 

06,2704 

10  000 

0 

CCS 

A 

0327 

06,2705 

60000 

1 

DCT60000 

XT 

6000n 

<nnnHt  CANT  GET  HERE 

0328 

06,2706 

17777 

0 

BIT14CDM 

OCT 

17777 

CANT  get  here 

0329 

REF 

2 

LAST 

84 

06,2707 

1 2713 

1 

TCF 

BEL0W4 

NO  WE  NEED  ONLY  SET  TBASE 

0330 

06,2710 

0 0006 

1 

BEL0W3 

EXTEND 

SET  LONGBASE 

0331 

REF 

2 

LAST 

7A 

06,2711 

3 0025 

0 

OCA 

TIMEp 

0332 

REF 

2 

LAST 

7A 

06,2712 

53'433 

0 

OXCH 

L0N3RASE 

0333 

REF 

5 

LAST 

83 

06,2713 

4 0062 

1 

BEL0W4 

CS 

TEMPP 

AND  STORE  THE  FINAL  PART  OF  THE  PHASE 

0334 

ref 

5 

LAST 

84 

06,2714 

50  061 

0 

NDX 

TEMPG 

0335 

REF 

2 

LAST 

84 

06,2715 

55'075 

0 

TS 

-PHASEI  -2 

0336 

REF 

lA 

LAST 

83 

06,2716 

3 0002 

0 

CA 

0 

0337 

REF 

5 

LAST 

83 

06,2717 

22  073 

0 

LXCH 

TEMPrBCN 

03375 

06,2720 

0 0003 

1 

RELINT 

0338 

06,2721 

52  006 

0 

OTCB 

0339 

REF 

6 

LAST 

84 

06,27Z2 

22  073 

0 

C3N2 

,XCH 

TEMPrBCN 

0340 

REF 

LAST 

84 

06,2723 

3 0062 

0 

CA 

TEMPd 

0341 

REf 

6 

lAsT 

84 

06,2724 

50  061 

0 

NDX 

TEMPg 

0342 

REF 

2 

LAST 

83 

06,2725 

55'076 

0 

TS 

PHASrl  -2 

03A3  RtF  Z last  BZ 


36,2726  3 0070  0 


A 


TEMPPR 
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L 

PHASE 

TABLE  1 

MAINTENAN 

:e 

USER'S  OWN  PAGE  NO,  9 S3  E3  " 

_ 03M_  ^ 

REF 

7 LAST 

ba 

06,2727 

06 1 Q, 

mDX 

TEMPO 

03A5 

REF 

5 LAST 

82 

06,2730 

55*112  0 

TS 

PH5PRDT1  -2 

03A6 

36,2731 

D 0006  1 

, iXTEND 

03A7 

REF 

3 last 

82 

36,2732 

3 006A  0 

OCA 

TEMPNM 

03A8 

REF 

8 last 

85 

36,2733 

50  061  0 

MDX 

TEMPO 

03A9 

REF 

A last 

83 

36,273A 

5_3'5i5  0 

OXCH 

PHSMAMEI  -2 

0350 

ref 

1 

36,2735 

1 2657  0 

TCF 

SEL3W1 

03505 

A2A2 

3L0C< 

02 

0351 

REF 

3 LAST 

83 

A2A2 

7 7750  0 

CHeCKB 

MAS< 

BITl? 

since  this  is  of  type  B,  this  BIT  SHOULD 

0352 

REF 

20  last 

8A 

A.2Ai_ 

_J0  000  0 

CCS 

A 

BE  HERE  IF  WE  ARE  TO  GFT  A NEW  PRIORITY 

0353 

REF 

2 LAST 

82 

A2AA 

1 A226  1 

TCF 

GETPRiO 

IT  IS,  SO  GET  NEW  PRIORITY 

035A 

REF 

1 

_A2A5 

1_  A207  1 

TCF  _ 

OLDP_r.IO 

JJ.  ISNTT,  USE  THE  OLD  PRIORITY.  

633<(36A 

YUL  SYSTEM  FOR  AGC;  REVISION  O OF  PROGRAM  BURST12D  BY 

NASA  2021106-031 

DEC  7.  1967 

(MAIN) 

PAGE 

86 

L 

PHASE  table  MAINtlNAMCE 

USER'S  OWN  PAGE  NO.  10 

S3 

E3 

P0355 

PROGRAM  DESCRLPUON:  MEwPilASE. 

DATE:  11  RaV  1966  - 

R03565 
R03567 
R0357  _ 

moo:  1 

MOD  by:  corps 

_F UNCTIONAL  DESCRIPTIO'M.; 

ASSEMBLY:  SUNBURST  REV 

LOG  section:  phase  table 

maintenance 

R03571 

R03573 

newphase  is  the  quick  way  to  make  a non 

TBA5E  Op  the  GROuP.  If  TBASE  IS  TO  BE  SET* 

VARIABi'e  phase  change,  it  includes  the  option  of 
-c(TiMEi)  IS  Stored  in  the  tbase  table  as  follows: 

SETTIN 

3 

R03575 

R03576 

R03577 

(L-1)  TBASEO 

(L)  TBASEI  (IF  GR0UP=1) 

„ - - 

R03578 

R03579 

R0358 

(L+2)  TBASE2  (IF  GR0UP=2) 
(L+6)  TrASEA  (IF  gROUP=A) 

R03581 

R03582 

(L  + 7) 

(L+8)  TBASE5  (IF  GROUP=5) 

R0359 

R03592 

IN  ANY  case,  the  NeGATIVe  OF  THe  PHASe*  FOLLOWED  (IN  THe  NeXT 
PHASE  table  as  FOLLOWS: 

REGISTER)  by  the  PHASe* 

IS  stor 

eD  in 

the 

R03593 

R03599 

R03595 

(L)  -PHASEI  (IF  GROUP=l) 

(L+1)  PHASEI 

(L+2J  -PHASE2  (IF  GROUP=2) 

R03596 

R03597 

R03598 

(L+3)  PHASE2 
(L+7)  PHASE4 

R03599 

R0360 

(L+8)  -PHASES  (IF  GROUP=5) 
(L+9)  PHASES 

R03601 

R0361 

calling  SEQUENCE: 

example  is  for  placing  a phase  OF  FIVE 

INTO  GROUP  three: 

R03615 

A0362 

AQ363 

1)  IF  TBASE  is  NOT  TO  BE  SET: 

L-1  CA 

L TC 

Five 

NFWPHASF 

A036A 

L+1  OCT 

00003 

_ RD3j6_^ 

2)  IF  TBASE  IS  TO  BE  SFt: 

A0365 

A0366 

AQ367 

L-1  :s 

L TC 

L+1  OCT 

five 

NEWPhASE 

00003 

R0368 

SUBROUTINES  CALLed:  NONe 

Ro3685 

NORMA.  EXIT  MODE:  AT  L+2  OF  CALLING  SEQUENCE 

RQ369 

alarm  or  abort  EXITS:  NONF 

R03695 

output:  phase  table  ANU  TBASE  table  UPDATED 

Ro370 

erasable  initialization  req.d:  none 
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L phase  table  maintenance  USER'S  OWN  PAGE  No.  U S3  ~E3 


R03705  DEBRIS!  A«L.TEMP_G 


R03706 

»»»WARNING»)t# 

this 

program  is 

TO  be  I 

placed  in  FIKeD-FiXeD  AND  UNSWItCHED  ERASABLE, 

0371 

4246 

3L0C< 

02 

0372 

4246 

0 0004 

0 

newphase  inhint 

0373 

REF 

5 

LAST 

76 

4247 

54  001 

1 

ts 

L 

SAVE  FOR  further  USE 

037A 

ref 

15 

LAST 

8A 

4250 

50  002 

0 

NDX 

3 

obtain  the  group  number 

0375 

4251 

3 0000 

1 

CA 

0 

0376 

REF 

16 

last 

87 

4752 

24  002 

0 

INCR 

3 

OBTAIN  the  Return  address 

0377 

4253 

6 0000 

1 

30UBLE 

SAVE  the  GROUP  IN  A FORM  USfD  FoR 

0378 

REF 

9 

LAST 

85 

4254 

54  061 

1 

TS 

TEMPr, 

INDEXING 

0379 

REF 

6 

LASTL. 

4255 

L0_  001 

1 

CC5___ 

L 

__  __SEE  IF  W£  AR£  jrO  _SET  TBjASE 

0380 

4256 

1 4265 

0 

rcF 

♦7 

NO,  the  Delta  t was  positive 

0381 

4257 

1 4265 

0 

TCF 

♦fa 

0382 

REF 

21 

last 

85 

4260 

24  000 

1 

NJFAZ+10  INCR 

A 

Set  tbase  and  store  phase  correctly 

0383 

REF 

7 

LAST 

87 

A761 

54  001 

1 

TS 

L 

038A 

,REF 

5 

LAST 

8‘* 

4262 

4 0025 

1 

CS 

timet 

SET  tbase 

0385 

REF 

10 

LAST 

87 

4763 

50  061 

0 

NDX 

TEMPr, 

0386 

ref 

4 

last 

8A 

4264 

55*111 

0 

TS 

TBASfI  -7 

0387 

ref 

8 

LAST 

87 

4265 

4 0001 

1 

CS 

L 

now  put  the  phase  in  the  right  table  loc 

0388 

ref 

11 

last 

87 

4266 

50  061 

0 

NDX 

TEMPr, 

0389 

REF 

3 

LAST 

8A 

4267 

53*076 

0 

3XCH 

-PHASEl  -2 

03895 

4270 

0 0003 

1 

RE  LI  NT 

0390  REF-  17  LAST  87  4271  0 0002  0 IC  3 


NOW  RETURN  TO  CALLER 
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L FRESH  start  AnD  RESTART  USER'S  OWN  PAGE  NO.  1 S3 


no  10 

01 .2000 

AANK 

01 

0015 

REF 

10 

LAST 

82 

E3 

£BAN<= 

LSTl 

0020 

_ 0_L*2000 

_ 0 0004 -0 

SlAPl 

INHJ_NT 

fresh  start,  comes  here  from  PLlBALL. 

0025 

REF 

1 

01.2001 

0 2357  1 

rc 

STARtSUB 

Subroutine  does  most  of  the  wor<. 

0030 

REF 

1 

_ 01.2002  1 PQ07  0 

STARTSW 

rCF 

Goa^. 

PATCH  FOR  simulations 

0035 

REF 

1 

01.2003 

3 7746  0 

STARTSIM 

:af 

B1T14 

OOAO 

REF 

3 

LAST 

71 

01.2004 

0 5516  0 

rc 

Finovac 

00A5 

REF 

11 

LAST 

83 

EO 

EBAN<= 

ITEMPl 

0050 

01.2005 

03546  0 

2CADR 

SEG1N206 

C0050 

ref 

1 

01.2006 

72060  1 

0055 

REF 

2 

LAST 

8l 

01.2007 

3 7745  0 

GOON 

CAF 

BlTls 

TURN  OFF  ALL  DSPTAB  +110  LAMPS  ONLY  ON 

ooeo 

ref 

1 

01.2010 

54  326  1 

T5 

DSPTaB  tllD_ 

REQUESTED  FRFSH  START. 

0065 

REF 

2 

LAST 

72 

01.2011 

A 7767  1 

:s 

ZERO 

0066 

ref 

2 

LAsT 

76 

01.2012 

.55 *127  0 

TS 

.RSlRl.WRO 

0067 

REF 

1 

01.2013 

54  055  0 

TS 

THRJaT 

INITIALIZE  THROTTLE  COUNTER. 

0068 

REF 

2 

LAST 

70 

01.2014 

55'345  0 

rs 

0AP3FFDT 

overwrite  in  erasable  LOAD  IF  DESIRED. 

0070 

REF 

1 

01  .2015 

_55*  162  X 

TS^ 

JETRcSET  . . 

property  oF  rcsmonit. 

0075 

rEF 

1 

01.2016 

3 5661  0 

CA 

EBANJK5 

0080 

REF 

9 

LAST 

8 ! 

01.2017 

54  001  i_ 

TS 

L 

0085 

REF 

1 

01.2020 

22  003  1 

1.XCH 

EBANl^ 

0090 

REF 

1 

E5 

£BAN<= 

ABDEI  V 

0095 

REF 

3 

LAST 

88 

01.2021 

3 7767  0 

CA 

ZERO. 

0100 

REF 

2 

LAST 

88 

01.2022 

55*534  0 

TS 

ABDei  V 

FOR  DAP  initialization 

0105 

-REF 

3 

LAST 

88 

01.2023 

55*535  1 

TS 

AbOEI V *1 

oioo_ 

REF 

1 1 

LAST 

R8 

E3 

FBAN<= 

L6T1 

0115 

REF 

2 

LAST 

88 

01.2024 

22  003  1 

lxch 

EBANk 

0120 

ref 

1 

01 .2025 

55*163  0 

TS 

TH1SCH32 

0125 

REf 

1 

01.2026 

54  101  0 

TS 

lmpjfail 

0130 

REF 

1 

01.2027 

54  102  0 

TS 

CH5MASK 

0135 

REF 

1 

01.2030 

54  103  1 

rS 

CH6MASK 

01A5 

REF 

1 

01.2031 

55*356  1 

TS 

RtOOCTR 

0150 

RE_f 

1 

01.2032 

55*360  1 

Ts 

FAll'REQ 

0155 

ref 

2 

LAST 

88 

01.2033 

55*361  0 

rs 

FAICREG  ♦! 

0160 

REF 

3 

LAST 

88 

01.2034 

55*362  0 

TS 

FAILrEG  +2 

0180 

ref 

3 

LAST 

62 

01.2035 

3 7762  0 

CA 

TrtO 

set  up  values  for  DVCnTr.  these  may 

0185 

REF 

1 

01.2036 

55*337  0 

TS 

StARtDVC 

BE  OVERWRITTEN  IN  ERASABLE  LOAO  IF 

0190 

REF 

1 

01.2037 

55*340  0 

TS 

STOPDVC 

ANYBODY  WANTS  TO,  . 

0195 

ref 

1 

01.2040 

3 7743  0 

CA 

POSMAX 

tentatively  load  with  infinity,  may 

0200 

REF 

1 

01.2041 

55*336  1 

TS 

SLOSHCTR 

BE  replaced  via  ERASABLE  LOAD. 
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L FRESH  start  And  restart"  USER'S  OWN  PAGE  NO.  2 S3  ' E3 


0220 

REF 

A 

last 

88 

31 t20A2 

A 7767  _l 

D3FSTART 

C5 

ZERO 

MAKE  ALL  MTIMER/MPHASE  PAIRS  AYalLABLF. 

0225 

0230 

0235 

REF 

REF 

REf 

3 

1 

1 

LAST 

66 

31 .20A3 
31*20AA 
31.20A5 

55*16A  1 
55'165  0 
55 '1.6 6 J3- 

rs 

IS 

_1S 

MTIMpRA 

MTIMFR3 

MTIMPR2 

02A0 

ref 

1 

31 ,20A6 

55*167  1 

IS 

MTIMERI 

02A5 

REF 

1 

31.20A7 

55*170  1 

IS 

MPHASEA 

0250 

RtF 

1 

31 »2050 

55*171  0 

rs 

MPHASE3 

0255 

ref 

1 

31,2051 

55*172  0 

rs 

MPHASE2 

0260 

REF 

1 

31,2052 

55*173  1 

rs 

MPHASEl 

0275 

REF 

A 

LAST 

8l 

31,2053 

A 7763  0 

:s 

ONE 

0280 

REF 

1 

31,205A 

55*1A5  1 

rs 

LMP3HTT 

RO205 

initialize  switch 

RE3ISTER5 

including  DAP3ooLS; 

0290 

REF 

1 

31 ,21355 

J 7761 _o 

:a 

_four.  _ . 

initialize  State  rHRu_STATE_*A  jNLY. 

0295 

REF 

10 

LAST 

88 

31,2056 

5A  001  1 

initsw 

rs 

L 

0300 

REF 

11 

LAST 

89 

31,2057 

50  001  0 

INDEX 

L 

0305 

REF 

1 

31,2060 

3 2576  1 

CA 

SwiNtT 

0310 

REF 

12 

LAST 

89 

31,2061 

50  001  0 

INDEX 

L 

0315 

REF 

8 

LAST 

15 

31,2062 

5A  07A  0 

rs 

state 

■0320 

REF 

13 

LAST 

89 

31,2063 

10  001  1 

CCS 

L 

0325 

REF 

1 

31 ,206A 

1 2056  1 

rcF 

INI  T.SW 

0326 

REF 

1 

31,2065 

55*355  1 

ts 

SMOOf 

0327 

REF 

1 

31,2066 

55*353  1 

rs 

ERESTORE 

0330 

REf 

1 

31,2067 

55*133  0 

rs 

LMPCMD 

reset  LMP  command  AREA. 

0335 

REF 

2 

LAST 

89 

31,2070 

55*13A  1 

ts 

LMPCMO  +1 

03A0 

REF 

3 

LAST 

09 

31,2071 

55*135  0 

rs 

LMPCMD  +2 

03A5 

REF 

A 

LAST 

89 

31,2072 

55*136  0 

rs 

LMPCMD  +3 

0350 

REF 

5 

LAST 

89 

31,2073 

55*137  1 

TS 

LMPCMD  +A 

0355 

REF 

6 

last 

89 

■ 31,207A 

55*1A0  1 

rs 

LMPCmD  +5 

0360 

REF 

7 

LAST 

89 

31,2075 

55*1A1  0 

TS 

LMPCMD  +6 

0365 

REF 

B 

LAST 

89 

31,2076 

55*1A2  0 

rs 

LMPCMD  +7 

0370 

ref 

1 

31 ,2077 

55*1A3  1 

TS 

LMPIN 

0375 

ref 

1 

31,2100 

55*1AA  0 

TS 

LMPOllT 

0380 

31 ,2101 

0 0006  1 

EXTEND 

TURN  THE  RCS  JETS  OFF, 

0385 

31,2102 

01  005  0 

WRITE 

5 

0390 

31,2103 

0 0006  1 

EXTEND 

0395 

31 ,210A 

01  006  0 

WRITE 

6 

OAOO 

REF 

1 

31,2105 

3 2570  1 

CAF 

IM30TNIF 

FRESH  START  IMU  INITIALIZATION. 

0A05 

REF 

1 

31,2106 

5A  365  0 

TS 

IMDOFS30 

OAIO 

REF 

2 

LAST 

7A 

31,2107 

3 7752  0 

CAF 

BITlO 

REMOVE  IMU  FAIL  INHIBIT  IN  5 SECS. 

0A15 

REF 

2 

LAST 

63 

31,2110 

0 5663  1 

rc 

WAITLIST 

0A20 

REF 

12 

LAST 

88 

E3 

EBAN<= 

LSTl 

0A25 

31,2111 

02273  0 

2CA0R 

IFAII  OK 

C0A25 

REF 

1 

31,2112 

26063  0 

633'»36A 

YUL 
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REVISION 
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L 

fresh  start 

AND  restart 

USERtS  OWN  PAGE  NO.  3 S3  E3 

0440 

lIjL2Ii3 

_0_  0006  1- 

EXTEND 

SETTING  T5RUPT  FOR  SEIIDLER  PROGRAM 

0445 

REF 

1 

01*2114 

3 2606  0 

DCA 

SETADR 

THE  SETIDLER  PROGRAM  ASSURES  1 SECOND 

0450 

REF 

2 

LAST 

60 

01,2115 

53*001  0 

DXCH 

T 5 AOd 

DELAY  BEFORE  THE  DAPIDLER  BEGINS. 

0451 

REF 

1 

01,2116 

3 4276  0 

:af 

LN0RMT4 

0452 

REF 

1 

01,2117 

54  346  1 

TS 

T4L0r 

0453 

REF 

1 

01,2120 

3 2554  1 

:a 

ldntmgo 

0454 

ref 

14 

LAST 

Q'i 

01,2121 

54  001  1 

rs 

L 

0455 

ref 

3 

LAST 

88 

01j21Z2 

22  003  1^ 

^XCH 

EBANn 

0456 

REF 

1 

E7 

eban<= 

DNTMROTO 

0457  ■ 

ref 

1 

01,2123 

3 2553  0 

:a 

LDNPmASI 

0458 

REF 

2 

LAST 

90 

01,2124 

55*401  1 

rs 

DNTMOOTO 

0459 

REF 

1 

01,2125 

3 2556  0 

:a 

SETCDULM 

0460 

REF 

1 

01,2126 

55*405  0 

TS 

CDJLMIT 

overwrite  in  erasable  load  IF  desired. 

0461 

REF 

1 

01,2127 

3 2557  1 

CA 

IDNCDUN 

0462 

REF 

1 

01,2130 

55*404  1 

TS 

DNCOUN 

overwrite  in  erasable  load  if  desired. 

0463 

REF 

4 

LAST 

90 

01,2131 

22  003  1 

lXCH 

EBANK 

0464 

REf 

1 3 

LAST 

89 

F3 

fban<= 

I'STl 

0465 

ref 

1 

01,2132 

0 2151  0 

TC 

MR. Cl  EAN 

DEACTIVATE  ALL  RESTART  GROUPS. 

0466 

01,2133 

0 0003  1 

relint 

LET  AN  interrupt  IN, 

0467 

01,2134 

1 2135  0 

NOOP 

046_8 

01,2135 

0 0004  0 

INHINT 

0469 

ref 

1 

01,2136 

0 5270  1 

TC 

lBN<rALL 

0470 

ref 

1 

01 ,2137 

40315  1 

CADR 

ISTENGOF 

0472 

ref 

5 

LAST 

89 

01,2140 

3 7767  0 

PD0H3 

CA 

ZERO 

0475 

REF 

6 

LAST 

77 

01  ,2141 

54  302  1 

IS 

MOOREG 

0480 

REF 

1 

01,2142 

54  764  0 

TS 

phasenum 

0482 

01,2L43 

0 0003  1 

ENDRSTRT 

RELINT 

0485 

REF 

2 

LAST 

77 

01,2144 

0 5206  0 

rc 

BAN<rALL 

DISPLAY  MAJOR  MODE, 

0490 

ref 

1 

01,2145 

12001  0 

CADR 

OSPMM 

0495 

REF 

2 

LAST 

76 

01,2146 

0 6051  0 

IC 

FLAolUP 

TURN  ON  ReSTARTABILITY  FLAG. 

0500 

01,2147 

04000  0 

OCT 

4000 

0505 

REF 

3 

LAST 

63 

01,2150 

1 5600  0 

tcf 

DUMMyJOB  +2 

DONT  ZERO  NEWJOB 

633(j36A 

YUL 

system  for  «gc; 

Revision 

0 OF  PROGRAM  BURST12O  SY 

NASA  2021106-031 

Dec  U 1967  (MAIN)  PAGE  9i 

L 

fresh  start 

ANO  restart 

USER'S  OWN  PAGE  NO,  A S3  E3 

0525 

REF 

1_ 

_li.2I51_ 

3_77_6A_0 

mr.clfan  oaf 

ELEVEN 

_ initialize  phase  tablf,  do  it  this  way 

0530 

REF 

5 

LAST 

20 

01.2152 

5A  120  0 

♦ 1 ts 

BJF 

TO  MINIMIZE  the  TIME  OF  PHASE  TABLE 

0535 

REF 

6 

LASL 

90 

_ ^.2153 

A..7767  1 

2ER0_  . 

DISAGREEMENT. 

05a0 

01 .215A 

22  007  0 

2L 

05A5 

ref 

6 

last 

9l 

01.2155 

50  120  1 

INDEX 

BJF 

0550 

REF 

A 

LAST 

8T 

01.2156 

_J13*Q17_i. 

JXCH 

. -PHAsEI.  -1 

0555 

ref 

7 

LAST 

91 

01.2157 

10  120  0 

CCS 

BUF 

0560 

ref 

22^ 

_LAST 

__ai 

01.P160 

10  000  0 

CCS 

A 

0565 

REF 

2 

LAST 

90 

01.2161 

1 2152  1 

TCP 

MR. CLEAN  *1 

_ 03_7P 

REF 

_L8_ 

LAST 

_al 

01.2162 

0 0002  0 

LC 

3 

b 
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L 

P0600 

fresh 

START  AND  RESTART 

COMES  Here  from  LOCATIOm  aooo. 

USER'S  OWN  PAGE  NO.  5 S3  E3 

GOJAM.  restart  AmY  PROGRAMS  W.HICH  MAY  HAVE  BEEhj  RUnmImQ  AT  THE  TIME. 

0610 

REF 

2 

LAST 

88 

31.2163 

25*356 

0 

G3PR0G  INCR 

REDDCTR 

ANOTHER  RESTART. 

0611 

REF 

19 

LAST 

9l 

31.216A 

22  002 

0 

.XCH 

3 

0612 

REF 

1 

31,2165 

53*775 

1 

3XCH 

RSBBf.O 

SAVE  BBANK  6 Q FOR  RESTART  ANALYSIS. 

0615 

REf 

2 

last 

88 

31,2166 

0 2357 

1 

TC 

STARTSUB 

0620 

REF 

3 

last 

88 

31,2167 

_ 3— 7.745 

.0 

CA 

B1T16 

TEST  THE  OSC  FAIL  BIT  TO  SEE  IF  WF  HAYF 

0622 

31 ,2170 

0 0006 

1 

EXTEND 

HAD  A POWER  TRANSIENT.  IF  SO,  ATTEMPT 

0625 

31 ,2171 

03  033 

1 

WAND 

33 

A restart.  If  not,  check  the  PRESENT 

06^1 

31,2172 

0 0006 

1 

EXTEND 

STATE  OF  AGC  WARNING. 

0630 

ref 

1 

31,2173 

1 2201 

1 

3ZF 

Cightset 

0632 

REF 

2 

last 

88 

31,2174 

- 3 7746 

0 

CA 

_81T14  - 

IF  AGC  WARNING  ON  (BIT  s 0).  DD'  A FRESH 

0635- 

31,2175 

0 0006 

1 

EXTEND 

start  on  the  assumption  that  we*re  in  a 

0637 

31,2176 

02  033 

0 

RAND 

33 

RESTART  LOOP. 

06^0 

31jl2-U7 

_.0  00.06 

1 

EXTE.ND. 

06^2 

ref 

1 

31,2200 

1 2042 

1 

3ZF 

DOFStART 

06«(5 

„ 31,2.2_Q1 

0 0006 

1 

LIGHTSET  EXTEND 

DONT  TRY  TO  RESTART  IF  ERROR 

0650 

31,2202 

00  015 

0 

READ 

15 

AND  MARK  REJECT  BUTTONS  DEPRESSED. 

0655 

REF 

1 

31 ,2203 

6 2565 

0 

AD 

-ELR 

0660 

31,2204 

0 0006 

1 

EXTEND 

0665 

31,2205 

1 2207 

1 

3ZF 

+ 2 

0670 

31,2206 

1 2215 

1 

TCF 

+ 7 

0675 

ref 

1 

31,2207 

3 7757 

0 

CAF 

Bits 

0680 

31,2210 

0 0006 

1 

EXTEND 

0685 

31,2211 

02  016 

1 

RAND 

16 

0690 

REF 

1 

31,2212 

6 2566 

0 

AD 

-M<RcJ 

0695 

31.2213 

0 0006 

1 

EXTEND 

0700 

REF- 

2 

LAST 

92 

31,2214 

1 2042 

1 

3ZF 

DOFSTART 

0705 

REF 

2 

LAST 

89 

31 ,2215 

3 1353 

0 

CA 

ERESTORE 

IF  SELF-CHECK  ERASABLE-MEMORY  TEST  WAS 

0710 

31,2216 

0 0006 

1 

EXTEND 

INTERRUPTED  BY  A RESTART,  DOuBT  ERASABLE 

0715 

31,2217 

1 2221 

0 

3ZF 

+ 2 

AND  DO  A FRESH  START. 

n720 

ref 

3 

LAST 

92 

31,2220 

1 2042 

1 

TCF 

DOFSTART 

0725 

REF 

1 

31,2221 

3 2574 

0 

CA 

9 1 6 1 4 

LEAVE  PROG  ALARM,  GIMBAL  LOCK  5 ND  ATT 

0730 

REF 

2 

last 

88 

01,2222 

7 0326 

1 

MAS< 

DSPTAB  +iiD 

LAMPS  intact  on  RESTART. 

0735 

ref 

A 

LAST 

92 

31,2223 

6 7745 

0 

AD 

BIT15 

07A0 

REF 

3 

LAST 

92 

31  ,2224 

56  326 

0 

XCH 

DSPTAB  +11D 

IF  NO  ATT  lamp  WAS  ON,  LEAVE  IS5  IN 

07A5 

REF 

1 

31  ,2225 

7 7760 

0 

MAS< 

BIT4 

COARSE  ALIGN. 

0750 

31,2226 

0 0006 

1 

EXTEND 

0755 

31,2227 

05  012 

1 

WOR 

12 

0760 

REF 

1 

31,2230 

3 2571 

0 

CAF 

IFAIl'lNH 

LEAVE  IMU  FAILURE  INHIBITS  INTArT  ON 

0765 

REF 

2 

LAST 

89 

31,2231 

7 0365 

0 

MAS< 

IM0DFS30 

RESTART,  resetting  ALL  FAILURE  COOES. 
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0770 

REF 

1 

31*2232 

6 2572 



AD 

IM30INIR 

THE  RECORD  OF  THE  ISS  OPERATE  3tT  IS 

0775 

REF 

3 

last 

92 

31.2233 

5A  365 

0 

TS 

1MDDES30 

ALSO  LEFT  ALONE  (206  ONLY), 

0780 

DJ,*_223A 

0 0006 

1 

..  EXTEND  _ __  __  _ _ 

setting  T5RUPT  FOR  DAPIDLER  PROGRAM 

0785 

REF 

1 

31.2235 

3 260A 

1 

3CA 

IDLEADR 

0790 

REF 

3 

LAST 

90 

31.2236 

53*001 

0 

3XCH 

T5ADr 

0795 

0800 

08115 

REF 

REf 

REF 

1 

2 

1 A 

last 

LAST 

77 

90 

31.2237 

31.22A0 

3 5660  1 

0 5505  1 

E3^ 

:af 

TC 

EBAN<= 

PR  1 337 
NOVAc 

LSTl 

DISPLAY  FAILREG  AS  INDICATION  OF  RESTART 
OR  TO  display  abort  CODE  AS  ABO^/E. 

0810 

31.22A1 

02106 

1 

2CADR 

ooaCarm 

C0810 

ref 

1 

31 ,22A2 

16063 

0 

0815 

REF 

2 

LAST 

9O 

31.22A3 

A 03A6 

1 

:s 

TaL3(- 

SEE  IF  LMP  COMMAND  WAS  SITTING  IN  CH  10 

0820 

REF 

1 

31 .22AA 

6 2561 

1 

AD 

LLMPRS2 

WHEN  RESTART  OCCURRED.  IF  SO,  SfT  BIT  15 

0825 

31.22A5 

0 0006 

1 

EXTEND 

BACK  TO  zero  so  THE  COMMAND  WILL  BE 

O83O 

REF 

1 

31.22A6 

1 „2255 

0 

3ZF 

LMPRiiPT 

RESENT. 

0835 

REF 

2 

last 

89 

31.22A7 

11' 1A5 

1 

CCS 

lmpoiitt 

IF  NOT,  SEE  IF  UPDATE  OF  REFeRENCf 

08A0 

REf 

5 

last 

89 

31.2250 

6 7763 

1 

AD 

DNE 

POINTER  (LMPOLLL)  wAS  IN  rROcESS,  Ip  SO. 

08A5 

REF 

2 

LAST 

89 

31,2251 

55'1AA 

0 

TS 

LMP3UT 

LMPOUTT  IS  NON-NEGATIVE, 

0850 

REF 

6 

LAST 

93 

31.2252 

A 7763 

0 

CS 

ONE 

SHOW  LMPOUT  updated. 

0855 

REF 

3 

LAST 

93 

31,2253 

55* 1A5 

1 

TS 

LMPOUTT 

0860 

REF 

1 

01.225A 

1 2262 

1 

TCF 

TaLOCRST 

0865 

REF 

3 LAST 

93 

31,2255 

„5.1.'_LA^A 

1 

LMPRUPJ 

INDEX 

LMPOilT 

O87O 

REF 

9 

LAST 

89 

31,2256 

A 1133 

0 

CS 

LMPCMD 

0875 

REf 

5 

last 

92 

31,2257 

7 77A5 

1 

MAS< 

BIT15 

0880 

ref 

A 

last 

93 

31.2260 

51' lAA 

J 

INDEX 

LMP3UT 

0885 

REF 

10 

LAST 

93 

31,2261 

27*133 

0 

ADS 

LMPCmD 

0890 

REF 

2 

last 

9O 

31,2262 

3 A276 

0 

TAlOCRST 

cAf 

LnOrmTA 

0895 

ref 

3 

last 

93 

31,2263 

5A  3A6 

1 

TS 

TALOr 

_ 0^96 

REF 

? 

LAST 

92 

31.-226A 

3 7760 

1 

CA 

3IT_a_ 

TURN  throttle  COUNTER  ON.  (IF  EMPTY, 

0897 

31,2265 

0 0006 

1 

EXTEND 

NO  HARM  DONE.  IF  NON-EMPTY,  ASSUME 

0898 

01,2266 

05  OlA 

1 

WOR 

lA 

CONTENTS  ARE  VALID.) 

0900 

REF 

A 

LAST 

85 

31,2287 

3 7750 

1 

CAF 

BlTl? 

TEST  THE  REStARTABILITY  FLAG. 

0905 

REF 

1 

31,2270 

7 0075 

1 

mAS< 

FLAswRDl 

0910 

REF 

?3 

LAST 

91 

31.2271 

10  000 

0 

CCS 

A 

0915 

31,2272 

1 2275 

1 

TCF 

♦3 

RESTARTABLE. 

0920 

REF 

1 

31,2273 

0 5225 

1 

TC 

POST.lUMP 

NOT  RESTARTABLE,  DO  A FAKESTART. 

0925 

REF 

1 

31,227a 

16000 

0 

CADR 

FAAESTRT 

O93O 

31,2275 

0 0003 

1 

G3PR0G2 

RELINT 

0935 

31,2276 

1 2277 

0 

MOOP 

let  an  INTERRUPT  IN 

09A0 

31,2277 

0 OOOA 

0 

INHINT 

09A5 

REF 

1 

31,2300 

3 7766 

1 

CAF 

NUMooPS 

verify  phase  table  agreement. 

0950 

REF 

25 

last 

76 

31,2301 

5A  151 

0 

PCLOOP 

TS 

MPAC  +5 

633^*36* 

YUL 

system  for  agc: 

REVISION 

0 OF  program  BURST123  BY  NASA  2021106-031 
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L 

FRESH  start  . 

And  restart 

USER'S  OWN  page  NO.  7 S3  E3 

095i 

31*2302 

6 OOQO  1 

DOUBLE 

0960 

31 *2303 

0 0006  1 

EXTEND 

0965 

RtF 

29  LAST 

93 

31 *2309 

5 0000  1 

INDEX 

A 

0970 

REF 

5 last 

91 

31*2305 

3_  110_0__1 

_ DCA 

-PHA-;E1 

complement  into  a,  direct  Into 

0975 

31,2306 

0 0006  1 

EXTEND 

0980 

REF 

15  last 

90 

31,2307 

06  001  0 

RXOR 

L 

RESULT  MUST  BE  -0  FOR  AGREEMENT. 

0985 

REF 

25  XAST 

99 

31*2310 

i_0___0_0_0  0 

CCS 

A 

0990 

REF 

1 

31,2311 

1 2397  1 

TCF 

PTBArS 

RESTART  FAILURE. 

0995 

REF 

2 LAST 

99 

31*2312 

1 2397  1 

rcF 

PT3A0 

1000 

REF 

3-  LAST 

99 

31*2313 

1_23«__1 

rcF  _ 

PT0AD 

1005 

REF 

26  last 

93 

31*2319 

10  151  0 

CCS 

MPAC  +5 

PROCESS  ALL  RESTART  GROUPS. 

1010 

ref 

1 . . 

31*2315 

1 2301  0 

TCF 

PCL30P_ 

1015 

REF 

27  LAST 

99 

31*2316 

59  152  0 

TS 

MPAC  +6 

SET  TO  +0. 

1020 

REF 

2 LAST 

93 

31*2317 

3 7766  1 

CAF 

NUMoRPS 

SEE  IF  ANY  GROUPS  RUNNING. 

1025 

REF 

28  LAST 

99 

31*2320 

59  151  0 

NXTRST 

IS 

MPAC  *-5 

1030 

31  *232^1 

6 0000  1 

DOjJBLEL. 

1035 

ref 

26  LAST 

99 

31 *2322 

50  000  1 

INDEX 

A 

l0i*0 

REF 

3 LAST 

89 

31*2323 

ll'lOO  0 

CCS 

PHASpI 

10<i5 

REF 

1 

3J*2.329 

1 2326  0 

TCF 

PACTtVE 

PNZ  - GROUP  ACTIVE. 

1050 

REF 

1 

31*2325 

1 2333  1 

TCF 

PINACT 

♦0  - GROUP  not  Running. 

1055 

REF 

29  last 

99 

31,2326 

59  199  1 

pactive 

TS 

MPAC 

1060 

REF 

30  LAST 

99 

31*2327 

29  199  0 

INCR 

MPAC 

ABS  OF  PHASE. 

1065 

REF 

31  LAST 

99 

31*2330 

29  152  1 

INCR 

MPAC  +6 

indicate  GROUP  demands  present. 

1070 

REF 

1 

31 *2331 

3 2353  0 

CA 

RACTrADR 

GO  TO  RESTARTS  AND  PROCESS  PHASE  INFO, 

1075 

REF 

1 

31*2332 

0 5212  0 

TC 

StYCAl  L 

MUST  RETURN  TO  SWRETUKN. 

1080 

REF 

32  LAST 

99 

31*2333 

10  151  0 

PINACT 

CCS 

MPAC  +5_ 

PROCESS  ALL  RESTART  GROUPS, 

1085 

REF 

1 

31*2339 

1 2320  0 

TCF 

NXTRpT 

IO9O 

REF 

33  last 

31*2335 

. 10  152  0 

CCS 

MPAC  +6 

SEE  IF  ANY  GROUPS  WERE  ACTIVE. 

1095 

ref 

1 

31*2336 

1 2193  1 

TCF 

ENDHsTRT 

YES,  There  were. 

1100 

REF 

31*2337 

0 9755  1 

TC 

alarm 

RESTART  WITH  NO  ACTIVE  GROUPS. 

1105 

31*2390 

OHIO  0 

3CT 

1110 

1110 

REF 

2 LAST 

93 

01*2391 

9 0075  1 

cs 

FLA5wRDL 

WAS  THE  RESTARTABILITY  FLAG  5ETJ 

1115 

ref 

5 LAST 

93 

01*2392 

7 7750  0 

MAS< 

BiTi; 

1120 

ref 

27  last 

99 

31*2393 

10  000  0 

CCS 

A 

1125 

REF 

1 

31 *2399 

1 2607  0 

tCF 

POOH-j 

NO. 

1130 

REF 

6 LAST 

90 

31*2395 

59  302  1 

TS 

MODRfG 

YES.  SET  MAJOR  MODE  TO  00, 

1132 

REF 

2 LAST 

99 

31 *2396 

1 2193  1 

TCF 

ENDRSTRT 

1135 

REF 

2 LAST 

99 

31*2397 

0 9755  1 

PTBAD 

tC 

alarm 

Set  alarm  to  show  phase  table  failure. 

lUO 

31,2350 

01107  0 

3CT 

1107 

1U2 


31  *2351  0 OOO^t  0 


inhint 
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L 

FRESH 

start 

And 

restart 

USER'S  OWN  page  NO,  8 S3  E3 

1U5 

REF 

A _ LAST 

01»2352 

1 2042 

1 

ICF 

DQFSTART  . 

1150 

ref 

1 

01.2353 

14377 

1 

ractcaor 

CAOR 

RESTARTS 

1151 

01.2354 

0 0004 

0 

enema 

INHINT 

HAVING  PRESET  PHASE  REGISTERS,  OO  A 

1152 

REF 

1 

01.2355 

0 2374 

0 

rc 

startsbz 

pseudo-restart.  (THE  REST ART A3 r LI TY 

1153 

REF 

1 

01 ,2356 

1 2275 

1 

TCF 



FLAG  MUST  BE  SET  WHEN  ENEMA  IS  CALLED.) 
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L FRESH  START  AND  RESTART  USER'S  OWN  PAGE  NO.  9 S3  E3 


P1155 

iNiTi ALI7ATI0N  Common  in  both 

FRESH  START  A,N_D  F 

iPST/inT 

1185 

REF 

7 

LAST 

9I 

01.2357 

3 7767 

0 

STARTSJB  CA 

EERO 

1190 

Ol.2iI60 

0 OOOi, 

1 

-XTENID 

, . TURN  THE  JETS  OFF* 

1195 

01.2361 

01  005 

0 

WRITE 

5 

1200 

01.2362 

0 0006 

1 

EXTEND 

1205 

0.1i^3.63  . 

01  OOi) 

0 

WRITE 

6 

1210 

01.236A 

0 0006 

1 

EXTEND 

1215 

0 U2365 

01  012 

0 

WRITE 

12 

TURN  OFF  TRIM  GIMBAL. 

1220 

ref 

2 

last 

88 

01.2366 

3 7783 

0 

CA 

POSMa'X 

1225 

REF 

1 

01.2367 

58  026 

_1 

TS 

TIMEa 

37777  TO  TIME3. 

I23O 

REF 

2 

LAST 

71 

01.2370 

6 5336 

1 

AD 

MINjS2 

1235 

ref 

1 

01.2371 

58  027 

0 

IS 

TIME8 

37775  TO  TIME8, 

12AO 

REF 

1 

_ ..01.t23_T2 

6 7771 

1 

. - AD 

.N£oONE_  „ 

12A5 

ref 

1 

01.2373 

58  030 

0 

TS 

TIMF5 

37778  TO  TIMES. 

1250  ■ 

REF 

8 

LAST 

96 

01,2378 

3 7767 

0 

STARTS32  CAF 

ZERO 

ENTRY  FROM  PoO  AND  FORGeTIT. 

1255 

01 .2375 

0 0006 

1 

EXTEND 

1260 

01.2376 

01  007 

1 

WRITE 

7 

nothing  in  SUNBURST  IS  IN  BANKS  80  - 83. 

1265 

01.2377 

0 0006 

1 

EXTEND 

1270 

01.2800 

01  oil 

0 

WRITE 

11 

1275 

01.2801 

0 0006 

1 

EXTEND 

1280 

01.2802 

01  018 

0 

WRITE 

18 

1285 

REF 

1 

01.2803 

3 2567 

1 

CA 

TRIMr;IMB 

TURN  OFF  ALL  BITS  BUT  TRIM  GIMBaL. 

.1250 

01.2808 

0 0006 

1 

EXTEND 

1295 

01.2805 

03  012 

1 

WAND 

12 

1300 

REF 

1 

01.2806 

3 5653^ 

1 

CAF 

PRI0A8 

ENABLE  interrupts. 

1305 

01.2807 

0 0006 

1 

EXTEND 

1310 

01.2810 

01  013 

1 

WRITE 

13 

1315 

REF 

15 

LAST 

93 

E3 

EBAN<= 

CSTl 

1320 

REF 

1 

01.2811 

3 2568 

1 

CAF 

STARVES 

1325 

REp 

5 

LAST 

90 

01.2812 

58  003 

0 

TS 

ebank 

SET  for  E3 

1330 

REF 

1 

01.2813 

3 7788 

1 

CAF 

NEQiyz 

INITIALIZE  waitlist  DELTA-TS. 

1335 

ref 

16 

LAST 

96 

01.2818 

55*807 

1 

TS 

LSTl  +7 

13A0 

ref 

17 

LAST 

96 

01.2815 

55*806 

0 

TS 

LSTl  +6 

13A5 

REp 

18 

1 AST 

96 

01 »24l6 

55*805 

0 

TS 

1 STl  +5 

1350 

ref 

19 

LAST 

96 

01.2817 

55*808 

1 

TS 

LSTl  *8 

1355 

REF 

20 

last 

96 

01.2820 

55*803 

0 

TS 

LSTl  +3 

1360 

ref 

?1 

LAST 

96 

01.2821 

55*802 

1 

TS 

LSTl  *2 

1365 

ref 

22 

last 

96 

01.2822 

55*801 

1 

TS 

LSTl  +1 

1370 

REF 

23 

LAST 

96 

01.2823 

55*800 

0 

IS 

LSTl 

1375  REF  1 


D1.2424  A 571A  1 


:s 


ENDTaSK 
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L FRESH  start  ANO  RESTART 


USER'S  OWN  page  no.  10  S3  E3 


^ 3_8_0_..  ref 1 

1385  REF  2 LAST  97 

1390  REF  3 LAST  97 

_ 1395 REF  A LAST  9' 

1400  REF  5 LAST  97 

1405  ref  6 LAST  97 

_ I Ai 0 REF  7 LAST  9? 

1415  ref  8 LAST  97 

1420  REF  9 LAST  97 

1425  REF  2 LASTL  9^ 

1430  REF  10  LAST  97 

1435  REF  11  last  97 

_1 4 40  REf  12  I AST  97 

1445  ref  13  LAST 

1450  REF  14  LAST  97 

1455  REF  15  LASIL 

1460  REF  16  LAST  97 

1465  ref  17  LAST  97 

1470  ■ REF_  18__LAST 5J_ 

1475  REF  9 LAST  96 

J480 ref  J 

1485  REF  2 LAST  97 

1490  REF  3 LAST  97 

1495  REF  4 LAST  97 


1500 

REF 

5 

LAST 

97 

1505 

REF 

6 

LAST 

97 

1510 

REF 

7 

last 

97 

1515  REF  1 


1520  REF  1 

1525  REf  1 

1530  REF  1 

1535  ref  1 

1540  REF  - 2 LAST  97 

1545  REF  1 

1550  REF  3 last  97 

1555  REF  1 

1560  REF  4 LAST  97 

1565  REF  1 


01 


2425 


2426 

2427 
2430 


2431 

2432 

2433 


2434 

2435 
24„36 
2437 

2440 

2441 


2442 

2443 

2444 

2445 

2446 

2447 


2450 

2451 


2452 

2453 

2454 


2455 

2456 

2457 


01 


2460 


2461 

2462 

2463 


2464 

2465 
2466' 


01 


2467 

2470 

2471 


2472 


55»410  1 
55*412  0 
55'414  0 
55'416  1 
55*420  1 
55*422  0 
55*424  0 
55*426  1 
55*430  0 
_4_,5715  0 
55*411  0 
55*413  1 
55*415  1 
55*417  0 
55*421  0 
55*A23  1 
55*425  1 
55*427  0 
5S_*431  1 

4 7767  1 
54  157  0 
54  173  0 
54  207  0 
54  223  0 
54  237  0 
54  253  1 
54  267  0 


54  067  1 


3 2562  1 
54  430  1 
6 2563  0 
54  504  1 
6 2563  0 
54  560  0 
6 2563  0 
54  634  1 
6 2563  0 
54  710  0 


TS  L5T2 

TS  LST2  +2 

TS  LST2  +4 

TS  LST2  *6 

TS  LST2  +8D 

TS  LST2  +10D 

TS LST2  *120 

TS  LST2  +14D 

TS  LST2  +160 

CS  ENOTaSK  +1  _ 

TS  LST2  +1 

TS  LST2  +3 

TS  LST2  +5 

IS  LST2  +7 

rS  LST2  +90 

TS  LST2_  +1LD  .. 

TS  LST2  +130 

TS  LST2  +150 

IS_ LST2  +170 __  __  _ 

:s  ZERO'  make  all  executive  register  sets 

tS PRIObITY AVAILABLE. 


TS 

PRIORITY 

+ 120 

TS 

PRIORITY 

+ 240 

TS 

PRIORITY 

♦ 360 

ts 

PRIORITY 

+ 480 

TS 

PRIORITY 

+ 600 

TS 

PRIORITY 

+ 72D 

TS  NE^JOB  SHOWS  NO  ACTIVE  JOBS. 


caf 

VACiaORC 

make  all  vac  areas  available. 

TS 

yaciuse 

AD 

llTHVACA 

IS  VAC2USE 
AD  LiTHVACA 
TS  VAC3U5E 


AD  LTHVACA 
TS  VAC4USE 
AP  LIHVaCA 
TS  V/AC5USE 


1570 

REF 

1 

1575 

REF 

1 

1580 

REF 

34 

LAST 

94 

1585 

ref 

6 

LAST 

94 

1590 

ref 

35 

LAST 

97 

1595 

ref 

4 

LAST 

92 

1600 

REF 

36 

LAST 

97 

1605  REF  1 


01 


01 


2473 


2474 

2475 

2476 


2477 

2500 

2501 


2502 


3 4570  1 
54  350  0 
54  144  1 

4 7750  0 
50  144  0 
54  313  1 
10  144  1 
1 2475  1 


DSPOFF 


CAF  TEN 

IS  DlOFlO 

IS  MPAC 

CS  B1T12 

INDEX  MPAC 

rS  DSPTflB 

CCS  MPAC 

TCF  DSPOfF 


TURN  OFF  ALL  DISPLAY  SYSTEM  RELAYS. 
DISPLAY  INERTIAL  DATA  FLAG. 
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L FRESH  START  AND  RESTART 


USER'S  OWN  PAGE  NO,  11  S3  E3 


1615 

REF 

31 » 25-0-3 

_5A  045 

_1 

ls 

INLImK 

1620 

REF 

1 

01.250a 

54  345 

1 

TS 

DSPCNT 

1625 

REF 

1 

01.2505 

54  327 

0 

rs 

CAORSTOR 

1630 

REf 

1 

01.2506 

54  30A. 

L 

TS 

RE3RET 

1635 

REF 

1 

01.2507 

54  306 

0 

TS 

CLPASS 

16A0 

REF 

1 

01.2510 

54  303 

0 

TS 

DSPLOCK 

16A5 

REF 

1 

01_il5.U 

_5-4_JiJ 

0 

--  TS  __ 

MONSAVE 

KILL  monitor 

1650 

REF 

1 

01,2512 

54  312 

0 

TS 

MONSAVEl 

1655 

REF 

1 

01,2513 

54  330 

0 

TS 

GRA3L0CK 

1660 

REF 

1 

0i.-25iA_ 

-5-4-  27-2 

1 

TS 

. VER3REG 

1665 

REF 

1 

01.2515 

54  273 

0 

TS 

NOJNrEG 

1670 

REF 

1 

01,2516 

54  333 

0 

TS 

ospCist 

1675 

ref 

? 

LAST 

98 

01.2517 

54  334 

JL-. 

IS 

DSPliIST  +1 

1680 

REF 

3 

LAST 

98 

01.2520 

54  335 

0 

TS 

OSPLTST  +2 

1685 

ref 

-1 

01.2521 

54  373 

1 

TS 

MARCaTAT 

1690 

REF 

1 

01.2522 

54  336 

0 

rs 

EXTVrACT 

make  extended  verbs  available 

1695 

ref 

1 

01.2523 

54  367 

1 

TS 

imjcadr 

1700 

REF 

1 

01.2524 

54  370 

1 

rs  - 

dptcadr 

1705 

REF 

1 

01.2525 

54  371 

0 

TS 

RADCADR 

1710 

REF 

1 

01.2526 

54  372 

0 

rs 

ATTCADR 

1720 

REF 

1 

01.2527 

54  356 

0 

TS 

LGYRO 

1725 

REF 

1 

01,2530 

54  347 

0 

rs 

DSRJPTSW 

1730 

REF 

1 

01.2531 

3 7764 

0 

CAF 

NOJTrON 

1735 

REF 

1 

01.2532 

54  307 

1 

TS 

-NDJ-T 

1740 

REF 

7 

LAST 

93 

01,2533 

4 7763 

0 

:s 

ONE 

NO  RADAR  DESIGNATION, 

1745 

REF 

1 

01,2534 

54  413 

0 

rs 

SAMPi  im 

NO  RADAR  RUPTS  EXPECTED, 

I75O 

REF 

1 

01,2535 

3 2573 

1 

CAF 

IM33INIT 

NO  PIP  OR  TM  FAILS, 

1755- 

REf 

1 

01.2536 

54  366 

0 

TS 

IMDOFS33 

1760 

REF 

1 

01.2537 

3 7756 

1 

CAF 

BITS 

SET  LR  POS, 

1765- 

01.2540 

0 0006 

1 

EXTEND 

1770 

01,2541 

02  033 

0 

tand 

33 

1775 

ref 

1 

01.25A2 

6 2575 

1 

AD 

RMOOtNIT 

1780 

ref 

2 

LAST 

6l 

01,2543 

54  412 

1 

TS 

RADMnDES 

1785 

REF 

1 

01,2544 

3 2560 

0 

CAF 

LESCHK 

self  check  go-to  register. 

1790 

ref 

1 

01.2545 

55*354 

0 

TS 

SELFRET 

1795 

ref 

1 

01.2546 

4 4565 

1 

cs 

VDl 

1800 

REF 

1 

01,2547 

54  270 

0 

TS 

DSPCnUNT 

1805 

REF 

1 

01,2550 

3 2555 

0 

CAF 

NOMTMLST 

Set  up  nominal  downlink  list. 

1810 

REF 

1 

01,2551 

54  411 

T 

TS 

DNLStADR 

1815 

REF 

20 

LAST 

92 

01,2552 

0 0002 

0 

TC 

0 

1820 

ref 

1 

01.2553 

02006 

0 

ldnphasi 

3ENA0R 

DNPHASEI 
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fresh  start  and  Restart 


USER'S  OWN  page  NO,  12 


S3  E3 


1830 

REF 

1 

01*2555 

02236  1 

NOMTMLST 

3ENA0R 

NOMONLST 

1832 

01*2556 

01616  1 

SETCDULM 

5EC 

0.05555555 

10  degrees*  scaled  in  half-revs. 

1833 

01*2557 

00306  1 

UNCDUS 

3EC 

198  _ 

199  CDU  SAMPLES  ♦ ONE  ID  = 4 SECS^ 

1835 

REF 

1 

01*2560 

02115  0 

LESCHK 

3ENADR 

SELFrHK 

18A0 

REF 

1 

01*2561 

02013  1 

LLMPRS2 

3ENA0R 

LMPRESET 

18A5 

ref 

2 

LAST 

97 

01*2562 

00430  0 

VACIADRC 

adres 

VACIUSE 

1850 

01*2563 

00054  0 

LlHVACA 

OEC 

44 

1855 

REF 

2A 

LAST 

96 

01  *256A 

01400  1 

STARTE3 

ECAOR 

LSTl 

1860 

REF 

1 

7766  „ 

NJMGRPS 

equals 

Five 

SIX  GROUPS  CURRENTLY, 

1865 

01*2565 

77755  0 

-ELR 

OCT 

-22 

-ERROR  light  reset  KEY  CODE. 

1870 

01*2566 

77757  1 

-1KREJ 

OCT 

-20 

- MARK  REJECT. 

1875 

01*2567 

07400  1 

tRimgivib 

OCT 

0740ri 

TRIM  GIMBAL  drive  BITS  IN  CHANNfL  12. 

1880 

01*2570 

37411  1 

I'IBOINIF 

OCT 

37411 

INHIBITS  IMU  FAIL  FOR  5 SEC  ANO  PIP  ISSW 

1885 

01*2571 

00435  0 

ifailinh 

OCT 

435 

ISS  operate*  6 failure  INHIBIT  3ITS, 

1890 

01*2572 

37000  0 

Hboinir 

OCT 

37055  

leave  fail  INHIBITS  6 OPERATE  A. ONE. 

1895 

01*2573 

16000  0 

I'133IN1T 

OCT 

16005 

NO  PIP  OR  TM  FAIL  SIGNALS. 

1900 

01*2574 

00450  0 

9*6*4 

OCT 

450 

1905 

01*2575 

00102  1 _ 

RHODINIT 

OCT 

ojudp 

1910 

01*2576 

00000  1 

SWINIT 

oCT 

0 

1915 

01*2577 

OOOOO  1 

OCT 

0 

1920 

01*2600 

00005  1 

OCT 

0000*5 

1925 

01*2601 

40512  0 

DAPINIT 

OCT 

40512 

DB  SET  IN  SETIDLE 

_ 1930  . 

01*2602 

OOOOO  1 

OCT 

0 

1935 

ref 

1 

E6 

EBAN<= 

DT 

19A0 

01*2603 

02037  1 

IDLEADR 

2CADR 

OAPIOLER 

C19A0 

ref 

1 

01*2604 

34066  0 

19A5 

REF 

2 

last 

99 

E6 

eban<= 

01 

1950 

01*2605 

03606  1 

SETADR 

2CADR 

SETIOLE 

C1950 

REF 

1 

01 9 2606 

34066  0 

633436A 

YUL  SYSTEM  FOR  AQC: 

REVISION  0 OF  PROGRAM  BURST123  BY  NASA  2021106-031 

DEC  7. 

1967  (MAIN) 

PAGE 

100 

L 

FRESH  START  AND  RESTART 

USER'S  OwM  PACE 

NO,  13 

S3 

E3 

Pl955 

PROGRAM 

TO  REV£RT  JLD- 

LUL-ING  MO.D-L-_U&__00) - _ __  _ - _ 

R1960 

CALLIMG 

SEQUENCE!  T 

:■  (OR  TCP)  POOH  under  EKEC  (NOT  INTERRUPTED). 

1965 

4272  3L0C<  2 

1970 

REF  2 

LAST-  93  _ _ 

427-2 Q_.5225-.l-  POOH  _ IC  POST  lUMP- 

1975 

REF  2 

LAST  94 

4273  02607  1 CAOR  P00H2 

DO  A partial  fresh  START, 

1980 

01*2607 

3AN< 

01 

1985 

1990 

REF 

2 

LAST 

95 

31,2607 

31*2610 

0 0004 
0 2374 

0 PD0H2 
0 

INHiNT 

TC 

STARTSB2 

1995 

ref 

2 

LAST 

90 

31*2611 

0 5270 

1 

TC 

IBN<CALL 

2000 

REF 

1 

31*2612 

40114 

1 

CAOR 

STDPRATE 

2005 

REF 

3 

LAST 

100 

31*2613 

0 5270 

1 

TC 

1BN<CALL 

2010 

REF 

1 

31*2614 

40054 

1 

CADR 

SETMAXDB 

2015 

REF 

2 

last 

7P 

31*2615 

0 6067 

0 

TC 

FLAGIDWN 

FOR  A moment*  INDiCATL  NON-RlSTART- 

2020 

31*2616 

04000 

0 

3CT 

4000 

ability*  sO  a restart  here  will  D3  PDOh, 

2025 

ref 

1 

31*2617 

0 6076 

0 

TC 

FLA3?DWN 

2030 

31*2620 

00020 

0 

DCT 

20 

TURN  OFF  MISSION  TIMER  FLAG. 

2035 

31*2621 

0 0004 

0 

INHINT 

20aO 

REF 

3 

LAST 

9I 

31*2622 

0 2151 

0 

TC 

MR. Cl  EAN 

deactivate  all  Restart  groups. 

2045 

REF 

1 

31*2623 

3 2625 

1 

CA 

LPDDH3 

PICK  up  return  for  mstart. 

2050 

REF 

1 

31*2624 

0 5161 

1 

TC 

MSTART  -1 

start  MISSION  timers  COUNTING. 

A ZQ5 5 WE  Get  a relint  at  mstart. 


2060  rEf  1 


31*2625  02140  0 L?>00H3  ADRES  PqDH3 
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L fresh  start  and  restart  USER'S  OWN  PAGE  NO.  14  ^ S3  £3 


P2065 

fa<estrt 

L5  EJiJERED  FROM  _GOPRO^_w.H.Eil  A__ 

_B£5_TARJ  _0XEUR5  A.nD  THf  RESTArtAB  1 L I T Y FUAQl  IS  OfF, 

2075 

2000 

REF 

3 

07*2000 

LAST  9A  07,2000  0 4755  1 

3AN<  7 

FAKESTRT  TC  ALARM 

2085 

20gQ 

_Ji_ 

07,2001  00316  0 

37,2002 1 2014  1 

OCT  0316  FAKESTRT  ALARM 

JXf E.QR5EI2 

R2095  forgetit  is  entered  from: 

R210O  1)  FAICeSTRT  (VIA  F0RGET2). 


R^2_105 21  VERB  74  JPLINK  COMMAND. 


R2IIO 
R2I2O 
R2125  . 

3) 

4) 

illegal 

engine 

MISSION 

-ailure, 

phase  CqMeS 

ETC. 

3UE  IN 

mission 

scheduling 

routine. 

2130 

07 

,2003 

0 0004 

0 

D0V7A 

inhint 

2131 

REF 

4 

LAST 

100 

07 

,2004 

0 5270 

1 

TC 

IBNKrALL 

2132 

REF 

3 

LAST 

100 

37 

,2005 

.0^374 

0 

CADR 

STARTSB2 

2133 

REF 

2 

LAST 

101 

37 

,2006 

1 2014 

1 

rcF 

FDR3ET2 

BYPASS  THE  PROGRAM  ALARM  6 

315  DISPLAY. 

2135 

37 

,2007 

0 0004 

0 

F3RGETIT 

inhint 

2140 

REF 

5 

LAST 

lOl 

37 

,2010 

0 5270 

1 

TC 

IBNKrALL 

2U5 

•REF 

4 

LAST 

101 

37 

,2011 

02374 

0 

CADR 

STARTSB2 

2150 

REF 

4 

LAST 

101 

37 

,2012 

0 4755 

1 

TC 

alarm 

2155 

37 

,2013 

00315 

0 

DCT 

315 

UNIQUE  alarm  for  FORGETIT. 

2160 

REF 

3 

LAST 

100 

37 

,2014 

0 6067 

0 

F3RGET2 

rc 

FLAoiDWN 

entry  FROM  FAKESTRT. 

2165 

37 

,2015 

04000 

0 

3CT 

0400n 

KNOCK  down  restart  FLAG  TO 

permit  poor. 

2170 

37 

,2016 

0 0004 

0 

inhint 

2.115 

37 

,2017 

0 0006 

1 

EXTEND 

2180 

REF 

1 

37 

,2020 

3 2102 

0 

3CA 

KILLrAD 

2185 

REF 

1 

37 

,2021 

53*075 

0 

3XCH 

DVMNEXIT 

2190 

37 

,2022 

0 0006 

1 

extend 

2195 

REF 

1 

37 

,2023 

3 2100 

1 

3CA 

CADAvER 

2200 

REF 

4 

LAST 

67 

37 

,2024 

53*073 

0 

3XCH 

AvGEXIT 

2205 

ref 

1 

37 

,2025 

3 2076 

1 

CAF 

PlNoSMON 

2207 

ref 

1 

37 

,2026 

55*3A6 

0 

IS 

DLDDVSEL 

2210 

ref 

1 

37 

,2027 

55*310 

0 

rs 

DVSFI  ECT 

2215 

ref 

6 

LAST 

101 

37 

,2030 

0 5270 

1 

TC 

IBNKCALL 

2220 

REF 

1 

31 

.2031 

40263 

1 

CADR 

Enginoff 

2225 

REF 

7 

last 

lol 

37 

,2032 

0 5270 

1 

rc 

IBNKCALL 

2230 

REF 

2 

LAST 

Too 

37 

,2n33 

40114 

1 

CADR 

STDPRATE 

633^t36A 

YUL 

system  for  AGC: 

REVISION 

0 OF  PROGRAM 

BURST120  3Y  NASA  2021106-031 

DEC  7,  1967 

(MAIN)  PAGE 

102 

L 

FRESH  start 

and  restart 

USER*S  OWN  PAoE  no.  15 

S3 

E3 

2232 

j?ef 

8 

LAST  101 

07.2034 

_0  5270 

1 

_ IC  _ 

-XaNXrALU  . 

2233 

REF 

1 

07.2035 

40066 

0 

:adr 

NOJLI  AGE 

2235 

REF 

9 

LAST 

LCL2  . 

i7j.2£L36 

0 527J0_ 

L 

. . rC  _ ^ 

1BN<CALI 

22^(0 

REF 

2 

LAST 

100 

07.2037 

40054 

1 

CADR 

SErMAXDB 

22<t5 

REF 

1 

07.2040 

_ 4_.2Q25 

.0 

:s 

.BGi  MBALS - . 

TURN  OFF  TRIM  GIMBALS 

2250 

07.2041 

0 0006 

1 

extend 

2255 

07,2042 

O3  012 

1 

(JAND 

12 

2280 

REF 

10 

LAST 

9T 

07.2043 

4 7767 

1 

:s 

ZERO 

MAKE  ALL  RESTART  PHASES 

INACTIVE  except 

2285 

07,2044 

22  007 

0 

IL 

SERVICER  AND  STATE  VECTOR  COPY, 

2290 

ref 

1 

07,2045 

5_3JJ^_ 

L. 

OXCH 

-PHA«;E2..  ... 

2295 

REF 

11 

LAST 

102 

07,2046 

A 7767 

1 

:s 

ZERO 

2300 

07,2047 

22  007 

0 

Zl 

2305 

ref 

1 

07.2050 

53*104 

1 

OXCH 

-PHA5E3  __ 

2310 

REF 

12 

LAST 

102 

07,2051 

A 7767 

1 

CS 

ZERO 

2315 

07,2052 

22  007 

0 

ZL 

2320 

ref 

1 

0:7,2053 

53*106 

0 

OXCH  _ 

-PHA5L4 

2321 

ref 

13 

LAST 

102 

07,2054 

A 7767 

1 

CS 

ZERO 

2323 

07,2055 

22  007 

0 

ZL 

2325 

REF 

1 

07.2056 

53*112 

0 

OXCH 

-PHA5E6 

2328 

REF 

14 

last 

102 

07,2057 

A 7767 

1 

CS 

ZERO’ 

2330 

REF 

2 

LAST 

89 

07,2060 

55*173 

1 

TS 

MPHASEl 

SET  TIMER/PHASE  PAIRS  TO 

idle  STATE 

2335 

ref 

2 

LAST 

89 

07,2061 

55*172 

0 

IS 

MPHASE2 

2340 

ref 

2 

last 

89 

07,2062 

55*171 

0 

TS 

MPHA5E3 

2345 

REF 

2 

LAST 

89 

07,2063 

55*170 

1 

rs 

MPHA5EA 

2350 

REF 

4 

LAST 

89 

07,2064 

55* 16A 

1 

TS 

mtimfra 

2355 

REF 

2 

LAST 

89 

07,2065 

55*165 

0 

TS 

MTIMFR3 

2360 

REF 

2 

last 

89 

07,2066 

55*166 

0 

rs 

VITIMER2 

2365 

REF 

2 

LAST 

89 

07,2067 

55*167 

1 

rs 

MTIMERl 

2390 

REF 

3 

last 

100 

07,2070 

0 5725 

1 

rc 

POST  lUMP 

2395 

ref 

2 

LAST 

95 

07,2071 

02275 

0 

caor 

G0PR0G2 

2AOO 

2405 

ref 

A 

last 

101 

07.2072 

07.2073 

0 6067  0 
00041  1 

avegkill 

tC 

OCT 

FLAG! OWN 
00041 

Comes 

knock 

HERE 

DOWN 

when 

POOH 

ENGINE  OFF 

FLAG  AND  AvERAGJG  FLAG 

2420 

REF 

3 

LAST 

77 

07,2074 

1 5567  1 

TCF 

ENDOFJOB 

2A40 

07,2075 

0740JL  1 

Rj'lMRAl  S 

OCT 

7400 

2A45 

2450 

REF 

REF 

1 

LAST 

99 

07,2076 

02237  0 
E3 

PINGSMDN 

5ENADR 

£BAN<= 

pgncEmon 

LSTl 

2A55 

C2A55 

ref 

1 

07,2077 

07,2100 

02324  0 
60063  1 

cadaver 

2CAOR 

SERVpXIT 
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L 

?4^>0 

FRESH  start  and  RESTART 

REF  2b  last  IQZ E3 EBAN<=  LSTI 

USER'S  OWN  page 

NO.  16 

S3  E3 

2465 

C2465 

ref 

07.2101  02072  0 <ILLCAO  2CADR  AVEGi^lLL 

1 07.2102  16063  0 
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L 

T4RUPT 

PROGRAM 

USER'S  OWN  PAGE  NO.  1 S3 

0001 

_ i2,2DXLD__ 

_12 

0002 

RtF 

2 

LAST 

61 

E6 

eban<= 

Mil 

0003 

ref 

1 

12,2000 

54  016  1 

T4RUPT  rs 

bankrupt 

0004 

REF 

15 

LAST 

102 

12,2001 

3 7767  0 

CA 

ZERO 

0005 

12,2002 

0 0006  1 

extend 

ZERO  OUTO  EVERY  T4RUPT. 

0006 

ref 

1 

12,2003 

^L_010  L . 

- /<RIJE 

JUJ_0 

0007 

REF 

4 

last 

93 

12,2004 

50  346  0 

INDEX 

lAlor 

normally  to  N0RMT4,  BUT  TO  LMPRESET  OR 

0008 

. 12,2005 

1 QO_aO  0 

TCF 

0 

DSKYRSET  after  OUTO  COMMANIO. 

0009 

REF 

2 

last 

98 

12,2006 

10  347  0 

N0RMT4  CCS 

DSRJPTSlv 

GOES  7(-l)0, 

0010 

12,2007 

1 2011  1 

TCF 

+ 7 

0011 

REF 

2 

LAST 

83 

12,2010 

3 7765  1 

CAF 

SEVEN 

0012 

REF 

3 

last 

104 

12,2011 

54  347  0 

IS 

DSRJPTSW 

0013 

ref 

2 

LAST 

6l 

12,2012 

1 2030  1 

TCF 

T4RJPTA 

0014 

REF 

3 

LASjl 

93 

12,2013 

^ A2J6_  0 

LMPReSET  CAF 

LN0RMT4 

Do  things  IN  LHIS  ORDeR  FOR  RESTART 

0015 

REF 

5 

LAST 

104 

12,2014 

54  346  1 

rs 

T4L0C 

PROTECTION. 

0016 

REF 

4 

LAST 

93 

12,2015 

3 1145  0 

CA 

LMPOUTT 

NEW  value  of  output  POINTER. 

0017  - 

REF 

5 

LAST 

93 

12,2016 

55»144  0 

_ __  -IS  - 

LMPOllT-  - 

00l8 

REF 

8 

LAST 

98 

12*2017 

4 7763  0 

cs 

ONE 

TO  SHOW  OUTPUT  POINTER  ALREADY  UPDATED. 

0019 

ref 

5 

last 

104 

12,2020 

55«145  1 

TS 

LMPOljTT 

0020 

ref 

1 

12,2021 

3 4274  1 

CAF 

90MRUPT 

0021 

12,2022 

1 2026  0 

TCF 

+ 4 

0022 

REF 

4 

LAST 

104 

12,2023 

3 4276  0 

DSKYRSET  CAF 

LN0RMT4 

20  MS  ON  / 100  MS  OFF. 

0023 

REF 

6 

LAST 

104 

12,2024 

54  346  1 

rs 

T4L0C 

0024 

REF 

1 

12,2025 

3 4275  0 

CAF 

lOOMRUPT 

0025 

ref 

2 

LAST 

96 

12.2026 

54  027  0 

+4  rs 

TIME4 

0026 

REF 

2 

- LAST 

6l 

12,2027 

1 5735  1 

TCF 

NOORSM 

0027 

4274 

3L0C< 

02 

0028 

4274 

37767  0 

90MRUPT  3EC 

1637A 

0029 

4275 

37766  1 

IDOMRJPT  oec 

16374 

0030 

REF 

1 

4276 

02006  0 

LN0RMT4  ADRES 

N0RMT4 

0031 

4277 

74000  1 

74K  oCT 

74000 

R0032 

RELTA3 

IS  A packed 

TA3LE.  REEAYWORD  CODE 

; IN  upper  4 BITS,  relay  code 

R0033 

IN  1 

-0«IER  5 BITS* 

0034 

4300 

OAO25  1 

RELTAB  OCT 

04028 

0035 

4301 

10003  0 

OCT 

10003 

0036 

4302 

14031  0 

OCT 

14031 

0037 

43O3 

20033  0 

OCT 

20033 

0038 

4304 

24017  1 

OCT 

7401  -T 

0039 

4305 

30036  1 

OCT 

30036 

OO^tO 

4306 

34034  1 

OCT 

36034 

0041 

4307 

40023  1 

OCT 

40073 

0042 

4310 

44O35  1 

OCT 

44035 
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1967  (MAIN) 

page  105 

L 

00<»3 

T4RJPT  PROGRAM 

4.3.1 1. 

SflQlX  0 3CT 

50037 

USER'S  OWN  page 

NO.  2 

S3  E6 

0045 

4312 

4313 

54000  0 DCT 

60000  1 RELTABll  OCT 

54000 

60000 
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L TARUPT  program  USER'S  OWN  PAGE  NO.  3 S3  E6 


P0OA6 

switched- 

BANXI  PORTION. 

00S7 

12.2030 

3AN< 

12 

00A8 

12.2030 

0 ^0006 

1 

T4RUPTA 

FXTEND 

00a9 

ref 

1 

12.2031 

22  012 

1 

3XCH 

DRJPT 

0050 

ref 

6 

last 

lOA 

12.2032 

1 

index 

LMPiUX  _ 

SFE  IF  LMP  command  TO  BF  PUT  OJT- 

0051 

ref 

11 

last 

93 

12.2033 

11'  133 

0 

CCS 

lmpcmd 

0052 

ref 

1 

12.203A 

1 2056 

1 

TCF 

CDRYE 

BIT  15  = 1 AND  (UP  TO)  BITS  1 - 11 

0053 

REF 

2 

LAST 

106 

12.2035 

i 2056 

1 

rcF 

CORYE 

CONTAIN  THE  COMMAND. 

005A 

REF 

1 

12,2036 

3 2147 

1 

CAF 

LLMPrS 

SET  T4  for  special  RUPT  AND  SHOW  LMP 

0055 

REF 

7 

last 

lOA 

12,2037  54  346 

1 

TS  „ 

T4iDC  ^ _ 

COMMAND  IN  PROGRESS  IF  RESTART. 

0056 

REF 

1 

12.2040 

3 4563 

0 

CAF 

LOWll 

0057 

REF 

7 

last 

1 06 

12.20<.l 

51  • 144 

1 

INDEX 

LMPaU-IL 

0058 

REF 

12 

LAST 

106 

12.2042 

7 1133 

0 

MAS< 

LMPCMD 

LEAVE  command  PORTION  INTACT. 

0059 

ref 

8 

last 

106 

12.2043 

51' 144 

1 

index 

LMPDiiT 

0060 

REF 

13 

LAST 

106 

12.2044 

55*133 

0 

TS 

LMPCmD 

0061 

ref 

1 

12.2045 

6 4277 

1 

AD 

74< 

0062 

12,2046 

0 0006 

1 

EXTEND 

0063 

REF 

2 

LAST 

lOA 

12,2047 

01  010 

1 

WRITE 

OJTO 

006A 

ref 

9 

last 

106 

12,2050 

11*144 

0 

CCS 

LMPOiiT 

PREDICT  NEW  VALUE  OF  LMPOUT  BUT  D3NT 

0065 

12.2051 

1 2053 

1 

rCLF 

♦2 

update  it  until  command  5ENT  ( I '1  CASE  OP 

0066 

REF 

3 

last 

lOA 

12.2052 

3 7765 

1 

CAF 

seven 

RESTART.) 

0067 

REF 

6 

last 

lOA 

12.2053 

55*145 

1 

IS 

LMPDUTT 

0068 

ref 

1 

12.2054 

3 2150 

1 

CAF 

30MRUPT 

0069 

REF 

1 

12.2055 

1 2133 

0 

ICF 

SETTIME4 

0070 

REF 

5 

LAST 

9? 

12.2056 

10  326 

1 

CORVE 

CCS 

DSPTAB  +llD 

0071 

ref 

i 

12.2057 

0 2066 

0 

IC 

OSPDUT 

0072 

ref 

2 

LAST 

106 

12.2060 

0 2066 

0 

rc 

DSPDUT 

0073 

REF 

6 

LAST 

106 

12.2061 

56  326 

0 

XCH 

dsptab  +11D 

007A 

ref 

2 

LAST 

106 

12,2062 

7 4563 

1 

MASK 

LOwll 

0075 

ref 

7 

LAST 

106 

12.2063 

54  326 

1 

TS 

DSPTAB  +11D 

0076 

ref 

1 

12.2064 

6 4313 

1 

AD 

RELTABll 

0077 

REF 

1 

12.2065 

0 2126 

0 

TC 

osplayc 
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L T^RUPT  program  USER'S  OWN  PAGE  NO,  4 S3  E6 


P0078 

DSPOJT 

PrOGpAM.  PUTS  PUT  DISPLAYS. 

0079 

REF 

2 

LAST 

98 

12*2066 

10  307 

1 

DSPOUT 

CCS 

NOJT 

drive  display  system  relays. 

OOBO 

12*2067 

1 2072 

1 

_tC£ 

_jt3 

0081 

REF 

1 

12*2070 

3 2107 

0 

NODSPOUT 

CAF 

I2OM0UPT 

SET  FOR  RUPT  IN  120  MS  IF  NO  RELAYS. 

0082 

REF 

2 

LAST 

106 

12*2071 

1 2133 

0 

TCF 

SLTT1ME4 

0083 

REF 

3 

LAST 

12*2072 

54  307 

1 

TS 

NOJT 

008A 

REF 

1 6 

LAST 

lOA 

12*2073 

4 7767 

1 

CS 

ZERO 

0085 

REF 

1 

12*2o74 

54  073 

1 

IS 

DSRJPTEM 

SET  TO  -0  for  1ST  PASS  THRU  DSPtAB 

0086 

REF 

2 

LAST 

98 

12*2075 

56  345 

0 

kch 

DSPCNT 

0087 

REF 

1 

12*2076 

6 7770 

0 

AD 

NEGO 

TO  PREVENT  +0 

0088 

REF 

3 

LAST 

107 

12*2077 

54  345 

1 

TS 

ospcnt 

0089 

REF 

A 

LAST 

107 

12*2100 

50  345 

0 

DSPSCAN 

INDEX 

DSPCNT 

OO9O 

REF 

8 

LAST  106 

J.  2 *21 01 

10  313 

1 

CCS 

DSPTAB 

0091 

REF 

5 

LAST 

107 

12*2102 

10  345 

1 

CCS 

OSPCNT 

IF  DSPTAB  ENTRY  +*  SKIP 

0092 

REF 

1 

12*2103 

0 2076 

1 

TC 

DSPSCAN  -2 

IF  DSPCNT  +*  AGAIN 

0093 

REF 

1 

12*2104 

0 2115 

0 

TC 

DSPLAY 

IF  DSPTAB  entry  DISPLAY 

OO9A' 

12*2105 

00012 

1 

tablnth 

OCT 

12 

DEC  10  LENGTH  OF  DSPTAB 

0095 

REF 

2 

LAST 

107 

12*2106 

10  073 

1 

CCS 

DSRJPTEM 

IF  0SRUPTEM=.0*2ND  PASS  THRU  DSPTAB 

0096 

12*2107 

37764 

0 

120MRJ3T 

OEC 

16372 

(DSPCNT  5 0).  *0  INTO  NOUl  . 

0097 

ref 

4 

LAST 

107 

12*2110 

54  307 

1 

TS 

NOJT 

0098 

REF 

1 

12*2111 

1 2070 

0 

TCF 

NODSPOUT 

0099 

REF 

3 

LAST 

107 

12*2112 

54  073 

1 

TS 

DSRJPTEM 

IF  DSRUPTEM=_0.1ST  pass  thru  DSPTAB 

0100 

REF 

1 

12*2113 

3 2105 

1 

CAF 

TABLNTH 

(DSPCNT=0).  +0  INTO  DSRUPTEM,  PASS  AGAIN 

0101 

REF 

2 

LAST 

107 

12*2114 

0 2077 

0 

TC 

DSPSCAN 

0102 

REF 

9 

LAST 

104 

12*2115 

6 7763 

1 

DSPLAY 

ad 

ONE 

0103 

REF 

6 

LAST 

107 

12*2116 

50  345 

0 

INDEX 

DSPCNT 

OlOA 

REF 

9 

LAST 

107 

12,2117 

54  313 

1 

IS 

DSPTAB 

replace  POSITIVELY 

0105 

REF 

3 

LAST 

106 

12*2120 

7 4563 

1 

MAS< 

LOWlT 

REMOVE  BITS  12  TO  15 

0106 

REF 

4 

LAST 

107 

12*2121 

54  073 

1 

TS 

DSRJPTEM 

0107 

REF 

1 

12*2122 

3 4560 

0 

CAF 

HIS 

0108 

REF 

7 

LAST 

107 

12*2123 

50  345 

0 

INDEX 

DSPCnT 

0109 

REF 

1 

12*2124 

7 4300 

1 

MASK 

reltab 

PICK  UP  BITS  12  TO  15  OF  RELTAB  ENTRY 

Olio 

REF- 

5 

LAST 

107 

12*2125 

6 0073 

0 

AD 

DSRJPTEM 

0111 

12*2126 

0 0006 

1 

DSPLAYC 

EXTEND 

0112 

ref 

3 

LAST 

106 

12*2127 

01  010 

1 

iYRITE 

OJTO 

0113 

REF 

1 

12*2130 

3 2146 

0 

CAF 

CDS<vRS 

0114 

REF 

8 

LAST 

106 

12*2131 

54  346 

1 

TS 

T4L3C 

0115 

REF 

1 

12*2132 

3 2151 

0 

CAF 

20MRUPT 

0116  REF  3 LAST  lOA 


12*2133  54  027  0 SETTIME4  TS 


TIME4 


6-?3<t36A  YUL  system  FOR  AGC:  REVISION  0 OF  PROGRAM  BUR5T12D  BY  NASA  2n2UQfe-031 


DEC  71  1967  (MAIN)  PAGE  108 


L 

Pout 

T4RUPT  PROGRAM 

. JUMP  . IP 

.APPADPRIATE 

O.NCf=PER 

SFCDND  (, 

96-&£-C_  I 

ACTJALTY)  ACTIVITY 

USER'S 

OWN  page  no,  5 

S3  E6 

0118 

ref 

4 LAST 

104 

12.2134 

50  347 

1 

T4JUMP 

INDEX 

DSRJPTSW 

0119 

1_2.2135_ 

1-2136 

0 

rCF-..„ 

. ♦l._ . _ 

0120 

REF 

1 

12,2136 

0 3166 

0 

TC 

RCSMONIT 

0121 

REF 

1 . 

12.2137 

. 0_J161. 

1 

_ TC  _ 

-N0.R.7G.MQN.. 

WAS  TCF 

RRAUTCHK  (NO  RADAR 

IN 

?Th)  . 

0122 

REF 

1 

12,2140 

1 2305 

1 

TCF 

IMJMON 

0123 

REF 

1 

12,2141 

1 3161 

0 

ICF 

DAPT4S 

0124 

REF 

2 LAST 

6l 

A2^,2142 

1 5733 

1 

. .TCF 

resume 

0125 

REF 

2 LAST 

108 

12,2143 

0 3161 

1 

TC 

Norrgmon 

WAS  TCF 

RRAUTCHK  (NO  RADAR 

IN 

206)  . 

0126 

REF 

2 LAST 

108 

12,2144 

1 2305 

1 

TCF 

IMJMnN 

0127 

ref 

2 last 

108 

12,2145 

1 3161 

0 

TCF 

DAPT4S  . 

0128 

' REF 

1 

12,2146 

02023 

1 

ldskyrs 

ADRES 

DSCYrSET 

0129 

REF 

2 last 

99 

12.2147 

02013 

1 

LLMPRS 

adres 

LMPRESET 

0130 

12,2150 

37775 

0 

30MRUPT 

DEC 

16381 

0L3Ll„^ 

12.2151 

37776 

0 

20MRIJPT 

-U)1C_ 

163B2 
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L 

P0132 

TARJPT  PROGRAM 

this  ROUTINE  SERVICES  THE  METER  OUTPUTS- 

USER'S  OWN  PAGE 

NO. 

6 

S3 

E6 

R0133  DI0FL3'  INDICATE^  THE  STATE  oF  THE  PROGRAM 

R0134  IF  greater  THA?^  ZERO,  THEN  UNABLE  TO  DISPLAY  DATA 

R0135  IF  equal  to  zero,  THEN  THE  PROGRAM  IS  IN  JSE 


R0136 

IF 

-ESS 

than 

zero. 

THEN  THE  PROGRAM 

IS 

able  to  be 

USED., 

0137 

REF 

L2_*ZL5Z 

_J?  2225 

. ALTOUT 

tC  _ 

DISINDAT 

0138 

REF 

1 

12,2153 

4 7762 

1 

cs 

BIT2 

0139 

12,2154 

0 0006 

1 

EXTEND 

ouo 

12,2155 

03  014 

1 

WAND 

14 

SET  UP  OUTPUT  FOR  ALTITUDE 

OUl 

REF 

1 

12,2156 

10  351 

1 

CCS 

ALT 

-1  IF  OLD  data  TO  BE  EXTRAPOLATED. 

0U2 

12,2157 

1 2163 

0 

TCF 

♦ 4 

NEW  data. 

OUl  • 

12,2160 

1 2163 

0 

TCF 

♦ 3 

01A4 

ref 

1 

12,2161 

1 2167 

1 

TCF 

DLDOaTA 

0145 

REF 

7 

LAST 

109 

12,2162 

54  351 

1 

TS 

Alt 

CHANGE  -0  IN  ALT  TO  *0. 

0146 

REF 

10 

LAST 

107 

12,2163 

A 7763 

0 

CS 

ONE 

reset  ALTSAVE. 

0147 

ref 

3 

LAST 

109 

12,2164 

52  352 

1 

OXCH 

alt 

0148 

REp 

1 

12,2165 

52  364 

1 

Z0ATA2 

OXCH 

A{  TSavE 

0149 

REF 

1 

12,2166 

1 2207 

1 

TCF 

NEWDATA 

0150 

'REF 

1 

12,2167 

3 0353 

1 

OLDDATA 

CA 

ALTRATE 

USE  altrate  to  extrapolate. 

0151 

12,2170 

0 0006 

1 

EXTEND 

0152 

ref 

1 

12,2171 

7 2302 

0 

MP 

ARTOA 

RATE  APPLIES  FOR  .96  SEC. 

0153 

REF 

2 

LAST 

109 

12,2172 

6 0364 

0 

AD 

ALTSaVE  ♦! 

OlSA 

REF 

3 

LAST 

109 

12,2173 

54  364 

1 

TS 

ALTSAVE  +1 

AND  maybe  skip. 

0155 

REF 

17 

LAST 

107 

12,2174 

3 7767 

0 

CAF 

ZERO 

0156 

REF 

4 

LAST 

109 

12,2175 

26  363 

0 

ADS 

ALTSAVE 

0157 

REF 

3 

LAST 

96 

12,2176 

3 7743 

0 

CAF 

POSMaX 

Force  sign  agreement  assuming  a.tsave  is 

0158 

ref 

11 

last 

109 

12,2177 

6 7763 

1 

Ad 

ONE 

NOT  negative.  If  it  IS,  the  FiNAl  TS 

0159 

REF 

5 

last 

109 

12,2200 

6 0364 

0 

AD 

ALTSAVE  +1 

WILL  NOT  SKIP  AND  WE  CAN  SET  ALTSAVE  TO 

0160 

REF 

6 

LAST 

109 

12,2201 

54  364 

1 

TS 

ALTSAVE  +1 

ZERO  IN  THAT  CASE, 

0161 

REF 

18 

LAST 

109 

12,2202 

3 7767 

0 

CAF 

ZERO 

0162 

REF 

4 

LAST 

109 

12,2203 

6 7743 

0 

AD 

POSMAX 

0163 

ref 

7 

LAST 

109 

12,2204 

6 0363 

1 

AD 

ALTSAVE 

0164 

REF 

8 

LAST 

109 

12.2205 

54  363 

0 

TS 

ALTSaVE 

0U5 

REF 

1 

12,2206 

1 2277 

0 

TCF 

ZERODATA 

ALTSAVE  negative  - SET  TO  ZERO, 

0166 

ref 

9 

LAST 

109 

12,2207 

10  363 

0 

NEWDATA 

CCS 

ALTSaVE 

MAKE  UP  15  tJiT  UNSIGNED  OUTPUT. 

0167 

REf 

6 

last 

93 

12,2210 

3 7745 

0 

cAf 

BIT15 

major  part  +1  OR  +0. 

0168 

REF 

10 

LAST 

109 

12,2211 

6 0364 

0 

AD 

ALTSAVE  +1 

0169 

REF 

1 

12,2212 

54  060 

0 

METEROJT 

TS 

ALTM 

0170 

REF 

1 

12,2213 

3 2303 

0 

CAF 

BITSET 

0171 

12,2214 

0 0006 

1 

EXTEND 

0172 

12,2215 

05  014 

1 

WOR 

14 

0173 

REF 

1 

12,2216 

1 2276 

1 

TCF 

OONEnID 
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L tarupt  Program  user's  own  page  no.  7 S3  e6 


01-74 

REF 

2 

last  109 

iz%zzu_ 

-0  _2225- 

0 

ALTROUT  rC 

_DLS-LmDAI-  -- 

0175 

REF 

2 

last 

109 

12.2220 

3 7762 

0 

:af 

3IT2 

0176 

12.2221 

0 0006 

1 

EXTEND 

0177 

12.2222 

05  014 

1. 

- -ilO_R-  . 

_14 - 

SET  UP  OUTPUT  P0R_ALT.  RATE 

0178 

REF 

2 

LAST 

109 

12.2223 

3 0353 

1 

CA 

ALTRaTE 

0179 

REF 

1 

12.2224 

1 2212 

0 

rcF 

METEROUT 

0180 

REF 

2 

LAST 

9f 

12.2225 

10  350 

0 

DISINDAT  CCS 

DIDFi'G 

OlBl 

REF 

1 

12.2226 

1 2273 

1 

TCF 

alldone 

NOTE  that  this  SHOULD  ALWAYS  GO  TO 

A0182 

ALLDONE  AND -liOj:  DONEDID  SXNCL  HE. 

A0183 

AVAILABILITY  OP  DATA  MAY  DISAP==AR  WHILE 

A0l84 

THE  ASTRONAUT  HAS  THE  BUTTON  DOa/N. 

0185 

12_»_2227__ 

1 2230 

0 

NOOP 

0l86 

REF 

2 

LAST 

98 

12.2230 

3 7756 

1 

CAF 

3IT6 

0187 

12.2231 

0 0006 

1 

EXTEND 

0188 

_ „X2.2232 

02  030 

0 

^AND 

30 

CHECK  DISPLAY_JN£RTIAL  DATA  BIT 

0189 

REF 

28 

LAST 

94 

12.2233 

10  000 

0 

CCS 

A 

OI9O 

REF 

2 

LAST 

110 

12.2234 

1 2273 

1 

TCF 

ALLDnNE 

0191 

REF 

3 

LAST  11° 

- 12j2235 

10  350 

0 

CCS 

DIDFI  G 

0192 

12.2236 

1 2237 

1 

NOOP 

0193 

REF 

1 

12.2237 

1 2260 

0 

TCF 

GOAGN 

0194 

REF 

2 

LAST 

82 

12.2240 

3 7754 

0 

FIRSTIME  CAF 

BITS 

0195 

12.2241 

0 0006 

1 

EXTEND 

0196 

12.2242 

05  012 

1 

NOR 

12 

enable  display  INERTIAL  DATA 

0197 

REF 

19 

last 

109 

12.2243 

3 7767 

0 

CAF 

ZERO 

0198 

REF 

4 

LAST 

110 

12.2244 

54  350 

0 

TS 

DIDFI  G 

0199 

REF 

1 

12.2245 

54  362 

1 

TS 

LASTyCMD 

0200 

REF 

1 

14.2246 

54  361 

1 

TS 

lastycmd 

0201 

REF 

1 

12.2247 

3 6306 

1 

CAF 

SIX 

0202 

REF 

3 

last 

89 

12.2250 

0 5663 

1 

TC 

NAITI  1ST 

0203 

REF 

3 

LAST 

104 

E6 

EBAN<= 

Mil 

0204 

12.2251 

02254 

0 

2CADR 

INTL7E 

C0204 

ref 

1 

12,2252 

24066 

1 

0205 

REF 

2 

LAST 

109 

12.225'3 

0 2276 

0 

TC 

DONEDID 

0206 

REF 

-3 

LAST 

110 

12.2254 

3 7762 

0 

HTLZE  CAF 

BlTz 

0207 

12.2255 

0 0006 

1 

EXTEND 

0208 

12.2256 

05  012 

1 

NOR 

12 

ENABLE  RR  ERROR  COUNTER 

0209  ref 

1 

12.2257 

0 5727 

0 

TC 

TAS<nVER 

0210 

REF 

2 

LAST 

110 

12.2260 

4 0362 

1 

GOAGN  CS 

LASTXCMD 

0211 

ref 

_ i. 

12.2261 

6 0357 

0 

AD 

FQRv/El 

0212 

REF 

1 

12.2262 

5^  054 

1 

TS 

OPTXCMD 

0213 

REF 

2 

LAST 

110 

12.2263 

3 0357 

0 

CA 

FORl/EL 

02  L4 

REF 

-i 

LAST 

110 

12.2264 

54  362 

1 

TS 

LASTXCMD 

0215 

REF 

2 

LAST 

110 

12.2265 

4 0361 

1 

CS 

LASTYCMD 

0216 

REF 

1 

12.2266 

6 0360 

1 

AD 

LATYEL 

0217 

REF 

1 

12.2267 

54  053 

0 

TS 

OPTYrMD 

0218 

REF 

2 

LAST 

no 

12.2270 

3 0360 

1 

CA 

LATi/FL 

633436A 

YUL 

system  for  agc: 

REVISION 

0 OF  program  BURST12D  8Y 

NASA  2021106-031 

DEC  7,  1967 

(MAIN) 

PAGE  111 

L 

0219 

tarjpt  program 

REF  3 LASJL_LLP 

1.2jl2271  _54  1 

_LS 

iASTvCMD 

USER'S  OInN  page  no. 

B 

S3  E6 

0220 

REF 

21  last  98 

12.2272 

0 0002  0 

TC 

3 

0221 

REF 

1 

L2.^273 

_4  . 23.04  0 

ALLOON.E 

ES 

__D_LORfS£T . 

R£LMOVE_eiSPLAY  INERTIAL 

DATA  ANO 

eCtr. 

0222 

12,2274 

0 0006  1 

extend 

0223 

12.2275 

03  012  1 

aIANO 

12 

RESET  RR  error  COUNTER 

022A 

REF 

3 LAST  108 

12,2276 

5JJ3  .1 

DONEOn 

TCF„ 

resjme 

»»  FIX  LATER## 

0225 

REF 

20  LAST  110 

12,2277 

3 7767  0 

ZERODATA 

:AF 

ZERO' 

0226 

REF 

16  LAsT  9A 

12,2300 

54  001  1 

rs 

L_.  

0227 

REF 

1 

12,2301 

1 2165  0 

TCF 

ZDATa2 

0228 

12,2302 

064_32_  1 

ARTOA 

3EC 

-.2.0469 

ALT  DUE  TO  ALTRATE  FOR 

,96  SEC. 

0229 

12,2303 

06004  0 

BITSET 

3CT 

6004 

0230 

__  12^2304 

00202  1 

DIORESET 

OCT 

202 

633A36A 

YUL  system  FOR  AGC:  revision  0 OF  PROGRAM  BURST120  BY  NASA  2n21106' 

-031  DEC  7, 

1967 

(MAIN) 

PAGE  112 

L 

tarjpt  program 

USER'S  OWN  page 

NO. 

9 

S3  E6 

P0231 

R0232 

R023A 

PROGRAM  _NAMEJ I MUMP  V _ _ _ 

functional  description,;  this  program  is  entered  -Very  a8o  ms.  it  Detects  changes  of  the  imu  status  bits 
channel  30  AND  Calls  tHf  appRodriatf  suhroutines.  thf  rIts  dRocfssfD  and  thfir  rfLfuAut  surRoutinfs  art. 

IN 

R0236 

R0237 

functiun  bit  subroutine  called 

R0238 

R0239 

R0240 

TEMP  in  limits  15  TLIM 

ISS  TJRN-ON  request  1A  iturnon 

IMU  fail  13  IMJFAIL  (SFTISSW) 

R02A1 

R02A2 

R0243 

IMU  CDU  fail  12  ICOUFAIL  (SETISS(<) 

imu  case  11  IMJCAGE 

IMU  operate  9 IMJOP 

R02AA 

R02A6 

the  last  SAM,RLeD  state  of  these  Bits  is  left  in  IMooESso.  also,  each  subroutine  called  finds 
VALUf  of  thf  bit  in  a.  WItH  0 Si-T  TO  thf  PROPfR  Rftjrn  locatton.  nxtifail. 

THf 

NEW 

R02a8 

calling  sequence;  TA^UPT  every  480  MILLISECONDS. 

R02A9 

JOBS  BR  tasks  INITIATED:  NONE. 

R0250 

SUBROUTINES  CALLED;  TLIM,  ITURNON,  SEIISSW,  IMUCaOe,  iMJpP. 

R0251 

R0252’ 

erasable  initialization: 

fresh  Start  or  restart  with  no  groups  active;  CdMonESso) 

= OCT  37411.  

R025A 

R0256 

RESTART  WITH  active  GROUPS;  C(IM0DES30i  = ( B ( I MODES3O) AND ( OCT  00035))  PLUS  OCT 

THIS  LEAVES  iMj  FAIL  BItS  INTACT. 

37400 

• 

R0257 

ALARMS)  NONE. 

R0258 

EXIT!  TNONTEST* 

R0259 

OUTPUT;  updated  IMOOES30  WITH  CHANGES  PROCESSED  3Y  APPROPRIATE  SUBROUTINE. 

0269 

0270 

0271 

REF  4 LAST  93  12,2305  3 0365  1 I MUMON  CA  IM00ES30 

12.2306  0 0006  1 EXTEND 

12.2307  06  030  1 RXOR  30 

SEE  IF  there  has 
relevant  bits  OF 

been 

CHAN 

A CHANGE 
30. 

IN 

THE 

0272 

0273 
027A 

REF  1 12,2310  7 3025  1 MASK  30R0MSK 

12,2311  0 0006  1 extend 

ref  1 12,2312  1 2342  1 3ZF  TNONtEST 

NO  CHANGE  IN  STATUS. 

0275 

0276 

REF  7 LAST  83  12,23l3  54  070  1 TS  RUPTREGl 

REf  5 LAST  112  12,2314  22  365  1 LXCH  1M00FS30 

SAVE  BITS  WHICH 
update  IM0DES30. 

HAVE 

CHANGED. 

0277 

0278 

0279 

12,2315  0 0006  1 EXTEND 

REF  17  LAST  111  12,2316  06  001  0 RXOR  L 

REF  6 LAST  112  12,2317  54  365  0 TS  IMOOFS30 

0280 

_028_l_ 

0282 


ref  12  LAST  109 
REF  8 LAST  112 


12,2320 

12*2321 


A 7763  0 
56  070  0 


CS 

XCH 


ome 

RUPTREGl 


12,2322  0 0006  1 


EXTEi'^D 
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L 

0283 

tarupt 

REF  1 

PROGRAM 

12,23.23 6 26LA^ 

3ZMF 

TLIM 

USER'S  OWN  page  no.  10  S3  E6 

CHANGE  IN  IMU  TEMP. 

028A 

REF 

1 

12,232A 

1 2326 

0 

TCF 

NXTIEBIT 

BEGIN  BIT  SCAN. 

0285 

REF 

13 

last 

112 

12,2325 

6 7763 

_L._ 

-L 

AD 



(RE-ENTERS  HERE  FROM  NXTIFAIL.) 

0286 

REf 

9 

last 

112 

12,2326 

2A  070 

0 

nxtifbit 

INCR 

RJPTREGI 

Advance  bit  position  number. 

0287 

12,2327 

6 0000 

1 

+ 1 

DOUBLE 

0288 

REF 

29 

LAST 

110 

12,2330 

5A  000 

0 

IS 

A 

SKIP  IF  OVERFLOW. 

0289 

REF 

2 

last 

113 

12,2331 

1 2326 

0 

TCF 

NXTIEBIT 

LOOK  FOR  BIT. 

029° 

REF 

..A 

LAST 

a3__ 

12,2332 

_56  071 

1 

<CH 

RJPTREG2 

SAVE  OVERFLOW-CORRECTED  DATA. 

0291 

REf 

10 

last 

113 

12,2333 

50  070 

0 

index 

RUPTrEGI 

select  NEW  value  Of  This  bit. 

0292 

ref 

3 

LAST 

92 

12,233a 

3 77A6 

0 

:af 

3IT1A 

029Jl 

REF 

7 

LAST 

112 

12,2335 

7 0365 

0 

MASK 

IM00FS30 

029A  • 

REF 

11 

LAST 

113 

12,2336 

50  070 

0 

INDEX 

RUPTREGI 

0295 

REF 

1 

12,2337 

0 3021 

1 

TC 

IFAILJMP 

0296 

REF 

5 

LAST 

113 

12,23A0 

10  071 

0 

nxtifail 

CCS 

RUPTREG2 

process  any  additional  changes. 

0297 

REf 

3 

last 

113 

12,23A1 

1 2325 

0 

TCF 

NxTIFBIT  -1 
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L TaRUPT  PROGRAM  USER'S  OWN  PAGE  NO.  11  S3  E6 

, P n?QR  PRnSi^AM  NAMF!  TNONTEST. 

R0299  functional  Description:  this  program  honors  requests  for  isa  initialization,  iss  turn-on  (channel  30  31T  ui 

RO301  and  iss  operate  (CHANNEL  30  BIT  q)  REQUESTS  ARE  TREATED  AS  A PAIR  AND  PROCESSING  TAKES  PLACE  .4RQ  SfCONtS  

R0303  after  EItHeR  ONE  APPEARS,  THIS  INITIALIZATION  TACES  ON  ONe  QF  THF  FOLLOWING  THRee  FORMS: 

R03_05._  1)  ISS  tURN.QN;  in  THIS  SITUATION  T HE  COMPUTER  IS  OPERATING  WHfN  tHf  ISS  IS  TURNED  ON.  NOMINALLY. 

R0307  both  ISS  TURN-ON  AND  ISS  OpERATE  AppEAR,  THE  piTatFoRM  IS  CAGED  FOR  90  SECONDS  AND  THE  ICDU'S  ZEROED 

R0309  SO  that  AT  THE  END  OF  THE  PROCESS  THE  GIMBAL  L0C<  MONITOR  WILL  FUNCTION  PROPERLY. 

R0311  '2T  ICDU  INI  TIAUZAtToN^  fN'THlS  CAsl  fHE  COMPUTER  I«AS  P^O^BLY  TURNeD^ON  wTtH  TH£  ISS  IN  OPERATE  OR 

R0313  A FReSH  start  WAS  DONE  WITH  THE  ISS  IN  OPERATE.  IN  THIS  CASE  ONLY  ISS  OPERATE  IS  ON.  THe  ICOU'S  ARe 

Ro3X5 Zeroed  so  the  gimbal  lock  monitor  will  function,  am  exception  is  if  the  iss  is  in  gimbal  lqc<  after 

R0317  A restart,  he  ICDU'S  WILL  NOT  SE  ZEROED. 

R0318  J)  restart  with  RfSiARtABLf  PROGRAM  USING  THE  IMU:  IN  THIS  CaSf.  NO  INITIALIZATION  TAKES  PLACE  SINCf 

R0320  It  is  assumed  that  the  using  PR'oSRAM  did  the  INItIATIZAtION  AND  therefore  TaRUPT  SHOULD  NOT  INTERFERE. 

R03Z2  IMoDe530  Bit  7 IS  Set  = l by  the  FI RST  bit  (CHANNEL  Bit  h or  which  ARRIVES.  FOLLOWING  THIS.  tNOmTfST  IS 
R032A  entered,  piNDS  BIT  7 = I BUT  BiT  8 = 0,  SO  IT  SETS  BIT  8 = 1 AND  EXITS,  THE  NEXT  TImE  IT  pINDS  BIT  8 s 1 AND 

R0326  proceeds,  SETTING  BItS  8 AND  7 = 0.  AT  PROCtNON,  IF  ISS  tURn-ON  ReOUeSt  IS  PReSeNT,  THe  ISS  IS  CAGeD  (ZeRO  ♦ 

R0328  coarse).  IF  155  OPERATE  IS  NOT  PRESENT  PROGRAM  A.ARM  00?13  tS  ISSUeD.  AT  THE  END  OF  A 90  SECOND  CAGE.  BIT  ? 

R0330  OF  IMDDES30  IS  Tested,  if  it  is  = i,  iss  turn-on  was  not  present  For  the  entire  90  seconds,  in  that  case,  if 

Ro332  'tHe  iss  turn-on  requfst  IS  preSent  the  90  Second  wait  is  repeated,  otherwise  no  action  occurs  unless  a program 

R033A_  was  waiting  EqR  tHE  INITIALIZATION  IN  WHICH  CaSf  tHe  PROGRAM  IS  GIVEN  AN  IMUSTALL  ERROR  RETURN.  IF  tHf  DfLAY 
R0336  went  iPOpERLy,  THE  ISS  DELAy  OUtbU  IS  SeNj  AND  THE  ICDU'S  ZeROeD.  A TASK  IS  INITIATED  TO  REMOVE  THE  PIpA  FAIL 

R0338  inhibit  BIT  IN  lO.ZA  SECONDS.  IF  A MISSION  PROGRAM  WAS  WAITING  It  IS  INFORMED  VIA  ENDIMU, 


RoIaO  at  PROCTNON,  IF  ONLY  ISS  OPERATE  IS  PReSeNj  (OPONu-Y),  THe  COii'S  ARE  ZEROED  UNLESS  THe  PLATFORM  IS  IN  CooRSe 

R03a2  align  (=  gimbal  LOCK  HERE!  OR  A MISSION  PROGRAM  IS  USING  THE  IMU  (IMUSEFLG  = i). 


R03AA  CALL.ING  SEQUENCE:  TARUPt  EVERY  A80  MILLISECONDS  AFTER  IMUMON, 

Rq3a5  jobs  dr  tasks  initiated:  n endtnon,  90  Seconds  after  caglng  started.  2!  issup,  a seconds  after  caging  done. 

R03A7  3)  PFAlLOK,  10. 2a  SECONDS  AFTER  INITIALIZATION  rOMPl  ETED.  A)  UNZ2,  320  MILLISECONDS  AFTER  ZEROING 

R03A9  STARTED, 

R0350  subroutines  CALLeD:  CAGesUB,  CAGESUB2,  ZEROICDU,  ENDIMU,  IMllBAD.  NOATTOFF,  SETISSW,  VARDELAY.  “ 

Ro352  ERASAiLE^LNlXiAklZATlDN:  _5_£E__1MUM0N. 

R0353  ALARMS;  PROGRAM  aLARMi  00213  IF  ISS  TURN-ON  ReDUESTED  WITHOUT  ISS  OPERATE. 

R0355  exit:  " eInDTNON  exits  to  C33Te^T.  Tasks’  HAVING'tO  Do  with  initialization  EXTt  as  FOLXowS;  MISSICIN  PR^r7A~M 
R0357  waiting  ANq  INITIALIZATION  COMPLETE.  EXU  TO  ENolMU,  MISSION  PROGRAM  WAITING  ANp  INITIALIZATION  FAILED.  EXIT  TO 
PCL3 59  IMUBADi.  IMU  NOT  IN  USE.  EXIT  TO  TASKOVfR. 

R0360  output:  ISS  initialized. 


0361  REF  8 LAST  113 


12.23A2  A 0365  0 TNONTEST  CS 


tmodBsso 


AFTER  PROCESSING  ALL  CHANGES,  SEE  IF  IT 


I 
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0362  ref  2__LAST_  8.2 12.23A3  . 7_7755_0 MAS< BIJt^.  IS  TIME  TO  ACT  ON  A TURN-ON  SEJ.iFNCF. 


0363 

REF 

30 

LAST 

113 

12.23AA 

10  000  0 

CCS 

A 

036A 

REF 

1 

12,23A5 

1 2A77  O 

TCF 

C33TFST 

NO  - EXAMINE  CHANNEL  33. 

0365 

REF 

3 

LAST 

110 

12.23A6 

3 775A  0 

CAF 

BIT8 

SEE  IF  First  sample  or  second. 

0366 

ref 

9 

last 

llA 

12,23A7 

7 0365  O 

MAS< 

IMO0FS3O 

0367 

REF 

31 

LAST 

115 

12,2350 

10  000  0 

CCS 

A 

0368 

REF 

1 

12,2351 

1 2355  1 

TCF 

PROCTNON 

react  after  second  sample. 

_0369 

REF 

A 

last 

1 15 

12,2352 

3 775A  0 

CAF 

.BJLT.8_.  . 

IF  first  sample,  sft  bit  to  react  NFXT 

0370 

REF 

10 

LAST 

115 

12,2353 

26  365  0 

ads 

IMD0FS3O 

TIME. 

0371 

REF 

2 

LAST 

115 

12,235A 

1 2A77  0 

TCF 

C33TFST 

R0372 

PROCESS 

IMU  torn-on 

reuueSts  after  waiting  1 sample  For  all 

SIGNALS  TO  arrive. 

037A 

REF 

1 

. 12,2355 

A 30AA  0 

proctnon 

cs 

BITS768 

0375 

REf 

11 

last 

115 

12,2356 

7 0365  0 

mASH 

IM00FS30 

0376 

REF 

12 

LAST 

115 

12,2357 

5A  365  0 

TS 

IM00ES30 

0377 

REF 

A 

last 

113 

12,2360 

7 77A6  1 

MAS< 

BIT1.4_..„  _ 

SEE  IF  TURN-ON  RE0UEST._ 

0378 

REF 

32 

LAST 

115 

12,2361 

10  000  0 

CCS 

A 

0379 

REF 

1 

12,2362 

1 2A55  0 

TCF 

OPONi'Y 

OPERATE  ON  ONLY. 

0380 

REF 

13 

LAST 

115 

12,2363 

A 0365  0 

CS 

IMOOES30 

IF  TURN-ON  REQUEST,  WE  SHOULD  HAVf  IMJ 

0381 

REF 

1 

12,236A 

7 7753  0 

mas< 

BIT9 

OPERATE, 

0382 

REF 

33 

last 

1 15 

12,2365 

10  000  0 

CCS 

A 

0383 

12  1 2366 

1 2371  1 

TCF 

♦3 

038A 

REF 

5 

LAST 

101 

12,2367 

0 A755  1 

rc 

alarm 

ALARM  IF  NOT. 

0385 

12,2370 

00213  1 

OCT 

213 

0386 

REF 

1 

12,2371 

0 3002  0 

♦ 3 

tC 

CAGEsUB 

0387 

ref 

1 

12,2372 

3 3052  0 

CAF 

90SErS 

0388 

REF 

A 

LAST 

110 

12,2373 

0 5663  1 

TC 

WAITl  1ST 

0389 

REF 

A 

LAST 

UO 

E6 

fban<= 

Mil 

0390 

12,237A 

02A01  0 

2CADR 

ENDTNON 

C0390 

ref 

1 

12,2375 

2A066  1 

0391 

ref 

3 

LAST 

115 

12,2376 

1 2A77  0 

TCF 

C33TEST 

0392 

REF 

2 

LAST 

115 

12,2377 

3 3052  0 

RETNON 

CAF 

90SECS 

0393 

REF 

1 

12,2A00 

0 570A  1 

TC 

yaroelay 

039A 

REF 

A 

LAST 

110 

12,2A01 

A 7762  1 

ENUTNON 

CS 

BIT2 

RESET  TURN-ON  REQUEST  FAIL  BIT. 

0395 

rEf 

lA 

LAsT 

115 

12,2A02 

7 0365  0 

MAs< 

1M0DFS30 

0396 

REF 

15 

LAST 

115 

12,2a03 

56  365  1 

XCH 

IM00ES3O 

0397 

REF 

5 

LAST 

115 

12,2A0a 

7 7762  1 

MAS< 

B1T2 

IF  IT  WAS  OFF,  send  ISS  DELAY  COMPLETE. 

0398 

12,2A05 

0 0006  1 

EXTEND 

0399 

REF 

1 

12  »2^06 

1 2A21  0 

3ZF 

ENOTnON2 

OAOO 

REF 

5 

last 

115 

12,2a07 

3 77A6  0 

CAF 

biua 

IF  IT  WAS  ON  AND  TURN-ON  REQUESr  NOW 

OAOl 

RE> 

16 

LAST 

115 

12,2aIO 

7 0365  0 

v|AS< 

Im00fS30 

present,  re-enter  90  SEc  delay  in  WL. 
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0402 

„A2.i24il_ 

0 QQ06  1 

EXTEND, 

0403 

REF 

1 

12,2412 

1 2377  1 

3ZF 

RETNnN 

0404 

REF 

_ _ 9 ,LA.SJL 

89 

12a2A13 

.4_.0.074  „Q  - 

SI  ATX- - ----- 

IF  IT  IS  NOT  ON  NOW,  SFF  IF  A P?OS  WAS 

0405 

ref 

1 

12,2414 

7 7754  1 

mas< 

imjsfflg 

WAITING. 

0406 

REF 

34  LAST 

115 

12,2415 

10  000  0 

CCS 

A 

0407 

REF 

2 _LAlSX 

iio 

iij_24i_6_ 

1_5-727_J 

_JCF 

LA-SCo-VER 

0408 

REF 

4 LAST 

102 

12,2417 

0 5225  1 

TC 

POSTJUMP 

0409 

REF 

1 

12,2420 

26672  0 

CADR 

IMJ3AD 

UNSUCCESSFUL  TURN-ON. 

0410 

REF 

7 LAST 

109 

12,2421 

3 7745  0 

ENDTN0M2 

CAF 

BIT15 

SEND  ISS  DELAY  COMPLETE. 

0411 

12,2422 

0 0006  1 

EXTEND 

0412 

12,2423 

05  012  1 

L2 

0413’ 

ref 

10  LAST 

102 

12,2424 

0 5270  1 

rc 

IBNKrALL 

TURN  OFF  NO  ATT  LAMP. 

0414 

REF 

i 

12,2A25 

26324  0 

CADR 

NOATTOFF 

0415 

REF 

1 

12,2426 

0 4314  0 

JNZ2 

rc 

ZERDiCDU 

0416 

REF 

1 

12,2427 

4 3041  0 

cs 

81T5465 

REMOVE  ZERO  AND  COARSE. 

0417 

12,2430 

0 0006  1 

EXTEND 

0418 

12,2431 

0^  01?  1 

WAND 

12 

0419 

REF 

1 

12,2432 

3 4321  0 

CAF 

4SEC<; 

WAIT  4 SECS  FOR  COUNTERS  TO  FIND  GIMBALS 

0420 

ref 

2 LAST 

115 

12,2433 

0 5704  1 

rc 

VAROFLAY 

0421 

ref 

1 

12,2434 

4 3042  0 

ISSUP 

cs 

0CT54 

REMOVE  CAGING,  IMU  FAIL  INHIBIT,  AND 

0422 

REF 

IX  LAST 

115 

12,2435 

7 0365  0 

MASK 

IM0De:S-30 

ICDUFAIL  INHIBIIL  flags. 

0423 

REF 

18  LAST 

116 

12,2436 

54  365  0 

TS 

IMDDES30 

0424 

REF 

1 

12,2437 

0 2753  1 

IC 

SETISSW 

ISS  WARNING  MIGHT  HAVE  BEEN  INHIBITED. 

0425 

REF 

8 LAST 

116 

12,2440 

4 7745  1 

CS 

B1T15 

remove  IMU  Delay  complete  discrtte. 

_Q/t26 

12,2441 

0 0006  1 

EXTEND 

0427 

12,2442 

03  012  1 

wAND 

12 

___  0428 

REF 

12,2443 

3 7751  0 

CAF 

BlUi 

DONT  ENABLE  PROG  ALARM  ON  PIP  FAIL  FOR 

0429 

REF 



5 LAST 

115 

12,2444 

0 5663  1 

TC 

WAITI  1ST 

ANOTHER  io  SECS. 

0430 

REF 

5 last 

115 

E6 

EBAN<= 

Mil 

0431 

12.2445 

02310  1 

2CADR 

PFAII  OK 

C0431 

ref 

1 

12,2446 

26066  0 

0432 

REF 

10  LAST 

116 

12,2447 

4 0074  0 

CS 

STATE 

SEE  IF  ANYONE  IS  WAITING  FOR  THE  IMU  AT 

0433 

REF 

2 LAST 

115 

12,2450 

7 7754  1 

MASK 

IMUSEFLG 

IMUZERO.  if  SO,  WAKE  THEM  UP. 

0434 

REF 

35  LAST 

116 

12 » 245 X 

10  000  0 

CCS 

A 

0435 

REF 

3 LAST 

116 

12,2452 

1 5727  1 

rcF 

TASKnVER 

0436 

REF 

5 LAST 

116 

12,2453 

0 5225  1 

rc 

POST.lUMP 

0437 

ref 

1 

12,2454 

26664  1 

CAqR 

ENDIMU 

0A38  REF  3 LAST  93  12,2455  3 7760  1 OPONLY  CAF  B1T4  IF  OPERATE  ON  ONLY,  AND  WE  ARE  IN  COARSE 
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REVISION 
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L 

T4RUPT  PROGRAM 

USER'S  OWN  page  no.  14  S3  E6 

0^39 

_12*2456 

0 0006 

_1 

EXTEND 

ALIGN,  DONT  ZERO  THE  CDUS  BECAJc,F  WF 

04«t0 

12,2457 

02  012 

0 

?AND 

12 

might  be  in  gimbal  lock. 

0^41 

REF 

36  last 

116 

12,2460 

10  000 

0 

CCS 

A 

J)442__ 

REF 

4 LAST 



12,2461 

1 2477 

0 

TCP 

C33TFST 

0443 

REF 

3 last 

116 

12,2462 

3 7754 

0 

CAF 

imjseflg 

otherwise,  zero  the  counters 

0444 

REF 

11  LAST 

116 

12,2463 

7 0074 

0 

MAS< 

statf 

UNLESS  SOMEONE  IS  USING  THE  IMJ. 

0445 

REF 

37  LAST 

117 

12,2464 

10  000 

0 

CCS 

A 

0446 

REF 

5 LAST 

117 

12,2465 

1 2477 

0 

TCF 

C33TFST 

0447 

REF 

1 

12,2466 

0 3014 

1 

TC 

CA0ESUB2 

SET  TURNON  FLAGS. 

0448 

REF 

2 LAST 

92 

12,2467 

. 3 7757 

0 

CAF 

BITS 

0449 

12,2470 

0 0006 

1 

EXTEND 

0450 

12,2471 

05  012 

1 

/JOR 

12 

0451 

REF 

3 last 

110 

12,2472 

3 7756 

1 

CAF 

B1T6 

WAIT  300  MS  FOR  A(iS  TO  RECEIVE  SIGNAL. 

0452 

REF 

6 last 

116 

12,2473 

0 5663 

1 

IC 

/JAITi’IST 

0453 

REF 

6 last 

116 

E6 

FBAN<= 

Mil 

0454 

12,2474 

02426 

0 

2CA0R 

JNZ2 

C0454 

ref 

1 

12,2475 

24066 

1 

OAiS 

REF 

6 LAST 

117 

12.2476 

1 2A77 

0 

TCF 

C33TcST 
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P0A56 

PROGRAM  NAMEJ_ -_  C3_3J:E3T  

R0A57 

R0459 

functional  oescriptiont  this  program 

SUBROJTINF  TO  PROCFSS  A CHANGE.  IT  IS 

monitors  three 
analogous  to 

FLIP- 
1 MUM ON 

flop  INBItS  of  channel  33  AND  CALLS  THE  APPROPRIATE 
, WHICH  MONITORS  CHANNEL  30.  EXCEPT  THAT  IT  R^AOS 

R0A51 

R0463 

channel  33  with  A WAND  INSTRUCTION  BECAUSE  A 'WRITE' 
processed  AND  THe  SUBROUTINES  CALLED  ARE! 

pulse 

IS  REQUIRED  TO  ReSeT  THe  FLIP-FLOPS.  THe  BItS 

RoA6A 

R0A65 

R0A66 

bit  FUNCTION 

subroutine 

13 PIPA  FAIL  ...  

. PIPFAIL 

Rn467 

R0468 

12  downlink  TOO  FAST 

11  UPLINKi  TOO  FAST 

DNtMFAST 

UPTMFAST 

R0469 

UPON  entry  to  the  subroutine,  the  new 

BIT  state  IS  IN  a. 

R0470 

CALLI  NG_.S£QU.EIiCE! E.w(£RY..4J3.Q_.  M.ILLI.SECONDS  AFTER  TNOMTEST. 

R0A71 

JOBS  OR  tasks  INITIATED;  NONE. 

RoA72 

subroutines  called;  =IPFaIL,  DNtMFAST 

AND  UPtMFAST 

ON  BIT 

CuANGeS. 

RoA73 

erasable  INITIALIZATION:  C(IM0DfS33» 

s OCt  16000  ON 

A FReSH  start  or  restart,  therefore,  these  alarms  will 

R0475 

reappear  if  The  conditions  persist. 

R0A76 

alarms; nonEj.  

ROA77 

EXIT:  QLOCKMON. 

R0478  OUTPUT!  UPDATED  BITS  13,  12  AND  11  OF  IM0DES33  WITH  CHANGES  PROCESSED. 


0479  ■ 

REF 

2 

LAST 

98 

12,2477 

3 0366 

1 C33TEST 

CA 

IMD0fS33 

SEE  IF  RELEVANT  CHAN  33  BITS  HA^/E 

0480 

REF 

1 

12,2500 

7 5642 

0 

MASK 

33RDMSK 

0481 

REF 

18 

LAST 

112 

12,2501 

54  001 

1 

rs 

L 

CHANGED. 

0482 

REF 

2 

LAST 

U8 

12,2502 

3 5642 

1 

CAF 

33RDMSK 

0483 

12,2503 

0 0006 

1 

EXTEND 

0484 

12,2504 

03  033 

1 

WAND 

33 

RESETS  FLIP-FLOP  INPUTS. 

0485 

12,2505 

0 0006 

1 

EXTEND 

0486 

ref 

19 

LAST 

118 

12,2506 

06  001 

0 

RXOR 

L 

0487 

12,2507 

0 0006 

1 

EXTEND 

0488 

REF 

1 

12,2510 

X 2537 

0 

3ZF 

oLOCk-MON 

ON  NO  CHANGE, 

0489 

REF 

12 

LAST 

113 

12,2511 

54  070 

1 

TS 

RUPTREGl 

SAVE  BITS  WHICH  HAVE  CHANGED. 

0450 

REf 

3 

LAST 

118 

12,2512 

22  366 

1 

lXFH 

IM00FS33 

0491 

12,2513 

0 0006 

1 

EXTEND 

0492 

ref 

20 

last 

118 

12,2514 

06  001 

0 

RXOR 

L 

0493 

REF 

4 

LAST 

118 

12, 2515 

54  366 

0 

TS 

IM0DS-S33 

UPDATED  IM0DES33. 

0494 

REF 

21 

LAST 

111 

12,25X6 

3 7767 

0 

CAF 

ZERO 

0495 

REF 

13 

LAST 

118 

12,2517 

56  070 

0 

XCH 

RUPTREGl 

0496 

12,2520 

6 0000 

1 

30UBLE 

YUl  system  FOR  'agc;  revision  O of  PROGRA'I  BURST12D  by  NASA' 2021I06-O3I 
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L 

0497 

T4RUPI  1 
REF  1 

PROGRAM 

12«2521 

i..  2524_ 

TCF 

NXTIRT  .1 

USER'S  OWN  page  NO.  16  S3  E6 

SCAN  FOR  BIT  CHANGES. 

0498 

REF 

14 

last 

113 

12,2522 

6 7763 

1 

-1 

AD 

ONE 

0499 

REF 

14 

LAST 

118 

12.2523 

24  07  0 

0 

NXtIBT 

INCR 

RJJPTREGI 

0500 

12,2524 

6 0000 

1 

♦ 1 

OOJBLE 

0501 

REF 

38 

LAST 

117 

12,2525 

54  000 

0 

TS 

A 

(CODING  identical  TO  CHAN  30). 

0502 

REF 

2 

LAST 

119 

12,2526 

1 2523 

0 

TCF 

NXTI0T 

0503 

REF 

6 

LAST 

113 

12.2527 

56  071 

1 

XCH 

RUPTREG2 

0504 

REF 

15 

LAST 

119 

12,2530 

50  070 

0 

INDEX 

RUPTREGl 

GET  NEW  value  OF  BIT  WHICH  CHANjiEO, 

0505 

ref 

1 

12,2531 

3 7747 

1 

CAF 

3IT13 

0506 

REF 

5 

LAST 

118 

12,2532 

7 0366 

0 

^lASX 

IM0DFS33 

0507 

REF 

16 

LAST 

119 

12,2533 

50  070 

0 

INDEX 

RUPTREGl 

0508 

REF 

1 

12,2534 

0 3027 

1 

TC 

C33JMP 

0509 

REF 

. 7 

last  1I9 

12.2535 

,3.0  071 

D 

NXTFL33 

CCS 

RUPTREG2 

process  possjble,  addjtiqnal  chavges. 

0510 

ref 

3 

last 

119 

12.2536 

1 2522 

1 

TCF 

NXTIbT  -1 
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L jARLIPt  program  USER'S  OWN  PAGE  No.  17  ^3  E6 

P0511  PR0GRAM_NAME!  ._GL0C<M,0N 

R05i2  functional  DESCRIPTION,!  THIS  PROGRAM  MONITORS  THe  CDJZ  COUNTER  TO  DETERMINE  WHETHER  THE  ISS  IS  IN  G1M3aL  L0C< 
R0514  and  TA<ES  action  IF  IT  IS. THREF  REGIONS  OF  mIDDuE  GImBAL  AmoLF  (MGA)  ARE  tiSFD!  

R0516  1)  ABS(MGA)  less  THAN  OR  EQUAL  TO  70  DEGREES  - NORMAL  MODE, 

R0517  Z)  ABSCMGA)  greater  THaN  70  DEGREES  AND  LESS  THAN  OR  EQUAL  TO  H5  DEGREES  - GIMBAL  LOCK  LAMP  TJrNfD  ON. 

R0519  3)  ABS(MGA)  GREATER  THAN  85  DeGREES  . ISS  PUT  IN  COARSE  ALIGN  AND  NO  ATT  LAMP  TURNED  ON. 

R0521  CALLING  SEQUENCE; EYERY  480  MILLISfCOnDS  AFTFR  CjalELSXt 

R0522  JOBS  OR  TASKS  INITIATED:  NONE. 

R0623  subroutines  CALLED!  1)  SeTCOARS  WHeN  ABS(MGA)  GREATER  THAN  85  DfgRfES  AND  ISS  NOT  IN  COARSE  ALIGN, 

R0525  2)  LAMPTEST  BEFORE  TURNING  OFF  GIMBAl  CnCK  LAMP. 


R0526  ERASA3LE  INITIALIZATION! 

R0527  1)  FRESH  START  OR  RESTART  WITH  NO  GROUPS  ACTIVE!  C(CDUZ)  = 0,  IM0DES30  BIT  6=0,  IM0DES33  BIT  1 = 0. 

R0529  2)  RfSTART  WITH  GROUPS  ACTIVF! SaMf  AS  FRESH  START  fXCfPT  C(CDUZ)  NOT  CHANGED  SO  GIMBAL  MONITOR 

R0531  PROCEEDS  AS  BEFORE. 

R0532  ALARMS!  1)  MGA  REGION,  (2)  CAUSES  GIMBAL  LOCK  LAMP,  TO  BE  LlTi 

R0533  2)  MGA  REGION.  (3)  CAUSES  THE  ISS  TO  Be  PUT  IN  CoARSf  ALIGN  AND  THE  NO  ATT  LAMP  TO  Be  LIT  IF  EItHeR  NOT 

R0535  SO  already. 


0536 

■ref 

1 

12,2537 

10  034 

1 

GLOCKMDN 

CCS 

CDJZ 

0537 

REF 

1 

12,2540 

1 2544 

1 

TCF 

GLQCkCHK 

SEE  IF  MAGNITUDE  OF  MGA  IS 

greater  than 

0538 

REF 

1 

12,2541 

_ 12564  0 

TCF 

SETGLOCK 

70  DEGREES, 

0539 

ref 

2 

LAST 

120 

12,2542 

1 2544 

1 

TCF 

GLQCkCHK 

0540 

REF 

2 

LAST 

120 

12,2543 

1 2564 

0 

TCF 

SET5L0CK 

0541 

REF 

I 

12,2544 

6 2611 

0 

GLOCKCHK 

AD 

-70DFGS 

0542 

12,2545 

0 0006 

1 

extend 

0543 

REF 

3 

LAST 

120 

12,2546 

6 2563 

0 

32MF 

SETGI  OCK  -1 

NO  LOCK. 

0544 

REF 

1 

12,2547 

6 2612 

0 

AD 

.•15DFGS 

SEE  IF  ABS(MGA)  greater  THAN  85  DEGREES. 

0545 

12,2550 

0 0006 

1 

extend 

0546 

ref 

1 

12,2551 

6 2561 

1 

3ZMF 

NOGIMRUN 

0547 

REF 

4 

LAST 

116 

12,25_52 

3 7760 

1 

CAF 

B1T4 

IF  SO,  SYSTEM  SHOULD  BE  IN 

COARSE  ALIGN 

0548 

12,2553 

0 0006 

1 

EXTEND 

TO  PREVENT  GIMBAL  RUNAWAY. 

0549 

12,2554 

02  012 

0 

RAND 

12 

0550 

REF 

_39 

last 

119 

12,2555 

10  000 

0 

CCS 

A 

0551 

REF 

2 

LAST 

120 

12,2556 

1 2561 

0 

TCF 

NOGImRUN 

0552 

ref 

li 

LAST 

116 

12.255J 

0 5270  1 

rc 

IBNKrALI 

0553 

REF 

1 

12,2560 

26232 

0 

CADR 

SETCOARS 

0554 

REF 

4 

LAST 

117 

12,2561 

3 7756 

1 

NDGIMRJN 

CAF 

BIT6 

TURN  ON  GIMBAL  LOCK  LAMP. 

0555 

REF 

4 

LAST 

120 

12,2562 

1 2564 

0 

rcF 

SETS)  OCK 

633<t36A 

YUL 

SYSTEM  FOR  AQC 

: REVISION 

0 OF  PROGRAM  BURST12D  BY  NASA  2021106-031 

DEC  7.  1967  (MAIN)  PAGE  121 

L 

0556 

T4RUPr  PROGRAM 
REF  22  LAST  118 

12,2563 

.3  17  bj 

0 -1 

:af 

ZERO 

USER'S  OWN  page  no.  18  S3  E6 

0557 

REF 

10  last  107 

12,2564 

6 0326 

0 setgloc< 

AD 

dsptab  +1iD 

SEE  IF  PRESENT  STATE  OF  GIMBAL  _0C<  LAMP 

0558 

REF 

5 LAST  120 

12,2565 

7 7756 

0 

MAS< 

BIT6 

AGREES  with  DESIRED  STATE  BY  HAlF  ADDING 

0559 

12,2566 

0 0006 

1 

EXTEND 

THE  TWO. 

0560 

REF 

1 

12,2567 

1 5733 

1 

3ZF 

GLOCkOK 

OK  AS  IS. 

0561 

REF 

11  LAST  121 

12^2570 

7 CUZf,  1 

MASK 

DSPTaB  _ +1J_D_ 

IF  OFF,  DONT  TURN  ON  IF  IMU  BEUiG  CAGFD. 

0562 

REp 

(,0  LAST  120 

12,2571 

10  000 

0 

CCS 

A 

0563 

REF 

1 

12,2572 

1 2606 

1 

rcF 

GLAMPTST 

TURN  OFF  UNLESS  LAMP  TEST  IN  PROGRESS. 

0564 

ref 

6 LAST  121 

12,2573 

3 7756 

1 

CAF 

B1?6 

0565 

REF 

19  LAST  UP 

12,2574 

7 0365 

0 

MASK 

IM00FS3O 

0566 

REF 

4*1  last  121 

12,2575 

10  000 

_c 

CCS 

A 

0567 

REF 

2 LAST  12l 

12,2576 

1 5733 

1 

rcF 

GLOCkOK 

0568 

S£F 

12  LAST  121 

12 ,2577 

4 0326 

1 GlINVERT 

cs 

DSPTAB  +iiD 

INVERT  GIMBAL  LOCK  LAMP, 

0569 

REf 

7 lAsT  121 

12,2600 

7 7756 

0 

mAsk 

BIT6 

0570 

REF 

9 LAST  116 

12,2601 

6 7745 

0 

ad 

BITls 

TO  INDICATE  CHANGE  IN  DSPTAB  +llD. 

0_57l 

REF 

13  LAST  121 

12,2602 

56  326 

0 

KCH 

dsptab  +11D 

0572 

rEf 

1 

12,2603 

7 2613 

0 

mAsk 

0CT37737 

0573 

REF 

16  LAST  121 

12,2604 

26  326 

1 

ADS 

DSPTAB  +11D 

0574 

ref 

3 LAST  121 

12,2605 

1 5733 

1 

TCF 

gldckok 

0575  ' 

REF 

1 

12*2606 

0 3032 

0 glamptst 

fC 

LAMPtEST 

TURN  OFF  unless  LAMP  TEST  IN  PROGRESS. 

0576 

REf 

4 1 A6T  121 

12,2607 

1 5733 

1 

TCF 

Gl  OCkOK 

0577 

REF 

1 

12,2610 

1 2577 

1 

TCF 

GLISIVERT 

0578 

12,2611 

_63434 

1 -70DEGS 

DEC 

-*JB868_ 

-70  degrees  scaled  in  HALF-Ri VO-UtIONS. 

0579 

0580 

12,2612 

12,2613 

75252 

37737 

0 -15DE6S 

0 0CT37737 

dec 

OCT 

-.08333 

37737 
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L 

P0581 

Ro582 

R058A 

TArOPI  program  USER'S  OWN 

PROGRAM  NAME!  TlJM^  _ , ___  . 

page  no.  19 

S3  E6 

FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  MAINTAINS  THE  TEMP  LAMP  (BIT  A OF  CHANNEL  U) 

the  t-mp  signal  fro_m  the  iss  (^b.it  15  OF  channel  30).  hOa/eyer.  thf  light  will  not  be 

ON  the  dsky  to 
; turned  off  if 

agree  with 
A lamp  test. 

R0586 

R0587 

IS  IN  PROGRESS. 

CALLING  SFOUFNCE:  CALLED  BY  IMUMON  ON  A CHANGE  OF  BIT  15  OF  CHANNEL  30, 

Rq588 

JOBS  OR  TASKS  initiated:  NONe. 

R0589 

R0590 

SUBROUTINES  CALLED:  uAMPTEST. 

fRASAHLF  INITIALIZATION:  FRESH  START  AND  RESTART  TURN  THF  TfMP  LaMP  OFF. 

Ro592 

alarms;  temp  lamp  tJRNed  on  when  imu  te^R  goes  ojt  of  limits. 

R0593  EXIT:  NXTIFAlL* 


R059A 

output: 

• TEMP  1 AMP. 

_1N  A,  except  FOR  TLIM.  _ 

0596 

REF 

5 

LAST 

109 

12,2614 

7 7743 

1 

tlim 

MAS< 

POSMaX 

REMOVE  bit  from  WORD  OF  CHANGES  AND  SET 

•0597 

REF 

8 

last 

11‘^ 

12,2615 

54  071 

0 

rs 

RUPTREG2 

DSKY  TEMP  LAMP  ACCORDINGLY, 

0598 

ref 

20 

LAST 

121 

12,2616 

10  365 

0 

CCS 

IM0DfS30 

0599 

ref 

1 

12,2617 

1 2625 

0 

rcF 

LEMpnK 

0600 

ref 

2 

LAST 

122 

12,2620 

1 2625 

0 

TCF 

TEMPnK 

0601 

REF 

5 

LAST 

120 

12,2621 

3 7760 

1 

CAF 

31T4 

TURN  ON  LAMP, 

0602 

12,2622 

0 0006 

1 

EXTEND 

0603 

12,2623 

05  Oil 

1 

WOR 

11 

060A 

ref 

1 

12,2624 

1 2340 

0 

TCF 

nxtifail 

0605 

REF 

2 

LAST 

12l 

12,2625 

0 3032 

0 

TEMPOK 

rc 

LAMPTEST 

IF  temp  now  ok,  DONT  turn  OFF  LAMP  IF 

0606 

REF 

2 

lAst 

122 

12,2626 

1 2340 

0 

TCF 

nxtifail 

1 AMP  TE<;T  IN  PR0GRE<^‘^. 

0607 

REF 

6 

LAST 

122 

12,2627 

4 7760 

0 

:s 

BIT4 

0608 

i2,2630 

0 0006 

1 

extend 

0609 

12,2631 

03  Oil 

1 

wand 

11 

0610 

REF 

3 

LAST 

122 

12,2632 

1 2340 

0 

rCF 

nxtifail 
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L tarupt  Program  user's  own  page  no.  20  S3  e6 

i> 0 6 Ll program  NAME!  ITURNON. 

R0612  functional  DeSCRIPtIDNJ  this  PRqGRaM  is  CaLLe3  3Y  IMJMoN  WHpN  A CHANGE  oF  BIT  lA  OF  CHANNEL  30  (ISS  TURN. ON 
RO6IA  REQUEST)  IS  detected.  UPON  ENTRY.  ItURNQN.  CHfCKS  IF  A TJRN.nN  DfLAY  SeQUeNCf  HAS  FAILfD.  AND  IF  SO,  IT  EXITS. 

RO6I6  IF  NOT,  IT  checks  WH£THeR  THe  TURN-ON  REQUEST  CHANGE  IS  TO  ON  OR  OFF,  IF  ON,  IT  SETS  BIT  7 OF  IMODeSOO  TO  1 SO 

R06I8  that  tNONTEST  WILL  INITIATE  THe  ISS  INI T I AL I ZA T I ON  SeOUeNCe.  IF  OFF,  THE  TURN-ON  DELAY  SIGNAL,  CHANNEL  12  BIT 

R0620  _ 15,  IS  checked  AND  I »l  IT  IS  ON,  ITURNON  E^ITS,  IF  THE  DELAY  SIGNAL  IS  OFF,  PROGRAM  ALARM  00207  15  ISSJfD.  BIT  2 

R0622  OF  IMODES30  IS  Set  TO  1 AND  THE  PROGRAM  EXITS. 

R0623  the  setting  OF  BIT  2 OF  IMODES30  USS  DELAY  SeQUENCr  FAIL)  INHIBITS  THIS  ROUTINE  AND  IMUOP  FROM 

R0625  processing  ANY  CHANGES.  THIS  BIT  WILL  Be  RESET  3y  THe  ENOTNON  ROUTINE  WHeN  tHE  CURRENT  90  SECOND  DELAY  PeRJQ^O 

R0627  ends. 

R0628  calling  SEQUENCE;  FROM  IMUMOM  wHFN  ISS  TURN-ON  ReQUEST  CHANOFS  StATE.  _ 

R0629  JOBS  OR  TASKS  INITIATED;  NONE. 


R0630  subroutines  CALLeD;  ALARM,  IF  tHe  ISS  tURN-ON  REqUESt  IS  NOT  PRfSeNT  FOR  90  SECONDS. 

R0632  erasable  INITIALIZATION:  FRESH  START  AND  RESTART  S£T  BIT  is  0_F  CHANNEL  12  AND  BItS_2__AND  7 OF  IMODES30  TO  0, 

R063A  AND  SIT  lA  OF  IMODES30  TO  1. 


R0635 

alarm 

s * 

Program  alarMi  00207 

IS  issued 

IF  tHe  ISS  turn- 

ON  ReoUeSt 

signal  is  not  present  for  90  seconds. 

RO637 

exit: 

NXTIFAIL* 

R0638 

RO6AO 

oUtPUt;  bit 
A FAI.ED  turn 

7 OF 
1-ON 

IMOOES30  TO 
SEQUENCE. 

START 

ISS 

initialization. 

OR  SIT  2 

oF  IMODES3O  AND  program  ALARM  00207  TO  INDICATE 

06A1 

REF 

6 

LAST 

115 

12,2633 

3 7762 

0 

ITURNON  CAF 

BIT2 

IF  delay  request  has  gone  off 

06A2 

REF 

21 

LAsT 

122 

12,2634 

7 0365 

0 

MAs< 

IMOoEs30 

prematurely,  do  not  PROCESS  any  changes 

06A3 

REF 

42 

LAST 

121 

12,2635 

10  000 

0 

CCS 

A 

UNTIL  THE  current  90  SEC  WAIT  EXPIRES. 

06AA 

REF 

4 

LAST 

122 

12,2636 

1 2340 

0 

TCF 

NXTIfAIL 

06A5 

REF 

6 

last 

115 

12,2637 

3 7746 

0 

CAF 

B1T14 

SEE  IF  UUST  ON  OR  OFF. 

06A6 

ree 

22 

last 

123 

12,2640 

7 0365 

0 

mask 

IM0QFS30 

06A7 

12,2641 

0 0006 

1 

EXTEND 

06A8 

ref 

1 

12,2642 

1 2656 

1 

3ZF 

ITURN0N2 

IF  UUST  ON, 

0649 

ref 

10 

LAST 

121 

12,2643 

3 7745 

0 

CAF 

BIT1<5 

0650 

12,2644 

0 0006 

1 

extend 

SEE  IF  delay  present  DISCRETE  HAS  BEEN 

0651 

12,2645 

02  012 

0 

7AND 

12 

SENT.  IF  SO,  ACTION  COMPLETE. 

0652 

1 2 f 2646 

0 0006 

1 

EXTEND 

0653 

12.2647 

1 2651 

0 

3ZF 

0654 

ref 

5 

LAST 

123 

12,2650 

1 2340 

0 

TCF 

NXTIfAIL 

0655 

REF 

7 

last 

123 

12,2651 

3 7762 

0 

CAF 

B1T2 

IF  NOT,  set  bit  to  INDICATE  REQUEST  NOT 

0656 

ref 

23 

LAsT 

123 

12,2652 

26  365 

0 

Ads 

IM03FS30 

PRESENT  FOR  FULL  DURATION. 

0657 

REF 

6 

LAST 

115 

12,2653 

0 4755 

1 

rc 

alarm 

0658 

12,2654 

00207 

1 

QCT 

207 

0659 

ref 

6 

LAST 

123 

12,2655 

1 2340 

0 

TCF 

NXTIFAIL 
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L TArUPT  PROGRAM  USER'S  OWN  PAGE  NO,  21  S3  E6 


0660 

REf 

3 

.LAtiT 

113 

12.2656 

A 7755 

jQ_ 

1TURN0N2  26 

BI T7 

SET  BIT  7 TO  INITIATF  WAIL  OF  J 

S&MPl  F, 

0661 

REF 

24 

LAST 

123 

12,2657 

7 0365 

0 

MAS< 

IMDDES30 

0662 

REF 

A 

LAST 

12A 

12,2660 

6 7755 

1 

AD 

BI  T7 

- REF  - 

( AsT 

1 2A 

12.2661 

54  365 

0 

LS 

I Vl0r>cc;3n 

066A 

REF 

7 

LAST 

123 

12,2662 

1 2340 

0 

TCF 

NXTIfAIL 
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L TARJPT  PROGRAM  USER'S  OWN  PAGE  NO.  22  S3  E5 

_P 0665  PROGRAM  NAMF!  IMUCAG'E. 

R0666  functional  DESCRIPTION.!  THIS  PROGRAM  PROCESSES  CrANGeS  OF  TmE  IMUCAGE  INBIT,  CHANNEL  30  BIT  11,  IF  TR-  3IT 

R06j68  _ CHANG-5  TO  0 (CAQf  BUTTON  PRESSED).  THf  ISS  IS  CAoFD  (ICOU  ZfRO  CoARSf  ALIGN  ♦ NO  ATT  LAMP)  UNTIL  THE 

R0670  astronaut  SeLeCTS  another  PROGRAM  TO  ALIGN  THe  ISS.  ANY  PULSE  TRAINS  TO  THe  ICDU«S  AND  GYRO'S  ARE  TER'II NATED , 
R0672  THe  associated  OUtCOJNTeRS  ARe  ZeROeD  AND  THe  3YR0''S  ARe  De-SeLeCteD.  NO  ACTION  OCCURS  WHeN  THe  BUTTON  IS 
J 0674  REl  EASED  (INBIT  CHANGES  TO  1). 

R0675  calling  SEQUENCE;  BY  IMUMON  WHEN  IMU  CAGE  BIT  CHANGES, 


Rq676 

JOBS 

OR 

tasks 

INitIAT 

£D;  none. 

R0677 

SUBROUTINES  CALLED) 

CAGESUB, 

R0678 

ERASA3LE  INITIALIZATION;  FRESH  START  AND 

restart  Set  bit  u of 

IMODES3O  TO  1, 

R0680 

alarms: 

NONE 

• 

R0681 

EXIT! 

; NXTIFAIL. 

R0682 

OUTPUT! 

ISS 

caged.  : 

OUNTERS 

Zeroed, 

PULSE 

trains  terminated  and 

NO  ATT  lamp  lit. 

0684 

REF 

43 

last 

123 

12 » 2663 

10  000 

0 I MUCAGE  CCS 

A 

NO  ACTION  IF  Going  off. 

0685 

REF 

8 

LAST 

124 

1 2 » 266^ 

1 2340 

0 

rcF 

NXTIpAIL 

0686 

ref 

1 

12»2665 

4 3047 

0 

cs 

OCT7IOOO 

terminate  ICDU  AND  GYRO  PULSE 

TRAINS. 

0687 

12  *2666 

0 0006 

1 

extend 

06R8 

12,2667 

03  014 

1 

aiAND 

14 

0689 

REF 

2 

LAST 

115 

12,2670 

0 3002 

0 

TC 

CAGEsUB 

0690 

ref 

23 

LAST 

12X 

12,2671 

4 7767 

1 

:s 

Zero 

ZERO  command  OUT-COUNTERS 

0691 

REF 

1 

12,2672 

54  050 

0 

rs 

CDJXCMD 

0692 

ref 

1 

12,2673 

54  051 

1 

rs 

CDJYCMD 

0693 

ref 

1 

12,2674 

54  052 

1 

TS 

CDJZCMD 

0694 

REF 

1 

12,2675 

54  047 

0 

TS 

GYROCMD 

0695 

REF 

1 

12,2676 

4 3046 

1 

CS 

0CT1700 

having  WAITED  AT  LEAST  27  MCT 

From 

0696 

12,2677 

0 0006 

1 

EXTEND 

GYRO  PULSE  TRAIN  TERMINATION, 

Wr  CAN 

0697 

12,2700 

03  014 

1 

WAND 

14 

DE-SELECT  THE  GYROS. 

0698 

ref 

9 

LAST 

12S 

12,2701 

1 2340 

0 

TCP 

NXTIFAIL 
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L TARUPT  PROGRAM  USER'S  OWN  PAGE  NO.  23  S3  E6 

P0699  PROGRAM  NAME! IMUQP.. 

ROTOO  functional  DESCRIPTION!  THIS  PROGRAM  PROCESSES  GRANGES  IN  THE  ISS  OPERATE  DISCRETE*  BIT  9 OF  CHANNEL  33. 

R0702  IE  THE  INBIt  CHANGES  TO  0.  INDICAT ING  ISS  ON,  IMJpP  GENERALLY  SFTS  BIT  7 OF  IMODf S 3£L L0_  1 TO  RFQUeSt  15S 

Rotoa  initialization  via  tmdntest.  AN  excePtio'J  is  during  a Failed  iss  Delay  during  which  bit  2 of  imodesso  is  set 

R0706  to  1 and  NO  FURTHER  INITIALIZATION  IS  ReOJIReD,  WHeN  tHe  INrIT  CHANGeS  TO  i,  INDICATING  ISS  OFF,  IMUSe^LG  IS 

R0708  TESTED^IQ  SfF  IE  any  program  was  using  IKE  ISS.  IF  50.  PROGRAM  ALARM  Q021A  IS  ISSUED. 

R07l0  calling  SEQUENCE:  BY  IMUMON  WHEN  BIT  9 OE  CHANNE-  30  CHANGES, 


R07il  UOBS  OR  TASKS  INITIATED!  NONE. 

R0712  SUBROUTINES  CALLpD!  ALARM,  IF  ISS  IS  tURNfD  QFF  wHILf  IN  USr.---  

R0713  • erasable  INITIALIZATION!  ON  FReSH  START  AND  RESTART,  BIT  9 oF  IM0DES3O  IS  SeT  TO  1 eXCePT  WHeN  THe  GIMBAC  LOCK 
R0715  LAMP  IS  ON.  IN  WHICH  GASf  IT  IS  SET  TO  0,'  - THIS  PRFVfNTS  ICOh  ZfRO  BY  TNONTfST  WItH  tHf  ISS  IN  GIMBaL  LOCK, 

R07i7  ALARMS!  PRoGRAM  aLARMi  0021A  IF  tHE  ISS  IS  TURNED  OFF  WHILE  IN  USE. 


R0718  EXIT:  NXTIFAIL, 

R07 19  OU  TP.U  r J ISS  INITIALIZATION  R EQUESlT  __  aWODESaO-  3 LT-  7)  OR  PROGRAM  ALARM  Q02 14  » - 


0721 

12,2702 

0 0006 

1 

I MUOP 

EXTEND 

0722 

REF 

r 

12,2703 

1 2113 

1 

3ZF 

IMU0P2 

0723 

ref 

12 

LAST 

117 

12,2704 

4 0074 

0 

GS 

STATf 

IF  GOING  OFF,  ALARM  IF  PROG  USING  IMU 

0724 

REF 

4 

LAST 

117 

12,2705 

7 7754 

1 

mask 

imusfflg 

0725 

REF 

44 

LAST 

125 

12,2706 

10  000 

0 

GCS 

A 

0726 

REF 

10 

LAST 

125 

12,2707 

1 2340 

0 

TCF 

NXTIFAIL 

0727 

REF 

7 

LAST 

123 

12,2710 

0 4755 

1 

TC 

alarm 

0728 

12,2711 

00214 

0 

DCT 

214 

0729 

ref 

11 

LAST 

126 

12,2712 

1 2340 

0 

rCF 

NxTIfAIL 

0730 

REF 

8 

LAST 

123 

12,2713 

3 7762 

0 

I MUOP 2 

GAF 

BIT2 

SEE  IF  FAILED  ISS  TURN-ON  SeO  IN  PROG, 

0731 

ref 

26 

LAST 

124 

12,2714 

7 0365 

0 

MASK 

IMODES30 

0732 

REF 

45 

LAST 

125 

12,2715 

10  000 

0 

GCS 

A 

0733 

ref 

12 

LAST 

126 

12,2716 

1 2340 

0 

TCF 

NXTIFAIL 

IF  SO,  DONT  PROCESS  UNTIL  PRESENT  90 

0734 

REF 

2 

LAST 

123 

12,2717 

1 2656 

1 

TCF 

ITURnONz 

seconds  EXPIRES, 
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L TARUPr  program  USER'S  OWN  PAGE  NO,  2A  S3  E6 

P0735  .PRoQ3AM_NAMEJ PiPFA.I  LI 

Ro736  functional  DESCRIPTION)  THIS  PROGRAM  PROGeSSrS  CHANGeS  OF  3tT  13  OF  CHANNEL  33»  PIPA  FAIL,  IT  SETS  Bit  jo  OF 
R0738  IMQDF530  TO  AqRBE.  IT  CALLS  SETISSi^  IN  CASE  A pIsA  FAIL  NFCfSSItATFS  AN  ISS  kiARNINg.  IF  NOT.I.E.,  lM0iFS3n 
R07a0  bit  1 = 1.  AND  A PIPA  FAIL  IS  PRESENT  AND  THE  ISS  IS  NOT  BEING  INITIALIZED,  PROGRAM  aLaRM  00212  IS  ISSUED. 

R07a2  calling  SEQUENCE;  BY  C33TE5T  ON  CHANGES  OF  CHANN-L  33  BIT  1^.  

R07A3  JOBS  OR  TASKS  INITIATED;  NONE, 

R07A4  SUBROUTINES  CALLED)  1)  SeTISSW.  AND  2)  ALARM  (SEE  FUNCTIONAI  DESCRIPTION), 

R07A6  erasable  INITIALIZATION;  SEE  IMUMON  FOR  INITIALIZATION  OF  Im0De530.  THE  RELAyANT  BITS  A_R_E_5_t  J^_6,  9j_  AND  io_._ 

Ro7A8  alarms;  program  aLARiMi  00212  IF  PIPA  FAIL  IS  PReS'NT  BUT  NeITHeR  iSS  WARNING  IS  TO  Be  ISSUED  NOR  THe  ISS  IS 

R0150 BEING  INITIALIZED. 


R0751  exit:  NXTFL33, 


R0752 

OUTPJl: 

program 

ALARiMi  00212 

AND  ISS 

warning  MAINTENANCE 

0753 

REF 

LAST 

126 

L2j1720 

10  000 

0 PIPFAIL 

CCS 

A 

SET  BlTlO  IN  IM0DES30  SO  ALL  ISS  WARNING 

075A 

REF 

3 

LAST 

89 

12,2721 

3 7752 

0 

CAF 

BITlo 

INFO  IS  IN  ONE  REGISTER, 

0755 

REF 

27 

LAST 

126 

12,2722 

56  365 

1 

KCH 

IMDDFS30 

0756 

REF 

1 

12,2723 

7 3051 

1 

MASK 

-BITiO 

0757 

REF 

28 

LAST 

127 

12,2729 

26  365 

0 

ADS 

IMDDfS30 

0758 

REF 

2 

last 

116 

LTV 

0 2753 

1 

tc 

SETISSW 

0759 

REF 

29 

LAST 

127 

12,2726 

9 0365 

0 

cs 

IM0DfS30 

IF  PIP  fail  DOESNT  light  ISS  WARNING,  DO 

0760 

REF 

1 

12,2727 

7 7763 

0 

MASK 

BITI 

A PROGRAM  ALARM  IF  IMU  oPERATINS  BUT  NOT 

0761 

REF 

97 

LAST 

127 

12,2730 

10  '000 

0 

CCS 

A 

CAGED  OR  BEING  TURNED  ON, 

0762 

ref 

1 

12,2731 

1 2535 

1 

rcF 

NXTFi'33 

0763 

REF 

30 

LAST 

127 

12,2732 

3 0365 

1 

CA 

IM3DFS30 

0769 

REf 

1 

12,2733 

7 3095 

1 

MASK 

0CT1720 

0765 

REF 

98 

LAST 

127 

12,2739 

10  000 

0 

CCS 

A 

0766 

REF 

2 

LAST 

127 

12,2735 

1 2535 

1 

tcf 

NXTFi'33 

ABOVE  CONDITION  NOT  MET, 

0767 

ref 

8 

LAST 

126 

12,2736 

0 9755 

1 

TC 

alarm 

0768 

12,2737 

00212 

0 

OCT 

212 

0769 

ref 

3 

LAST 

127 

12,2790 

1 2535 

1 

ICF 

NxTFI  33 

633i»36A 

YUL  SYSTEM  FoR  AGC:  REVISION  0 

' OF  program  BURST123  BY  NASA  2n21106- 

031 

DEC  7, 

1967 

(Main)  paGE  12s 

L 

P0770 

tarupt 

PROGRAM 

PROGRAM 

nABLSN DjnIMF  A5-T*  LiPTMFAST 

USER'S  OWN  PAGE 

NO,  25 

S3  E6 

R0771 
R 0-773 

fumctional  description:  these 

0.  -A  PROGRAM  alarm  IS  ISSUED. 

programs  process  changes 

THF  ALARMS  ARF: 

OF  3tTS  12 

AND 

11  OF  channel  33, 

IF  A BIT  changes  TO  A 

R077A 

R0775 

BIT  ALARBi 

CAUSE 

R0776 

R0777 

12  01105 

11  01105 

DOWNLINK  TOO  FAST 
UPLINK  TOO'  FAST 

R0778 

Rq779 

calling 

SUBROJT 

SEQUENCE:  BY  C33TEST 

LNES  CALEfDJ__  ALARMj  J-F 

ON  A BIT  change, 

. A_B.LT  change. S TO  A Ol.  _ 

R07b0 

erasable  initialization;  FRESH  START  OR  RESTART*  BITS 

12  and  11  OF 

IM0DES33  ARE  SET  TO 

1. 

R0782 

R0783 

ALARV15;  SEE  FJ»^CTIOMAL  DESCRIPTION, 

R078A 

oUtpjt: 

PROGRAM  ALARMi  ON  A BIT  CHANGE 

TO  0, 

0785 

0786 

REF  A9 

ref  4 

LAST  127  12,2741 

LAST  127  12,2742 

10  000  0 
1 2535  1 

DNTMFAST  CCS 
ICF 

A 

NXTFI  33 

DO  PROG  ALARM  IF 

TM  TOO 

FAST. 

0787 

ref  9 

last  127  12,2743 

0 4755  1 

rc 

ALARM 

0788 

12,2744 

01105  1 

OCT 

1105 

0789 

REF  5 

LAST  128  12,2745 

1 2535  1 

TCF 

NxTFl  33 

0790 

REF  50 

last  128  12,2746 

10  000  0 

UPTMFAST  CCS 

A 

SAME  AS  DNLINK  TOO  FAST 

WITH  different 

0791 

REF  6 

LAST  128  12,2747 

1 2535  1 

tcf 

NXTFl  33 

ALARM  CODE. 

0792 

REF  10 

last  128  12,2750 

0 4755  1 

TC 

ALARM 

0793 

12.2751 

01106  1 

OCI 

11.06 

079^  REF  -7  LAST  128  12.27S2  1 2535  1 * KF  NxTF(  33 
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L TARUPI  program  USER'S  OWN  PAGE  NO.  26  S3  E6 

Pn705  PROGRAM  NAMP  ! SfTISShI 

Ro796  functional  OeSC« IPT I ONi)  tHIS  PRqGRAM  TURNS  tHe  I SS  WARNING  LAMP  oN  AND  OFF  (CHANNEL  u BIT  1 = 1 FoR  ON. 

R0798  Q pOR  Off)  DEPENDING  ON  THE  STATiiS  Op  IMOOES30  BITS  13  (iMiJ  pAILl  AND  A (INHIBIT  IMU  FAIL).  12  (ICDii  FAIL)  AND 

Roeoo  3 (INNIIBIT  ICDU  FAIL).  AND  10  (PIPA  FAIL)  AND  i (INHIBIT  PIPa  FAIL).  THE  LAMP  IS  LEFT  ON  IF  A LAMP  TESf  IS  IN 
R0802  progress. 


R0803  calling  Se(2UeNCE!  CALLeD  BY  IMUMoN  ON  CHANGES  to  IMU  FAIL  AND  ICDU  FAIL.  CALLED  BY  IFAILqK  AND  PFaILoa  JPqN 

R0805  removal  OF  tHe  FAIL  INHIBITS.  CALLeD  BY  ^IPFaIL  WHEN  THE  PlPA  FAIL  DISCRETE  CHANGES,  IT  IS  CALLED  BY  ^IPUSe 

R08.07  _ since  THe  PIPA  FaIL  RRQQRaM  alarm  may  NECESSITATE  AN  I5S  WARNING.  AND  LIKEWISE  BY  PIPFRee  WHfN  tHe  ALARM  DEPARTS 
R0809  and  it  is  CALLEP  by  IMUZER03  AND  ISSUP  AFTER  THE^  FAIL  INHIBITS  HAVE  BEEN  REMOVED. 

R08U  JOBS,  OR  TASKS  INITIATED! NO_N£j 

R0812  subroutines  CALLED!  NONE. 


R0813  • ERASABLE  INITIALIZATION: 


R08i  A 

1 ) 

IM0DES3O 

- SEE  IMUMON. 

R0815 

2) 

IM0DES33 

BIT  1 = 

0 (LAMP 

test  not  in 

PROGRESS) . 

R08I6 

ALARMS! 

ISS 

warning. 

R08i7 

EXITl 

1 VIA  Q 

• 

R0818 

OUTPUT : 

ISS 

warning 

LAMP  set 

PROPERLY. 

0&19 

REF 

1 

12.2753 

3 3037 

0 

SETISSW 

CAF 

OCTl^ 

SET  ISS  WARNING  USING  THE  FAIL  BITS 

IN 

0820 

REF 

31 

last 

12  1 

12,2754 

7 0365 

0 

MASK 

IMODES3O 

BITS  13,  12,  AND  10  OF  IMODES30  AND 

THE 

0821 

12,2755 

0 0006 

1 

EXTEND 

FAILURE  inhibit  BITS  IN  POSIllDNS 

0822 

ref 

4 

LAST 

127 

12,2756 

7 7752 

1 

MP 

BITIO 

4.  3.  AND  1. 

0823 

REF 

32 

last 

129 

12,2757 

3 0365 

1 

CA 

IM0DFS30 

082A 

12,2760 

0 0006 

1 

EXTEND 

0825 

ref 

-21 

LAST 

118 

12,2761 

04  001 

1 

ROR 

L 

0 indicates  FAILURE. 

0826 

12,2762 

4 0000 

0 

COM 

0827 

ref 

1 

12,2763 

7 5641 

0 

MASK 

0CT15000 

0828 

REF 

51 

LAST 

128 

12,2764 

10  000 

0 

CCS 

A 

0829 

REF 

1 

12,2765 

1 2776 

1 

rCF 

ISSWnN 

FAILURE. 

0830 

REF 

2 

LAST 

127 

12,2766 

3 7763 

1 

ISSWOFF 

CAF 

BITl 

DONT  TURN  OFF  ISS  WARNING  IF  LAMP  TEST 

0831 

REF 

6 

LAST 

119 

12,2767 

7 0366 

0 

MASK 

IM0DFS33 

IN  PROGRESS. 

0832 

REF 

52 

LAST 

129 

12,2770 

10  000 

0 

CCS 

A 

0833 

REF 

22 

LAST 

111 

12,2771 

0 0002 

0 

TC 

0 

083A 

REF 

3 

LAST 

129 

12,2772 

4 7763 

0 

:s 

BlTl 

0835 

12,2773 

0 0006 

1 

EXTEND 

0836 

12,2774 

03  Oil 

1 

WAND 

11 

0837 

ref 

23 

LAST 

129 

12,2775 

0 0002 

0 

rc 

0 

0838 

REF 

4 

LAST 

129 

12,2776 

3 7763 

1 

I5SW0N 

CAF 

BITl 
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L TARUPT  PROGRAM 


USER'S  OWN  PAGE  NO.  27  S3  E6 


uo^v 

08<f0 

• • 

■ 

L6.  t ^ / i 1 

12.3000 

u uxnj-O- 

Ob  Oil 

-L. 

1 

g A 1 

11 

• • • ■ - - 

08A1 

ref 

24  LAST 

129 

12.3001 

0 0002 

0 

rc 

Q 

0842 

REF 

1 

12.3002 

4 3050 

0 

CAGESU3 

:s 

B1TSL615 

set  OUTBITS  and  INTERNAL  FLAGS  FOR 

0843 

12.3003 

0 0006 

1 

EXTEND 

SYSTEM  TURM-ON  OR  CAGE.  DISABLE  THE 

„ 0144  _ 

12.3004 

03  012 

aIAND 

_L2 

ERROR  COUNTER  AND  REMOVE  IMU  DEi  AY  COMP. 

0845 

REF 

2 LAST 

116 

12.3005 

3 3041 

1 

CAF 

BI TS465 

SEND  ZERO  AND  COARSE. 

0846 

12.3006 

0 0006 

1 

EXTEND 

0847 

L2 . 3 0 QJ7 

J05_.  012 

/VOR 

12 

0848 

REF 

1 

12.3010 

4 3040 

1 

:s 

OC40nlO 

TURN  ON  NO  ATT  LAMP. 

0849 

ref 

L5  LAST 

121 

12,3011 

Q326_ 

JA5<,  _ 

„OSPT_AfiL 

0850 

REF 

2 last 

130 

12,3012 

6 3040 

0 

AD 

DC40nlO 

0851 

ref 

16  LAST 

130 

12,3013 

54  326 

1 

TS 

OSPTAB  +11D 

0852 

REF 

1 

12,3014 

4 3043 

1 

CAGESU32 

CS 

OCT75 

SET  FLAGS  TO  INDICATE  CAGING  OR  TURN-ON, 

0853  • 

REF 

33  last 

129 

12,3015 

7 0365 

0 

v|AS< 

IMODfSso 

AND  TO  INHIBIT  ALL  ISS  WARNING  INFO. 

0854 

REF 

2 LAST 

130 

12.3016 

6 3043 

..0., 

AD 

0CT7R 

0855 

REF 

34  LAST 

130 

12,3017 

54  365 

0 

TS 

IM0DES3O 

0859 

REF 

LASJ_L3X) 

_L2_,i020 

0 nno? 

_o 

TC _ 

.3..  . 

0862 

REF 

3 LAST 

127 

12.2753 

nUFAIL 

EQUALS 

SETISSW 

0863  - 

_ ref__ 

4 1 AST 

130 

12.2753 

ICDUEAIl 

_EQUAlS 

SET  I SSW_ 

yul 

system  For  agc: 

Revision 

0 OF  Program  burst12o  by  nasa  2021106-031 

Dec  7,  1967  (Main)  paGe  131 

L 

TARUPT  PROGRAM 

USER'S  OWN  page  NO.  28  S3  E6 

P086A 

UilMP- .tables 

0865 

ref 

1 

12,3021 

1 2633  1 

IFAILUMP 

ICF 

ITURnON 

CHANNEL  30  DISPATCH. 

0866 

ref 

1 

12j3022 

_ 1_Z753.  0 

TCF 

-LMUEAII 

0867 

REF 

1 

12,3023 

1 2753  0 

TCF 

ICOUFAIL 

0868 

REF 

1 

12,302A 

1 2663  1 

TCF 

IMUCAGE 

0869 

12,3025 

76400  1 

30RDMS< 

3CT 

7640n 

(BIT  10  NOT  SAMPLED  HERE). 

0870 

REF 

1 

12,3026 

1 2702  1 

TCF 

IMU3P 

0871 

REF 

1 

12,3027  1 2720  1 

C33UMP 

TCF 

PIPFaIL 

channel  33  DISPATCH, 

0872 

ref 

1 

12,3030 

1 2741  0 

TCF 

ONTMFAST 

0873 

REF 

1 

12,3031 

1 2746  1 

rCF 

UPTMpAST 

R087A 

subroutine 

TD'  SKIP  : 

IF  lamp  test 

Mot  im 

progress 

' • 

0875 

REF 

7 last  129 

12,3032 

4 0366  0 

LAMPTEST 

cs 

IM00fS33 

BIT  1 OF  IM0DES33  = 1 IF  LAMP  TEST  IN 

0876 

ref 

5 LAST  129 

12,3033 

7.  7763  0 

MASK 

BITl 

PROGRESS. 

0877 

REF 

53  last  129 

12,303A 

10  000  0 

CCS 

A 

0878' 

ref 

26  LAST  130 

12,3035 

24  002  0 

INCR 

0 

0879 

ref 

27  last  I3l 

12,3036 

0 000.2  0 

TC 

0 

0880 

REF 

1 

5642 

33ROMS< 

EQUALS 

PRIO16 

12,3037 

00015  0 

0ET15 

OCT 

15 

0882 

12,3040 

40010  1 

OCaOOIO 

oCT 

40010 

0883 

12,3041 

00030  1 

BITS465 

OCT 

30 

08AA 

i2,3042 

00054  0 

3CT54 

OCT 

54 

0885 

12,3043 

00075  0 

0CT75 

3CT 

75 

0886 

12,3044 

00300  1 

3ITS768 

OCT 

300 

08B7 

12,3045 

01720  0 

3CT1720 

OCT 

1720 

0888 

12,3046 

01700  1 

OCT1700 

OCT 

1700 

0889 

REF 

1 

5641 

DCT15000 

EQUALS 

PRIOi 5 

0890 

12,3047 

71000  1 

3GT710D0 

OCT 

71000 

0891 

12,3050 

40040  1 

BITS6615 

OCT 

40040 

0892 

12,3051 

76777  1 

-3IT10 

OCT 

-1000 

0893 

12,3052 

21450  0 

90SECS 

OEC 

9000 

089A 

12,3053 

00014  1 

I20MS 

OEC 

12 

0895  REF  4 LAST  111 


5733  GL0C<0<  EQUALS  RESUME 
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L TARUPT  PROGRAM  USER’S  OWN  PAGE  NO.  29  S3  E6 


P0897 

RR 

INBlT  MriNIJjDR. 

0898 

REF 

3 last 

98 

12,3054 

3 0412 

0 

rrautcb< 

:a 

radmodes 

SEE  IF  change  in  RR  AUTO  MODE  BIT. 

12.3055 

0 0006 

Jl 

extend 

0900 

12,3056 

06  033 

1 

RXOR 

33 

0901 

REF 

9 LAST 

126 

12,3057 

7 7762 

1 

MASK 

BIT2 

0902 

12,3060 

D_aOQ6 

_1_ 

EXIE.ND_ 

0903 

REF 

1 

12,3061 

1 3115 

0 

3ZF 

RRCOllCHK 

090A 

REF 

» LAST 

132 

12,3062 

lX_CH  _ 

RADMQDES__.  _ _ 

UPDATE  RADMODES. 

0905 

12,3063 

0 0006 

1 

extend 

0906 

ref 

22  LAST 

129 

12,3064 

06  001 

0 

RXOR 

L 

0907 

REF 

5 LAST 

132 

12,3065 

54  412 

IS_ 

RADMnDES 

0908 

REF 

10  LAST 

132 

12,3066 

7 7762 

1 

MASK 

BH2 

SEE  IF  JUST  ON. 

0909 

REF 

54  LAST 

131 

12,3067 

10  000 

0 

CCS 

A 

09LO 

REF 

1 

12,3070 

1 3107 

0 

ICE 

RR31p_ . 

OFF- 

0911 

REF 

5 last 

124 

12,3071 

3 7755 

1 

CAP 

BIT? 

IF  JUST  ON  AND  SOME  PROGRAM  IS  JSING  THE 

0912 

REF 

13  LAST 

126 

12,3072 

7 0074 

0 

mask 

STATE 

RR.  DONT  ZERO  THF  CDUS. 

0913 

REF 

55  LAST 

132 

12,3073 

10  000 

0 

CCS 

A 

0914 

REF 

2 LAST 

132 

12,3074 

1 3115 

0 

TCF 

RRCDllCHK 

0915 

REF 

1 

12,3075 

4 3106 

1 

cs 

OCTlOOOl 

Set  BITS  TO  INDICATE  ZERO  AND  TJRNON 

0916' 

ref 

6 lAsT 

132 

12,3076 

7 0412 

1 

mask 

RADMODEs 

IN  PROGRESS. 

0917 

REF 

2 LAST 

132 

12,3077 

6 3106 

0 

AD 

OCTlOOOl 

0918 

REF 

7 LAST 

132 

12,3100 

54  412 

1 

TS 

RADMODES 

0919 

ref 

15  LASJ 

119 

12,3101 

3 7763 

1 

CAF 

ONE 

0920 

REF 

7 LAST 

117 

12,3102 

0 5663 

1 

TC 

WAITLIST 

0921 

REF 

7 LAST 

117 

E6 

EBANK= 

Mil 

0922 

12,3103 

02000 

0 

2CADR 

RRT JrNON 

C0922 

ref 

1 

12,3104 

20066 

0 

0923 

ref 

3 LAST 

108 

12,3105 

1 3161 

0 

TCF 

N0RRr,MON 

0924 

12,3106 

10001 

1 

OCTlOOOl 

DCT 

IOOO1 

0925 

REF 

14  LAST 

132 

12,3107 

4 0074  0 

rroff 

CS 

STATE 

IF  someone,  was  USING  THE  RR,  DISPLAY  AN  

0926 

REF 

6 LAST 

132 

12,3110 

7 7755 

0 

MASK 

BIT? 

ALARM  IF  the  RR  GOES  OUT  OF  AUTO  MODE. 

0927 

REF 

56  LAST 

132 

12,3111 

10  000 

0 

CCS 

A 

0928 

REF 

3 last 

132 

12,3112 

1 3115 

0 

TCF 

RRCDiiCHK 

0929 

REF 

U LAST 

128 

12,31 13 

0 4755 

1 

tc 

alarm 

0930 

12,3114 

00514 

1 

OCT 

514 

633436A 

YUL 

SYSTEM  for  AGCi 

i REVISION 

0 OF  PROGRAM  BURST12D  BY  NASA  2021106-031 

DEC  ?,  196?  (MAIN)  PAGE  133 

L 

P0931 

T4SaPT 

PROGRAM 
CHFCK  For 

RRi  CPU  FAIL. 

USER'S  OWN  PAGE  NO.  30  S3  E6 

0932 

REF 

8 

LAST 

132 

12.3115 

3 0412 

0 

RRCDUCH< 

CA 

radmodes 

LAST  sampled  BIT  IN  RADMODES, 

0933 

12.3116 

0 0006 

1 

'X.T.ENO 

093A 

12.3117 

06  030 

1 

RXOR 

30 

0935 

ref 

7 

LAST 

132 

12.3120 

7 7755 

0 

MAS< 

BIT? 

0936 

.12,3.121 0_  0_0a6 

1 

EXTEND 

0937 

ref 

1 

12,3122 

1 3135 

1 

3ZF 

RRGImON 

0938 

REF 

U 

LAST 

132.  _ 

_12.1123 

3 7762 

0 

CAF 

BIT2  __ 

IF  RR  NOT  IN  AUTO  MODE.  DONT  CHANSE  BIT 

0939 

REf 

9 

LAST 

133 

12,3124 

7 0412 

1 

mA5< 

RAD\iODES 

? OF  radmodes.  If  this  were  not  done. 

09«t0 

REF 

57 

LAST 

132 

12,3125 

10  000 

0 

CCS 

A 

THE  tracker  fail  MIGHT  COME  ON  WHEN 

09^1 

REF 

4 

LAST 

ii2_ 

12,3126 

1 SJUSlL 

0 

rcF  . 

NORRGMON 

JUST  READING  LR  DATA. 

0942 

REF 

8 

last 

133 

12,3127 

3 7755 

1 

CAF 

bit? 

SET  BIT  ? OF  radmodes  FOR  SeTTRCF. 

0943 

RtF 

10 

last 

133 

12,3130 

22  412 

0 

_XCH 

RAjjvinaES 

update  RAdMOdES. 

0944 

12,3131 

0 0006 

1 

EXTEND 

0945 

ref 

23 

LAST 

132 

12,3132 

06  001 

0 

RXOR 

L 

0946 

REF 

11 

LAST 

133 

12.3133 

54  412 

1 

TS 

RADMnDES 

0947 

REF 

1 

12,3134 

0 4377 

0 

TRKFLC30 

tC 

settrkf 

update  tracker  fail  lamp  on  DS<Y. 

633436A  YUL  SYSTEM  FOR  ^GC;  REVISION  0 OF  PROGRAM  BURST12D  BY  NASA  2021106-031 
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L tarupt  Program  user's  own  page  no.  31  S3  E6 


P09A8 

THc  RR  GIMBAL  LIMIT 

MQJMITOR  is 

fNABLfO  WHFNfYfR  1 Hf  RR 

LS  IN  THF  AUIQ  MODF  FXCrPT  WHpN  THe  RR  CDJS  ARe 

R0950 

R0952 

R095A 

BEING  zeroed,  or  DURIMG  A ReMODe  OR  MONITOR  REPOSITION 

THe  gimbals  exceed  the  limits  For  the  current  mode,  a 

S s 0 IF  IN  MODE  1 AND.  1 s_J3_0_W_LTK  S = -lH  F_0i^M0fi£^^ 

OPERATION 
ROJflNE  IS 

. the  Latter  is  initiated  by  this  monitor  vjhen 
initiated  to  drive  the  gimbals  to  T = 3 AND 

0955 

0956 

ref  1 

REp  12  LAST  133 

12.3135 

12.3136 

3 3157  1 
7 0412  1 

RRGIMON  :AF 

0CT32002 

RADmoDFS 

INHIBITED  BY  REMODE,  ZEROING,  MONITOR, 
OR  RR  NOT  IN  AllTO. 

0957 

0958 

REF  58  LAST  133 
REF  5 LAST  133 

12,3137 

12,31A0 

10  000  0 
1 3161  0 

CCS 

rcF 

A 

NORRgMON 

0959 

0960 

REF  1 

REF  1 

12,31A1 

12,31A2 

0 A334  1 
00035  1 

TC 

ADRES 

RRLIMCHK 

OPTY 

SEE  IF  ANGLES  IN  LIMITS, 

0961 

REF  1 

12,31A3 

1 31A5  0 

TCF 

MONRfPOS 

0962  REF  6 LAST  ) 3A  12,3144  1 3161  0 . JCF NaSL^HDTJ (ADDITIONAL  CODING  MAY,  GO  HfRE)  . 


0963 

096A 

REF 

_REJ 

2 LAST  llB 
13  LAST  J3A 

12*31A5 

J.2,3146 

3 7751  0 
_26  A12  J.  . 

monrepos  caf 

ADS 

BITii 

SET  FLAG  TO  SHOW  REPOSITION  IN  aROGRESS, 

0965 

REF 

1 

12,31A7 

A 3160  1 

cs 

OCT  20002 

DISABLE  TRACKER  AND  ERROR  COUNTfR. 

0966 

I2t3i50 

0 0006  1 . 

-XTEND 

0967 

12,3151 

03  012  1 

wand 

12 

0968 

ref 

A LAST  88 

12,3152 

3 7162  0 

CAF 

Two 

0969 

REF 

8 LAST  132 

12,3153 

0 5663  1 

rc 

WAITI  1ST 

0970 

REF 

8 LAST  132 

E6 

eban<= 

MU 

0971 

12,315A 

02051  1 

2CADR 

DORRfPOS 

C0971 

ref 

1 

12,3155 

20066  0 

0972 

ref 

7 LAST  13A 

12,3156 

1 3161  0 

ICF 

NORRGMON 

12,3157  32002  1 0CT32002  OCT 

12,3160  20002  1 OCT20002  OCT 


0973 

097A 


32002 

20002 
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L 

tarupt  program 

USER'S  OWN  PAGE  NO. 

32  S3  E6 

P0975 

PROGRAM  name;  oPIMALRLX  (DAPTA.SI^  M0&.^N0,^  _ _DAJ_E!  __0XX0fi£5__EZt_lS66 

R0976 

AUtHORi!  JONATHAN  D.  AODeLSTON  (ADAMS  ASSOCIATES) 

Ro977 

R0979 

RO901 

this  program  calculates  all  the  SINGLE-PRECISION  MATRIX  eLeMfNTS  WHICH  ARE  USED  BY  LeM  DaP  TO 

from  3'IMbal  to  Pilot  (Body)  axes  and  bac<  again,  these  elements  are  used  exclusively  by  basic 

AND  THFRfFORF  ARf  not  ARRaYeD  FOR  USF  BY  INTERPRETIVE  PROGRAMS. 

transform  Vectors 
language  Routines 

R0982 

R098A 

calling  SEQUENCE!  GPMiATRIX  IS  TRANSFERRED  TO  FROM  DAPtaS  AND  IS  THUS  eXeCUteD  A TIMES  A SECOND  BY  TaRUPt. 
DAPtaS  is  listed  in  TaUUMP  table  twice  explicitly  and  also  occurs  after  RRAUtCHK  (WHICH  IS  ALSO  listed  tWICf). 

R0986 

SUBROUTINES  CALLED!  SPSIN.  SPCOS. 

R0987 

normal  EXIT!  RESUME. 

R09B8 

ALARM/ABoRT  MODE!  THfRe  ARf  NO  RfAL  ALaRMS  OR  ABORTS.  HoWfVfR.  WHfN 

THf  MIDDLf  GIMBaL  ANGLf  N 

ears  GIM3AL  LOC<. 

R0990  a division  bY  C°S(MG)  WIll  cause  overflow' (I Ad  QUOTIENT).  ThIS  cONdITION  is  prevented  by  TESTIN3  COS(VIG) 
R0992  and  SJBSTiTUTiNti  PoS'IAX/NeGMAX  FqR  THE  INCALCULABLE  DJANTITIeS. 


R0993  INPUT!  CDUX ,CD «CDUZ . OUTPUT!  Ml  1 »M2 1 » M3I »M22 » M32  .MR  12  .MR  1 3 • 

R099A  ■ (Also  MR22=M22.MR23=m32) 


R0995  AOG  = CDUX.  AIG  s CDJY.  AMG  = CDUZ!  MNEMONIC  IS!  OJM  = XYZ 

Rxi9a6_ * t SIN  (MG') Q 1 * 

R0997  = » COS(Ni3’)COS(OG)  SIN(OG)  0 * 

R0998  53i  * -CoS (MG) SIN (OG)  COS(OG)  0 n 


R0999  » .to  CO'S(OG)/COS(MG)  -SI  N ( 03) /COS  ( MG ) * 

RlOOO  -V|  = » 0 SINTOG)  COS(OG)  » 

R 1001 P3'  » 1 -S1N(MG)COSiOGi/CqS(MG1  SIN(M5iSIN(QG)/C0s(MGi » 


R1002  this  Coding  transfers  control  to  tHe  dap  Fixed  banx  for  oPMatrix: 


1003 

10031 

ref 

9 

LAST 

I3A 

12*3161 

E6 

3AN< 

eban<= 

12 

Mil 

lOOA 

12.3161 

0 0006  1 

daptas 

EXTEND 

GET  2CADR  OF  GPMATRIX 

1005 

ref 

1 

12.3162 

3 3165  0 

DCA 

DAPT4 

1006 

12.3163 

52  006  0 

DTCB 

CROSS  BANKS 

10065 

REF 

3 

LAST 

108 

12.3161 

ndrrgmon 

equals 

DAPTAS 

1007 

REF 

10 

LAST 

135 

E6 

eban<= 

MU 

1008 

12 .316A 

02000  0 

dapta 

2CADR 

3PMATRIX 

C1008 

ref 

1 

12.3165 

A0066  0 
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L TARJPr  PROGRAM  USERiS  OWN  PAGE  NO,  33  S3  E6 


P 1 009 

T49UPr  DAP  ! OGlC_: 

1010 

20*2000 

3AN< 

20 

lOlOl 

REf 

11  LAsT 

-1-35 

E6  - - 

-SBANi= 

y 1 1 

1011 

REF 

2 LAST 

I2O 

20,2000 

30  034  0 G^MATRIX 

CAE 

CDJZ 

SINGLE  ENTRY  POINT 

1012 

REP. 

..  1 . _ . 

-2-0^2.00.1. 

- 0 -.53.5-5- -1  -...  - -. 

TC 

-SPSIN 

SIN(CDUZ).  = SIN(MG) 

1013 

ref 

12  LAST 

136 

20,2002 

55  * 4O4  1 

TS 

Mil 

SCALED  AT  1 

1014 

rEf 

3 LAST- 

uf> 

20.7003 

-CAE-.— 

C0J2 

1015 

REF 

1 

20,2004 

0 5354  0 

TC 

SPC05 

COS(CDUz)  = COS(MG) 

1016 

REF 

1 

20,2005 

55*457  1 

IS 

COSMG 

SCALED  AT  1 (ONLY  A FACTOR) 

1017 

ref 

1 

20,2006 

30  032  0 

-AE 

CDJX 

1018 

REF 

2 LAST 

136 

20,2007 

0 5355  1 

rc 

SPSiN 

SIN(CDUx)  = SIN(OG) 

1019 

REF 

1 

20.2010 

-55*401  1 

TS 

M22 

SCALED  AT  1 (ALSO  IS  MR?2) 

1020 

rEf 

2 LAST 

136 

20,2011 

4 1401  1 

CS 

M22 

1071 

20,2012 

0 0006  1 

EXTEND 

1022 

REF 

2 LAST 

136 

20,2013 

7 1457  1 

MP 

COS  Mr, 

-SIN(0G)C0S(M6) 

1023 

ref 

1 

20,2014 

55*406  0 

TS 

M31 

SCALED  AT  1 

1024 

rEF 

2 LAST 

136 

20,2015 

30  032  0 

CAE 

CDJX 

1025 

REF 

2 LAST 

136 

20,2016 

0 5354  0 

TC 

SPCD5 

COS(CDUX)  = COS(OG) 

1026 

ref 

1 

20.2017 

55*403  0 

IS 

Mi2 

SCALED  AT  1 (ALSO  IS  MR23) 

1027 

20,2020 

0 0006  1 

EXTEND 

1028 

REF 

3 last 

136 

20,2021 

7 1.457  1 

MP 

COSMg 

COS{QGiCQS-(MG) 

1029 

ref 

1 

20,2022 

55*405  0 

TS 

M2I 

SCALED  AT  1 

1030 

rEf  _ 

4 LAST 

136 

20,2023 

4 1457  1 

rs 

COSMG- 

CRECK^FOr  CliU2_.-GREATER  than.  60  OESREES.  . . --- 

1031 

REF 

7 LAST 

123 

20,2024 

6 7746  0 

AD 

81114 

1032 

20,2025 

0 0006  1 

EXTEND 

loia 

20,2026 

6 2031  1 

3ZMF 

+ 3 

10332 

REF 

8 LAST 

136 

, 20,2027 

3 7746  0 

caf 

B1T14 

USE  60  DEG.  for  CDUZ-HENCE  COS ( CDJZ) sl/2 

10334 

REF 

5 LAST 

136 

20,2030 

55*457  1 

TS 

COSMG 

(SINMG  NOT  SIMILARLY  LIMITED) 

JOliL 

REF 

2 LAST 

136 

20,2031 

31*403  1 +3 

CAE 

M32 

1035 

20,2032 

0 0006  1 

EXTEND 

1036 

REF 

9 LAST 

136 

20,2033 

7 7746  1 

MP 

B1T14 

SCALE  FOR  DIVISION 

1037 

20,2034 

0 0006  1 

EXTEND 

1038 

REF 

6 LAST 

136 

20,2035 

11*457  1 

OV 

COSMG 

COS(OG)XCOS(MG) 

1039 

REF 

1 

20,2036 

55*400  0 

IS 

MRle 

SCALED  AT  2 

IO4O 

ref 

3 LAST 

136 

20,2037 

4 1401  1 

CS 

M22 

1041 

20,2040 

0 0006  1 

EXTEND 

1042 

REF 

10  LAST 

136 

20,2041 

7 7746  1 

MP 

BIT14 

SCALE  FOR  DIVISION 

1043 

20,2042 

0 0006  1 

EXTEND 

1044 

REF 

7 LAST 

136 

20,2043 

11*457  1 

OV 

COS  Mr, 

-SIN(OG)/COS(MG) 

1045 

ref 

1 

20,2044 

55*402  1 

TS 

MR13 

SCALED  AT  2 

1046 

ref 

5 last 

131 

20,2045 

1 5733  1 

TCF 

RESJME 

633^36A 

YUL 
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! REVISION 
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L 

0001 

IMJ 

MDDE 

; sk/itching 

routines 

43.L4„ 

3LJ2C.C 

- QZ 

USER'S  OWN  page  NO.  1 S3 

0002 

Rn003 

REF 

1 

FIXED-UXED  ROUTINES 

1 

E3 

EBAN< 

= command 

0004 

REF 

24 

last 

125 

4314 

3 7767 

0 

ZEROICOU 

:af 

ZERO 

ZERO  ICDU  counters. 

0005 

REF 

3 

LAST 

136 

4315 

54  032 

1 

TS 

COJX 

0006 

REF 

1 

4316 

54  033 

0 

TS 

CDJY 

0007 

REF 

4 

LAST 

136 

4317 

54  034 

1 

TS 

CDJZ 

0008 

REF 

28 

LAST 

13A_  _ 

4320 

0 0002 

0 

IC 

3 

00085 

4321 

00620 

0 

4SEC5 

OEC 

400 

0009 

4322 

_00_454 

1 

_3SECS 

OLc 

. 3(10 
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L 

POO)  1 

iMJ 

V13DE  SiViTCHlNG  ROUTINES 
IMU  2FHQING  ROUTINF. 

USER'S  OWN  page  NO.  2 S3  E3 

0012 

13,2000 

3AN< 

13 

0013 

13*2000 

0 0004 

0 

nuzERO 

INHINT 

ROUTINE  TO  ZERO  ICDUS. 

00131 

REF 

17  LAST 

130 

13.2001 

4 0326 

1 

:s 

DSPTaB  +llD 

DONT  ZERO  CDUS  IF  IMU  IN  GIMBAL  LoC<  AND 

00132 

REF 

1 

13.2002 

7 2777 

0 . 

vlAS< 

3 i T 

COARSF  ALIGN- 

00133 

REF 

59  LAST 

134 

l3 .2003 

10  000 

0 

CCS 

A 

0013A 

REF 

1 

13.2004 

1 2010 

0 

TCF 

IMJzfROA 

00135 

REF 

12  LAST 

132 

13,2005 

0 4755 

1 

TC 

ALA^M 

IF  SO. 

00136 

13,2006 

00206 

0 

OCT 

206 

00137 

REF 

1 

13,2007 

1 2712 

0 

rcF 

CAGETSTJ  +4 

OOIA 

REF 

5 LAST 

)26 

I3_,2010 

^ 4-  7754 

1 

IMUZERDA 

C5 

-1.MJSfFLG_^ 

0015 

REf 

15  L^ST 

132 

13,2oll 

7 0074 

0 

v|AS< 

statf 

PROGRAM  IS  USING  ThE  IMU. 

0016 

REF 

6 last 

138 

13,2012 

6 7754 

0 

AD 

IMJSfFLG 

0017 

REF 

16  last 

138 

_13j2013 54_  07_4_ 

.0 

IS  _ 

statf 

0018 

REF 

1 

13,2014 

0 2701 

0 

TC 

cagetstq 

IF  IMU  COMING  UP,  TURN-ON  PROGRAM  WILL 

0019 

ref 

1 

13,2015 

1 2043 

0 

,rCF 

modefxit. 

DO  ALL  THE  WORK.  ..  „ 

0020 

REF 

1 

13,2016 

4 2776 

1 

CS 

BIT  S364 

inhibit  ICDUFAIL  and  IMUFAIL  (I\I  CASE  WE 

0021 

ref 

35  JLAsI 

130 

13,2017 

7 0365 

0 

lMOriF<;30 

JUfT  came  out  of  COARSE  ALIGN). 

0022 

REF 

2 LAST 

138 

13,2020 

6 2776 

0 

AD 

BlTSaU 

0023 

ref 

36  LAST 

138 

13,2021 

54  365 

0 

TS 

IM30FS30 

0024 

REF 

2 LAST 

138 

13,2022 

4 2777 

0 

CS 

SIT  5466 

send  zero  encode  with  coarse  ano  frror 

0025 

13,2023 

0 0006 

1 

EXTEND 

counter  disabled. 

0026 

13,2024 

03  012 

1 

aIAND 

12 

00261 

REF 

2 LAST 

116 

13,2025 

0 2324 

0 

TC 

NOATtOFF 

TURN  OFF  NO  ATT  LAMP. 

0027 

REF 

3 LAST 

117 

13,2026 

3 7757 

0 

CAF 

BITS 

0028 

13,2027 

'0  0006 

1 

EXTEND 

0029 

13,2030 

05  012 

1 

«IOR 

12 

0030 

REF 

8 LAST 

12l 

13,2031 

3 7756 

1 

CAF 

BIT6 

WAIT  320  MS  TO  GIVE  AGS  ADECOUATE  TIME  TO 

0031 

REF 

9 LAST 

L34 

13,2032 

0 5663 

1 

TC 

WAITLIST 

RECFIVF  ITS  PULSF  TRAIN- 

00315 

REF 

2 LAST 

137 

E3 

EBAN<= 

COMMAND 

0032 

13,2033 

02045 

1 

2CADR 

IMJZFR02 

C0032 

REF 

1 

13.2034 

26063 

0 

0033  ■ 

REF 

37  last 

138 

13,2035 

4 0365 

0 

CS 

IMD0FS30 

SEE  IF  IMU  OPERATING  AND  ALARM  IF  NOT. 

0034 

REF 

2 LAST 

115> 

13,2036 

7 7753 

0 

viA5< 

3IT9 

0035 

REF 

60  LAST 

138 

13,2037 

10  000 

n 

res 

A 

0036 

REF 

2 LAST 

138 

13,2040 

1 2043 

0 

TCF 

MODEfXIT 

0037 

ref 

13  LAST 

138 

13,2041 

0 4755 

1 

TC 

alarm 

0038 

13,2042 

00210 

1 

OCT 

210 
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L 

IMJ  MODE  switching  ROUTINES  USER'S  OWN  PAGE  NO.  3 S3  £3 

0039 

13.20A3  00003  1 MDDEEX I T_ RELl MT  GENERAL  MODE-SwITCHING  F)(IT. 

00^0  REF  2 LAST  63  13.20AA  1 5221  1 ICF  SWREtURN 


YUL 

SYSTEM  FOR  ^GCl 

! REVISION 

0 OF  PROGRAM  BURST120  BY  NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  140 

L 

IMJ 

mode  Switching 

routines 

USER'S  OWN  page  NO.  4 S3  E3 

OO4I 

R£F 

7 1 AST  1 38 

13.7045 

— T5-270i__0 

IMUZER3?  TC 

CAGFTSTQ 

. POSSIBLY  SWITCH  TO  TURN-ON  PROGRAM, 

0042 

REf 

4 LAST  116 

13,2046 

1 5727  1 

rcF 

TAS<OVER 

00^»3 

REF 

7 1 AST  116 

13,2047 

0 4314  0 

ic 

ZEROtCDU 

ZFRO  COUNTERS, 

0044 

REf 

4 lAST  138 

13,2050 

4 7757  1 

:s 

BIT5 

remove  zero  discrete. 

0045 

13,2051 

0 0006  1 

EXTEND 

0046 

13.2052 

03  012  1 

WAND 

_J2 

0047 

ref 

2 LAST  116 

13,2053 

3 4321  0 

:af 

4SECc 

0048 

REF 

3 LAST  116 

_ 13.2054 

0 5704  1 

. IC  ..  . 

.iZASDELAY 

0049 

REF 

3 LAST  I4O 

13,2055 

0 2701  0 

IMUZERD3  TC 

CAGETSTO 

0050 

REF 

5 LAST  140 

13.2056 

1 5727  1 

TCF 

TAS<nVER 

0051 

REF 

3 LAST  138 

13,2057 

4 2776  1 

cs 

BITS364 

REMOVE  IMUFAIL  AND  ICOUFAIL  INHIBIT, 

0052 

REf 

38  1 AsT  138 

13.2060 

7 0365  0 

_ mAs<  - 

IM0~iFs30 

0053 

REF 

39  LAST  140 

13,2061 

54  365  0 

TS 

IM02ES30 

OO54 

REF 

17  LAST  170 

1 3.7067 

0 5270  ) 

IC 

lBN<rALL 

SFT  ISS  warning  IF  FITHfR  of  A3-IVF  ARF 

0055 

REF 

5 LAST  I3O 

13,2063 

24753  0 

CADR 

SETISSW 

PRESENT. 

0056 

ref._ 

_ _.2_LASJ  1,L6_„ 

_.__L3,2064 

1 2664  _0  _ 

TCF 

enoimu  ____ 
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L IMJ  MDDE  switching  ROUTINES  USER'S  OWN  PAGE  NO.  5 S3  E3 


P0057 

I MU 

rDARSE 

AUGN_._M_0_G£. 

0058 

13 

.2065 

0 0004  0 IMUCOARS 

INHIMT 

0059 

REF 

2 

last 

12^ 

13 

*2_0j66 

0 2232  0 

1C  _ , 

SETCnARS 

0066 

REF 

2 

LAST 

110 

13 

.2067 

3 6306  1 

CAF 

SIX 

0067 

REF 

10 

LAST 

138 

13 

.2070 

0 5663  1 

TC  , 

WAITLIST 

00675 

REF 

3 

LAST 

138 

E3 

EBAN<= 

command 

0068 

13 

.2071 

02074  0 

2CADR 

COARS 

C0068 

ref 

1 

13 

±2072 

26063  _0 

0069 

REF 

3 

LAST 

138 

13 

.2073 

1 2043  0 

TCF 

MODEEXIT 

OO7O 

REF 

1 

13 

.2074 

0 2674  0 CDARS 

TC 

XAG_EtES.T - 

0071 

REF 

9 

LAsT 

138 

13 

.2075 

3 7756  1 

CAF 

BIT6 

enable  All  thRee  Iss  cdu  error 

counters 

0072 

13 

.2076 

0 0006  1 

EXTEND 

0073 

ref 

1 

13 

.20J7 

05  012  1 

WOR 

CHAN12 

0074 

REF 

5 

LAST 

134 

13 

.2100 

3 7762  0 

CAF 

TWO 

Set  cdu  indicator 

0075 

REF 

1 

13 

.2101 

551460  0 CDARSl 

rs 

CDJImD 

0076 

REF 

2 

last 

141 

13 

.2102 

51*460  1 

index 

CDUIND 

COMPUTE  THETAD  - THETAA  IN  i;S 

0077 

REF 

1 

13 

.2103 

3 0400  0 

CA 

THETAD 

complement  form 

0078 

13 

.2104 

0 0006  1 

extend 

0079 

REF 

3 

LAST 

14l 

13 

.2105 

5 1460  1 

INDEX 

CDJInD 

OOsO 

ref 

4 

LAST 

137 

13 

.2106 

20  032  1 

MSU 

CDJX 

0081 

13 

.2107 

0 0006  1 

EXTEND 

0082 

ref 

2 

LAST 

119 

13 

.2110 

7 7747  0 

MP 

SITU 

SHIFT  RIGHT  2 

0083 

REF 

74 

LAST 

133 

13 

.2111 

56  001  0 

XCH 

L 

round 

0084 

13 

.2112 

6 0000  1 

DOUBLE 

0085 

ref 

12 

LAST 

88 

13 

.2113 

54  061  1 

rs 

n EMPl 

0086 

13 

.2114 

1 2116  1 

TCF 

♦ 2 

0087 

REF 

25 

LAST 

I4l 

13 

.2115 

26  001  1 

ADS 

L 

(i088 

REF 

4 

LAST 

141 

13 

.2116 

51*460  1 

INDEX 

CDJiwD 

difference  to  be  COMPUTED 

0089 

REF 

4 

LAST 

I4l 

13 

.2117 

23 • 455  1 

LXCH 

Command 

OO9O 

ref 

5 

last 

141 

13 

.2120 

11*460  0 

CCS 

CDUInD 

0091 

REF 

-J 

13 

.2121 

0 2101  0 

TC 

CQAR41 

0092 

REF 

6 

last 

141 

13 

.2122 

3 7762  0 

CAF 

Two 

MINIMUM  OF  4 MS  WAIT 

0093 

REF 

4 

LAST 

140 

13 

.2123 

0 5704  1 

TC 

YARDfLAY 

633^36A 

YUL 

SYSTEM  for  AgC; 

! REVISION 

0 OF  program  BURST12D  BY  NASA  2n2110fe-031 

DEC  7,  1967  (MAIN) 

page  142 

L 

IMJ 

MODE  SWITCHING 

rojtines 

USER'S  OWN  PAGE  NO.  6 

S3  E3 

OO94 

REF 

? 1 AFT  1 4l 

13.7124 

_0.  2-674  0 CJ-AEiS2-  - 

- l-CL-  - 

■CA.GE.TEST 

PONT  CONTINUE  IF  CAGED,  _ _ „ 

0095 

REF 

13  last  1A1 

13.2125 

54  061  1 

TS 

ITEMPI 

SETS  TO  +0. 

0096 

REF 

7 LAST  lAl 

13.2126 

3 7762  0 

CAF 

TrtO 

SET  CDU  INDICATOR 

0097 

REF 

ft  LAST  lAl 

13.2127 

_55J460„ 0 +3 

IS- 

roJiMP  - - - 

0098 

REF 

7 LAST  1A2 

13.2130 

51*460  1 

INDEX 

CDJIND 

0099 

REF 

ft  LAST  141 

13.7131 

1 1 • 0 

CCS 

COMMAND 

NUMBER  OF  PULSES  RFQUIRFD 

0100 

REf 

1 

13.2132 

0 2136  1 

TC 

COMPnS 

greater  than  max  Allowed 

0101 

REF 

1 

13.2133 

0 2145  0 

TC 

NEXTCDU  ♦! 

0102 

REF 

\ 

13.2134 

0 2211  1 . - 

.IC 

-COMNfG  -. 

0103 

REF 

2 LAST  142 

13,2135 

0 2145  0 

rc 

NEXTrDU  +1 

OlOA 

REF 

1 

13.2136 

ft  3002  0 COMPOS 

AD 

-COMMAX 

COMMAX  = MAX  NUMBER  OF  PULSFS  M 

:lowed 

0105 

13.2137 

0 0006  1 

extend 

MINUS  ONE 

0106 

REF 

1 

13,2140 

6 2221  1 

3zMF 

COMzfRO 

0107 

REF 

R LAST  142 

13.2141 

.51  '-460  1 

INDEX- 

CDOIUD. 

010-8 

REF 

6 LAST  142 

13,2142 

55*455  0 

rs 

COMMAND 

REDUCE  COMMAND  BY  MAX  NUMBER  OF 

PJLSES 

0109 

ref 

1 

13,2143 

4 3003  0 

cs 

-COMMAX- 

ALLOWED 

0110 

REF 

14  LAST  142 

13.2144 

24  061  0 NEXTCDJ 

INCR 

I TEMdI 

01105 

REF 

2 LAST  107 

13.2145 

6 7770  0 

ad 

NeGo 

PREVENT  +0  IN  OUTPUT  COUNTER 

0111 

REF 

9 LAST  142 

13l.2146 

51*460  1 

INDEX 

CDJIND 

0112 

REF 

2 LAST  125 

13.2147 

54  050  0 

TS 

CdJXCMD 

SET  UP  COMMAND  REGISTER. 

0113 

REF 

10  LAST  142 

13.2150 

1 1 *460  0 

CCS 

CDJIND 

011^' 

REF 

1 

13,2151 

0 2127  1 

IC 

C0ARS2  +3 

0115 

REF 

15  last  142 

13,2152 

10  061  1 

CCS 

ITEMPl 

SEE  IF  ANY  PULSES  TO  GO  OUl. 

0116 

REF 

1 

13.2153 

1 2225  1 

rcF 

SENOPULS 

0117 

REF 

1 

13.2154 

0 5701  L 

rC 

FiXDcLAY 

WAIT  FOR  GIMBALS  TO  SETTLE. 

0118 

13,2155 

00226  1 

DEC 

150 

633436A  YUL  SYSTEM  FOR  «GC:  REVISION  0 OF  PROGRAM  BURST120  BY  NASA  2021106-031 
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L 

IMJ 

MODE  switching 

rojtines 

USER*S  own  page  no.  7 S3  E3 

0119 

REF 

8 

last 

162 

13.2156 

3 7762 

CL 

CAf 

TWO  _ 

AIL  END  OF  command.  CHECK  TO  SEE  THAT 

0120 

REF 

16 

LAST 

162 

13,2157 

56  061 

1 

CHKCORS 

IS 

IlEMPl 

gimbals  ARE  within  2 DEGREES  OF  THETAD. 

0121 

REF 

61 

LAST 

138 

13,2160 

50  000 

1 

INDEX 

A 

0122 

REF 

5 

LAST 

-16l  __ 

_J3j21_61 

3 0032 

0 

CA  __  _ 

CDJX 

0123 

13,2162 

0 0006 

1 

EXTEND 

0126 

REF 

17 

LAST 

163 

13,2163 

5 0061 

0 

INDEX 

TTEMol 

ref 

? 

LAST 

l6l 

13,2166 

20  600 

1 

vtSJ 

THETAD 

0126 

REF 

62 

LAST 

163 

13,2165 

10  000 

0 

CCS 

A 

0127 

REF 

1 

1 3 ♦ 2 166 

1 2202 

1 

TCF 

COARSERR 

0128 

REF 

1 

13,2167 

1 2171 

0 

_LCF 

CQR5CHK2 

0129 

ref 

2 

last 

163 

13,2170 

1 2202 

1 

ICF 

COARSERR 

0130 

REF 

18 

last 

163 

13,2171 

^0  061 

1 

C3RSCH<2 

CCS 

ITEMPl 

0131 

REF 

1 

13,2172 

1 2157 

1 

ICF 

chccors 

0132 

REF 

3 

LAST 

31 

13,2173 

55,655 

0 

rs 

3CDMP 

ZERO  GYRO  compensation  REGISTERS  IN 

0l3i 

REF 

6 

last 

163 

13,2176 

5S'65f, 

0 

TS 

GCDMP  +1 

PREPARATION  FOR  COMPENSATION. 

0136 

ref 

5 

last 

163 

13,2175 

55*657 

1 

IS 

gcdmp  *Z 

0135 

ref 

6 

last 

163 

13,2176 

55*660 

0 

IS 

oCOMP  +3 

0136 

ref 

7 

last 

163 

13,2177 

55*641 

1 

TS 

, GCDMP  ,6 

0137 

REF 

8 

LAST 

163 

13,2200 

55*662 

1 

IS 

oCDMP  +5 

0138 

REF 

3 

LAST 

160 

13j2201 

1 2666 

0 

TCF 

ENDIMU 

END  OF  coarse  ALIGNMENT. 

0139 

REF 

1 

13,2202 

6 2210 

0 

COARSERR 

AD 

COARSTOL 

2 degrees. 

0160 

13,2203 

0 0006 

1 

EXTEND 

0161 

ref 

2 

LAST 

163 

13,2206 

6 2171 

1 

3ZMF 

C0RSCHK2 

0162 

REF 

16 

last 

138 

13,2205 

0 6755 

1 

rc 

ALARM 

COARSE  align  ERROR. 

0163 

13,2206 

00211 

0 

DCT 

211 

0166 

REF 

? 

LAST 

116 

13,2207 

1 2472 

1 

TCF 

IMJ3AD 

0165 

13,2210 

77511 

1 

CDARSTOL 

DEC 

-.Oil  11 

2 degrees  SCALED  AT  HALF-REVOL Jt I DNS. 

633<t36A  YUL  SYSTEM  FOR  AoC!  REVISION  0 OF  PROGRAM  BURST123  BY  NASA  202110h-031 
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L 

IMJ 

MODE  SWITCHING 

RDOTINES 

USER*S  OWN 

PAGE  NO.  8 S3  E3 

R&F 

2 LAST 

162 

13.2211 

_6___3M2_  0. 

-C2MN£G_ 

&D 

-cdymax 

OUT 

13,2212 

0 0006 

1 

EXTEND 

0U8 

REF 

2 LAST 

162 

13,2213 

6 2221 

1 

3ZMF 

COMZpRO 

0X6  9 - - 

13,2216 

4 QQQQ 

Jl_ 

_CM 

0150 

REF 

11  LAST 

162 

13,2215 

5 1 1 460 

1 

INDEX 

CDJIND 

0151 

REF 

7 last 

162 

13,2216 

55*655 

0 

TS 

command 

0152 

REF_ 

2 LAST 

Jjt2 

13,2217 

3 3003 

1.  . 

-CA 

>C3MMAX- 

0153 

REp 

3 lAsT 

162 

13,2220 

0 2166 

1 

rc 

NEXTCDU 

0156 

ref 

?5  LAST 

13^ 

- 13,2221 

-_3_  7.767  X). 

.C3M.2ER.D-. 

CAf  . 

-ZERO 

0155 

REF 

12  LAST 

16A 

13,2222 

51*660 

1 

INDEX 

CDJImD 

OI56 

REF 

8 LAST 

166 

13,2223 

57*655 

1 

XCH 

COMMAND 

0157 

REF 

6 _ LASX_ 

166 

13,2226 

_D  2166 

1 

-I.C_.  .. 

-NEXTCDU 

0158 

ref 

1 

13,2225 

3 3001 

0 

sendpuls 

CAF 

13*l4»l5 

0159 

13,2226 

. 0 .0006. 

1 

EXTEND 

0160- 

REF 

1 

13,2227 

05  016 

1 

WOR 

CHAN16 

0161 

ref 

1 

13,2230 

3 3006 

0 

CAF 

600MS 

0162 

REF 

2 LAST 

_U2 

L3j_2Z3  1 

-1  -2123 

.1 

fCF 

COARS?  -1 

AND  THFN  TO 

VARDELAY- 

01621 

REF 

10  last 

161 

13,2232 

6 7756 

0 

SETCOARS 

cs 

BIT6 

clear  error 

COUNTER  before  MODE  SWITCH. 

016212 

13,2233 

0 0006 

1 

EXTEiND 

016216 

_ 13^,  22  3 6 

03  012 

1 

aIAND 

12 

016216 

REF 

7 last 

122 

13,2235 

3 7760 

1 

CAF 

BIT6 

PUT  ISS  IN 

COARSE  ALIGN, 

01622 

13,2236 

0 0006 

1 

EXTEND 

01623 

13.2237 

05  012 

1 

WOR 

12 

01626 

REF 

1 

13,2260 

6 2251 

1 

CS 

0CT6n010 

TURN  ON  NO 

ATT  LAMP, 

01625 

REF 

iella^t 

138 

X3tX26_i. 

7.0326 

1 

MA5< 

DSPTAb-  tllD 

01626 

ref 

2 LAST 

166 

13,2262 

6 2251 

0 

AD 

OCT  60010 

016265 

REF 

19  LAST 

166 

13,2263 

56  326 

1 

TS 

DSPTAB  +11D 

01627 

REF 

8 LAST 

166 

13,2266 

6 7760 

0 

CS 

B1T6 

INHIBIT  IMU 

FAIL, 

016275 

REF 

60  LAST 

160 

13,2265 

7 0365 

0 

MASK 

IMO0ES3O 

_ _01i2_e 

REF- 

9 LAST 

166 

13,2266 

6 7760 

1 

AD 

B1T6 

016285 

ref 

61  LAST 

166 

13,2267 

56  365 

0 

TS 

1M00FS30 

01629 

29  LAST 

137 

13,2250 

0 0002 

0 

TC 

3 

016295 

13,2251 

60010 

1 

0CT60010 

OCT 

60010 

633436*  YUL  system  for  *GC : REVISION  0 OF  PROGRAM  BURST120  BY  NASA  202110^,-031 
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L IMJ  mode  SWITCHING  ROUTINES  USER'S  OWN  PAGE  NO.  9 S3  E3 

P0163 IMU  fine-  align  MoDE  SWITCH. 


0164 

13.2252 

0 0004 

0 

imufine  inhint 

0165 

REF 

.2 

LAST 

138 

13.2253 

0 2706 

l_ 

IC 

cagetstj 

SEE  IF  IMU  BEING  CAGED. 

0166 

REF 

1 

13.2254 

4 3000 

0 

:s 

BITS4-6 

RESET  ZERO,  COARSE.  AND  eCTR  ENABLE. 

0167 

13.2255 

0 0006 

_L_ 

extend 

0168 

13.2256 

03  012 

1 

WAND 

12 

0 

CD 

\J^ 

REF 

3 

LA  STL  L3_8 

- -13.^57 

.D_  2324 

0 

IC 

NQATtQFF 

TURN  OFF  NO  ATT  LAMP.. 

0169 

REF 

5 

LAST 

12R 

13.2260 

3 7752 

0 

CAF 

BlTln 

IMU  FAIL  WAS  inhibited  DURING  THE 

0170 

REF 

11 

last 

14T 

..  13.2261 

0_  5663 

1_ 

rc 

waitlist 

PRESUMABLY  PRECEDING  COARSE  ALIGN-  LFAVE 

01705 

REF 

9 

LAST 

14* 

E3 

eban<= 

COMMAND 

0171  ' 

13.2262 

02273 

0 

2CADR 

IFAIl OK 

IT  ON  FOR  the  first  5 secs  OF  Fine  align 

Com  REF 

? 

LAST 

13.2263 

26063 

0 

0172 

REF 

3 

LAST 

I4O 

13.2264 

3 4321 

0 

CAF 

4SECS 

GYRO  re-centering  TIME. 

0173 

REF 

12 

LAST 

145 

13.2265 

0 5663 

1 

TC 

WAITLIST 

01735 

REF 

10 

LAST  145 

E3 

EBAMi= 

Command 

017A 

13.2266 

02271 

1 

2CADR 

IMJFINED 

C0174 

REF 

1 

13.2267 

26063 

0 

0175 

REF 

4 

LAST 

14l 

13.2270 

1 20*3 

0 

rcF 

MODEEXIT 

0176 

REF 

3 

LAST 

142 

13.2271 

0 267* 

0 

nUFINED  TC 

CAoETEST 

See  that  no  one  has  cageD  the  imu. 

0177 

ref 

4 last 

143 

13.2272 

1 2664 

0 

TCF 

ENPIMU 

0178 

REF 

4 

LAST 

140 

13.2273 

0 2701 

0 

IFAIL0<  TC 

CAGetSTQ 

enable  imu  fial  unless  imu  being  caged. 

0179 

REF 

6 

LAST 

I4O 

13.2274 

1 5727 

1 

TCF 

TASKOVER 

IT  IS, 

OleO 

REF 

10 

last 

14* 

13.2275 

3 7760 

1 

CAF 

BIT4 

DONT  RESET  IMU  FAIL  INHIBIT  IF  SOMEONE 

OlBl 

13.2276 

0 0006 

1 

extend 

hA.s  gone  INTO  cOAR.sE  ALIGN. 

0182 

13.2277 

02  012 

0 

RAND 

12 

0183 

ref 

53 

LAST 

1*3 

13.2300 

10  000 

0 

CCS 

A 

0184 

REF 

7 

LAST 

1*5 

13.2301 

1 5727 

1 

TCF 

TASKnVER 

0185 

REF 

11 

LAST 

145 

13.2302 

4 7760 

0 

CS 

BIT4 

0186 

ref 

42 

LAsT 

144 

13.2303 

7 0365 

0 

PFAIL0<2  mAs< 

IM0DF930 

0187 

REF 

43 

LAST 

145 

13.2304 

54  365 

0 

TS 

IM0DFS30 

01871 

REF 

13 

LAST 

140 

13.2305 

0 5270 

1 

TC 

IBNKCALL 

THE  ISS  warning  LIGHT  MAY  CoME  ON  NOW 

01872 

REF 

6 

LAST 

140 

13.2306 

24753 

0 

CADR 

SETISSW 

THAT  the  inhibit  HAS  BEEN  REMOVED. 

0188 

REF 

8 

LAST 

145 

13.2307 

1 5727 

1 

TCF 

TASKOVER 

0189  - 

REF 

5 

LAST 

145 

13.2310 

0 2701 

0 

pfailo<  tC 

CAGFTSTQ 

ENABLE  PIP  fail  PROG  ALARM- 

0190 

ref 

9 

LAST 

145 

13.2311 

1 5727 

1 

TCF 

TASKnVER 

01901 

REF 

6 

LAST 

145 

13.2312 

4 7752 

1 

CS 

BITIO 

MAKE  PREVIOUS  VALUE  OF  PIPA  FAIT.  tHE 

01902 

REF 

LAST 

145 

13.2313 

7 0365 

0 

MASK 

IM0DES30 

NO  Fail  state  so  that  if  the  failure 

01903 

REF 

7 

LAST 

145 

13.2314 

6 7752 

0 

AD 

BITIO 

INDICATION  IS  ON  NOW,  IT  WILL  3f  PICKED 

01904 

REF 

46 

LAST 

145 

13,2315 

54  365 

0 

TS 

IM0DFS30 

UP  (ROUTINE  detects  ONLY  CHANGES). 
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L 

01905 

IMJ 

JREF 

mode  Switching 

3 LAST  141  _ 

R3'JTINeS 
13.2316 

4 7747  Q 

rs 

3 1 r 1 

USER'S  OWN  PAGE  NO,  10  S3  E3 

PIPA  FAIL  BIT  IS  KEPT  IN  TWn  Pt afpS  FIR 

01906 

REF 

8 

last  131 

13.2317 

7 0366  0 

vlAS< 

1M00ES33 

OI9O7 

REF 

4 

LAST  146 

13.2320 

6 7747  1 

AO 

BIT13 

01908 

REF 

9 

last  146 

L3.1 2.321 

54  366  0 

JLS  . . 

1M00FS33^_ 

0191 

ref 

5 

LAST  140 

13,2322 

4 7757  1 

CS 

BITS 

0192 

ref 

13.2323 

1 23.03  1. 

ICF 

PFAIi  0K2 

01921 

REF 

3 

LAST  144 

13*2324 

4 2251  1 

noattoff  :s 

0CT4O010 

TURN  OFF  NO  ATT  LAMP. 

01922 

-REF 

.20 

LA_sX_144 

13,2325, 

JLJ1326  .L_. 

. ...  ...  - mAsj<l_ 

DSPtAB-.+JlD-. 

01923 

REF 

11 

LAST  123 

13,2326 

6 7745  0 

AD 

BIT15 

01924 

REF 

21 

LAST  146 

13,2327 

54  326  1 

rs 

DSPTaB  +110 

01.925 

REF 

30 

LAST  144 

13,2330 

0 0002  0 

rc 

0 

633436A 

YUL 

system  for  AgC 

! Revision 

0 OF  PROGRAM  DURST120  BY  NASA  2021l06-( 

L 

IMJ 

mode  Switching 

routines 

Pni  Q3 

ROUITNES 

TO  initiate 

AND  TFRMINATF  program  JSf 

-CIL  THE  PIPA: 

0195 

REF 

6 LAST  145 

13,2331 

0 2701 

0 

PIPUSE 

TC 

cagetstq 

0196 

REf 

3 last  139 

13,2332 

1 5221 

1 

TCF  . . 

S^lREtuRN 

0197 

13,2333 

0 0004 

0 

INHINT 

Ol98„ 

REF 

2i  LAST  144 

13i2.334 

3 7767 

0 

:af 

ZERO  _ 

0199 

REF 

1 

13,2335 

54  037 

1 

IS 

PIPAy 

0200 

ref 

1 

13,2336 

54  040 

1 

rs 

piPay 

0201 

RFF 

1 

13*2337 

54  041 

0 

JS 

PIPAt 

0202 

REF 

6 last  13l 

13.2340 

4 7763 

0 

:s 

BlTl 

0203 

REf 

46  LAST  145 

13,2341 

7 0365 

0 

mas< 

IJi100eS30 

0204 

REF 

47  LAST  147 

13,2342 

54  365 

0 

TS 

IMD0ES30 

0205 

REF 

14  LASLJ45 

13,2343 

0 5270 

1 

PIPFREE2 

TC 

IBN<CALL 

0206 

REF 

7 last  145 

13,2344 

24753 

0 

CADR 

setiasw 

0207 

REF 

5 LAST  145 

1 3 » ?345 

1 2043 

0 

LCF  

MoDffxit 

0208 

13,2346 

0 0004 

0 

PIPFREE 

INHINT 

0209 

REF 

7 LAST  14/ 

13,2347 

4 7763 

0 

:s 

3LT1 

0210 

REF 

48  last  14/ 

13,2350 

7 0365 

0 

MAS< 

IMD0FS3O 

0211 

REF 

8 LAST  14/ 

13,2351 

6 7763 

1 

AD 

BITI 

0212 

REF 

49  LAST  14/ 

13,2352 

54  365 

0 

IS 

IMO0FS3O 

0213, 

REF 

8 last  145 

13,2353 

7 7752 

1 

MAS< 

BITlO 

0214 

REF 

54  LAST  145 

13,2354 

10  000 

0 

CCS 

A 

0215 

REF 

6 LAST  147 

13,2355 

1 2043 

0 

TCF 

MDDEfXIT 

0216 

ref 

15  LAST  143 

13,2356 

0 4755 

1 

TC 

alarm 

0217 

13,2357 

00212 

0 

OCT 

212 

0218 

13,2360 

0 0004 

0 

INHINT 

0219  ref  1 


13»2361  1 2343  0 


TCF 


PIPFREE2 


Dec  7»  1967  (MAIN)  PAGE  147 
user *5  OWN  PAGE  NO.  11  53  E3 

NDuI MUSJ ALL.  R£QUlR£P__JiLEJjHE8  C.ASe. 

DONT  enable  PIPA  FAIL  IF  IMU  BEING  CASED 
ZERO  counters,  _ 

IF  PIPA  FAILS  FROM  NOW  ON  (UNTIl 
£ I.P F R.EEl , L LGHJ__I_S S a R N I NG. 

I.SS  warning  might  come  on  now. 

(OR  GO  OFF  ON  PIPFREE). 

program  done  with  PiPAS.  DONT  LIGHT 

iss  warning,  _ 


IF  PIP  FAIL  ON,  DO  PROG  ALSRM  AvjD  RESET 
I_SS  WARNING,  ___  ___ 
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L IMJ  mode  switching  ROUTINES  USER'S  OWN  PAGE  NO.  12  S3  E3 

P0220-  the  FOLLOWING'  routine  TOROUfS  rHE  IRI55  ACCORDING  Tn  DOUBlp  PRECISION  INPUTS  IN  THf  SIX  RrGISTeRS  ^ 

R0222  beginning  AT  THE  eCAOR  ARRIVING  IN  A.  THE  MINIMUM  SIZE  OF  ANY  PULSE  TRAIN  TO  THE  GYROS  IS  l PULSE.  THe 

Ro224  unsent  Portion  of  the  command  is  left  intact  in  the  input  command  registers. 


0226 

E3 

£BAN<5 

1400 

VARIABLE,  ACTUALLY. 

0227 

ref 

37 

LAST 

97 

13.236? 

—54  151  0 

IMU-P-ULSE-  TS 

MPA-C  --  - 

SAVE  ARBIVlN-G-ECAgR.  - _ _ . 

0228 

REp 

3 

LAST 

145 

13,2363 

0 2706  1 

TC 

CAGEtSTJ 

DONT  PROCEED  Ip  IMU  BEING  CAgED. 

0229 

REF 

2 

J-ASt. 

9b 

1 3.7364 

in  356  a 

CCS 

LGYRn 

SEE  IF  GYROS,  BUSY.-  __  — - 

0230 

ref 

1 

13,2365 

0 2427  1 

TC 

GYRORUSY 

SLEEP. 

0231 

REF 

13,2366  _3_4  146  CL 

rs 

MPAC  -,2 

0232 

REF 

11 

LAST 

144 

13,2367 

3 7756  1 

caf 

Bi  Tb 

Enable  the  power  supply. 

0233 

13,2370 

0 0006  1 

extend 

0234 

13,2371 

05-014  1 

-^.08 

JJi_ 

0235 

ref 

2 

LAST 

89 

13,2372 

3 7761  0 

CAF 

FOUR 

0236 

lij2373 

0 0004  0 

G^AKF?  INHINT 

(IF  A JOB  WAS  PUT  TO  SLFFP.  THF  POWFR 

0237 

REF 

13 

LAST 

145 

13,2374 

0 5663  1 

TC 

WAITflST 

SUPPLY  IS  LEFT  ON  BY  THE  WAKING  JOB). 

02375 

REF 

11 

LAST 

145 

E3 

£BAN<= 

COMMAND 

0238 

_ 13i_2375 

02445  0 

2CA0R 

strtgyro  . 

C0238 

ref 

1 

13,2376 

26063  0 

0239 

REF 

39 

LAST 

148 

13,2377 

3 0151  1 

CA 

MPAC  +5 

SET  UP  EBANK,  SAVING  CALLER'S  E3ANK  FOR 

0240 

REF 

6 

LAST 

96 

13,2400 

56  003  1 

XCH 

EBANx: 

RESTORATION  ON  RETURN. 

0241 

ref 

40 

LAST 

148 

13,2401 

56  151  1 

XCH 

MPAC  +5 

0242 

REF 

3 

LAST 

148 

13,2402 

54  356  0 

TS 

LGYRn 

RESERVES  GYROS, 

0243 

ref 

1 

13,2403 

7 4564  0 

MAS< 

LOWa 

0244 

REF 

19 

LAST 

143 

13,2404 

54  061  1 

TS 

ITEMPI 

0245 

REF 

9 

LAST  143 

13,2405 

3 776_2  0 

CAF 

Two 

FORCE— SIGN  A6REE-MENT  ON  INPUTS^ 

0246 

REF 

41 

LAST 

148 

13,2406 

54  147  1 

gyroagre  ts 

MPAC  +3 

0247 

13,2407 

6 0000  1 

DOUBLE 

0248 

REF 

20 

LAST 

148 

13,2410 

6 0061  0 

AD 

I TEMPI 

0249 

REF 

42 

LAST 

148 

13,2411 

54  150  1 

TS 

MPAC  +4 

0250 

13,2412 

0 0006  1 

EXTEND 

0251 

ref 

65 

LAST 

167 

13,2413 

5 0000  1 

INDEX 

A 

0252 

13,2414 

3 1401  0 

DCA 

1400 

0253 

ref 

43 

LAST 

148 

13,2415 

52  145  0 

DXCH 

MPAC 

0254 

ref 

1 

13,2416 

0 7327  0 

TC 

TPAS6EE 

0255 

REF 

44 

LAST 

148 

13,2417 

52  145  0 

DXCH 

MPAC 

0256 

REF 

45 

LAST 

148 

13,2420 

50  150  0 

INDEX 

MPAC  +4 

0257 

13,2421 

53'401  1 

DXCH 

1400 

0258 

ref 

^6 

LAST 

148 

13,2422 

10  147  1 

CCS 

MPAC  +3 

0259 

REF 

1 

13,2423 

1 2406  0 

rcF 

GYROflGRF 

0260 

REF 

47 

LAST 

148 

13,2424 

3 0151  1 

CA 

MPAC  +5 

RESTORE  CALLER'S  EBANK. 

02ti 

rEf 

7 

lAat 

148 

13,2425 

54  003  0 

TA 

EBAmx 

0262 

REF 

7 

LAST 

147 

13,2426 

1 2043  0 

TCF 

MODEpXIT 

633«t36A 

YUL 

system  for  AGC!  revision  0 OF  PROGRAM  BURST123  BY  NASA  2O21IO6.-031 

DEC  7» 

1967 

(MAIN) 

PAGE 

1A9 

L 

IMJ 

MODE  SWITCHING  ROUTINES 

USER'S  OWN  page 

NO. 

13 

S3 

E3 

P0263  ROUTINES  TO  l\LLOW  TORJUING  BY  ONLY  ONE  J3B  AT  ft  TIMf. 


026A 

13,2427 

0 0006 

1 

GYROBUSY 

EXTEND 

SAVE  RETURN  2FCA0R. 

0265 

REf 

1 

L3,2430 

3 0124 

0 

OCA 

_aUF2. 

0266 

ref 

A8 

last 

1A8 

13,2431 

52  145 

0 

3XCH 

MPAC 

0267 

REF 

1 

13,2432 

3 2444 

1 

REGSLEEP 

CAF 

LGWAkE 

0268 

ref 

1 

13,2433 

1^5545 

_1 

rcF  _ 

JOB SLEEP  . 

0269 

REF 

LAST 

1A8 

13*2434 

10  356 

0 

gwake 

CCS 

LGYRO 

when  awakened*  see  if  gyros  STKL  BUSY. 

0270 

REf 

I 

, 13 , 243_5_ 

1 2432 

1 

ICF 

REGSi  EEP 

If  so,  Sleep  some  more. 

0271 

REF 

i9 

LAST 

1A9 

13,2436 

54  146 

0 

rs 

MPAC  +2 

0272 

13,2437 

0 0006 

1 

EXTFND 

0273 

REF 

50 

LAST 

IA9 

13,2440 

3 0145 

1 

DCA 

MPAC 

027A 

REF 

2 

LAST 

U9 

13,2441 

52  124 

1 

3XCH 

BUF2 

restore  swreturn  info. 

0275 

REF 

16 

LA^J 

132 

_13,2442 

3.  7763 

1 

CAF 

ONE 

0276 

REF 

I 

13,2443 

1 2373 

0 

rcF 

GWA<p2 

0277 

ref 

I 

1 3 ,2444 

26434 

0 

LoWAKE 

_CADR.__ 

_ Gw  ACE . 

633it3bl^ 

YUL 

System  for  agc:  revision  o of  program  buRstieo  by  nasa  2021106-031 

DEC  7» 

1967 

(MAIN) 

PAGE 

150 

L 

IMJ 

MODE  Switching  rdjtines 

USER'S  OWN  PAGE 

NO. 

lA 

S3 

E3 

_P027_8 GYRO-TORQUI  Mj!-.WA.1.TL1ST  TASKS. 


0279 

REF 

1 

13,2AA5 

A 2661 

0 

STRTGYRO 

CS 

oDESELCT 

de-select  last  gyro. 

0?pO 

13t2AA6 

Q 0QQ6 

EXTEND 

0281 

13,2AA7 

03  OlA 

1 

WAND 

lA 

0282 

REF 

A LAST 

LAS 

13.2A50 

0 267A 

Q__ 

_XC 

CAGFtEST 

0283 

REF 

5 LAST 

lAV 

13.2A51 

3 0356 

1 

STRTGYR2 

CA 

LGYRO 

JUMP  ON  PHASE  COUNTER  IN  BITS  U-IA. 

028A 

13.2A52 

0 0006  1 

EXTEND 

0285 

REF 

12  LAST 

1 A5 

13,2A53 

7 7760 

0 

MP 

bita 

0286 

REF 

66  LAST 

1A8 

13,2A5A 

50  000 

1 

INDEX 

A 

0287 

13«2A55 

1 2A56 

0 

TC£ 

_ _ 

0288 

ref 

1 

13.2A56 

0 2A73 

0 

rc 

GSECfCT 

=0.  DO  Y GYRO. 

• 0289 

13.2A57 

00202 

1 

DCT 

00202 

0290 

REF 

2 LAST 

150 

1 3 « 2A60 

0 2A73 

0 

TC 

GSELECT 

=1.  DO  Z GYRO. 

O29I 

13,2A61 

00302 

0 

DCT 

00302 

0292 

REF 

3 LAST 

I5O 

13.2A62 

0 2A71 

1 

TC 

GSELECT  -2 

=2.  DO  X gyro. 

0293 

13,2A63 

00100 

0 

DCT 

00100 

029A 

REF 

27  last 

1A7 

13.2A6A 

3 7767 

0 

CAF 

ZERO 

S3.  DONE 

0295 

REF 

6 LAST 

150 

1 3 . 2A65 

5A  356 

0 

TS 

LGYRn 

0296 

REF 

2 LAST 

1A9 

13.2A66 

3 2AAA 

1 

CAF 

LGWAKE 

WAKE  A POSSIBLE  SLEEPING  JOB. 

0297 

REF 

1 

13,2A67 

0 5551 

0 

TC 

JOBWAKE 

0308 

REF 

.2  _LAST 

J_A5 

13»2A70 

1 _Z271 

_0 

N.3R.ESET  _ 

tcf 

IMJFINED 

DO  NOT  RESELT  TH^  POWER  SUPPLY 

633436A 

YUL 

system  FOR  Agc 

; REVISION 

0 OF  PROGRAM  BURST123  BY  NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  151 

L 

IMJ 

MODE  switching 

RO'JTINES 

USER'S  OWN  page  NO.  15  S3  E3 

0309- 

REf 

3 LAST  148 

13,2471 

4 7761 

1 -2_- 

rs 

FOJR 

SPECIAL  ENTRY  TO  REGRESS  LGYRO  FOR  X. 

0310 

ref 

7 LAST  150 

13,2472 

26  356 

0 

ADS 

LGYRn 

0311 

REF 

31  LAST  L4t> 

1.3,247-3 

SO  002_0  gsllect  . 

INDEX 

. 

SELECT-  GIRO-.  

0312 

13,2474 

3 0000 

1 

CAF 

0 

packed  word  contains  gyro  select  sits 

0313 

REF 

6 last  83 

13,2475 

54  064 

1 

TS 

ITEM04 

AND  increment  TO  LGYRO. 

0314 

ref 

4 LAST  L06 

13,2476 

7 7765 

-0  - 

MAS< 

SEVEN 

0315 

ref 

5 LAST  146 

13,2477 

6 7747 

1 

AD 

BIT13 

0316 

REF 

8 LAST  151 

13,2500 

26  356 

0 

ADS 

LGYRn 

0317 

ref 

8 LAST  I4H. 

13,2501 

54_003- 

0 

TS 

EBANK- 

0318 

ref 

2 LAST  148 

13,2502 

7 4564 

0 

MAS< 

LOWS 

0319 

REF 

21  LAST  148 

13,2503 

54  061 

1 

TS 

ITEMPl 

0320 

REF 

5 LAST  151 

13,2504 

4 7765 

0 

:s 

SEVEN 

0321 

REF 

7 LAST  I5I 

13,2505 

7 0064 

1 

MAS< 

ITEMP4 

0322 

REF 

8 LASL  15-1 

L3,2306 

54.064 

1 

TS 

ITEMP4 

0323 

13,2507 

0 0006 

1 

extend 

Move  dp  command  to  ruptregs  for  testing. 

0324 

REF 

2 2 last  L5-1 

JJ,2510 

5 -0061 

0 

INDEX 

JLEMPl  ..  

0325 

13,2511 

3 1401 

0 

OCA 

I4OO 

0326 

ref 

17  LAST  119 

13,2512 

52  071 

0 

3XCH 

RJPTREGi 

0327 

REF 

18  LAST  I5I 

13,2513 

10  070 

1 

ECS 

RUPTrEGI 

0328 

ref 

1 

13,2514 

1 2527 

1 

rcF 

MAJ  + 

0329 

13,2515 

1 2517 

1 

TCF 

♦ 2 

0330 

REF 

1 

13,2516 

1 2642 

1 

rcF 

MAJ- 

0331 

-REF 

9 LAST  122 

13,2517 

10  071 

0 

CCS 

RUPTREG7 

0332 

REf 

1 

13,2520 

1 2524 

1 

TCF 

M1N  + 

0333 

REF 

1 

13,2521 

1 2451 

1 

TCF 

STRTGYR2 

0334 

REF 

1 

13,2522 

1 2637 

0 

TCF 

MiN. 

0335  REF  2 LAST  15l  13.2523  1 2A51  1 TCF  STRTGYR2 
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L 

IMJ 

MODE  switching 

ROJ'T  INES 

USER'S  OWN  page  no.  16  S3  E3 

0336 

REF 

1 

13.2524 

-_6— ZS60-  0- 

MiN* 



-GYRnMIN  _ 

SMALL  PQSXUTZE  COMMANO,  SEE  IF  AT  LEAST- 

0337 

13,2525 

0 0006  1 

EXTEND 

1 GYRO  PULSE. 

0338 

REF 

3 

LAST 

15l 

13,2526 

6 2451  0 

3ZMF 

STRTGYR2 

0339 

13,2527 

0 0006  1 

MAJ  + 

EXTEND 

DEFINITE  POSITIVE  OUTPUT. 

03aO 

REF 

1 

13,2530 

3 2663  0 

OcA 

SYROfRAc 

03A1 

REF 

L9 

__2J3  071  0 

_2AS 

RUPTREGl 

03A2 

REF 

9 

LAST 

I5I 

13,2532 

3 0064  0 

CA 

ITEMP4 

Select  positive  torquinq  for  this  gyro. 

03A3 

L3_jZ53.3_, 

0 1 

_ EXXEND_ 

03AA 

13,2534 

0 

UT 

0 

wor 

14 

03A5 

REF 

2 

LAST 

76 

13.2535 

3 534?  1 

OAF 

-Ulw.I  - 

LEAVF  NUMBER  OF  POSSIBLE  819?  AUGMENTS 

03A6 

REF 

10 

last 

151 

13,2536 

7 0071  0 

*IAS< 

ruptreg? 

TO  INITIAL  COMMAND  IN  MAJOR  PART  oF  LONG 

03A7 

REF 

11 

LAST 

152 

13,2537 

56  071  1 

XCH 

RLIPTREG2 

term  storage  and  truncated  fraction 

03A8 

iai2i4D 

0 QQQ6  1 

gmerge 

-XTE-ND 

IN  MINOR  PART.  THE  MAJOR  PART  WILL  Bf 

03A9 

REF 

5 

last 

115 

13,2541 

7 7754  1 

MP 

BITS 

counted  down  to  ZERO  IN  THE  COJrSe  OF 

0350 

REF 

11 

LAST 

83 

13,2542 

54  062  1 

TS 

1TEMD2 

PUTTING  OUT  the  ENTIRE  COMMAND. 

0351 

ref 

Z-0 

LAST 

152 

13,2543 

3 0070  0 

:a 

RUPTrE&L 

0352 

1 3 f 254^ 

0 0006  1 

EXTEND 

0353 

ref 

3 

LAST 

138 

13,2545 

7 7753  0 

MP 

31T9 

035A 

ref 

?i 

LAST 

152 

13,2546 

54  070  1 

TS  

RUPThEGI 

0355 

' ref 

26 

LAST 

Ul 

13,2547 

3 0001  0 

:a 

L 

0356 

13,2550 

0 0006  1 

EXTEND 

0357 

ref 

11 

LAST 

136 

13,2551 

7746  1 

*IP 

B1T_14 

0358 

REF 

12 

LAST 

152 

13,2552 

26  062  1 

ADS 

ITEMP2 

INITIAL  COMMAND. 

0359 

13,2653 

0 0006  1 

EXTEND 

SFE  LF  more  THAN  ONE_ PULSE  TRAlM  NEEDED 

0360 

ref 

22 

LAST 

152 

13,2554 

3 0071  1 

OCA 

RUPTrEGi 

(MORE  THAN  16383  PULSES). 

0361 

REF 

1 

13,2555 

6 7771  1 

AD 

MlNJSl 

0362 

REF 

57 

LAST 

150 

13,2556 

10  000  0 

CCS 

A 

0363 

REF 

1 

13,2557 

1 2603  1 

rcF 

LONGGYRO 

036A 

13,2560 

77600  1 

-GYROMIN 

OCT 

-177 

MAY  BE  ADJUSTED  TO  SPECIFY  MINIMUM  CMD. 

0365 

13,2561 

1 2565  1 

rcF 

+ 4 

0366 

REF 

12 

LAST 

152 

13,2562 

3 7746  0 

CAF 

ai  Ti4 

0367 

REF 

13 

LAST 

152 

13,2563 

26  062  1 

ADS 

ITEMP2 

0368 

REF 

28 

LAST 

150 

13,2564 

3 7767  0 

CAF 

ZERO' 

0369 

REF 

23 

LAST 

I5I 

13,2565 

50  061  0 

+ 4 

INDEX 

1 TEMPI 

0370 

13,2566 

53*401  1 

OXCH 

1400 
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dec  7i  1967  (MAIN)  PaGE  153 


L 

0371 

IMU 

REF 

MODE  SWITCHING 

14  last  L52 

ROUTINES 
13.2567 

3 0062 

rA 

JJL£_Me2 

USER*S  OWN  PAGE  NO.  17  S3  E3 

ENTIRE  COMMAND. 

0372 

REF 

2 

LAST 

125 

13.2570 

54  047 

0 

LASTSEG 

TS 

oYROCMD 

0373 

13.2571 

0 0006 

1 

EXTEND 

037A 

ref 

_9 

LAST 

147  . 

13.2572 

7 7752 

^P 

BITin 

WAITLIST  DT 

0375 

REF 

2 

LAST 

75 

13.2573 

6 6311 

1 

AD 

THREE 

TRUNCATION  AND  PHASE  UNCERTAINTIES, 

0376 

REF 

14 

last 

148 

13.2574 

0 5663 

1 

TC 

WAITI 1ST 

03765 

S££„ 

L2_ 

LAST 

_L4B 

E3„ 

?BAN<= 

command 

0377 

13.2575 

02445 

0 

2CADR 

STRTfiYRO 

C0377 

REF 

2 

LAST 

148 

13.2576 

26063 

0 

0378 

REF 

ia_ 

LAST  153 

13.2577 

3 7752 

0_ 

SYROEXIT 

CAF 

BLTId, 

TURN  ON  GYRO  ACTIVITY  TO  START  TRAIN. 

0379 

13.2600 

0 0006 

1 

EXTEND 

0300 

13.2601 

05  014 

1 

WOR 

14 

0381 

ref 

_10 

LAST 

145 

13.2602 

1 5727 

ICF 

TASCOVER  ___  _ 

0382 

REF 

24 

last 

152 

13.2603 

50  061 

0 

L3NGGYR0 

INDEX 

I TEMPI 

0383 

13.2604 

53*401 

1 

OXCH 

1400 

initial  COMMANp  OUT  Pi  Us  N AUGMENTS  OF 

03bA 

REF 

13 

LAST 

152 

13.2605 

3 7746 

0 

CAF 

3IT14 

8192.  initial  command  IS  AT  LEAST  8192. 

0385 

ref 

15 

LAST 

153 

1 3 9 2606 

6 0062 

0 

AD 

ITEMP2 

0386 

REF 

3 

la_sl. 

153 

A3i.2t07 

_.5>  047 

.0 

TS 

GYROCMD 

0387 

13.2610 

0 0006 

1 

AJG3 

EXTEND 

Get  waitlist  dt  to  time  when  tRsin  is 

0388 

REF 

11 

LAST 

153 

13.2611 

7 7752 

1 

MP 

Bl  T_in 

ALMOST  out. 

0389 

ref 

1 

13.2612 

6 5340 

0 

AD 

^iCG3 

0390 

REF 

15 

LAST 

153 

13.2613 

0 5663 

1 

TC 

WAITI  1ST 

03905 

REF 

13 

LAST 

153 

E3 

EBAN<= 

COMMAND 

0391 

13.2614 

02617 

0 

2CADR 

8192AUG 

C0391 

ref 

1 

13.2615 

26063 

0 

0392 

REF 

1 

13.2616 

1 2577 

1 

TCF 

GYROfXIT 

0393 

ref 

5 

LAST 

150 

13.2617 

0 2674 

0 

8I92AU0 

IC 

cagetest 

039A 

REF 

9 

LAST 

15l 

13.2620 

3 0356 

1 

CA 

LGYRO 

ado  8192  PULSES  TO  GYROCMD 

0395 

REF 

9 

LAST 

151 

13.2621 

54  003 

0 

TS 

EBANk 

0396 

ref 

3 

LAST 

151 

13.2622 

7 456^ 

0 

MASK 

LOWR 

0397 

.REF 

25 

LAST 

153 

13.2623 

54  061 

1 

TS 

itempi 

0398 

REF 

26 

LAST 

153 

1^.2624 

50  061 

0 . 

INDEX 

ITEMPl 

SEE  IF  this  is  THE  LAST  AUG. 

0399 

13.2625 

11*400 

0 

CCS 

1400 

OAOO 

REF 

1 

13 .2626 

1 2632 

0 

ICF 

AJo2 

MORE  TO  COME. 

OAOl 

REF 

14 

LAST 

153 

13.2627 

3 7746 

0 

CAF 

BIT14 

OA02 

REF 

4 

LAST 

153 

13.2630 

26  047 

0 

ADS 

GYROrMD 

0A03 

REF 

1 

13.2631 

1 2571 

1 

TCF 

LASTSEG  +1 

OAOA 

REF 

27 

last 

153 

13.2632 

50  061 

0 

AJG2 

INDEX 

ITEMpl 

0A05 

13.2633 

55*400 

0 

TS 

1400 

0A06 

“REF~ 

15 

lAst 

13.2634 

3 7746 

0 

CAF 

BITI4 

0A07 

REF 

5 

LAsT 

153 

13.2635 

26  047 

0 

ADS 

GyROcMD 

0A08 

ref 

1 

13.2636 

1 2610 

0 

TCF 

AUG3 

COMPUTE  DT. 

633^*36A 

YUL 

system  for  AGC! 

! REVISION 
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L 

IMJ 

viOOE  SiiJiTCHlNO 

routines 

USER’S  OWN  page  NO.  18  S3  E3 

0409 

REF 

2 last  152 

L3i2637 

.6,-2560- 

0. 

-GYRnMIN - 

-JP.OS.SJ.Bl.E-_N£GAliV^_Q.UJP-U.l. 

0410 

13,2640 

0 0006 

1 

EXTEND 

0411 

REF 

4 LAST  152 

13,2641 

6 2451 

0 

3ZMF 

STRTfiYR2 

0412 

13»2642 

0 0006 

1 

MAJ-  EXTEND 

DEFINITE  negative  OUTPUT. 

0413 

ref 

2 last  152 

13.2643 

4 2663 

1 

3CS 

SYROFRAC 

0414 

REF 

?3  last  1 52 

13 .2644 

20  071. 

0 

DAS 

RUPTREQI 

0415 

REF 

10  last  152 

13.2645 

3 0064 

0 

CA 

ITEMP4 

SELECT  negative  TORUUING  FOR  THIS  GYRO. 

0416 

REF 

4 LAST  152 

13.2646 

6-  7753 

1 

-AD  . 

B.ii9 - 

0417 

13.2647 

0 0006 

1 

EXTEND 

0418 

13.2650 

05  014 

1 

(JOR 

14 

0419 

REF 

24  last  154 

13.2651 

4 0070 

1 

CS 

RJPTREGI 

Set  UP  ruptregs  to  fall  into  gmprse. 

0420 

REF 

25  LAST  15A 

13.2652 

54  070 

1 

TS 

ruptregi 

ALL  numbers  put  INTO  GYROCMD  AR- 

0421 

REF 

12  LAST  152 

L3.2653 

4 0071 

0 

CS 

RUPTRFG? 

POSITIVE  - BIT9  OF  CHAN  14  DETERMINES 

0422 

REF 

3 LAST  152 

13.2654 

7 5342 

0 

MAS< 

LOW? 

THE  SIGN  OF  THE  COMMAND. 

0423 

13.2655 

4 0000 

0 

COM 

0424 

REF 

13  LAST  154 

13.2656 

- _3  6-  O.Tl 

1 

..  — ..XCM 

-^JJPtaEGZ  

0425 

13.2657 

4 0000 

0 

COM 

0426 

ref 

1 

13.2660 

1 2540 

0 

rcF 

GMERGE 

0427 

13.2661 

01700 

1 

G5ESELCT  OCT 

1700 

TURN  OFF  SELECT  AND  ACTIVITY  BITS. 

0428 

13.2662 

00000 

1 

5YR0FRAC  2DEC 

.215  B -21 

C0428 

1 3 « 2663 

00034 

0 
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L 

IMJ 

MODE  switching 

ROOT INES 

USER'S  OWN  page  nO.  19  S3  E3 

P0429 

IMU 

MOl^ 

SWITCHING  1 

ROUTINES 

COME.HERE..W.H 

l-N  ACTIDN  CnMPLFTF. 

0A30 

13,2664 

0 0006 

1 

endimu 

EXTEND 

MODE  IS  BAD  IF  CAGE  HAS  OCCURED  OR  IF 

OA31 

.13,2665 

00  _011 

1 

READ 

JLl 

ISS  WARNING  IS  ON,^ 

OA32 

REF 

9 

LAST 

147 

13,2666 

7 7763 

0 

MASK 

BITl 

0433 

REF 

68 

LAST 

152 

13,2667 

10  000 

0 

CCS 

A 

0434 

REF 

3 

LAST 

143 

13,2670 

1 2672 

1 

rcF 

IMJ3AD 

0435 

REF 

1 

13,2671 

1 2720 

1 

I MUGOOD 

tcf 

GOODfND 

WITH  C(A)  = 0. 

0436 

REF 

29 

last 

152 

13*2672 

3 7767 

0 

I MUBAD 

CAF 

ZERO' 

0437 

ref 

1 

13,2673 

1 2715 

1 

TCF 

BADEmD 

0438 

REF 

12 

last 

148 

13,2674 

3 7756 

1 

cagetest 

CAF 

BITS 

SUBROUTINE  TO  TERMINATE  IMU  MOO^ 

0439 

REF 

50 

LAST 

147 

13,2675 

7 0365 

0 

MASK 

IMO0FS3O 

SWITCH  IF  IMU  HAS  BEEN  CAGED. 

0440 

ref 

69 

LAST 

L55 

I3,267i> 

10  000 

0 

CCS 

A 

0441 

REF 

4 

LAST 

155 

13,2677 

1 2672 

1 

TCF 

IMJBaD 

DIRECTLY. 

0442 

REF 

32 

LAST 

I5I 

13,2700 

0 0002 

0 

rc 

0 

WITH  C(A)  = +0. 

0443 

REF 

51 

LAST 

155 

13*2701 

4 0355 

0 

cagetstq 

:s 

IMD0FS3O 

SKIP  IF  IMU  NOT  being  CAGED. 

0444 

REF 

13 

LAST 

155 

13,2702 

7 7756 

0 

mask 

BU6 

0445 

REF 

70 

LAST 

1 55 

13,2703 

10  000  0 

CCS 

A 

0446 

REF 

33 

last 

155 

13,2704 

24  002 

0 

INCR 

0 

0447 

REF 

34 

LAST 

155 

13,2705 

0 0002 

0 

TC 

0 

0448 

REF 

52 

LAST 

155 

13,2706 

4 0365 

0 

cagetstj 

cs 

lM0DcS30 

IF  DURING  MODE  SWITCH  INITIALIZATION 

0449 

ref 

14 

last 

155 

13,2707 

7 7756 

0 

mask 

B1T6 

IT  IS  found  that  the  IMU  IS  BEING  CAoED, 

Q4£0 

REF 

71 

last 

155 

13,2710 

10  000 

0 

CCS 

A 

set  IMUCADR  to  -0  TO  INDICATE  OPERATION 

0451 

REF 

35 

last 

155 

13,2711 

0 0002 

0 

rc 

0 

complete  but  failed.  RETURN  IMMEDIATELY 

0452 

ref 

30 

last 

155 

13,2712 

4 7767 

1 

cs 

ZEROi 

TO  SWRETURN. 

0453. 

ref 

2 

last 

98 

13,2713 

54  367 

1 

TS 

IMJCAOR 

0454 

REF 

8 

last 

148 

. 13,2714 

1 2043 

0 

TCF 

MODEFXIT 

633if36A  YUL  SYSTEM  FOR  AGC!  REVISION  0 OF  PROGRAM  BURST123  SY  NASA  2021106-031 
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L IMJ  MODE  switching  RO'JTInES  USER'S  OWN  PAGE  NO,  20  S3  E3 


P0^>55 GfNfRALI?fD  MODf  SWITCHING  TERMINATION,  tNTFR  AT  GOnOFND  FOR  SUCCESSFUL  COMPlpTlON  OF  AN„.I  /O  OJfRATION 


Roast 

OR  AT  BADEND 

FOR  A N 

unsuccessful  one. 

C(A)  OR 

ARRIVAL 

SO  For  IMU,  1 

FOR  AOT,  2 For  radars,  6 3 FOR  ATT  MANU. 

0459 

REf 

14 

1 AST  154 

13.2715 

54  071 

Q 

RADEND 

__I.S 

Roptrfo?  . . 

DEVICE  INDEX. 

0460 

REF 

31 

LAST 

155 

13,2716 

4 7767 

1 

:s 

ZERD 

FOR  FAILURE. 

0461 

REF 

2 

LAST 

155 

13,2717 

1 2722 

0 

tcf 

GOODEND  +2 

0462 

REF 

15 

LAST 

156 

13,2720 

54  071 

0 

GOODENO 

ts 

RUPTREG2 

0463 

REF 

17 

LAST 

149 

13,2721 

4 7763 

0 

cs 

one 

FOR  SUCCESS, 

0464 

REF 

6 

LAST 

83 

13,2722 

54  072 

0 

ts 

RUPTRE63 

0465 

REF 

16 

LAST 

156 

13,2723 

50  071 

1 

INDEX 

RUPTREG2 

SEE  IF  USING  Program  asleep. 

0466 

REF 

5 

LAST 

23 

13,2724 

10  367 

1 

CCS 

MODECADR 

0467 

13,2725 

1 2727 

0 

tcf 

♦ 2 

YES  - WAKE  IT  UP, 

0468 

REF 

1 

13,2726 

1 2737 

1 

TCF 

ENDMODE 

IF  0,  PROGRAM  NOT  IN  YET. 

0469 

REF 

32 

LAST 

156 

13,2727 

3 7767 

0 

CAF 

zero 

WAKE  SLEEPING  PROGRAM. 

0470 

REF 

17 

LAST 

155 

13,2730 

50  071 

1 

INDEX 

RUPTREG2 

0471 

REF 

6 

last 

156 

J.3,273L 

56  3j6J 

0 

XCH 

MODFCADR 

0472 

REF 

2 

LAST 

150 

13,2732 

0 5551 

0 

TC 

JOBWAKE 

04?3 

REF 

7 

LAST 

156 

13,2733 

4 0072 

0 

CS 

RUPTR.EG3. 

ADVANCE  LOC  IF  SUCCESSFUL.  . _ _ 

0474 

ref 

1 

13,2734 

50  064 

0 

index 

LOCCTR 

0475 

ref 

1 

13,2735 

26  154 

0 

ADS 

LOG 

0476 

REF 

11 

LAST 

153 

13,2736 

1 5727 

1 

TCF 

TASXnVER 

0477 

REF 

a 

LAST  156 

_L3»27J7 

3 0072 

1 

ENdMOOE 

CA 

RUPTR£G3 

-0  INDICATES  operation  COMPLETE  BUT  _ 

0478 

ref 

18 

LAsT 

156 

13,2740 

50  071 

1 

index 

RUPTrEG2 

unsuccessful  - -1  indicates  complete  and 

0479 

REF 

7 

LAST 

1 56 

13,2741 

54  367 

1 

TS 

MODECADR 

successful. 

04rO 

REF 

12_ 

LA5JL 

L3,2742_ 

1.  51.ZT. 

1, 

TCF 

LAS<OY/£R  _ 

YUL 

system  for  ftGCl 

; REVISION 

0 OF  PROGRAM  BURST123  BY  NASA  202110fe-03l 

DEC  7. 

1967 

(MAIN) 

page  157 

L 

IMJ 

M30E  switching 

rdjtines 

USER'S  OWN  PAGE 

NO. 

21 

S3  E3 

Po48i  gemeRal  stalljng  RqUtine,  using  Programs  cqmf  hfrf  to  wait  fqp  i/o  cqmplejIon,. 


04823 

REF 

3 

LAST 

153 

13.2743 

3 6311 

1 

ATTSTALL 

:af 

three 

ATTITUDE  maneuver  STALL 

04826 

REF 

1 

13,2744 

1 2752 

1 

ICE  - 

-SlLALL  .- 

0483 

REF 

10 

last 

148 

13,2745 

3 7762 

0 

radstall 

:af 

Two 

rr  and  lr  stall. 

0484- 

REF 

? 

LAST 

157 

13,2746 

1 7752 

1 

TCF 

STAL  ) 

0485 

REF 

IB 

LAST 

156 

13,2747 

3 7763 

1 

AOTSTALL 

:af 

ONE 

AOT. 

0486 

-8-EF 

LAST 

157 

13,2750 

0 2752 

0 

rc 

S_T_AiJ_  - 

0487 

REF 

1 

13,2747 

OPTSTALL 

equals 

adtstall 

0489 

REF 

33 

last 

156 

13,2751 

3 7767 

0 

IMUSTALL 

:af 

zeRd 

IMU. 

0490 

13,2752 

0 0004 

0 

STALL 

inhint 

0491 

REF 

19 

LAST 

156 

13,2753 

54  071 

0 

TS 

RUPTREG2 

SAVE  DEVICE  INDEX, 

0492 

REF 

72 

LAST 

155 

13,2754 

50  000 

1 

INDEX 

A 

SEE  IF  operation  COMPLETE. 

0493 

REF 

8 

LAST 

156 

_ 13-^^275  5 

-10  367 

1 

CCS 

MOOErADR  _ . 

0494 

REF 

1 

13,2756 

1 2774 

0 

TCF 

MODABORT 

ALLOWABLE  STATES  ARE  +0,  -1,  AND 

-0. 

0495 

REF 

1 

13,2757 

1 2770 

1 

ICF 

MODESLP 

OPERATION  INCOMPLETE. 

0496 

REF 

1 

13,2760 

1 2764 

1 

TCF 

MOOEr,OOD 

COMPLETE  AND  GOOD  IF  = -1, 

0497 

REF 

20 

LAST 

157 

13,2761 

50  07l 

1 

M32 

index 

RUPTBEG2 

COMPLETE  AND  FAILED  IF  -0.  RESET 

• 

o 

o 

0498 

REf 

9 

LAST 

157 

13,2762 

54  367 

1 

TS 

vlODECADR 

return  to  CALLeR. 

0499 

REF 

9 

LAST 

155 

13,2763 

1 2043 

0 

TCF 

MODFEXIT 

0500 

REF 

73 

LAST 

157 

13,2764 

10  000 

0 

M3OEGO0D 

CCS 

A 

MAKE  SURE  INITIAL  STATE  -1. 

0501 

REf 

2 

last 

157 

13,2765 

1 2774 

0 

TCF 

MOdArORT 

0502 

REF 

3 

last 

149 

13,2766 

24  123 

1 

INCR 

BUF2 

IF  So,  INCREMENT  RETURN  ADDRESS 

AND 

0503 

REF 

1 

13,2767 

1 2761 

1 

TCF 

MG2 

RETURN  IMMEDIATELY,  SETTING  CADT 

= +0. 

0504 

REF 

1 

13,2770 

0 -5235 

0 

MODESL? 

tc 

MA<EtADR 

CALL  FROM  SWITCHABLE  FIXED  ONLY. 

0505 

REf 

21 

last 

157 

13,2771 

50  071 

1 

INDEX 

RUPTrEG2 

0506 

REF 

10 

LAST 

157 

13,2772 

54  367 

1 

TS 

modecadr 

0507 

REF 

2 

LAST 

149 

13,2773 

1 5545 

1 

TCF 

JOBSLEEP 

0508 

REF 

1 

13,2774 

0 6000 

1 

mddabort 

TC 

ABORT 

TWO  PROGRAMS  USING  SAME  DEVICE. 

0509 

13,2775 

01210 

0 

2CI 

1210 

633^t36A 

YUL 

system  For  AGC:  revision  O of  program  BURSTIZo  by  NASa  2n211o6-o31 

Dec  7* 

1967 

(MAIN)  PaGe  156 

L 

P0510 

IMJ 

MODE  SWITCHING  ROUTINES 

CONSXA.NT-S._F-OiR_MOU£_5.KaiXUlilG  RO JUNES 

USER'S  OWN  PAGE 

NO.  22 

S3  E3 

0511 

0542- 

0513 

051A 

0515 

13.2776 

13.2777 

00014  1 
nnnSn  ] 

3ITS364  3CT 
aiTS466 QCT 

REF  6 LAST  152 

13.3000 
13.3001 

00070  0 
775A 

7-0O_Q0--0  . 

BITS4-6  3CT 
imuseflg  equals 

13.14.15  OCT 

00070 
BITS 
7000n_  _ 

interpreter  switch  7. 

0516 

0517 

13.3002 
X3..31103 

77500  1 
77477  0 

-COMMAX  OEC 

- Comma  x-,j)£c 

-191 

-192 . 

0518 

0519 

REF  1 

13.3004 

00074  1 
4322 

600M5  OEC 

3SECSM  equals 

60 

3SECq 
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L A0TMAR< 


USER'S  OWN  page  NO.  1 S3 


0001 

3An< 

1 3 

0002 

REF 

2 

LAST 

6l 

E3 

cBAN<= 

ADTAz 

0003 

13.3005 

0 0004  0 

aotmar<  inhint 

OOOA 

REF 

22 

last 

157 

L3,3_O_0iL_ 

54  071  0 

JS  . , 

RUPTrfG? 

BIT14=INFLIQHT  0=N0NFLIGHT 

0005 

REF 

2 

last 

98 

13.3007 

10  373  1 

CCS 

marxEtat 

ARE  MARKS  BUTTONS  IN  USE 

0006 

13.3010 

0 3012  1 

TC 

♦ 2 

MARKS  BUTTONS  NOT  AVAILABLE 

0007 

REF 

1 

13.3011 

0 3015  0 

. , TC  , 

MXVAC 

FIND  A VAC  AREA 

0008 

REF 

16 

LAST 

147 

13.3012 

0 4755  1 

TC 

ALARM 

0009 

13.3013 

00105  0 

OCT 

00105 

OOlO 

REF 

4 

LAST 

102 

13.3014 

0 5567  0 

. TC 

ENDOFJOS 

0011 

REF 

3 

LAST 

99 

13.3015 

10  430  1 

M<VAC  CCS 

VAClUSE 

0012 

REf 

1 

13.3016 

0 303L  0 

TC_ 

.'^X  V-AcFN.D-  - -- 

0013 

REF 

2 

LAST 

9 7 

13.3017 

10  504  1 

CCS 

VAC2USE 

OOIA 

REF 

2 

LAST 

159 

13.3020 

0 3031  0 

TC 

MX^ACFND 

0015 

REF 

2 

LAST 

97  _ 

_ _ _I3 .30  21 

10  560  0 

CCS. 

VA  C.3USE  . . 

0016  . 

REF 

3 

LAST 

159 

13.3022 

0 3031  0 

rc 

MXVACFND 

0017 

REF 

2 

LAST 

97 

13.3023 

10  634  1 

CCS 

VACaUSE 

0018 

REF 

4 

lasjl 

159 

13.3024 

0_303.1 .0 

_ TC  . 

MiCYACFm 

0019 

REF 

2 

LAST 

97 

13.3025 

10  710  0 

CCS 

VACsilSE 

0020 

REF 

5 

LAST 

159 

13.3026 

0 3031  0 

TC 

MXVACFND 

0021 

REF 

2 

LAST 

157 

13.3027 

0 6000  1 

TC 

ABORT 

VAC  AREAS  occupied 

0022 

13.3030 

01207  0 

OCT 

01207 

0023 

REF 

11 

LASH 

157 

13.3031 

6 776Z  .0 

M<VACF\ID  AD 

0024 

■REF 

3 

LAST 

159 

13.3032 

54  373  1 

TS 

_ 

MARXSTAT 

0025 

REF 

34 

LAST 

157 

13.3033 

3 7767  0 

CAF 

ZERO 

0026 

REF 

1 

13.3034 

54  374  0 

ts 

XYMARK 

INITIALIZE  mark  ID  REGISTER 

0027 

REF 

4 

LAST 

159 

13.3035 

50  373  0 

INDEX 

MAR<.t;TAT 

0028 

13.3036 

53'777  0 

TS 

0 -1 

SHOW  VAC  OCCUPIED 

0029 

rEf 

23 

LAST 

159 

13.3037 

3 0071  1 

CA 

RUPTREG2 

0030 

REF 

5 

LAST 

159 

13.3040 

26  373  1 

ADS 

MARXSTAT 

0031 

ref' 

1 

13.3041 

3 5653  1 

CAF 

PRI032 

0032 

REf 

3 

LAST 

93 

13.3042 

0 5505  1 

TC 

NOY  Ar 

00325 

ref 

3 

last 

159 

E3 

£BAN<= 

AOTAz 

0033 

13.3043 

03054  0 

2CADR 

GETMkS 

C0033 

ref 

1 

13.3044 

26063  0 

0034 

REF 

10 

LAST 

157 

13.3045 

0 2043  1 

TC 

MODEEXIT 

0035 

REF 

35 

LAST 

159 

13.3046 

3 7767  0 

M<RELEAS  CAF 

ZERO 

0036 

REp 

6 

la.at 

159 

13.3047 

56  373  0 

XCH 

MARXWTAT 

aET  MARK4TAT  ZERO 

0037 

ref 

74 

LAST 

157 

13,3050 

10  000  0 

CCS 

A 

0038 

REF 

75 

LAST 

159 

13.3051 

50  000  1 

INDEX 

A 

0039 

13.3052 

54  000  0 

TS 

0 

SHOW  VAC  AREA  AVAILABLE 

OOaO 

ref 

4 

LAST 

147 

13,3053 

0 5221  0 

TC 

SWREtURN 

633436A  YUl.  SYSTEM  FoK  AOCI  REVISION  0 OF  PROORA'1  BURSTIED  BY  NASA  2021106-031 
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L 

00<V1 

AOTMArK 
REF  ^6 

LAST 

) 59 

13.3054 

3 7767-  -0- 

SETMKS 

rAF 

2ER0 - 

USER'S  OWN  PACE  NO.  2 

00^t2 

REF 

2 

LAST 

159 

13,3055 

54  374  0 

T5 

XYV14RK 

00a3 

REF 

16 

LAST 

153 

13,3056 

3 7746  0 

CAF 

31T14 

find  if  in-flight  or  non-flight 

00A4 

REF 

7 

LAST 

J.59 

13j3_057 

7-  0373  1 

*lAS-<-  _ 

'^ARCSTAT 

00A5 

REF 

76 

last 

159 

13,3060 

10  000  0 

CCS 

A 

00A6 

REF 

1 

13,3061 

0 3070  0 

IC 

'1K\/353 

in-flight 

00^7 

REF 

3 LAST 

1 34 

13,3062 

4 7751  I _ 

rs 

BlTl  1 . 

NON-FLIGHT.  SET  Y MARK_  =1 

00A8 

REF 

8 

last 

160 

13,3063 

7 0373  1 

'1AS< 

V|AR<STAT 

0049 

ref 

4 

LAST 

160 

13,3064 

6 7751  0 

AD 

aim 

0050 

REF 

9 

LAST 

160 

13,3065 

54  373  1 

rs 

'IARCSTAT 

0051 

REF 

1 

13,3066 

3 3415  1 

CAF 

YB51 

request  X MARK 

0052 

13,3067 

0 3071  1 

TC 

+ 2 

0053 

ref 

1 

. 13,3070 

3_  3471_J) 

vK,VB5-3 

CAF 

_Y_B53 

REQUEST  X AND  7.  MARKS 

005A 

ref 

1 

13,3071 

0 4657  1 

rc 

Nv53uAIT 

0055 

REF 

1 

13,3072 

0 4622  0 

TC 

flashon 

0056 

ftEF 

1 

13,3073 

0 4475  0 

rc 

ENDIDLE 

0057 

REF 

2 

LAST 

159 

13,3074 

0 3055  1 

rc 

oETviKS  +1 

0058 

ref 

3 

LAST 

160 

13,3075 

0 3055  1 

TC 

oETMKS  +1 

0059 

REF 

12 

LAST 

153 

13,3076 

3 7752 

0 

MCCHEK 

CAF 

BITIO 

WAS  X MARK  MADE 

0060 

ref 

10 

LAST 

160 

13,3077 

7 0373 

1 

MASK 

MAR<sTAT 

0061 

ref 

77 

LAST. 

1 60 

13,3100 

10  00Q_ 

n 

CCS 

A 

0062 

13,3101 

0 3103 

0 

rc 

+ 2 

X mark  made-look  at  Y MARK 

0063 

REF 

1 

13,3102 

0 3107 

1 

TC 

MKALARM 

0064 

ref 

5 

LAST 

1^0 

13,3103 

3 7751 

0 

CAF 

billl 

0065 

ref 

11 

LAST 

160 

13,3104 

7 0373 

1 

MASK 

MARKSTAT 

0066 

ref 

78 

LAST 

160 

13,3105 

10  000 

0 

CCS 

A 

0067 

REF 

1 

13,3106 

0 3115 

1 

rc 

oETDET 

BOTH  MARKS  MADL-SHOW  ACCEPT-GET  DETENT 

0068 

REF 

17 

LAST 

159 

13,3107 

0 4755 

1 

mkalarm 

rc 

ALARM 

IF  EITHER  MARK  IS  MISSING  AFTER  ENTER 

00i>a 
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LOCCtR 

0246 

REF 

51  LAST 

149 

13.3401 

54  144  1 

ts 

MPAC 

0247 

REF 

9 LAST 

164 

13.3402 

0 5733  0 

TC 

RESJME 

0248. 

REF 

52  LAST 

166 

13.3403 

10  144  1 

CHANGV3 

CCS 

mpac 

0249 

R_Ei_ 

1 

13.3404 

0 3407  1 

TC 

SHOwuB 

0250 

ref 

1 

13.3405 

3 3472  0 

CAF 

YB21N30E 

0251 

REF 

2 LAST 

166 

1 3 » 34O6 

0 3411  0 

TC 

SHDWVB  +2 

0252 

ref 

1 

13.3407 

3 3473  1 

SHDWVB 

CAF 

YB50 

0253 

REF 

53  LAST 

166 

13.3410 

6 0144  0 

AD 

MPAC 

0254 

ref 

1 

13.3^11 

54  113  0 

TS 

NVTEmP 

0255 

REF 

2 LAST 

98 

13.3412 

3 0327  1 

CA 

CADRSTOR 

NVSUB  CLOBBERS  THIS-USE  LOC  AS  TEMP 

0256 

REF 

2 LAST 

156 

13.3413 

54  154  0 

TS 

LOC 

0257 

REF 

1 

1 3 . 34I4 

0 4447  1 

TC 

NVSJr  +3 

0258 

13.3415 

05100  0 

V351 

3CT 

5100 

0259 

REF 

3 LAST 

166 

13.3416 

3 0154  1 

CA 

LOC 

RESTORE  CADRSTOR 

0260 

REF 

3 LAST 

166 

13.3417 

54  327  0 

TS 

CADRaTOR 

0261 

REF 

6 LAST 

162 

13.3420 

0 5567  0 

TC 

ENDOFJOB 

0262 

REF 

18  LAST 

16l 

13.3421 

3 7746  0 

MCREJ 

CAF 

BIT  14 

in-flight  or  non-flight 

0263 

REf 

29  LAsT 

166 

13.3422 

7 0313  1 

MAs< 

MAR<sTAT 

0264 

REF 

90  LAST 

166 

13.3423 

10  000  0 

CCS 

A 

0265 

REF 

1 

1 3 » 3424 

0 3432  1 

TC 

REJIn 

in-flight 

0266 

REF 

15  last 

166 

13.3425 

3 7752  0 

CAF 

BlTin 

NJLN-FLIGHT.  SEE-  IF  X MARK  MADE  . - 

0267 

REF 

30  LAST 

166 

13.3426 

7 0373  1 

MAS< 

MAR<STAT 

0268 

REF 

91  last 

166 

13.3427 

10  000  0 

CCS 

A 

026.9 

REF 

1 

13.3430 

0 3454  1 

TC 

REJECT2 

XMARK  made-reject  IL  - - - - 

0270 

REF 

1 

13.3431 

0 3436  0 

TC 

REJAI  ARM 

X MARK  NOT  MADE-ALARM-NO  MARKS  TO  REJ 

633436A  YUL  SYSTEM  FOR  AGC:  REVISION  0 OF  PROGRAM  BURST123  6Y  NASA  2021106-031 
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L aOTMA7< 


USER'S  OWN  page  NO.  9 S3  E3 


0271 

REF 

1 

_ L3..3932 

3 . S632.  0 

.REJiN 

CAF 

—PRlOv 

..WERE  IN-FLIQHT  MARKS  MADE 

0272 

REF 

31 

LAST 

166 

13.3933 

7 0373 

1 

MAS< 

MARKSTAT 

0273 

REF 

92 

LAST 

166 

13,3939 

10  000 

0 

CCS 

A 

0279 

REF 

1 

_L3,3935 

..0..3991 

0. 

TC  .. 

RE.JECT  _ 

__  MARKS  MADE-REJECT_DNE 

0275 

REF 

21 

LAST 

169 

13,3936 

0 9755 

1 

REJALARM 

tc 

ALARM 

NO  MARKS  MADE  TO  REJECT-GET  MARKS 

0276 

13,3937 

00115 

1 

OCT 

115 

0277 

REF 

2 

LAST. 

i_66 

_13,399Q 0 3959 

1 

rc. 

. REJErT2  . _ . 

0278 

REF 

7 

LAST 

169 

13,3991 

9 7797 

0 

REJECT 

:s 

BIT13 

SHOW  MKReJECT  and  SEE  MARK  MADE 

0279 

REF 

32 

LAST 

167 

13,3992 

7 0373 

1 

MASK 

MARKSTAT 

since  last  reject 

0_2B0 

ref 

L 

LAST 

Ahl 

13,3993 

6 7797 

1 

AIL 

_0JX13  _ . 

028l 

REF 

33 

LAST 

167 

13,3999 

56  373 

0 

KCH 

MARKSTAT 

0282 

REF 

9 

LAST 

167 

13,3995 

7 7797 

0 

MASK 

BIT13 

0283 

REF 

93 

LAST 

167 

13,3996 

oaQ_ 

_Q 

_CCJ5 

A 

0289 

REF 

3 

LAST 

167 

13,3997 

0 3959 

1 

TC 

REJFCT2 

ANOTHER  REJECT 

0285 

REF 

6 

LAST 

169 

13,3950 

9 0379 

0 

cs 

XYMARK 

mark  made  since  last  reject-reJect  it 

0286 

REF 

.39 

last 

L67. 

li,3951 

7 0373 

1 

MASK 

MARKSTAT 

0287 

REF 

35 

LAST 

167 

13,3952 

59  373 

1 

rs 

MARKSTAT 

0288 

REF 

3 

LAST 

165 

13,3953 

0 3355 

1 

TC 

Remark 

GO  request  Marks 

0289 

REF 

2 

LAST 

167 

13,3959 

9 5632  1 

REJECT2 

CS 

PRIO3 

NO  marks  SINCE  LAST  ReUeCT  SO  S-T 

0290 

ref 

36 

last 

167 

13,3955 

7 0373  1 

mask 

MARKSTAT 

MARKSTAT  TO  WANT  X AND  Y MARKS 

0291 

ref 

37 

LAST 

167 

13,3956 

56  373  0 

KCH 

MARKSTAT 

0292 

REF 

19 

LAST 

166 

13,3957 

7 7796  1 

MASK 

8IT19 

in-flight  or  NON-FLIGHT 

0293 

REF 

99 

LAST 

167 

13,3960 

10  000  0 

CCS 

A 

0299 

REF 

9 

last 

167 

13.3961 

0 3355  1 

LC 

Remark 

in-flight,  go  get  marks 

0295 

REF 

8 

LAST 

166 

13,3962 

3 7751  0 

CAF 

BlTll 

non-flight,  still  request  X mark  only 

0296 

REF 

38 

LAST 

167 

13,3963 

26  373  1 

ADS 

MARKSTAT 

0297 

REF 

5 

LAST 

167 

13 ,3969 

0 3355  1 

TC 

remark 

go  get  X mark 

0298 

REF 

9 

LAST 

157 

6311 

DCT3 

equals 

THREF 

0299 

13,3965 

00039  0 

0CT39 

OCT 

00039 

0300 

13 ,3966 

00190  1 

DCT190 

3Ct 

OOUn 

0301 

13.3A67 

02193  0 

V21NA3E 

OCT 

2193 

0302 

13,3970 

02992  1 

V29N92E 

JLCT 

2992 

0303 

13,3971 

05300  1 

V353 

OCT 

5300 

0309 

REF 

7 

LAST 

166 

0073 

mkdex 

equals 

RUPTrEGa 

0305 

REF 

7 

LAST 

167 

0379 

DETCODE 

equals 

xymark 

0306 

REF 

37 

LAST 

163 

0002 

BASVAC 

equals 

0 

0307 

13,3972 

02130  1 

V321N30E 

OCT 

2130 

0308 

13,3973 

05000  1 

V350 

OCT 

5000 

( 
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RADAR  LEAD-IN  ROUTINES 


USER'S  OWN  PACE  NO.  1 S3 


-A323  3L0C4_  _Q.2 - — - - - _ 

REF  1 E3  EBAN<=  RRRET 

THE  FOLLOWINo'  SUBROUTINf  RETURNS  TO  CALLER  +_ 2- LF_JTHE- ABSOLUTE  VALUE  OF  ClAl  IS  GREATER  THAN  THE  — 
negative  of  the  number  at  caller  +1.  otherwise  it  returns  to  caller  +3.  MAY  BE  CALLED  IN  RUPT  OR  UnDER  EXEC, 


4323 

0 0006 

J MAGSUB 

EXTEND 

4324 

6 4326 

1 

3ZMF 

+ 2 

4325 

1 4327 

1 

rcF 

♦ 2 

4326 

4 0000 

_D 

COM 

REF 

38 

LAST 

16T 

4327 

50  002 

0 

INDEX 

3 

4330 

6 0000 

_i 

AD 

JL 

4331 

0 0006 

1 

EXTEND 

REF 

3 

LAST 

7T 

4332 

6 7017 

0 

3ZMF 

3+2 

ABS(A)  LEO  CONSTANT 

REF 

2 

LAST 

77  __ 

4333 

1 7015 

0 

ICF 

J+1.  _ 

____ABS(A1_G_  CONSTANT 

b33‘*3bf^  YUL  system  FOR  *GC:  REVISION  0 OF  PROGRA'1  BURSI12D  BY  NASA  2^2110^-031  DEC  7,  1967  (MAIN)  PAGE  1&9 
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LoOOl 

P0019 

RADAR  LEAD-IN  ROUTINES 
the  FDLL0WISI3' 

subroutine  CHfCKS 

I RR  GI^IBAL  ANGLES  TO  SEE 

USER'S  OWN  PAGE  NO.  2 S3  E3 

IF  tHfY  ARE  IN  the  LIMITS  OF  THE  CURRemT  MODE. 

ROO2I 

calli mg 

SEQUENCE  IS  AS 

follows; 

A0O22 

LC  ___ 

RRLImCHK 

(WITH  interrupt  INHIBITED). 

A0023 

ADPES 

T,S 

(IN  unswitched  E OR  CURRENT  EBAMK). 

RD02A 

return  is  to^  caller 

Jl2._LEL_N.Q1_JJ(  . Li  Ml  T5  . 

AND 

CALI ER  *3 

IE.  SO.  . . 

0025 

REF 

39 

last 

168 

4334 

50  002 

0 

RRLIMCHK 

index 

Q 

READ  GIMBAL  ANGLES  INTO  ITEMP  STORAGE. 

0026 

4335 

3 noon 

1 

CAF 

JL_ 

0027 

ref 

40 

last 

169 

4336 

24  002 

0 

INCR 

Q 

0028 

4337 

0 0006 

1 

EXTEND 

0029 

REF 

95 

last 

1 67 

4340 

5 0000 

1 

INDILX. 

A 

0030 

4341 

3 0001 

0 

OCA 

0 

0031 

ref 

30 

LAST 

164 

4342 

52  062 

1 

OXCH 

ITEYdI 

0032 

REF 

4l 

LAST 

.169 

. 43  A3. 

Z2  001 

0 

LXCH 

3 

L(CALLER  +2)  TO  L. 

OO33 

REF 

10 

LAST 

163 

4344 

3 7750 

1 

CAP 

BITl? 

SEE  WHICH  MODE  RR  IS  IN. 

003A 

REF 

14 

LAST 

134 

4345 

7 0412 

1 

viAS< 

RADvinDES 

0035 

REF 

96 

LAST 

169 

4346 

10  000 

0 

CCS 

A 

0036 

REF 

1 

4347 

1 4362 

0 

TCP 

M0DE7CHK 

0037 

REF 

31 

LAST 

169 

4350 

3 0061 

0 

CA 

I TEvIdI 

MODE  1 IS  DEFINED  AS 

' 0038 

REF 

1 

4351 

0 4323 

1 

TC 

magsub 

1.  ABS(T)  L 55  DEGS. 

0039 

4352 

66161 

1 

OEC 

-.30555 

2.  ABS(S  ♦ 5.5  DEGS)  L 64.5  DEGS 

OOaO 

REF 

27 

LAST 

152 

4353 

0 0001 

0 

rc 

L 

(SHAFT  LIMITS  AT  +59.  -TO  DEGS) 

OOAl 

REF 

1 

4354 

3 4374 

0 

CAP 

5.50FGS 

00A2 

REF 

16 

LAST 

153 

4355 

6 0062 

0 

AD 

ITEV1P2 

S 

00S3 

REF 

2 

LAST 

169 

4356 

0 4323 

1 

TC 

YAGSUB 

OOAA 

4357 

64420 

0 

OEC 

-.35r33 

64.5  DEGS 

00A5 

ref 

28 

LAST 

169 

4360 

0 0001 

0 

TC 

L 

00A6 

REF 

1 

4361 

0 4372 

0 

TC 

RRLIMOK 

IN  LIMITS. 

00A7 

REF 

1 

4362 

3 4376 

1 

MD0E2CH< 

CAP 

820EfiS 

MODE  2 IS  DEFINED  AS 

00A8 

REF 

17 

LAST 

169 

4363 

6 0062 

0 

AD 

ITEV1P2 

1.  ABS(T)  G 125  DEGS. 

00A9 

REF 

3 

LAST 

169 

4364 

0 4323 

1 

TC 

maqsub 

2.  ABS(S  ♦ 82  DEGS)  L 57  DESS 

0050 

4365 

65673 

0 

DEC 

-.31667 

(SHAFT  LIMITS  AT  -25,  -139  DEGS) 

0051 

ref 

29 

LAST 

169 

4366 

0 0001 

0 

TC 

L 

0052 

REF 

32 

last 

169 

4367 

3 0061 

0 

CA 

ITEMPI 

0053 

REF 

4 

LAST 

169 

4370 

0 4323 

1 

TC 

MAGSiiB 

0054 

4371 

51615 

1 

OEC 

-.69444 

125  DEGS 

0055 

REF 

30 

last 

169 

4372 

50  001 

0 

R-RLIMO< 

INDEX 

L 

0056 

REF 

31 

LAST 

169 

4373 

0 0001 

0 

TC 

L 

( = TC  1) 

00565 

4374 

00765 

0 

5.5DEGS 

DEC 

•030e6 

0057 

4375 

00707 

1 

5DEGS 

OEC 

.02777 

SCALED  IN  half-revolutions. 

0058 

4376 

16450 

1 

82DEGS 

OEC 

.45556 

( 
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LOOOI  RADAR  lead-in  routines  USER'S  Own  page  no.  3 S3  E3 

P0059  THf  FQLLOWINS'  routine  updates  IHE  JRACIAFR  fail  lamp  ON  THF  DSKY,  IF  fITHfR: . 

ROO6I  1.  N samples  of  RR  data  could  not  be  obtained  from  iN  TRIES 

Ro062  2._N  SAmpL_£S_Oj.  LR  DATA  CQuLD  NOT  HE  IACEN  I N_2.N..  TRjES^W  J H E I THeR  THE- ALT  OR  ViL  INFORMATION..  _ 

ROO6A  3.  RR  ODU  failed  WITH  RR  IN  AUTO  MODE  ANO  RR  CDJ  NOT  BEING  ZEROED. 


0066 

REF 

10 

LASJ_155  

43  77-_ 

3 7763 

settraf. 

CAF 

31  Tl 

NO  ACTION  IF  DURING  LAMP  TEST. 

0067 

REf 

10 

LAST 

146 

4400 

7 0366 

0 

mas< 

IIMOOrSOS 

0068 

REF 

97 

last 

169 

4401 

10  000 

0 

CCS 

A 

0069 

_RE.F .. 

4? 

LAST 

169 

4402 

0 Q002 

. JLC 

0 

OO7O 

REF 

1 

44O3 

3 4433 

1 

CAF 

13.7.2 

SEE  IF  CDU  FAILED. 

0071 

REf 

15 

last. 

L6.9 

4404 

JZ_0412_1_ 

MASA  ... 

. RADMnDES. 

0072 

4405 

0 0006 

1 

EXTEND 

0073 

REF 

1 

4406 

1 44 1 6 

1 

3ZF 

TRKFLON 

condition  3 ABOVE. 

0074 

REF 

16 

LAST 

170 

44O7 

4 0412 

1 

CS 

RADMODES 

SEE  IF  LR  failed. 

0075 

REf 

1 

4410 

7 4434 

1 

mask 

8.5 

0076 

44J.1_„ 

.0  0006 

I 

EXTEND 

0077 

REF 

2 

LAST 

I7O 

4412 

1 4416 

1 

3ZF 

TRKFI  ON 

CONDITION  2 ABOVE. 

0078 

REF 

14 

LAit 

L6-3  - 

4413 

3 7760 

1 

CAF 

3IT4 

SEE  IF  RR  DATA  FAILED. 

0079 

REf 

17 

LAST 

170 

4414 

7 0412 

1 

mask 

RADmoDES 

0080 

REF 

98 

LAST 

170 

4415 

10  000 

0 

CCS 

A 

0081 

■ REF 

8 

LAST 

166 

4416 

3 7754 

0 

TRKFLON 

CAF 

BIT8 

0082 

REF 

22 

LAST 

146 

4417 

6 0326 

0 

AD 

dsptab  +11D 

HALF  ADD  DESIRED  AND  PRESENT  STATES. 

0083 

REF 

9 

LAST 

170 

4420 

7 7754 

1 

MASK 

31T8 

0084 

4421 

0 0006 

1 

EXTEND 

' 0085 

REF 

2 

LAST 

77 

4422 

1 7020 

0 

3ZF 

TC3 

NO  CHANGE. 

0086 

ree_ 

32 

LAST 

169 

4423 

54  001 

1 

TS 

L 

INVERT  BIT  8 AND  SET  BIT  15. 

0087 

REf 

23 

last 

170 

4424 

3 0326 

0 

CA 

DSPTAB  +IID 

CANT  USE  lXCH  OSpTAB  *110  (RESTART  PROB) 

0088 

4425 

0 0006 

1 

EXTEND 

__  5089 

REF 

33 

LAST 

170 

4426 

06  001 

0 

RXOR 

L 

0090 

REF 

6 

LAST 

12Z 

4427 

7 7743 

1 

MASK 

POSMaX 

0091 

REF 

12 

LAST 

146 

4430 

6 7745 

0 

AD 

BIT15 

0092 

REF 

24 

LAST 

170 

4431 

54  326 

1 

IS 

DSPTaB  +IID 

0093 

ref 

43 

LAST 

170 

4432 

0 0002 

0 

TC 

3 

0094 

4433 

10102 

0 

13.7»2 

OCT 

1010? 

0095 

4434 

00220 

1 

8.5 

OCT 

00220 

009t 
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LoOOl 

P0097 

RADAR  LEAD-IN  ROUTINES 

TaRN0N_S£(lU_EYi5:£  TO  ZERD-IHEL  CIUI£„AND_J£T _T_d^_RR_MOO£.  . 

USER'S  OWN  PAGE  NO.  A S3 

E3 

0098 

10,2000 

3AN< 

10 

0099 

REF 

1 

10»2000 

0 2013  1 RRTURNDN  TC 

RRZEROSB 

0100 

ref 

2 lAsT  1A2 

10,2001 

0 5701  1 

TC 

FIXdFLAY 

WAIT  1 sEC  before  REMOVING  TURN  ON  FlAG 

0101 

10.2002 

Q01A4  0 

DEC 

100  _ __ 

SO  A MONITOR  REPOSITION  WONT  ALARM. 

0102 

ref 

11  LAST  170 

10,2003 

A 7763  0 

:s 

BITI 

0103 

REF 

10  LAST  170 

10.200A 

7 0A12  1 

MAS< 

RADMnDES 

OlOA 

REF 

19  LASJ  L7A 

10,2005 

.5  A A12  _1_  _ _ 

TS 

RADMODES 

0105 

REF 

17  LAST  138 

10,2006 

A 007A  0 

cs 

STATE 

See  if  someone  is  waiting  to  uss-  the 

RR. 

0106 

REF 

1 

10,2007 

7 7755  0 

MAS< 

RRJSEFLG 

0107 

REF 

99  LAST  170 

10,2010 

10  000  0 

CCS 

A 

0108 

REF 

13  LAST  156 

10,2011 

1 5727  1 

TCF 

TAS<nVER 

0109 

REF 

1 

_ I0_,.zai2 

A 32A2  1 

tcf 

ENDRaDAR 

_ check  _RR  COU  F_AIL_BEF_aR£  LXJT^ 

633436A  y^il  System  for  agc;  revision  o of  program  burstizd  by  nasa  2021106-031 
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LOOOl 

radar 

LEAD-I^ 

routin 

ES 

USER'S  OWN  PAGE  NO.  5 

S3  E3 

POl  10 

CLOSED  SUBROU'II NE  JO  ZFRO  JHF  KR.  COILS.- 

0111 

10,2013 

0 0006 

1 RRZEROSB 

EXTEND 

0112 

RtF 

2 

LAST 

168  

10.2014 

-23'464  _D 

2XCH 

_aaa£i_ 

0113 

REF 

12 

LAST 

17l 

10,2015 

3 7763 

1 

CAF 

Bill 

BIT  13  OF  RADMODES  MUST  BE  SET 

3EF0RE 

OllA 

10,2016 

0 0006 

1 

extend 

COMING  here. 

0115 

10,2017 

05  012 

J 

/i/OR 

1 ? 

0116 

REF 

3 

LAST 

171 

10,2020 

0 5701 

1 

TC 

FIXDfLAY 

0117 

10,2021 

00002 

0 

DEC 

2 

0118 

REF 

39 

LAST 

166 

10,2022 

3 7767 

0 

CAF 

ZERO 

0119 

REF 

2 

LAST 

134 

10,2023 

54  035 

0 

TS 

DPTY 

0120„ 

bee_ 

1 

10,2024 

54  036 

J3 

rs 

OPTX 

0121 

REF 

22 

last 

164 

10,2025 

4 7763 

0 

:s 

ONE 

REMOVE  zeroing  BIT. 

0122 

10,2026 

0 0006 

1 

EXTEND 

0123 

m,2027 

03  012 

1 

JiANJD 

12 

012A 

REF 

4 

LAST 

172 

10,2030 

0 5701 

1 

IC 

FlXOcLAY 

0125 

10,2031 

00620 

0 

DEC 

400 

0126 

REF 

10 

LAST 

167 

10,2032 

4 7747 

0 

CS 

B1T13 

remove  Zeroing  in  process  bit. 

0127 

REF 

20 

LAST 

171 

10,2033 

7 0412 

1 

v|AS< 

RADMODES 

0128 

REF 

21 

LAST 

172 

10,2034 

54  412 

1 

rs 

RADMODES 

0129 

REF 

3 

last 

172 

10,2035 

3 0035 

1 

CA 

OPTY 

0130 

REF 

5 

LA5J  J_69 

10,2036 _ 

0 4323 

1 

fC 

V14GSUB 

0131 

10,2037 

57777 

1 

DEC 

-.5 

0132 

10,2040 

1 2043 

0 

TCF 

IF  MODE  2. 

0133 

REF 

40 

LAST 

172 

10,2041 

3 7767 

0 

CAF 

ZERO 

0134 

10,2042 

1 2044 

1 

TCF 

+ 2 

0135 

ref 

11 

LAST 

169__  _ 

10,2043 

3 7750 

1 

CAF 

BlTl? 

0136 

REF  ■ 

22 

LAST 

172 

10,2044 

56  412 

0 

KCH 

RADMODES 

0137 

ref 

1 

10,2045 

7 5502 

1 

MASK 

-B1T12 

0138 

REF 

23 

LAST 

172 

10,2046 

26  412 

1 

ADS 

RADMnDES 

0139 

REF 

2 

LAST 

133 

10,2047 

0 4377 

0 

IC 

SET  TRKF 

tracker  lamp  might  go  on  now. 

0140 

REF 

3 

LAST 

172 

10,2050 

0 1464 

0 

TC 

RRRET 

DONE. 

OUl  REF  1 


5502  -31112 


equals  -1/8 


IN  SPROOT 


633«f36A  Yui-  SySTEM  FOR  AqC:  REVISION  0 OF  rROgRA^i  BURST123  6Y  NASA  2n2110fc-031 


DEC  7,  1967  (MAIN)  rAgE  173 


Loool 

RADAR  LEAD-IN  ROUTIN 

ES 

USER'S  OWN  PAGE  NO,  6 S3  E3 

P0142  . 

rHF 

8R,  TO  A 

SAFE  PDSITIDm. 

0K3 

REF 

1 

10,2051 

0 2106 

1 

D0RREP3S 

tc 

SETRRECR 

Set  UP  rr  cdu  error  counters. 

Ol^tA 

REF 

13 

LAST 

172 

10 

,2052 

3 7763 

1 

:af 

biti 

DO  AN  ALARM  UNLESS  RR  JUST  TURNfD  ON. 

OU5 

REF 

24 

LAST 

172 

10 

,2053 

7 0412 

1 

VSASK 

RAOvinDES 

0146 

ref 

1 00 

LAST 

171 

_10 

,2054 

10  OOP 

_0 



A 

0147 

10 

,2055 

1 2060 

1 

TCF 

t3 

0148 

ref 

22 

LAST 

L67  _ 

10 

i2a56 

_a  4J.55 

1 . 

TC 

alarm 

0149 

10 

,2057 

00501 

0 

3CT 

501 

0150 

REF 

5 

LAST 

172 

10 

,2060 

0 5701 

1 

TC 

FIXDfLAY 

0151 

LQ 

_,_206i 

00002 

0 

DEC 

2 

0152 

REF 

12 

LAST 

172 

10 

,2062 

3 7750 

1 

CAF 

BITi? 

maneuver  trunnion  angle  to  nominal  pds. 

0153 

REF 

25 

LAST 

173 

10 

,2063 

7 0412 

1 

vlAS< 

RADM0DE5 

0154 

REF 

101 

LAST 

173 

10 

,2064 

10  000 

0 

CCS 

A 

0155 

REF 

13 

LAST 

170 

10 

,2065 

3 7745 

0 

CAF 

0 FOR  MODE  1 AND  leO  FOR  MODE  2. 

0156 

REF 

1 

10 

,2066 

0 2150 

1 

TC 

RRTONLY 

0157 

REF 

13 

LAST 

173 

10 

,2067 

3 7750 

1 

CAF 

BITi2 

NOW  PUT  shaft  in  RIGHT  POSITION. 

0158 

REF 

26 

LAST 

173 

10 

.2070 

7 0412 

1 

*1AS< 

RADMoDES 

0159 

REF 

102 

LAST 

173 

10 

,2071 

10  000 

0 

CCS 

A 

0160 

REF 

1 

10 

,2072 

4 7746 

1 

CS 

HALF 

-90  FOR  MODE  2, 

0161 

REF 

1 

10 

,2073 

0 2153 

1 

TC 

RRSDnLY 

0162 

REF 

9 

last 

167 

10 

,2074 

4 7751 

1 

REPOSRPt 

CS 

BITU 

RETURNS  Here  from  rriaxis  if  remode 

A0163 

rfqufsted  during  reposition. 

0164 

REF 

27 

LAST 

173 

10 

,2075 

7 0412 

1 

1AS< 

RADvinDES 

remove  reposition  bit. 

0165 

REF 

28 

LAST 

173 

10 

,2076 

54  412 

1 

TS 

R AD  V, ODES 

0166 

REF 

16 

LAST 

166 

10 

,2077 

7 J13Z 

1 

'(ASK 

B1  TlO 

See  if  Someone  is  waiting  to  designate. 

0167 

ref 

103 

LAST 

173 

10 

,2100 

10  000 

0 

CCS 

A 

0168 

REF 

1 

10 

,2101 

1 2423 

1 

TCF 

BESDfS 

0169 

REF 

12 

LAST 

133 

10 

,2102 

4 7762 

1 

CS 

8IT2 

IF  no  further  antenna  control  RfQJIReD, 

0170 

10 

,2103 

0 0006 

1 

EXTEND 

remove  error  counter  enable. 

0171 

10 

,2104 

03'  012 

1 

yand 

12 

0172 

REF 

lA 

LAST 

171 

10 

.2105 

1 5727 

1 

TCF 

TASKnVER 

0173 

REF 

13 

LAST 

173 

10 

,2106 

3 7762 

0 

SETRRECR 

CAF 

BIT2 

set  up  rr  error  counters. 

0174 

10 

,2107 

0 0006 

1 

=XTENn 

0175 

10 

,2110 

05  012 

1 

a/or 

12 

0176 

REF 

A1 

LAST 

172 

10 

.2111 

3 7767 

0 

CAF 

ZERO 

0177 

ref 

4 

LAST 

111 

10 

.2112 

54  361 

1 

TS 

lastycmd 

0178 

ref 

4 

LAST 

110 

10 

,2113 

54  362 

1 

TS 

LASTXCMD 

0179 

REF 

44 

LAST 

170 

10 

,2114 

0 0002 

0 

T£ 

3 

633436A  YUL  SYSTEM  FOR  *GC:  REVISION  0 OF  PROCiRA'1  BURST12D  BY  NASA  2n2UO6-031  DEC  7.  1967  (MAIN)  PACE  17A 


LoOOl  RADAR  LEAD-IN  ROUTINES  USER’S  OWN  PAOE  NO.  7 S3  E3 


POIBO  OErEBAL  REM30_1nC_  SUBK0UX1NE_._  DKlYES„LR-baOji  X0_iL_(180)_.  _TH£n  DRIVES  SHAFT  TO  -AS*  ArD  FINALLY  DRIVES 

Ro182  Tf^JNNlON  TO  -13°  (-50)  BEFORE  INITIATING  2-AxI5  CONTROL.  ALL  RE-MoDING  IS  DONE  WItH  SINGLE  AXIS  ROTATlOvIS  (SEE 
R01835  RRIAXIS). 


018A 

REF 

lA 

LAST 

173 

10*2115 

3 7750 

1 

REMODE 

CAF 

BlTl? 

DRIVE  TRUNNION  TO  0 (180). 

0185 

REF 

29 

LAST 

173 

10*2116 

7 0412 

1 

v(A5< 

RAD\(nDES 

(ERROR  COUNTER  ALREADY  ENABLED) 

0186 

ref 

134 

LAST 

17_3 

10*2117 

10  00^0 

0 

CCS 

A 

0187 

REF 

14 

LAST 

173 

10*2120 

3 7745 

0 

CAF 

3IT15 

0188 

REF 

2 

last 

173 

10,2121 

0 2150 

1 

rc 

rrTonly 

0189 

REF 

1 

10*2122 

3 2137 

0 

CAF 

-450FGSR 

0190 

REF 

2 

LAST 

173 

10*2123 

0 2153 

1 

TC 

RRSONLY 

0191 

ref 

30 

LAST 

174 

10*2124 

4 0412 

1 

CS 

RADMODES 

0192 

ref 

15 

LAST 

174 

10,2125 

7 7750 

0 

*1AS< 

BITl? 

0193 

REF 

135 

LAST  . 

L7_4 

I0,_2I26 

10  000 

0 

CCS 

A 

0l9A 

ref 

1 

10*2127 

3 2141 

1 

CAF 

• 8 0 DfG5R 

GO  TO  T s -130  (-50). 

0195 

REF 

1 

10,2130 

6 2140 

0 

AD 

-50DEGSR 

0196 

REF 

3 

LAST 

L74 

10,Z131 

0 2150 

1 

rc 

RRT-INLY 

0197 

REF 

1 

10,2132 

0 2142 

1 

IC 

RMOOtNV 

0198 

REF 

20 

LAST 

167 

10,2133 

4 7746 

1 

CS 

B1T14 

END  OF  REMODE. 

0199 

REF 

31 

LAST 

174 

10,2134 

7 0412 

1 

*1AS< 

RADMnDES 

0200 

REF 

32 

LAST 

J74 

10,2135 

54  412 

1 

IS 

RADMODES 

0201 

REF 

1 

10,2136 

0 2432 

0 

TC 

STDfaIG 

BEGIN  2-AXIS  CONTROL. 

0202 

10,2137 

70000 

0 

-45DEGSR 

OCT 

70000 

02025 

10,2140 

67070 

1 

-50DEGSR 

OEC 

-.27778 

0203 

10,^2141 

61615 

1 

-80DEGSR 

DEC 

-.44^44 

020A 

REF 

33 

LAST 

174 

10,2142 

22  412 

0 

R'lODINV 

.XCH 

RADMODES 

INVERT  the  Mode  status. 

0205 

REF 

16 

LAST 

174 

10,2143 

3 7750 

1 

CAF 

BIT12 

0206 

10,2144 

0 0006 

1 

EXTEND 

0207 

ref 

34 

LAST 

170 

10,2145 

06  001 

0 

RXOR 

L 

0208 

REF 

34 

LAST 

174 

10,2146 

54  412 

1 

TS 

RADMnDES 

0209 

REF 

46 

LAST 

173 

10,2147 

0 0002 

0 

TC 

0 

633436A  YUL  SYSTEM  FOR  AQCj  REVISION  0 OF  PROGRAM  BURST123  BY  NASA  2n2U0fe-031 


DEC  7*  1967  (MAIN)  PAGE  l75 


LOOOl 

radar 

lead-in  rdutin 

ES 

USER'S  OWN  PaSE  no.  8 S3  E3 

P02l0 

SUBRoJTINfS  -OR  DO IN 

0 S.IN5_Le._AXL5  RR_MN 

-UYfRS 

FOR  dfMODp 

AND  ReP-QS1T10R._  DR_LV£S_TO  WllHIN  i DEGREE.. 

0212 

REF 

1 

10.2150 

55‘A65 

0 

RRTONLY 

TS 

RDES 

DESIRED  TRDNION  ANGLE. 

_Q213 

REf 

<tZ. 

I.AST  173 

10.2151 

3 7767 

0 

SM 

ZERO 

021A 

REF 

1 

10.2152 

1 2155 

0 

rcF 

RRlAylS 

0215 

REF 

2 

_LAST_  ill 

„10.^L53_ 

_53_*  A65 

_0 

RRSONLY 

TS 

RDES  „ 

shafj  commands  are  unresolved  since  TRIS 

0216 

REF 

23 

LAsT  172 

10.215A 

3 7763 

1 

caf 

DNE 

ROUTINE  entered  ONLY  WHEN  T s 0 OR  180. 

J)217, 

REF 

10.2155 

55«A66 

0 

RRIAXIS 

TS  . 

RRINDEX 

0218 

10.2156 

0 0006 

1 

EXTEND 

0219 

REp 

A 

last  172 

10.2157 

23' A6A 

0 

3XCH 

RRREt 

0220 

REF 

1 

10.2160 

1 2163 

0 

TCF 

RRl Ay? 

0221 

REF 

6 

LAST  173 

10.2161 

0 5701 

1 

NXTRRIAX 

TC 

FIXDfLAY 

0222 

10.2162 

00062 

0 

3EC 

50 

2 samples  per  sEcONd. 

0223 

REF 

35 

LAST  17A 

10,2163 

A 0a12 

1 

RR1AX2 

:s 

RADMnDES 

IF  someone  requestes  as  designate  which 

0224- 

REF 

1 

__  10  ill  6 A 

7 56A5 

1 

viASIC 

PRID22_  _ 

REQUIRES  A REMODe  AND  A REPOSITION  IS  IN 

0225 

10.2165 

0 0006 

1 

EXTEND 

progress,  interrupt  it  and  start  the 

0226 

REF 

1 

10.2166 

1 207A 

1 

3ZF 

REPDsRPT 

REMODE  IMMEDIATELY, 

0227 

REF 

3 

LAST 

175 

10,2167 

3 1A65 

1 

CA 

RDES 

0228 

10,2170 

0 0006 

1 

EXTEND 

0229 

REF 

.2 

LAST 

17S 

10,2171 

_5  1A66 

1 

INDEX 

RRI NnEX 

0230 

ref 

A 

LAST 

172 

10,2172 

20  035 

0 

MSJ 

DPTY 

0231 

REF 

A6 

LAST 

17A 

10,2173 

5A  002 

1 

ts 

Q 

SAVE  ERROR  SIGNAL. 

0232 

10.217A 

0 0006 

] 

EXTEND 

0233 

REF 

1 

10,2175 

7 2212 

0 

MP 

RRSPr.AIN 

TRIES  TO  NULL  .7  OF  ERROR 

over  next  .5 

023A 

REF 

35 

LAST 

17A 

10,2176 

5A  001 

1 

TS 

L 

0235 

REF 

A7 

LAST 

17S 

10,2177 

3 0002 

0 

CA 

Q 

SEE  IF  within  1 DEGREE. 

0236 

REF 

6 

LAST 

172 

10,2200 

0 A323 

1 

TC 

MAGSIIB 

0237 

10,2201 

776AA 

1 

3EC 

-.00555 

scaled  in  half-revs. 

0238 

10,2202 

1 220A 

1 

TCF 

♦ 2 

NO, 

0239 

rEF 

5 

last 

17S 

10,2203 

0 1A6A 

0 

TC 

rrret 

return  to  caller. 

02a0 

REF 

3 

LAST 

175 

10.220A 

1 1 • A66 

0 

CCS 

RRI NDEX 

COMMAND  FOR  OTHER  AXIS  IS 

Zero. 

02A1 

10,2205 

1 2207 

1 

TCF 

♦ 2 

SETTING  A TO  0, 

02A2 

REF 

36 

LAST 

175 

10,2206 

56  001 

0 

xch 

L 

02a3 

REF 

2 

LAST 

2A 

10,2207 

52  A23 

0 

3XCH 

TANG 

02AA 

REF 

1 

10,2210 

0 2213 

0 

TC 

RROJT 

02A5 

REF 

1 

10,2211 

1 2161 

1 

TCF 

NXTRRIAX 

COME  back  in  .5  SECONDS. 

02A6 

10.2212 

22715 

1 

rrspgain 

DEC 

.590^,2 

null  ,7  ERROR  IN  .5  SEC, 

633436A 

yul 

system  For  ''GCi 

REVISION 

0 OF  program  BURST12D  SY  NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  176 

UOOOl 

RADAR  LEAD-I^ 

1 routin 

ES 

USER'S  OWN  PAGE  NO.  9 S3  E3 

PnpifJ 

THt-- 

FoLLnWiviG'  RnUTiNh  KfCfIVf^_ 

RR  GYRT  C-iMMANDE 

1 IN  TANG.tl _LN 

pRRoR  counter  scaling.  RRnUj  limits  theM 

R02A9 

And 

generates  commands  to  the 

CDU  TO  ADJUST  THE  EtrOR  COJnTErS  TO  THE 

desired  values.  rUPT  must  be  inHIAiTED.^ 

0251 

REF 

48 

LAST 

175 

J.0 . 2213_ 

22  002  0 

RROUt  __  ‘.ICLH 

3 . __ 

SAVE  REIURM.... 

0252 

REF 

29 

LAST 

175 

10,2219 

3 7763  1 

CAF 

DNE 

LOOP  TWICE. 

0253 

REF 

18 

LAST 

169 

10,2215 

59  062  1 

RR0UT2  TS 

1TEMP2 

0259 

REF 

1D6 

LAST 

L79 

_ 10,2216  __50  000  i 

. _INOEX_.  _ 

A 

0255 

REF 

3 

LAST 

175 

10,2217 

3 0922  0 

CA 

TANG 

0256 

REF 

33 

LAST 

169 

10,2220 

59  061  1 

TS 

ITEMdI 

SAVE  SIGN  OF  COMMAND  FOR  LIMITING. 

0257 

REF 

7 

LAST 

175 

10,2221 

0 4323  1 

TC 

MAGSUB 

SEE  IF  within  LMITS. 

0258 

10,2222 

77177  0 

-RRLIMIT  DEC 

-389 

0259 

REF 

1 

10,2223  1 2292  0 

rcF 

rrdjtlim 

limit  command  TO  MAG  OF  389. 

0260 

REF 

39 

LAST 

175 

10,2229 

3 0061  0 

SETRRCTR  CA 

ITEMPl 

COUNT  OUT  difference  BETWEEN  DESIRED 

0261 

REF 

19 

LAST 

175  _ 

10,2225 

50  062  0 

INDEX 

1TEMP2 

STATE  AND  PRESENT  STATE  AS  RECORDED  IN 

0262 

REF 

5 

LAST 

173 

10,2226 

56  361  0 

XCH 

LASTYCMD 

LASTYCMD  AND  LASTXCMD 

0263 

10,2227 

9 0000  0 

COM 

0269 

REF 

35 

LAST 

L75 

10,2230 

6 0061  0 _ 

_ AD 

llEMPU 

02695 

REF 

3 

LAST 

192 

10,2231 

5 7770  0 

AD 

NEGO 

0265 

REF 

20 

LAST 

175 

10,2232 

50  062  0 

INDEX 

I T EMP2 

0266 

REF 

2 

LAST 

110 

10,2233 

59  053  0 

rs 

DPTYCMD 

0267 

REF 

21 

LAST 

175 

10,2239 

10  062  1 

CCS 

ITEMP2 

PROCESS  BOTH  INPUTS. 

0268 

REF 

1 

I0j2235 

1 2213  1 

rCF 

RRDJT2 

0269 

REF 

1 

10,2236 

3 5639  0 

CAF 

PRID6 

ENABLE  COUNTERS. 

0270 

10,2237 

0 0006  1 

EXTEND 

0271 

10,2290 

05  019  1 

aiOR 

19 

0272 

REF 

37 

last 

175 

10,2291 

0 0001  0 

rc 

l 

RETURN.  

0273 

REF 

36 

LAST 

175 

10,2292 

10  061  1 

RROUtLIM  CCS 

ITEMPl 

limit  command  to  ABS  VAL  of  389. 

0279 

REF 

1 

10,2293 

9 P222  0 

cs 

-RRLIMIT 

0275 

10,2299 

1 2296  1 

rcF 

♦ 2 

0276 

REF 

2 

LAST 

175 

10,2295 

3 2222  1 

CA 

-RRLIMIT 

0277 

REF 

37 

LAST 

175 

10,2296 

59  061  1 

rs 

ITEMPl 

0278 

ref 

1 

10,2297 

1 2225  1 

TCF 

SeTRrCTR  +1 

6334»36A 

-< 

C' 

SrSTEM  FOR  AqC; 

REVISION 

0 OF  PRO&RA'I  BURST123  BY  NASA  2021106-031 

DEC  7*  1967  (MAIN)  PAGE  177 

LOOOl 

radar  lead-in  routin 

E5 

USER'S  OWN  PACE  NO.  10  S3  E3 

P0279 

ROUTINE  TO 

2.-R0  IKE_ 

RR  CPUS  ANL 

' Oftfr'^in^  THF  ^ 

ANTFNnA  MQDF.  _ 

0280 

10,2250 

0 0004  0 

RRZERO  INHINT 

0281 

REF 

2 

LAST 

171 

. .10j_2251 

4 7755.  0 

:s 

RRUSfFLG 

SET  FLAG  TO  SHOW  SOMEONE  USING  tHF  RR. 

0282 

REF 

18 

LAST 

171 

10,2252 

7 0074  0 

v|AS< 

STATf 

0283 

ref 

3 

LAST 

17T 

10,2253 

6 7755  1 

AD 

RRUSFFLG 

028A 

ref 

19 

LAST 

177 

10,2254 

54  074  0 

. . TS 

S-IAxe.  . . _ 

0285 

REF 

14 

LAST 

173 

10,2255 

3 7763  1 

CAF 

3IT1 

SEE  IF  RR  COMING  UP.  IF  SO,  TURNON 

0286 

REF 

36 

LAST  17R 

10j_2_256 

7 .a4l2  1 

vlAS< 

RAD^ODES 

PROGRAM  WILL  DO  THE  WORK. 

0287 

REF 

107 

LAST 

176 

10,2257 

10  000  0 

CCS 

A 

0288 

REF 

1 

10,2260 

1 2303  1 

rcF 

ROADRACK 

0289 

REF 

10 

LAST 

173 

10,2261 

3 7751  0 

CAF 

3ITn 

SEE  IF  MONITOR  REPOSITION  IN  PROGRESS. 

O29O 

ref 

37 

LAST 

177 

10,2262 

7 0412  1 

*1AS< 

RAD'inDEs 

IF  SO*  PONT  RE-ZERO  CDUs. 

0291 

REF 

108 

last 

1J7 

iP  12263 

10  000  0 

CCS 

A 

0292 

REF 

1 

10,2264 

1 3224  1 

tcf 

RADNOOP 

(IMMEDIATE  TASK  TO  RGOODEND) . 

0293 

REF 

11 

LAST172 

10  ,??65 

4 7747  0 

cs  _ 

BITi  3 _ 

SET  FLAG  TO  SHOW  ZEROING  IN  PRDGRfSS. 

0294 

REF 

38 

LAST 

17T 

10,2266 

7 0612  1 

RADvinDES 

0295 

REF 

12 

last 

177 

10,2267 

6 7747  1 

ad 

BI  T13 

0296 

REF 

39 

LAST 

1J7 

10j2270 

54  412  1 

rs 

Radmodes 

0297 

REF 

25 

LAST 

176 

10,2271 

3 7763  1 

CAF 

ONE 

0298 

REF 

17 

LAST 

162 

10,2272 

0 5663  1 

TC 

^AITI  1ST 

02985 , 

REF 

6 

LAST 

175 

E3 

eban<= 

rrret 

0299 

10,2273 

02305  0 

2CADR 

RRZ2 

C0299 

ref 

1 

10,2274 

20063  0 

0300 

REF 

40 

LAST 

177 

10,2275 

4 0412  1 

CS 

RADMnDES 

SEE  IF  IN  AUTO  MODE. 

0301 

REF 

14 

LAST 

173 

10,2276 

7 7762  1 

viAS< 

BIT2 

0302 

REF 

139 

LAST 

177 

10,2277 

10  000  0 

CCS 

A 

0303 

REF 

2 

LAST 

177 

10,2300 

1 23O3  1 

TCF 

ROADrACK 

0304 

REF 

23 

LAST 

173 

10,2301 

0 6755  1 

TC 

alarm 

AUTO  DISCRETE  NOT  PRESENT  - TRYING 

0305 

10,2302 

00510  0 

DCT 

510 

0306 

10,2303 

0 0003  1 

RDADBAC<  RELINT 

0307 

REF 

5 

LAST 

159 

10,23.04 

1 5221  1 

TCF 

SWREtURN 

0308 

REF 

2 

last 

171 

10,2305 

0 2013  1 

RRZ2  TC 

RRZEROSB 

COMMON  TO  TURNON  AND  RRZERO. 

0309 

REF 

2 

LAST 

171 

10,2306 

1 3262  1 

TCF 

ENDRaDAR 

0310 

REF 

10 

LAST 

166 

7755 

RRUSEFLO  equals 

BIT7 

03U 

REF 

7 

LAST 

163 

7757 

LOKONFLO  equals 

8IT5 

633436A  yUL  SySTEM  FOR  Aqc;  REVISION  0 OF  PRO&RAm  BURSTIZD  BY  NASA  2n21106-031 
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LOOOl 

RADAR 

LEAD-IN  ROUTIN 

ES 

USER'S  OWN  PAGE  NO.  11  S3  E3 

P031  2 

StArLE_-MeMr_ 

RR  DF 

51r,NATK  routine.  Df5I-,NATF  TD  A SM  LQ5  v/fCTQR  (HALF,UN1T1  IN  RRTARgeT.  RkMDifS  IF 

Ro31A 

required.  Returns  to 

CALLeR 

IF  Maneuver 

required 

FOR  DeS 

1 AND  SKIPS 

IF  IT  CAN  Be  done  IN  PReSeNT  VeH  ATTITUDE. 

0316 

lO.ZiOT 

43020 

1 

RRDESSM 

SX3 

-CLEAR 

0317 

ref 

2 lAsT  2A 

10,2310 

00426 

1 

DESRFT 

0318 

REF 

1 

10,2311 

00271 

0 

RRN3SW 

0319 

__10j_33_12 

i6234 

1 

RTB 

BSP 

READ  CDUS-._FOR  SMNB. 

0320 

REF 

1 

10,23l3 

33473 

1 

READCDUS 

0321 

ref 

1 

10,2314 

00051 

0 

51 

0322 

..L0,^15, 

00024 

1 

20D 

0323 

10,2316 

24025 

0 

STOVL 

20D 

032A 

ref 

1 

10,2317 

00415 

1 

RRTArGET 

0325 

10^320_ 

_340Al 

0 

5TCALL 

32D 

0326 

ref 

1 

10,2321 

32531 

1 

5MN3 

0327 

10,2322 

77624 

1 

CALI 

- -Get  rb_-6imbal  angles  in  present  and 

0328 

REF 

1 

10,2323 

33355 

1 

RRANr,LES 

ALTERNATE  MODE. 

0329 

10,2324 

77776 

1 

EXIT 

0330 

10,2325 

0 0004 

0 

INHINT 

0331 

ref 

2 lAsT  13A 

10,2326 

0 433^ 

1 

TC 

rrlimchk 

- , 0332  „ 

REF  _ 

1 

_10,,2327 

00422 

0 

ADREb 

MODEA 

configuration  for  current  mode. 

0333 

ref 

1 

10,2330 

1 2352 

0 

TCF 

TRYSWS 

033A 

REF 

3 _ last  178 

10,_2_331 

, 2 4 4^.6 

1 . 

OCDESSvi 

JNCR 

-OESRfJ...  - 

increment  says  no  vehicle  MANEJ>/ER  REQ.- 

633«t36A 

yul 

System  for  aqc 

; REVISION 

0 OF  PROGRAM  BURST120  BY  NASA  2021106-031 

DEC  7,  1967  (MAIN)  pA&E  179 

LOOOl 

radar  lead-in  routines 

USER'S  OWN  PAGE  NO,  12  S3  E3 

PQ335 

at  this  poimt  We  are 

RFADY  • 

BESlN  DESI 

sNAtlon.  thf  target  is 

STORfD  as  a HALF~UN1T  VfCTOR  in  RRTARr,FT 

R0337 

with 

RRNBSW  Set  if 

IT  IS  referred  to 

NAV  3a5e  axes,  LdKONSW  IS  Set 

IF  LoCKON  IS  DeSIReD,  BIT19  OF  RADMOOeS  IS 

R0339 

SET 

IF  A Remode  is 

REDUIReD. 

AT  THIS 

time,  the  antenna 

MAY  3f  in  A 

monitor  Reposition  operation,  in  this 

R0391 

case 

, IF  A ReMODf 

IS  Required 

m may 

have  already 

Begun 

but  it  any 

.case 

the  Reposition  will  be  interrurtfo. 

R0393 

otherwise,  the  Reposition  will  be  completed  befor 

E 2-AXis  Designation  begins. 

0395 

REF 

1 

10,2332 

3 2351 

1 

.ST  artd.es 

:af 

MAXTRIES 

.ALLOW„30  .SECS,__  ... 

0396 

ref 

I 

10,2333 

59  927 

1 

IS 

DEScnUNT 

0397 

REF 

17  LAST  17.3 

10j23.39 

3 7752 

0 

CAF 

BITlo  _ 

SHOW  designate  required. 

0398 

REF 

91  LAST  177 

10,2335 

26  912 

1 

ADS 

RADMODES 

0399 

REF 

11  LAST  177 

10,2336 

7 7751 

1 

mask 

BlTll 

SEE  IF  reposition  IN  PROGRESS, 

0350 

REF 

no  last  177 

10,2337 

10  000 

0 

CCS 

A 

0351 

REF 

1 

10,2390 

1 2396 

0 

rcF 

DESRfTRN 

ECTR  ALREADY  SET  UP, 

0352 

REF 

2 LASL  173 

liLi239l 

0 2106 

1 

tc 

setrrecr 

SET  UP  ERROR  COUNTERS, 

0353- 

REF 

12  LAST  159 

10,2392 

3 7762 

0 

CAF 

TWO 

035A 

ref 

18  LASJ  17J  .. 

10,2393 

0 5663 

1 

TC 

WAITI  1ST 

03595 

REF 

7 LAST  177 

E3 

eban<= 

rRRft 

0355 

10,2399 

02923 

0 

2CADR 

3EG0FS 

C0355 

REF 

2 LAST  U3 

.10,2395 

20063 

0 

0356 

10,2396 

0 0003 

1 

OESRETRN 

RELINT 

RETURN  VIA  DeSRET 

0357 

ref 

9 LAST  178 

10,2397 

3 0926 

1 

♦ 1 

CA 

desrft 

0358 

ref 

2 last  77 

10,2350 

1 5230 

1 

TCF 

bankjump 

0359 

10,2351 

00079 

1 

MAXTRIES 

DEC 

60 
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LOOOl  RAqAR  lead-in  routines  USER'S  OWN  PA&E  NO.  13  S3  E3 


P0360  See  if  RRDfSSM  can  BF  ACCOMPLISdED  AFTER-A. ReMOOE. 


0361 

REF 

2 

LAST 

174 

10,2352 

0 2142 

1 

trysws 

TC 

RMODtNV 

(NOTE  RUPT  INHIBIT) 

0362 

REF 

3 

LAST 

178 

_LP_i2353 

.0  4334 

1 

TC 

- RRLIMCHJC.  . . 

TRY.  DIFFERENT  MODE. 

0363 

REF 

2 

LAST 

24 

10,2354 

00424 

0 

ADRES 

MOOEB 

0364 

REF 

1 

10,2355 

1 2362 

0 

TCF 

nodessm 

Vehicle  maneuver  required. 

0365 

REF 

3 

LAST 

180 

10,2356 

0 2142 

1 

TC 

RMODINV 

Reset  biti2 

0366 

ref 

21 

last 

174 

10,2357 

3 7746 

0 

caf 

BIT14 

SET  flag  for  remode. 

0367 

REF 

42 

LAST 

X7V 

_ . 10^2360 26  412 

1 

ADS 

RADMnDES 

0368 

ref 

1 

10,2361 

1 2331 

0 

TCF 

OADESSM 

0369 

ref 

4 

LAST 

18° 

10,2362 

0 2142 

1 

NODESSM 

rc 

RMOOINV 

RE-INVERT  mode  and  RETURN  WITHOJT  IN- 

0370 

ref 

2 

LAsT 

17R 

10,2363 

1 2346 

0 

TCF 

DEsRFTRN 

CREMENTING  DEsRET 

633^t36A  YUU  SYSTEM  FOR  «GC;  TcVISION  0 OF  PROGRAM  BURST12D  BY  NASA  2021l0fc-031  DEC  7.  1967  (MAIN)  PAGE  181 


LOOOl  radar  lead-in  routines  USER'S  OWN  PACE  NO,  14f  53  E3 


P0371 

Designate 

TO'  specific  rr  gimbal 

angles 

(INQfPfN^NT  of  VeHICLf 

MOTION).  fNTfR  with  DfSIRfD  ANSTfS  IN 

R0373 

tang 

and  tang  +1. 

037A 

REF 

2 

last  15 t 

10,2364 

0 5235  0_ 

R^OESNB 

TC 

MA<ErADR  _ 

0375 

REF 

5 

LAST  179 

10,2365 

54  426  0 

IS 

DESrBT 

0376 

10.7366 

0 Q0JD.4.  0 

INHINT 

SE.E  IF  CURRENT  MODE  OK. 

0377 

REF 

4 

LAST  18° 

10,2367 

0 4334  1 

TC 

RRLImCHK 

0378 

REF 

4 

last  176 

10,2370 

00422  0 

ADRES 

TANS 

0379 

REF 

1 

10,2371 

1 2403  0 

TCF 

TRYSwN 

SEE  IF  IN  OTHER  MODE. 

0380 

10,2372 

0 0003  1 

D<DESN3 

RELINT 

038J^ 

RlE_E 

1 

10,2373 

0 6112  0 

TC 

INTPRET 

0382 

10,2374 

77624  1 

CALL 

Get  los  in  nb  coords. 

QiBi 

1 

10,2375 

33430  0 

RRN3 

038A 

REF 

2 

LAST  178 

10,2376 

00415  1 

store 

rrtarget 

0385 

LO.2377 

77414  0 

SET 

EXJJ 

0386 

REF 

2 

LAST  178 

10,2400 

00071  1 

RRN3SW 

03r7 

10,2401 

0 0004  0 

INHINT 

0388 

REF 

1 

10,2402 

1 2332  0 

rcF 

startdes 

0389 

REF 

5 

LAST  180 

10,2403 

0 2142  1 

ttyswn 

rc 

RMODINV 

SEE  IF  OTHER  MODE  WILL  DO. 

0390 

REF 

5 

LAST  I8l 

10,2404 

0 4334  1 

TC 

RRLIMCHK 

0391 

ref 

5 

LAST  18l 

10,2405 

00422  0 

ADRES 

TANS 

0392 

REF 

1 

10,2406 

1 2413  1 

TCF 

NOOEaNB 

NOT  POSSIBLE. 

0393 

REF 

6 

LAST  18l 

10,2407 

0 2142  1 

TC 

RMODtNV 

039A 

REF 

22 

LAST  18° 

10,2410 

3 7746  0 

CAF 

BIT14 

CALL  FOR  REMODE. 

0395 

REF 

43 

LAST  180 

10,2411 

26  412  1 

ads 

radmodes 

0396 

REF 

1 

10,2412 

1 2372  1 

ICF 

OKDFSNB 

0397 

REF 

15 

last  17T 

10,2413 

3 7763  1 

NDDESN3 

CAF 

biti 

CALL  FOR  error  RETURN. 

0398 

ref 

19 

last  179 

10,2414 

0 5663  1 

TC 

WAITi  1ST 

03985 

REF 

8 

last  179 

E3 

FBAN<= 

RRRFT 

0399 

10,2415 

03256  0 

2CADR 

RDBADEND 

C0399 

REF 

1 

1 0 1 24 16 

20063  0 

OAOO 

REF 

7 

last  18l 

10,2417 

0 2142  1 

TC 

RMODtNV 

0401 

REF 

24 

LAST  177 

10,2420 

0 4755  1 

TC 

alarm 

BAD  gimbal  angle  INPUTS. 

0402 

10,2421 

00502  0 

DCT 

502 

0403 

REF 

3 

LAST  180 

10,2422 

1 2347  1 

TCF 

DESRfTRN  ♦! 

ALARM  DID  A RELINT. 

633436A 

YUL 

system  for  AGC! 

revision 

0 OF  PROt>RAM  BURST120  SY  NASA  2n21106-03l 

dec  7,  1967  (Main)  PaGE  1S2 

LoOOl 

RADAS  LEAD-IN  ROUTIN 

E5 

USER'S  OWN  PAGE  No.  15  S3  E3 

PO'tOA 

_ W A I T LI  5 T TASCS  TO  R UN_kH_.  DEM  G N AI IJD  - 

0405 

REF 

23 

LAST  I8l 

10,2423 

3 7746  0 

BEGDES 

CAF 

31TU 

ENTER  HERE  FROM  STARTDES  OR  REPDSRPT. 

0A06 

REF 

LAST  18l__ 

_10,242L4 

. 7__Q412  J 

. YIA3j<L 

RADYtQDES 

SEE  IF_  REMODE  REQUIRED. 

0407 

REF 

111 

LAST  179 

10,2425 

10  000  0 

CCS 

A 

0408 

REF 

1 

10,2426 

1 2115  1 

rcF 

REMDnE 

0409 

_REf 

2 

LAST  174 

10.2427 

1 2432  1 

rcF 

stdfsig 

• ! ; 'ij 

0410 

REF 

7 

LAST  175 

10,2430 

0 5701  1 

DESLOO? 

rc 

FiXDfLAY 

2 SAMPLES  PER  SECOND. 

0411 

10,2431 

_0_0062^0 

DEC 

50 

0412 

REF 

12 

LAST  179 

10,2432 

3 7751  0 

STDESIG 

CAF 

BITli 

entry  FROM  BeGDES  AND  ReMODe. 

0413 

REF 

45 

LAST.  li.2_  . _ 

10^7433 

_ 7_  D412  1 

viAS^ 

RAOMnDES 

SEE  IF  GIMBAL  limit  MONITOR  HAS  FOUND  US  - 

0414 

REF 

112 

last  18<: 

10,2434 

10  000  0 

CCS 

A 

OUT  OF  BOUNDS.  IF  SO,  THIS  BIT  SHOWS  A 

0415 

REF 

1 

10,2435 

1 2455  0 

TCF 

BADDfS 

REPOSITION  TO  BE  IN  PROGRESS, 

0416 

REF 

46 

LAST  182 

10,2436 

10  412  1 

CCS 

RAO^lnDES 

SEE  IF  CONTINUOUS  DESIGNATE  WANTED. 

0417- 

10,2437 

1 2442  0 

TCF 

♦3 

IF  SO,  DONT  check  BIT  10  TO  SEE  IF  IN 

0418 

10tZA40 

1 2442  0 

TCF 

LIMITS  BUT  GO  RIGHT  TO  FINPVAC  FNTRY.  ' v 

0419 

REF 

1 

10,2441 

1 2462  1 

TCF 

^ORFnES  +1 

0420 

REF 

47 

LAST  182 

L0,2_442 

4 0412  1 

cs 

RAOMqDES 

IF  NON-CONTINUOUS,  SEE  IF  END  DF 

0421 

REF 

18 

LAST  179 

10,2443 

7 7752  1 

v1AS< 

BITIO 

problem  (data  good  if  lock-on  wanted  dr 

0422 

REF 

113 

LAST  182 

10,2444 

10  000  0 

CCS 

A 

within  limits  if  NOT).  IF  50,  EXIT  AFTER 

0423 

REF 

3 

LAST  177 

10,2445 

1 3242  1 

TCF 

endradar 

CHECKING  RR  CDU  FAIL. 

0424 

REF 

2 

LAST  179 

10,2446 

10  427  1 

CCS 

OESCOUNT 

SEE  IF  TIME  LIMIT  HAS  EXPIRED. 

0425 

REF 

2 

LAST  182 

10,2447 

1 2461  1 

TCF 

MOREDES 

0426 

REF 

25 

LAST  18l 

10,2450 

0 4755  1 

TC 

alarm 

OUT  OF  TIME. 

0427 

10,2451 

00503  1 

DCT 

503 

0428 

REF 

1 

10,2452 

4 2467  1 

CS 

B14+B2 

IF  OUT  OF  TIME,  REMOVE  ECR  ENABLE  ♦ TRKR 

0429 

10,2453 

0 0006  1 

EXTEND 

0430 

10,2454 

03  012  1 

a/AND 

12 

0431 

REF 

19 

LAST  182 

10,2455 

4 7752  1 

3ADDES 

CS 

BlTin 

REMOVE  DESIGNATE  FLAG. 

0432 

REF 

48 

LAST  182 

10,2456 

7 0412  1 

viAS< 

radmodes 

0433 

REF 

49 

LA5L  L82 

10,2457 

54  412  1 

TS 

RADvinDES 

0434 

REF 

2 

LAST  I8l 

1 0 » 2^60 

1 3256  1 

TCF 

RDBADEND 

0435 

REF 

3 

last  182 

10,2461 

54  427  1 

M3REDES 

TS 

DESCOUNT 

0436 

REF 

1 

10,2462 

3 5650  1 

CAF 

PRID26 

UPDATE  gyro  torque  COMMANDS. 

0437 

REF 

4 

LAST  88 

10,2463 

0 5516  0 

TC 

FINDuAC 

04375 

REF 

9 

last  Ul 

E3 

'BANC= 

RRR£T 

0438 

2464 

02470  0 

2CADR 

DDOES 

C0438 

REF 

1 

10.2465 

20063  0 

_ _ PA3  9 _ _ 

REF 

_ _1 

10,2466 

1 2430  0 

._TCF 

DESLOOP 

O'+'tO 


10,2467  20002  1 3U  + B2  DCT 


20002 


633<i36A 

YUL 

SYSTEM  FOR  AQC! 

REVISION 

0 OF  program  BURST12D  BY  NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  183 

LOOOl 

RADAR  LEaD-IM 

1 R^^UTIN 

ES 

USER'S  OWN  PAGE  NO.  16  S3  E3 

PO't^l 

calculate  gyro  torque  commands.-  . _ 

10,2470 

0 0006 

1 DDDES 

EXTEND 

0443 

REF 

5 LAsT_175 

10_,24J1_ 

. .3..  0.036 

1 

.DCA._ 

OPT.Y 

0444 

REF 

6 LAST 

I8l 

10,2472 

52  423 

0 

DXCH 

TANG 

0445 

ref 

2 LAST_ 

13.1 

10,2473 

J 6.112 

0 . 

rc  _ 

..I.NTP.bEI 

0446 

10,2474 

77775 

1 

\/LOAD 

MOVE  target  vector  TO  320. 

0447 

REF 

3 LAST 

181 

10,2415.. 

0.Q415 

1 

RRlAiGET 

0448 

10,2476 

00041 

1 

STORE 

32D 

0449 

10,2477 

_ 4.7014 

1 

30N 

RTB 

DO  Stable-member  to  navbase  tRamsforma- 

0450 

REF 

3 LAST 

181 

10,2500 

00311 

1 

RRN3«W 

TION  IF  target  in  SM  COORDS.  OTHERWISE, 

0451 

REF 

1 

10,2501 

20510 

1 

D0N3RD 

IN  NB  COORDS  ALREADY. 

0452 

REF 

2 LAST 

17H 

10,2502 

33473 

1 

REAOrDUS 

0453 

10,2503 

77731 

1 

SSP 

0454 

ref 

2 LAST 

178 

10.2504 

00051 

0 

5l 

0455 

10,2505 

00024 

1 

200 

LOC  OF  ICDUS. 

0456 

1 0 » 2 5O6 

34025 

1 

STCALL 

20D 

0457 

REF 

2 LAST 

178.  . 

10,2507 

32531 

1 

SMN3 

633^.36A  YUL  SrSTEM  FOR  AGCj  REVISION  0 OF  PROGRAM  BURSTlZD  BY  NASA  2n2UOfe-03l 
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LOOOl 

RADAR 

LEAD-IN 

ROUT  IN 

ES 

USER'S  OWN  PAGE  NO.  17  ^ S3  E3 

0458 

67201 

0 - D-DNfifiD 

-AEIRD_ 

SJJAD  - . . 

DO  NAVBASE  ..TO.  BAD.A.R_DISH  TRANSFdRMA.TION. 

0A59 

10 

,2511 

00001 

0 

0 

0A60 

ref 

7 

LAST 

183 

10 

,2512 

00424 

0 

TANG  +1 

0461 

10 

,2513 

__  61434 

1 

-RT8 

_.p_a.S-R,- 

- SHAFT,  command  = V. (-3.20)  . (COS  (SJ.,.  .0-,  - . 

0462 

REF 

1 

10 

,2514 

33457 

1 

CDJLnGIC 

(-SIN(S) ) . 

0463 

10 

,2515 

65356 

1 

SIN 

POOL 

SIN(S)  TO  0 AND  COS(S)  TO  2. 

0464 

10 

.2516 

4)546 

J2 

COS 

PUSR 

0465 

10 

,2517 

65205 

0 

DMP 

PDDL 

0466 

10 

,2520 

00041 

1 

32D 

0467 

IQ_»_2521 

000.45- 

0 

3.6  D 

0468 

10 

,2522 

44205 

0 

5MP 

BDSJ 

0469 

10 

,2523 

00001 

0 

0 

..,647&_ 

_I0 

,2524 

77626 

_Q 

STADR 

0471 

REF 

8 

LAST 

184 

10 

,2525 

77353 

1 

store 

TANG  *1 

SHAFT  COMMAND 

0472 

10 

,2526 

47135 

0 

5L0AD 

RTB 

0473 

ref 

9 

LAST 

184 

10 

,2527 

00423 

1 

tang 

0474 

ref 

2 

LAST 

184 

10 

,2530 

33457 

1 

CDJLnGIC 

0475 

10 

,.25.11 

.-J7X4.06 

0 ._  . 

=USd. 

C-OS_  - - _ 

COS(T)  TO  4. 

0476 

10 

,2532 

73525 

1 

3DDL 

SIN 

0477 

10 

,2533 

41206 

0 

3USH 

OMP 

SIN(T)  TO  6, 

0478  . 

JLO 

,2534 

00003 

2 

0479 

10 

,2535 

65352 

0 

5L1 

pddCi 

DEFINE  VECTOR  U = ( SI N ( T ) SIN ( S) ) 

0480 

10 

,2536 

00005 

1 

4 

(COS(T)  ) 

0481 

10 

,2537 

41325 

0 

3DDL 

OMP 

(SIN(T)COS(S) ) 

0482 

10 

,2540 

00007 

0 

6 

0483 

10 

,2541 

00001 

0 

0 

0484 

10 

,2542 

55552 

0 

SLl 

VDEF 

0485 

10 

,2543 

77441 

0 

DOT 

EXIT 

DOT  U WITH  Los  TO  GET  TRUNNION  COMMAND. 

0486 

10 

,2544 

00041 

1 

32D 

633‘*36A 


LoOOl 

P0487 

RoA89 

0A9l 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 


0502 

0503 

0504 
05Q5__ 

0506 

0507 

0508 

0509 

0510 

0511 


0512 

MU. 
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radar  LEaD-IN  routines  USER'S  OWN  PAGE  NO.  18  S3  E3 


a_t  thU  ponr  wf  havf  a rotation  vector  in  dish  axfs  .ijr.iNU  in  .tHe_  t.s . plane,  convert jhis _io.  a 


commanded  rate  and 

enable  the 

tracker  IE  ''E  are 

WITHIN 

1 DEGREE  OF  THE 

target. 

REF 

54- 

LAST 

16-6 

- lDi2545 

4-0 144- 

1 

:s 

MP-AC_ 

DOT  -WAS  negative  OF  DESLRED  ANG.E. 

REF 

lO 

last 

184 

10,2546 

54  422 

1 

TS 

TANo 

REF 

50_ 

LAST 

-lJ-2- 

IM_25-A7  - 

4 0412 

1 

-£S- 

RADMoDES 

A RELAY  IN  THE  RR  REVERSES  POLARITY  OF 

REF 

17 

LAST 

I7A 

10,2550 

7 7750 

0 

MASK 

BIT12 

THE  SHAFT  COMMANDS  IN  MODE  2 SO'  THAT  A 

REF 

114 

LAST 

182 

10,2551 

10  000 

0 

CCS 

A 

POSITIVE  torque  applied  TO  THE  SHAFT 

10U552 

1-25-55- 

1 

rcF 

+ 3 

GYRO  CAUSES  A POSITIVE  CHANGE  IN  THE 

REF 

11 

LAST 

185 

10,2553 

4 0423 

0 

:s 

TANG  ♦! 

SHAFT  ANGLE.  COMPENSATE  FOR  THIS  SWITCH 

ref^ 

12 

last 

185 

10,2554 

54  423 

0 

TS  - 

TA.sjG  *1 

BY  ChAnGiwG  the  polarity  OF  OUR  COMMAND. 

REF 

43 

LAST 

175 

10,2555 

3 7767 

0 

CAF 

ZERO 

REF 

55- 

-LAST- 

185 

10,2556 

54  145 

0 

TS 

MPAC  +1 

■REF 

26 

LAST 

177 

10,2557 

3 7763 

1 

CAF 

ONE 

REF 

36 

last 

J_85 

10_jl2  5.6.0 

54  144 

1 RRSCALJP 

rs  _ . 

MPAC- 

REF 

115 

LAST 

185 

10,2561 

50  000 

1 

INDEX 

A 

REF 

13 

LAST 

185 

10,2562 

3 0422 

0 

CA 

TANG 

TRUNNION  COMPONENT  OF  ROTATION, 

10,2563 

0 0006 

1 

EXTEND 

REF 

1 

10,2564 

7 2636 

1 

MP 

RDESr.AIN 

scaling  on  input  angle  WAS  4 RAOIANS. 

REF 

57 

LAST 

185 

10,2565 

50  144 

0 

INDEX 

MPAC 

REF 

14 

last 

185 

10,2566 

56  422 

0 

XCH 

TANG 

MAKE  EACH  COMPONENT  LESS  THAN  .7  DEGREES 

REF 

8 

LAST 

176 

10,2567 

0 4323 

1 

IC 

MAGSUB 

Before  sending  track  enable. 

10,2570 

77715 

1 

DEC 

-.00^05 

REF 

58 

LAST 

185 

10,2571 

24  145 

1 

INCR 

MPAC  +1 

IF  OUT  OF  bounds. 

REF 

59 

last 

185 

10,2572 

10  144 

1 

CCS 

MPAC 

REF 

1 

10,2573 

1 2560 

1 

TCF 

RRSCaLUP 
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LOOOl  RADAR  LEaD-IN  ROUTINES  USER'S  OWN  PAGE  NO.  19  S3  E3 


P051A  SFF  IF  TRAC<|?R  SHOULD  BF  ENABLED- OR  _DJ.SA3_kEIl, 


0515 

10,2574 

0 0004 

0 

INHINT 

0516 

REF 

51 

LAST  185 

10,2575 

10  412 

1 

CCS 

RADMnDES 

IF  CONTINUOUS  DESIGNATE  WANTED,  PUT  OUT 

0517 

10,2576 

1 2601 

0 

rcF 

♦ 3 

commands  WITHOUT  CHECKING  MAGNITUDE  OF 

0518 

10,2577- 

1 2601 

0 

TCF_ 

♦ 2 - - 

ERROR  SIGNALS,  -. 

0519 

ref 

1 

10,2600 

1 2626 

0 

ICF 

trkoff 

0520 

REF 

50 

LAST  18^ 

10,26.01 

-_I0  145 

0 

CCS 

MPAC  +1 

SEE  IF  BOTH  AXES  WERE  WITHIN  ,7  DFGS. 

0521 

ref 

2 

last  165 

10,2602 

1 2626 

0 

TCF 

Trkoff 

0522 

REF 

2-0 

LAST  177 

10,2603 

^4 .0074 

0 

__  - CS _ _ 

STATE!  _ 

IF  WITHIN  LIMJTS  AND  NO  LOCK-ON  WANTED, 

0523 

REF 

1 

10,2604 

7 7757 

1 

MAS< 

LDKONFLG 

PROBLEM  IS  finished. 

052A 

REF 

116 

LAST  185 

10,2605 

10  000 

0 

CCS 

A 

0525 

REF 

1 

I P ♦ 2606 

1 2617 

1 

ICF 

RRDE-SDUN.- 

0526 

REF 

24 

LAST  182 

10,2607 

3 7746 

0 

CAF 

B1T14 

ENABLE  the  TRACKER. 

052T 

10,2610 

0 0006 

1 

FXTEND 

0528 

10,2611 

06  012 

1 

WOR 

12 

0529 

REF 

15 

LASJ  170 

10,2612 

3 7760 

1 

- , CAF- 

B1T4 

SEE  IF  DATA  GOOD  RECEIVED  YET. 

0530 

10,2613 

0 0006 

1 

EXTEND 

0531 

10,2614 

02  033 

0 

^AND 

33 

0532 

REF 

117 

LAST  185 

10jl2615 

10  000 

0 

CCS 

A_  - 

0533 

ref 

1 

10  t26l6 

1 2631 

0 

TCF 

DORRnUT 

053A 

REF 

20 

last  182 

10,2617 

4 7752 

1 

RROESDJN  CS 

BITlO 

WHEN  PROBLEM  DONE.  REMOVE  BIT  n SO  NEXT 

0535 

REF 

52 

LAST  185 

10,2620 

7 0412 

1 

MASK 

radmodes 

WAITLIST  task  WE  WILL  GO  TO  RQOODEND. 

0536 

ref 

53 

LAST  186 

10,2621 

54  412 

1 

TS 

RADMnDES 

0537 

REF 

15 

LAST  177 

10,2622 

4 7762 

1 

CS 

B1T2 

0538 

10,2623 

0 0006 

1 

EXTEND 

0539 

10,2624 

03  012 

1 

wand 

12 

OSAO 

REF 

7 

LAST  165 

10,2625 

1 5567 

1 

TCF 

endofjob 

WITH  ECTR  disabled. 

05A1 

ref 

25 

LAST  185 

10,2626 

4 7746 

1 

TRKOFF  CS 

RITli 

05A2 

10,2627 

0 0006 

1 

extend 

05A3 

10,2630 

03  012 

1 

WAND 

12 

05AA 

REF 

54 

last  185 

10,2631 

4 0412 

1 

DDRROUT  CS 

RADMnDES 

PUT  OUT  Command  unless  monitor 

05A5 

REF 

13 

LAST  182 

10,2632 

7 7751 

1 

MASK 

BITll 

REPOSITION  HAS  TAKEN  OVER. 

05A6 

REF 

118 

LAST  185 

10^2633 

10  000 

0 

CCS 

A 

05A7 

REF 

2 

LAST  175 

10,2634 

0 2213 

0 

TC 

RROJt 

05A8 

REF 

8 

LAST  185 

10,2635 

1 5567 

1 

TCF 

EN-DDE-UDB- 

0549 

10,2636 

21122 

0 

RDESGAIN  DEC 

,53624 

TRIES  TO  NULL  .5  ERROR  IN  .5  SEC. 
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Uoool 

RADAR 

lead-in  routin 

£5 

USER'S  OWN  PAGE  NO.  20  S3  E3 

P0550 

radar 

READ  INJJIALIZAI_1CIN__ 

R0551 

RADAR 

data  are  f^EAD 

3Y  A BAN<CALL  FOR 

1 the  APPROPRIATE 

Lead-In  below. 

0552 

ref 

1 

10»2637 

Jl  2653 

0 

lralt 

TC 

INITREAIL-I 

_0NE_  sample  per  READING. 

0553 

10,26A0 

00017 

1 

ALLREAD 

DCT 

17 

055A 

REF 

2 LASJ  IJT 

^10,2i,AL 

0 2654 

1 

LRVELZ 

TC 

INITrEAD 

0555 

10,2642 

00016 

0 

DCT 

16 

0556 

REF 

3 LAST  187 

10,2643 

_0.  2654 

1 

LRVELY 

TC 

INITREAD 

0557 

10,2644 

00015 

0 

DCT 

15 

0558 

REF 

A LAST  16T 

.10,^645 

0 2654 

1 

LRVELX 

TC 

INITREAD 

0559 

10  *2646 

00014 

1 

DOT 

14 

0560 

REF 

5 LAST  187 

_Ji.2_6A7 

0 2653 

0 

rrrdot 

tc 

INITREAD  -1 

0561 

10,2650 

00012 

1 

DCT 

12 

0562 

REF 

_ 6 L ASJ  U Z 

_1_Q,2651 

0 2653 

0 

rrrange. 

TC 

INITREAD  ,1 

0563  10,2652  00011  1 DCT  11 
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LoOOl 

RADAR  LEAD-IN  ROutIN 

ES 

USER'S  OWN  PAGE  NO.  21  S3  E3 

0564 

REF 

27  .Last  .I8R. 

APj.26).53_  . 

3 -7763 

1 - 

• 1 A F 

...Dne. 

EN.LSY.  J-0-.iaxe  _only.-_l Sample. 

0565 

10,2654 

0 0004 

0 

INITREAD  INHINT 

0566 

REF 

1 

_10,2655 

5^  420 

0 

. ts 

-TIMEHOLD-  . . 

-Cj£I.  DT.QF  midpoint  OF  NOMINAL  SAMPLITLo 

0567 

10,2656 

0 0006 

1 

EXTEND 

INTERVAL  (ASSUMES  NO  BAD  SAMPLES  WILL  BE 

0568 

REF 

2 last  163 

10,2657 

7 7761 

1 

MP 

BIT3 

ENCOUNTERED) . 

. 0569 

ref 

2 LAST  188 

10.2660 

..52.  421 

1 

DXCH 

TIMEhOLD 

0570 

ref 

119  LAST  186 

10,2661 

10  000 

0 

CCS 

A 

05  7J. 

REF 

1 

10.2662 

54  424 

- . TS  - - 

NsAvid 

0572 

ref 

28  last  188 

10,2663 

6 7763 

1 

AD 

ONE 

R0573 

insert  following  instruction  to 

oET  2N  TRIES  FOR  N SAMPLfS, 

A0574 

DOUBLE 

0575 

REF 

2 LAST  98 

10,2664 

54  413 

0 

TS 

SAMPLIM 

0576 

REF 

1 

__10  ,2645. 

3 2707 

0 

CAP 

OGBITS  . 

. READ  current -VALUE  OF  DATA  GOOD  B.I.TS.  . 

0577 

10,2666 

0 0006 

1 

EXTEND 

0578 

10,2667 

02  033 

0 

RAND 

33 

0579 

REF 

1 

10,2670 

54  426 

0 

IS 

■DLDAtAGD 

0580 

REF 

1 

10,2671 

4 2640 

0 

cs 

ALLREAD 

0581 

.10*2672 

0 0006 

1 

EXTEND 

0582 

10,2673 

03  013 

0 

/YAND 

13 

REMOVE  ALL  RADAR  BITS 

0683 

ref 

^.49  LA^SI  i.76 

10,2674 

50  002 

0 

INDEX 

D 

0584 

10,2675 

3 0000 

1 

CAP 

0 

0585 

10,2676 

0 0006 

1 

EXTEND 

0586 

10,2677 

05  013 

0 

(JOR 

13 

SET  NEW  RADAR  BITS 

0587 

10,2700 

0 0006 

1 

EXTEND 

0588 

.ref 

4 LAST  163 

10j,270l  , 

3 0025 

0 

DCA 

JLME? 

0589 

REF 

3 last  188 

10,2702 

20  421 

1 

das 

1 IMEHOLD 

TIME  OF  NOMINAL  MIDPOINT. 

0590 

REF 

44  LAST  _185 

1.0,2703 

3 7767 

0 

CAF 

ZERO 

0591 

ref 

38  LAST  176 

10,2704 

54  001 

1 

IS 

L 

0592 

REF 

3 LAST  24 

10,2705 

52  415 

0 

DXCH 

SAMPi  SUM 

0593 

REF 

3 LAST  177 

10,2706 

1 2303 

1 

ICF 

ROADBACK 

059A  . 


10,2707  00230  0 03B1TS  oCT 


230 


YUL  system  for  AGC;  REVISION  0 OF  PROGRAM  BURST12D  BY  NASA  2021106-031 

DEC  7. 

1967 

(MAIN) 

PAGE  189 

LOOOl 
PQ595  _ 

RADAR  LEAD-IN  ROUTINES 

RADAR  RUPT  reader 

USER'S  OWN  PAGE 

NO. 

22 

S3  E3 

R0596  this  routine  STARtS  FROM  A RADARUPT.  IT  READS  THE  DATA  $ LOT<;  MORE. 


0597 

REF 

3 

LAST  163 

10,2710 

54  016 

1 

RADAREAD 

tS 

BANKRUPT 

0598 

10,2711 

0 0006 

1 

EXTEND 

0599 

REF 

3 

LAST  163 

10j.27l2 

. ZZ  01 2_ 

1 

2XCH 

3RJPT  . 

n600 

10,2713 

0 0006 

1 

ANGLREAD 

EXTEND 

0601 

REf 

6 

LAsT  16_3 

_LQ.i2JlA 

_iM36_ 

1_ 

dCA 

OPTY 

0602 

REF 

1 

10,2715 

52  417 

1 

DXCH 

DPTYhOLD 

SAVE  RAW  CDU  ANGLES 

• 0603 

REF 

3 

LAST  .18.8  . 

10,2716 

lO  4i3 

0 _ 

,tryc.ouni 

CCS 

SAMPlIM 

060A 

ref 

1 

10,2717 

1 2731 

1 

TCF 

Plenty 

0605 

REF 

1 

10,2720 

1 2724 

0 

TCF 

NOMOrE 

0606 

REF 

26 

last 

_ ig,2_721 

P 4755 

1 

tc 

alarm 

0607 

10,2722 

00520 

0 

DCT 

520 

0608 

REF 

10 

last  166 

10,2723 

0 5733 

0 

TC 

resume 

0609 

REF 

27 

LAST  189 

10,272A 

0 4755 

1 

ndmore 

IC 

alarm 

0610 

10,2725 

00521 

1 

DCT 

521 

0611 

ref 

29 

LAST  L88 

10,2726 

4 7763 

0 

badrad 

:s 

ONE 

0612 

REF 

A 

LAST  189 

10,2727 

54  413 

0 

TS 

SAMPflM 

0613 

REF 

3 

LAST  182 

10,2730 

0 3254 

1 

TC 

RDBADEND  -2 

061A 

REF 

5 

LAST  189 

10,2731 

54  413 

0 

PLENTY 

rs 

SAMPi  IM 

0615 

REF' 

3 

LAST  188 

10,2732 

3 7761 

0 

CAF 

BIT3 

0616 

10,2733 

0 0006 

1 

EXTEND 

0617 

10,273A 

02  013 

1 

RAND 

13 

TO  FIND  OUT  which  RADAR 

0618 

10,2735 

0 0006 

1 

EXTEND 

0619 

REF 

1 

10,2736 

1 3015 

1 

3ZF 

RENDpAD 

0620 

REF 

55 

LAST  186 

10,2737 

3 0412 

0 

LRPOSCH< 

CA 

RADMODES 

SEE  IF  LR  IN  desired  POSITION. 

0621 

10,27A0 

0 0006 

1 

EXTEND 

0622 

10,2741 

06  033 

1 

RXOR 

33 

0623 

ref 

15 

LAST  155 

10,2742 

7'  7756 

0 

mask 

BIT6 

062A 

10,2743 

0 0006 

1 

EXTEND 

0625 

ref 

1 

10,2744 

1 2750 

0 

3ZF 

VELCwK 

0626 

REF 

?8 

LAST  189 

10,2745 

0 4755 

1 

TC 

alarm 

0627 

10,2746 

00522 

1 

DcT 

522 

0628 

ref 

1 

10,2747 

0 2726 

0 

TC 

BADRAD 

0629 

ref 

1 

10,2750 

3 6311 

1 

VELCHK 

CAF 

B1N3 

= 00003  OCT 

0630 

10,2751 

0 0006 

1 

EXTEND 

0631 

10,2752 

06  013 

0 

RXOR 

13 

0632 

ref 

2 

LAST  189 

10,2753 

7 6311 

0 

MASK 

BIN3 

0633 

10,2754 

0 0006 

1 

EXTEND 

063A 

REF 

1 

10,2755 

1 3011 

0 

3ZF 

LRHEiGHT 

TAKE  A LR  RANGE  READING 

633i(36A  YUL  SYSTEM  FOR  *GC!  REVISION  0 OF  PROGRAM  BURST12T  SY  NASA  2021106-031 
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Uoool 

RADAR 

LEAD-IN  ROUTIN 

ES 

USER'S  OWN  PAGE  NO.  23  S3  E3 

0635 

REF 

7 

LAST  170 

10.2756 

3-  7743 

_0 

. EAF 

-PClSYUX-  ----  

0636 

REF 

1 

10,2757 

7 0046 

1 

MAS< 

RNRad 

0637 

REF 

1 

10.2760 

6 3157 

1 

AD 

lveCbias 

0638 

REF 

39 

last  188 

10.2761 

54  001 

IS 

.J. - , 

0639 

REF 

2 

LAST  190 

10.2762 

30  046 

0 

CAE 

RNRAD 

06AO 

10.2763 

6 0000 

1 

DOUBLE 

06A1 

REF 

16 

LAST  18l 

10.2764 

7 7763 

JO  _ 

MASiC.^ 

31T  1 

06A2 

REF 

9 

LAST  16A 

10.2765 

52  064 

1 

OXCH 

1TEMd3 

06A3 

ref 

10  LAST  170 

lO  »2766 

-3  7754 

0 

CAF 

BITS 

DATA  GOOD  ISNT  CHECKED  UNTIL  AFTER  READ- 

06AA 

ref 

1 

10.2767 

0 3127 

0 

TC 

DGCHFCK 

ING  data  sO  SOME  RAdAR  TEsTs  WI.L  WORK 

A06A5 

INDEPENDENT  OF  DATA  GOOD. 

06A6 

ref  ' 

2 

LAST  188 

10.2770 

10  424 

1 

CCS 

NSAMP 

06A7 

REF 

1 

10.2771 

0 3001 

0 

TC 

NOEND 

064B 

REF 

30 

last  189 

10.2772 

4 7763_  0 

GDODRAD  CS 

ONE  _ _ . 

06A9 

ref 

6 

LAST  189 

10.2773 

54  413 

0 

IS 

SAMPI  IM 

0650 

REF 

38 

last  178 

10.2774 

4 0061 

1 

CS 

ITEMPl 

WHEN  ENOUGH  GOOD  DATA  HAS  BEEN  GATHERED, 

0651 

REF 

56 

LAST  189 

10.2775 

_J  ,0412_ 

1 

_ _ __  . mask  _ 

RADMnDES 

_RE5EJ  DATA  FAILALAGS  FOR  SeTTRKE, 

0652 

REF 

57 

LAST  i90 

10,2776 

54  412 

1 

rs 

RADMODES 

0653 

REF 

3 

LAST  172 

10,2777 

0 4377 

0 

rc 

SETTRKF 

LAMP  MIGHT  GO  OFF  IF  DATA  JUST  jODD. 

065A 

REF 

■ 1 

10,3000 

0 3247 

0 

TC 

RGDODEND  -2 

0655 

REF 

3 

LAST  190 

10,3001 

54  424 

1 

NOEND  rS 

NSAMP 

0656 

REF 

7 

LAST  190 

10,3002 

10  413 

0 

RESAMPLE  CCS 

SAMPLIM 

SEE  IF  ANY  More  TRIES  SHOULD  BE  MADE. 

0657 

10,3003 

1 3005 

0 

rcF 

+ 2 

0658 

REF 

1 

10,3004 

1 3146 

0 

rCF 

DATAFAIL 

N SAMPLES  NOT  AVAILABLE. 

0659 

REF 

16 

LAST  188 

10,3005 

3 7760 

1 

CAF 

SIT4 

reset  activity  bit. 

0660 

10.3006 

0 0006 

1 

EXTEND 

0661 

10,3007 

05  013 

0 

«0R 

13 

RESET  ACTIVITY  BIT 

0662 

REF 

11 

LAST  189 

10,3010 

0 5733 

0 

rc 

RESJmE 

0663 

REF 

8 

LAST 

177 

10,3011 

3 7757 

0 

LRHEIGHT 

CAF 

B1I5 

0664 

REF 

39 

LAST 

190 

10,3012 

54  061 

1 

rs 

ITEMpl 

(POSITION  OF  DATA  GOOD  BIT  IN  ChAN 

33) 

0665 

ref 

5 

LAST 

154 

10,3013 

3 7753 

1 

CAF 

BIT9 

0666 

REF 

1 

10,3014 

0 3037 

0 

rc 

scalfchk  -1 

0667 

REF 

14 

LAST 

188 

10.3015 

3 7751 

0 

RENDRAD 

CAF 

BITll 

MAKE  SURE  ANTENNA  HAS  NOT  GONE  OUT 

OF 

0668 

ref 

58 

last 

190 

10,3018 

7 0412 

1 

MAS< 

RADMnDES 

LIMITS. 

0669 

REF 

1 ?o 

LAST 

188 

10,3017 

10  000 

0 

CCS 

A 

0670 

REF 

2 

LAST 

189 

10,3020 

1 2726 

1 

rcF 

BADRaD 

0671 

REF 

59 

LAST 

190 

10,3021 

4 0412 

L 

CS 

RADMODES 

BE  SURE  RR  CDU  HASNT  FAILED. 

0672 

REF 

11 

LAST 

177 

10,3022 

7 7755 

0 

MASK 

31T7 

0673 

REF 

121 

LAST 

190 

10,3023 

10  000 

0 

CCS 

A 

0674 

REF 

3 

LAST 

190 

10,3024 

1 2726 

1 

rcF  _ 

BADRaD 

...  ...  
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1-0001  RAdAR  lead-in  routines  USER'S  Own  page  no,  2A  S3  E3 


068A 

REF 

17 

LAST  19° 

10»3025 _ 

_ 3 7760  1 

caf 

bila 

5E.E  IF  DATA  HAS  B_£EN  GOOD. 

0685 

REF 

RO 

LAST  190 

10,3026 

5A  061  1 

IS 

ITEMPI 

(POSITION  OF  DATA  GOOD  BIT  IN  CaAN  33) 

0686 

REF 

17 

LAST  190 

_ 10*302_7 

3l-_7763  1 

:af 

B1U_ 

SEE  IF  RR  RODT,_ 

0687 

10,3030 

0 0006  1 

EXTEND 

0688 

10,3031 

02  013  1 

RAND 

13 

0689 

ref 

50 

LAST  188 

10,3032 

5 A 002  1 

TS 

0 

FOR  LATER  TESTING, 

0690 

ref 

122 

LAST  190 

10,3033 

10  000  0 

CCS 

A 

0691 

10,303A 

1 3036  0 

rcF 

+ 2 

0692 

ref 

1 

10^3035 

_l  3050  0 

rcF 

RADIm 

NO  SCALE  CHECK  FOR  RR  ROOT, 

0693 

ref 

A 

last  189 

10,3036 

3 7761  0 

CAF 

BIT3 

0699 

REF 

AO 

LAST  190 

10,3037 

5A  001  1 

TS 

L 

0695 

10,30A0 

0 0006 

1 

SCaLECHK 

EXTEND 

0696 

10,30A1 

02  033 

0 

RAND 

33 

SCALE  STATUS  NOW 

0697 

ref 

Al 

LAST  191 

10,30A2 

56  001 

0 

XCH 

L 

0698 

REF 

60 

LAST 

190 

10,30A3 

7 0A12 

1 

MASK 

RADMnDES 

SCALE  STATUS  BEFORE 

0699 

10,30AA 

0 0006 

1 

EXTEND 

0700 

10,30A5 

06  001 

0 

RXDR 

0.1 

SEE  IF  THEY  DIFFER 

0701 

REF 

123 

LAST 

191 

10,30A6 

10  000 

0 

CCS 

A 

0702 

REF 

1 

10,30A7 

0 3067 

0 

rc 

SCALrHNG 

THEY  differ 

0703 

REF 

8 

LAST 

190 

10,3050 

3 77A3 

0 

RADIN 

CAF 

PQSMaX 

070A 

REF 

3 

LAST 

190 

10,3051 

7 00A6 

1 

MASK 

RNRAD 

0705 

ref 

13 

last 

16A 

10.3052 

5A  06A 

1 

TS 

LTEMPA  . . 

0706 

REF 

A 

last 

191 

10,3053 

30  0A6 

0 

CAE 

RNRAD 

0707 

10,305A 

6 0000 

1 

DOUBLE 

0708 

REF 

18 

LAST 

19l 

10,3055 

7 7763 

0 

MASK 

BlTl 

0709 

REF 

10 

LAST 

190 

10,3056 

5A  063 

0 

TS 

1 TEMP3 

0710 

REF 

51 

LAST 

191 

10,3057 

10  002 

1 

CCS 

3 

SEE  IF  RR  ROOT, 

0711 

REF. 

1 

10,3060 

1 3101 

0 

TCF 

SCALADJ 

NO,  BUT  SCALE  CHANGING  MAY  BE  NEEDED, 

0712 

10,3061 

0 0006 

1 

EXTEND 

IF  RR  range  rate,  THROW  OUT  BIA8, 

0713 

REf 

1 

10,3062 

A 3161 

0 

DCS 

rootbias 

071A 

REF 

11 

LAST 

19l 

10,3063 

20  06A 

1 

OASAMPL 

DAS 

ITEMP3 

0715 

REF 

Al 

LAST 

19l 

10.306A 

3 0061 

0 

D5CHEC<2 

CA 

ITEMPI 

SEE  THAT  DATA  HAS  BEEN  GOOD  BEFORE  AND 

0716 

REF 

2 

LAST 

190 

10,3065 

0 3130 

0 

TC 

OGCHECK  +1 

AFTER  TAKING  SAMPLE, 

0717 

REF 

1 

10,3066 

0 2772 

1 

TC 

500DRAD 

0718 

REF 

61 

LAST 

19l 

10,3067 

22  A12 

0 

SCALCHNG 

lxch 

RAOMODES 

0719 

REF 

19 

LAST 

191 

10,3070 

6 7763 

1 

AD 

BlTl 

0720 

10,3071 

0 0006 

1 

EXTEND 

0721 

10,3072 

06  001 

0 

RXOR 

01 

0722 

REF 

12 

last 

19l 

10,3073 

5A  A12 

1 

TS 

RADMnDES 

0723 

REF 

2 

LAST 

188 

10.307A 

3 2707 

0 

CAF 

dgbits 

update  last  value  of  data  Good  31 ts. 

072A 

10,3075 

0 0006 

1 

EXTEND 

0725 

10,3076 

02  033 

0 

RAND 

33 

0726 

REF 

2 

LAST 

188 

10,3077 

5A  A26 

0 

TS 

OLDAtAGD 

633i(36A 

YUL  system  FOK  AGC!  REVISION  0 OF 

PROGRAM  BURST123  BY  NASA  2021106-031 

DEC  7,  1967 

(MAIN) 

pace  192 

LOGO! 

0727 

radar  lead-in  iroutines 

REF  ^ XAat-X90  L0t31Q-(l  1-27 

, rCF 

USER'S  OWN  pace  no. 

25 

S3  E3 

633436A 

YUL 

system  for  AGCi 

REVISION 

0 OF  PROGRAM  BURST 

120  8Y  NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  193 

LOOOl 

P0728 

radar  LEAD-I^ 
IHf 

1 routines 

FOLLoWI M3-  ROUTiNt  INCORPORATES  RR 

r<\mGf  and  lr  alt  scalf 

USER'S  OWN  page  NO.  26  S3  E3 

information  and  lfavfs  data  At  LD  SCALf. 

0730 

REF 

4,2 

LAST 

191 

10,3101 

10  001 

1 SCaLADJ 

CCS 

L 

L HAS  SCALE  INBIT  FuR  THIS  RADAr. 

0731 

10,3102 

1 3104,^ 

.0  . 

TCF 

♦2  . 

_ ON  HIGH  SCALE. 

0732 

ref 

1 

10,3103 

1 3064, 

1 

TCF 

DGCHFCK2 

0733 

REF 

12 

LAST 

19i 

10,3104, 

52  064, 

1 

OXCH.  . 

1LEV1R3-  - 

073A 

10,3105 

20  001 

1 

0DOJ8L 

0735 

10,3106 

20  001 

1 

ODOJBL 

0736 

_ 10,3107 

20  Q0_1. 

1 

ODOJBL 

0737 

REF 

13 

LAST 

193 

10,3110 

52  064, 

1 

OXCH 

ITEMP3 

0738 

REF 

5 

LAST 

L9l  , 

_ .10  rill  L 

J3  T761 

0 

CAf 

B_I  T 3 

. S££  IP  . LR  ..OR  RRj.  _ . _ . 

0739 

10,3112 

0 0006 

1 

extend 

07<t0 

10,3113 

02  013 

1 

RAND 

13 

07^(1 

_1 0^31 14, 

0006 

1 

EXTEND 

IF  RR,  NO  MORE  ACTION  REOUIRED. 

OIM 

REF 

2 

LAST 

193 

10,3115 

1 3064, 

1 

3ZF 

DGCHFCK2 

074,3 

ref 

1 

10,31 1ft 

3 3156 

0 

CAF 

LRRATlQ 

IF  LR*  CONVERT  TO  LO  SCALING. 

074,4,' 

10,3117 

0 0006 

1 

EXTEND 

074,5 

ref 

14, 

LAST 

191 

10,3120 

7 0064, 

1 

MP 

ITEMPA 

07^6 

ref 

15 

LAST 

193 

10,3121 

54,  064, 

1 

rs 

ITEMPA 

074,7 

REF 

4,5 

LAST 

188 

10,3122 

3 7767 

0 

CAF 

ZERO’ 

(SO  SUBSEQUENT  DAS  WILL  BE  OK) 

074,8 

REF 

14, 

LAST 

193 

10,3123 

56  063 

1 

XCH 

ITEMp3 

074,9 

10,3124, 

0 0006 

1 

extend 

0750 

REF 

2 

LAST 

193 

10,3125 

7 3156 

1 

MP 

LRRAtIO 

0751 

REF 

1 

10,3126 

1 3063 

0 

rcF 

DASAMPL 

633<t36A 

YUL 

system  for  ^gc: 

Revision 

0 OF  program  BURST123  BY 

NASA  2o211o6-o31 

Dec  7,  1967  (MAIN)  page  194 

LOOOl 

RADAR  LEAD-IN  ROUTIN 

E5 

USER'S  OWN  PAGE  NO.  27  S3  E3 

0752 

REF 

^2 

last  19l 

10.3127 

5-4-  Q6-1 

-1 

-TS 

I TEMPI 

UPDATE  DATA  G0QD-.BIX-1N  QLDAlAiD  AND 

0753 

10,3130 

0 0006 

1 

EXTEND 

MAKE  SURE  IT  WAS  ON  BEFORE  AND  AFTER  THE 

075^ 

10,3131 

02  033 

0 

RAND 

33 

SAMPLE  WAS  TAKEN  BEFORE  RETURNING.  IF 

0755 

REF 

43 

LAST  193 

_ 10,3132 

54  001 

1 

IS 

L _ - . . 

NOT,  GOES  TO  RESAMPLE  TO  TRY  AGAIN.  IF 

0756 

REF 

43 

LAST  194 

10,3133 

4 0061 

1 

:s 

IlEMPl 

MAX  NUMBER  OF  TRIES  HAS  BEEN  REACHED, 

0757 

REF 

3 

last  19l 

10,3134 

7 0426 

0 

MAS< 

DLDAtAGD 

the  bit  corresponding  to  the  data  GOOD 

0758 

REF 

last  194 

10,3135 

6-0001 

0 _ 

_ _ AQ. 

L 

WHICH  failed  to  APPEAR  IS  IN  IT-M^l  AND 

0759 

REF 

4 

LAST  194 

10,3136 

56  426 

1 

YCH 

DLDAtAGD 

CAN  BE  used  to  SET  RADMODES  WHI'H  VIA 

0760 

REF 

44 

LAST  194 

10,3137 

7 0061 

1 

MAS< 

ITEMPl 

SETTRKF  sets  THE  TRACKER  FAIL  LAMP. 

0761 

ref 

45 

LAST  194 

J.0^,31.40 

.6-  0001  0 

AD 

L 

0762 

REF 

124 

last  191 

10,3141 

10  000 

0 

CCS 

A 

SHOULD  BOTH  BE  ZERO. 

0763 

ref 

1 

10,3142 

0 3002 

0 

TC 

resample 

0764 

REF 

15 

LAST  153 

X0^3143 

.52  064l 

1 

DXCH 

. I I.EMP3 

IF  DATA  GOOD  BeFoRE  AND  AFTER,  ADD  LD. 

0765 

REF 

4 

LAST  188 

10,3144 

20  415 

0 

DAS 

SAMPI  SUM 

accumulation. 

0766 

REF 

52 

LAST  19l 

10,3145 

0 0002 

0 

TC 

D 

0767 

REF 

45 

LAST  194 

10,3146 

4 0061 

1 

datafail  :s 

ITEMPl 

IN  THE  ABOVE  CASE,  SET  RADMODES  BIT 

0768 

ref 

63 

last  191 

10,3147 

7 0412 

1 

mas< 

raomodes 

SHOWING  SOME  RApAR  oATA  FAIlED. 

0769 

REF 

^6 

LAST^  19_4 

10,3150 

6 0061 

0 

-AD 

ITEMPl  - 

0770 

REF 

64 

LAST  194 

10,3151 

54  412 

1 

TS 

RADMODES 

077i 

REF 

16 

LAST  194 

_X0,3i52 

52  064 

1 

DXCH 

ITEMP3 

. IF  WE.  HAVE.  BEEN.  UNABLE  TO  GATHER  N . . 

0772 

REF 

5 

last  194 

10,3153 

52  415 

0 

DXCH 

SAMPI  SUM 

SAMPLES,  USE  LAST  ONE  ONLY. 

0773  REF  ^ LASL  JP,_3J54  _0_43_77  0 TC  _ _ itURKE 


0774 

REF 

2 LAST  189 

10,3155 

1 2724  0 

TCF 

NOMDRE 

0775 

0776 

0777 

10.3156 

10.3157 
10,3160 

23773  0 
47777  0 
00001  0 

LRRATID 

lvelbias 

RDoTBI AS 

DEC 

DEC 

zDEC 

4,9977  B -3 

-12288  LANDING  RADAR  BIAS  FOR  153.6  <C, 

i70on  bias  count  for  rr  range  rate 

C0777  I0t3l61  0U50  1 
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LOOOl 

rAdAS 

lead-in  routines 

USER'S  OWN  page  no.  28 

S3  E3 

P0778 

this 

rout  INF  CHAJiGES 

the  LR 

•".Q.S.1TIQN- 

» -- 

AND_  CHfC<S 

THAI  LT_GOX  TJdERE..-^.. 

0779 

10,3162 

0 OOOA 

0 

LRP0S2 

iNHiNT 

0780 

REF 

16 

LAST  189 

10,3163 

A 7756 

0 

cs 

B1T5 

desired  LR  POSITION  IS  NOW  2. 

0781 

REF 

65 

LAST  19A 

10.316A 

7 0A12 

1 

MASK 

RADMnDES 

0782 

ref 

17 

LAST  195 

10,3165 

6_  77.5  6 

1 

AD  _ 

BITS 

0783 

REF 

66 

LAST  195 

10,3166 

5A  A12 

1 

rs 

RADMnDES 

078A 

REF 

12 

LAST  190 

10,316J 

_3__7755 

1 

CAP 

BIT? 

0785 

10,3170 

0 0006 

1 

EXTEND 

0786 

10,3171 

02  033 

0 

RAND 

33 

SEE  IF  already  THERE. 

0787 

10.3172 

0 0006 

_L 

EXTEND 

07.88 

REF 

2 

LAST  177 

10,3173 

1 322A 

1 

32F 

RADNnOP 

0789 

REF 

13 

LAST  177 

1P,3_17A_ 

3 77a7 

1 

CAP 

8ITI3 

0790 

10,3175 

0 0006 

1 

EXTEND 

0791 

10,3176 

05  012 

1 

a/or 

12 

COMMAND  TO  POSITION  2 

0792 

REF 

1 

10,3177 

3 32A1 

0 

CAP 

6SEC5 

START  scanning  FOR  INBIT  AFTER 

7 SECS. 

0793 

REF 

20 

LAST  181 

10,3200 

0 5663 

1 

TC 

a/AITLIST 

07935_ 

REF 

IQ 

LAST  182 

E3 

£eAN<= 

RRRET 

079A 

10,3201 

03237 

1 

2CADR 

LRPDSCAN 

C079A 

ref 

1 

10,3202 

20063 

0 

0795 

REF 

A 

LAST  J,88 

10,3203 

^ P_  2303 

0 

TC 

roadrack 

0796 

REF 

8 

LAST  I9O 

10,320A 

5A  A13 

0 

lrposnxt 

rs 

SAMPi  IM 

07965 

ref 

8 

LAsJ  182 

10,3205 

0 5701 

1 

TC 

F1X3FLAY 

SCAN  ONCE  PER  sECONl)  15  TIMES  MAX  AFTER 

0797 

10,3206 

OOIAA 

0 

DEC 

100 

INITIAL  delay  of  7 SECONDS. 

07975 

REF 

13 

LASJT  195 

10,3207 

3 7755 

1 

CAP 

Bit? 

0798 

10,3210 

0 0006 

1 

EXTEND 

07985 

10,3211 

02  033 

0 

RAND 

33 

0799 

10,3212 

0 0006 

1 

EXTEND 

0800 

REF 

1 

10,3213 

1 3231 

0 

32P 

LASTl’RDT 

IF  There,  wait  final  second  for 

BOUNCE. 

08005 

REF 

9 

last  195 

10,321A 

10  Al3 

0 

CCS 

SAMPLIM 

SEE  IP  MAX  time  UP. 

0801 

ref 

1 

10,3215 

1 320A 

0 

TCP 

LRPDaNXT 

0802 

REF 

lA 

LAST  195 

10,3216 

A 77A7 

0 

CS 

BITU 

IF  TIME  UP,  DISABLE  COMMAND  AND 

alarm. 

08025 

10,3217 

0 0006 

1 

EXTEND 

0803 

10,3220 

03  012 

1 

a/AND 

12 

080A 

REF 

29 

LAST  189 

10,3221 

0 A755 

1 

rc 

alarm 

LR  antenna  DIDNT  MAKE  IT. 

0805 

10,3222 

00523 

0 

DCT 

523 

0806 

ref 

A 

LAST  189 

10,3223 

1 3256 

1 

TCP 

ROBAdEND 

0807 

REF 

31 

LAST  I9O 

10,322A 

3 7763 

1 

radnoop 

caf 

ONE 

NO  further  action  requested. 

0808 

ref 

21 

LAST  195 

10,3225 

0 5663 

1 

TC 

a/AITI  1ST 

08085 

REF 

11 

LAST  195 

E3 

EBAN<= 

rrret 

633«t36A 

YUL 

system  fok  agc: 

REVISION 

0 OF  program  BURST120  BY  NASA  2021106-031 

DEC  rt  1967  (MAIN) 

PAGE  196 

LOOOl 

rAdAR  lead-in  ROutin 

ES 

USER'S  OWN  page  no.  29 

S3  E3 

0809 

10.3226 

03251.-  1 

- 2CA0R 

-RG03OEND  - - - - 

C0809 

0810 

ref 

REF 

2 LAST  190 
5 LAST  19S 

10.3227 

10.3230 

20063  0 
0 2303  0 

TC 

ROADBACK 

0811 

08111 

REF 

9 last  19!> 

10.3231 

10.3232 

0 5701  1 
00144  0 

lastlrot  tc 
dec 

fixdelay 

100 

WAIT  ONE  Second  after  receipt 
TO  WAIT  for  antenna  BOUNCE  TO 

OF  INBIT 
OIE  OUT. 

08112 

081-13 

08114 

REF 

15  LAST  195 

10.3233 

10.3234 

10.3235 

4 7747  0 
0 0006  1 
03  012  1 

:s 

EXTEND 

WAND 

3IT13 

REMOVE  COMMAND 

08115 

ref 

3 LAST  196 

10.3236 

1 3251  0 

TCF 

RGOOdEND 

08116 

REF 

9 LA5T_19P 

10.3237 

J J7T17  0 

LRP05CAN  CAF 

BITS 

SET  UP  FOR  15  SAMPLES. 

08117 

REF 

. 2 last  195 

10.3240 

1 3204  0 

. TCF 

LRPOSNXT 

08118 

-10.3241 

01130  1 

6SECS  3EC 

60Q - 

633i,36A 

yul  System  for  agc:  revision  o of  program  burstizd  by  nasa  2n2iiOA-03i 

DEC  7.  1967 

(MAIN) 

PA&E 

197 

uoool 

radar  lead-in  routines 

USER'S  own  page  NO, 

30 

S3 

E3 

P0812  . ^SEQ.U£_N'^S_j:3lJ£R.fn.INAJE._RP_  OPEBATJONS^. 


0813 

REF 

lA 

LAST 

195 

10.32A2 

3 7755 

1 

endradar 

:af 

B1T7 

PROLOG  TO 

CHECK  RR 

CDU 

FAIL  before  end. 

081A 

REF 

67 

LAST 

19B 

10.32A3 

7 0A12 

1 

MAS< 

RADMQDES 

0815 

ref 

125 

LAST 

1 9A 

10.32AA 

10  000 

0 

CCS 

A 

0816 

REF 

A 

LAST 

196 

10.32A5 

1 3251 

0 

TCF 

RGODDEND 

0817 

REF 

5 

LAST 

195 

10.32A6 

1 3256 

1 

TCF  _ _ 

RD5.AD.END  . 

0818 

REF 

A6 

LAST 

193 

10,32A7 

A 7767 

1 

-2 

cs 

ZERD 

rgoodend 

WHEN 

NOT 

under 

waitlist  control 

0819 

REF 

2 

LAST 

2P 

10,3250 

55*076 

0 

rs 

RUPTAGN 

0820 

ref 

13 

LAST 

179 

10,3251 

3 7762 

0 

RoOODE\jD 

CAF 

TwO 

0821 

REF 

7 

LAST 

16A 

10,3252 

0 5225 

1 

rc 

POST, JUMP 

0822 

REF 

A 

LAST  162 

10,3253 

, 26720 

0 

CAOR 

500DEND 

0823 

REF 

A7 

LAST 

197 

10,325A 

A 7767 

1 

-2 

CS 

ZERO' 

rdbadend 

WHEN 

NOT 

under 

waitlist. 

082A 

REF 

3 

LAST 

197 

LQ»3255 

55 '076 

0 

rs_ 

RUP.LAGN_. 

0825 

REF 

lA 

last 

197 

10,3256 

3 7762 

0 

RDBADE'ID 

CAF 

Two 

0826 

ref 

8 

last 

197 

10,3257 

0 5225 

1 

TC 

POSTJUMP 

0827 

REF 

2 

LAST 

15S 

10,3260 

26715 

0 

CAOR 

3ADEND 

0828 

•REF 

5 

LAST 

167 

6311 

BIN3 

equals 

THREf 

633436A 

YUL 

SYSTEM  FOR  AQC: 

REVISION 

0 OF  program  bURSTl23  BY  NASA  2021106-031 

DEC  7,  1967  (MAIN) 

PAGE  198 

L 

RADAS  TEST  PROGRAMS 

USER*S  OWN  PACE  NO.  1 

S3 

0001 

10.3261 

3AN< 

_LD 

0002 

REF 

1 

E7 

EbAN<= 

RSKiOC 

R0Q03 

RADAR  _5AMPLi_mj-0aP  . 

0004 

REF 

1 

10,3261 

11*445  1 

RADSAM?  CCS 

RSAMdDT 

times  NORMAL  ONCE-PER-SECOND  SAviPLlNG. 

0005 

10,32S2_ 

1-  3Z6_4_J3  _ 

ICF  _ 

.3  2 

0006 

REF 

15 

LAST 

173 

10,3263 

1 5727  1 

TCF 

TAS<nVER 

♦0  inserted  manually  terminates 

TEST. 

0007 

REF 

22 

last 

195 

10,3264 

0 5663  1 

rc 

^/AITLIST 

00075 

ref 

2 

last 

198 

E7 

cBAN<= 

rstxloc 

0008 

^ 1Q,3Z65_ 

03261  1 

_ 2CADR 

RAOSaMP  

C0008 

REF 

1 

10,3266 

20067  1 

0009 

REF 

1 

10,3267 

3 5647  1 

CAF 

PRID25 

0010 

REF 

5 

last 

166 

10,3270 

0 5505  1 

rc 

NOVAr„_ 

00105 

REF 

3 

LAST 

198 

E7 

fBAN<= 

RST<LOC 

0011 

10,3271 

03301  0 

2CADR 

dorsamp 

COOil 

REF 

1 

10,3272 

20067  1 

0012 

REF 

1 

10,3273 

3 3332  0 

CAF 

1/6 

FOR  CYCLIC  SAMPLING,  RTSTDEX  = 

0013 

10,3274 

0 0006  1 

EXTEND 

RTSTLOC/6  + RTSTBASE, 

0014 

REF 

2 

LASJ 

4T 

10j3275 

7 1444  0 

MP 

RTSTI  OC 

0015 

REF 

1 

10,3276 

6 1443  0 

AD 

RTSTRASE 

0 FOR  RR,  2 FOR  LR, 

0016 

REF 

1 

10,3277 

55*441  0 

rs 

RTSToEX 

0017 
R0018  _ 

REF 

16 

LAST 

198 

10,3300 

1 5727  1 

TCF 

I ASCOVER 

0019 

REF 

1 

10,3301 

0 3333  1 

DDRSAMP  TC 

VARADAR 

selects  variable  radar  channel. 

0020 

REF 

3 

LAST 

90 

10,3302 

0 5206  0 

TC 

BANXCALL 

0021 

REF 

1 

10,3303 

26745  0 

CADR 

RAD5TALL 

0022 

REF 

1 

10,3304 

25*446  0 

INCR 

RFAILCNT 

ADVANCE  fail  COUNTER  BUT  ACCEPT 

BAD  DATA 

0023 

10,3305 

0 0004  0 

DDR5AMP2  INHINT 

YES  - UPDATE  TM  BUFFER. 

0024 

rEf 

6 

LAST 

194 

10,3306 

52  415  0 

dxch 

SAMPl  SUM 

0025 

REF 

LAST 

198 

10,3307 

51*444  1 

INDEX 

RST<LOC 

0026 

REF 

1 

10,3310 

53*450  0 

DXCH 

RSTACK 

0027 

ref 

2 

LAST 

189 

10,3311 

52  417  1 

DXCH 

DPTYHOLD 

0028 

REF 

5 

LAST 

198 

10,3312 

51*444  1 

INDEX 

RSKi  OC 

0029 

REF 

2 

LAST 

198 

10,3313 

53*452  1 

DXCH 

RSTACK  +2 

0030 

ref 

4 

LAST 

188 

10,3314 

52  421  1 

DXCH 

TIMEHOLD 

0031 

REF 

6 

LAST 

198 

10,3315 

51*444  1 

index 

RST<I  OC 

0032 

REF 

3 

LAST 

198 

10,3316 

53*454  1 

DXCH 

RS.TArK  +4 

0033 

rEF 

3 

LAST 

198 

10,3317 

4 1444  0 

:s 

RTSTi'OC 

CYCLE  RTSTLOC. 

0034 

ref 

_L 

10,3320 

6 1442  1 

AD 

RTSTMAX 

0035  10.3321  0 0006  1 EXTEND 
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0036 

ig-t3.322_ 

1 3325  1 

3ZF 

_U 

0037 

REF 

7 

LAST  198 

10,3323 

3 1444  1 

:a 

RST  <1  OC 

0038 

REF 

3 

LAST  141 

10,3324 

6 6306  1 

AD 

SIX 

0039 

REF 

8 

LAST_  _L9_9  _ 

. 10,332 5 

5i»444  0 

TS 

ASLCJ.QC  .... 

ooao 

ref 

2 

last  198 

10,3326 

11'445  1 

CCS 

RSAMPDT 

SEE  IF  TIME  TO  RE-SAMPLE. 

0041 

REF 

9 

LAST  186 

10,3327 

1 5567  1 

rCF 

ENDOFjOB 

NO  - WAIT  FOR  T3  (REGULAR  SAMPLING). 

0042 

REF 

10 

last  199 

10,3330 

1 5567  1 

TCF 

ENDOpJOB 

TEST  terminated. 

0043 

REF 

2 

LAST  198 

_ _lDt3.3.3i. 

_L  3.3.0.  L I 

TCF 

doRsamp 

JUMP  RIGHT  back.  AND  GET  ANOTHER  SAMPLE. 

0044 

10,3332 

05341  1 

1/6 

DEC 

.17 

R0045 

variable 

radar  Data 

caller  for 

one  Measurement 

only: 

0046 

REF 

iZ 

LAS1_L9.5_ 

lOjilllD 

- ^3  7763  1 

varadar 

caf 

ONE 

wjLL  Be.  se.NI  to  radar  routine,  il  a by 

0047 

REF 

4 

LAST  157 

10,3334 

54  123  0 

IS 

BUF2 

SWCALL. 

0048 

REF 

2 

LAST  198 

10,3335 

51*441  1 

INDEX 

RlSTFiEX 

0049 

REF 

L 

10,3336 

3 3340  0 

CAF  . 

R.O.RLaCS_  _ . . 

0050 

ref 

2 

last  9A 

10,3337 

1 5212  1 

TCF 

swcall 

NOT  TOUCHING  Q. 

0051 

REF 

1 

_ JJj»3340 

20651  1 

rorlocs 

CAOR 

RRRAnGE 

SO 

0052 

REF 

1 

10,3341 

20647  0 

CADR 

RRROOT 

= 1 

0053 

REF 

1 

10,3342 

20645  1 

CADR 

LRVEI  X 

= 2 

0054 

REF 

1 

10,3343 

20643  1 

CADR 

LRVEI  Y 

S3 

0055 

REF 

1 

10,3344 

20641  0 

CADR 

LRVEI  2 

s4 

0056 

REF 

1 

10,3345 

20637  1 

CADR 

LRALT 

55 
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0001 

4a-.-2-QOD-  - 

3Am< U_-  - 

0002 

REF 

1 

E5 

EBAN<=  DGC 

Raao3 fan-t-ojol 


R0004 

NOTE  OF  SPECIAL  IMPORT  CONCERNING 

RADAR 

R0005 

R0007 

SINCE  206  HAS  NO  RADARS, 
sunburst  (REV  39).  HEREFORE,  THE 

the  interrupt  Lead  in  and  taRupt  service 

FOLLOWING  VERBS  SHOULD  NOT  BE  USED:  40 

routines  have 

WITH  NOUN  40, 

Been  disconnected  in 

41  WITH  noun  40,  45, 

R0009  46,  AMD  SEQUENCES  J.3  -AND  14  OF  VERB  57. 


OOlO 

REF 

1 

ll,2nnn 

LST2FAN  rC 

VB2ER0 

VB40 

ZE_RO.  (USED  WITH  NOUN  ^2o_.aR_Aa-DNLYJ_  

0011 

REF 

1 

11,2001 

0 

2073 

1 

rc 

VBCOARK 

VB41 

COARSE  align  (USED  WITH  NDjN  20  DR 

A0012 

40  ONLY) 

0013 

REF 

L 

_ 1U2.002 

0 

_2204 

0 

TC 

IMJFINEK.  _ 

V_B42. 

FIN_£  align  IMU 

0014 

REF 

1 

11,2003 

0 

2565 

0 

IC 

IMJAtTCK 

VB43 

LOAD  IMU  ATTITUDE  ERROR  NpTeRS. 

0015 

REF 

1 

11,2004 

0 

2066 

0 

TC 

ALM/FND 

VB44 

spare 

0016 

REF 

L 

1Li2dP5 

1 ^26 

1 

TCF  . 

LRP3A2K 

_ VB45_ 

command^  LR  TO  P^QSLr_IQN__2.  „ — 

0017 

REF 

1 

11,2006 

0 

2414 

1 

TC 

REoRSAMP 

VB46 

SAMPLE  RADAR  ONCE  PER  SECOND 

0018 

REF 

1 

11,2007 

0 

2406 

1 

TC 

DOFCaTST 

VB47 

PERFORM  LEM  FCS  TEST 

0019 

REF 

1 

11*2010 

0 

2261 

0 

TC 

GOLDADLV 

VB50 

PLEASE  PERFORM 

0020 

REF 

2 

LAST 

200 

11.2011 

0 

2261 

0 

TC 

goldadlv 

VB51 

PLEASE  MARK 

0021 

REF 

3 

LAST 

200 

11.2012 

0 

2261 

0 

TC 

GOLDADLV 

VB52 

PLEASE  MARK  Y 

0022 

REF 

4 

LAST 

200 

11,2013 

0 

2261 

0 

rc 

goldadlv 

VB53 

PLEASE  MARK  X OR  Y. 

002  3 

REF 

1 

11.2014 

0 

2265 

1 

TC 

TORQgYRS 

VB54 

PULSE  TORQUE  GYROS 

0024 

REF 

1 

11.2015 

0 

2302 

1 

TC 

ALINtIME 

VB55 

ALIGN  TIME 

0025 

REF 

1 

11,2016 

0 

2404 

0 

TC 

GOSHOSUM 

VB56 

PERFORM  BANKSUM 

0026 

REF 

1 

11.2017 

0 

2326 

1 

rc 

systfst 

VB57 

PERFORM  SYSTEM  TEST 

0027 

REF 

1 

11,2020 

0 

3121 

0 

rc 

prestand 

VB60 

PREPARE  FOR  STANDBY 

0028 

REF 

1 

11,2021 

0 

3167 

1 

rc 

POSTAND 

VB61 

RECOVER  FROM  STANDBY 

0029 

REF 

1 

11.2022 

0 

2634 

1 

rc 

SETJPMSG 

VB62 

SCAN  LEM  INBITS 

0030 

REF 

1 

11,2023 

1 

2530 

1 

rcF 

SeGimCDU 

VB63 

SEND  SPECIAL  CDU  DOWNLIST 

0031 

REF 

1 

11.2024 

1 

3266 

1 

JCF 

64J=0AT 

VB64 

SET  timer  TO  GROUND  ELAPSED  TIME 

0032 

■ REF 

1 

11,2025 

1 

3242 

1 

rcF 

65JPDAT 

VB65 

SET  GUIDANCE  REFERENCE  RELEASE  DISC 

0033 

REF 

1 

11,2026 

1 

3246 

0 

rcF 

66 JPnAT 

VB66 

INITIATE  LGC  DFI  TLM  CALIBRATE  RTN 

0034 

REF 

1 

11,2027 

1 

3254 

0 

rcF 

67J?DAT 

VB67 

SFND  COMMAND  TO  LMP 

0035 

REF 

1 

11.2030 

1 

3260 

1 

rcF 

70JPDAT 

VB70 

SET  MISSION  TIMER 

0036 

REF 

1 

11,2031 

1 

3262 

0 

rCF 

71 J=nAT 

VB71 

SET  MISSION  PHASE  REGISTER 

0037 

REF 

1 

11,2032 

1 

3270 

0 

TCF 

72JPnAT 

VB72 

5FT  MISSION  PHASE  REGISTER  ♦ TIMER 

0038 

REF 

1 

11,2033 

1 

3252 

0 

TCF 

73JPDAT 

VB73 

RESET  DPS  OR  RPS  COLD  SOA<  DISC 

0039 

REF 

1 

11,2034 

1 

3244 

1 

TCF 

74JPnAT 

VB74 

STOP  MISSION  timers 

0040 

REF 

1 

11,2035 

1 

3301 

1 

TCF 

75JPOAT 

VB75 

TARGET  PARAMETER  UPDATE  

0041 

REF 

1 

11,2036 

1 

3274 

1 

rCF 

76UPDAT 

VB76 

state  vector  update 

0042 

REF 

2 

LAST 

200 

11,2037 

0 

2066 

0 

TC 

ALM/FND 

0043 

REF 

6 

last 

193 

11,2040 

3 

7761 

0 

testxact  caf 

BIT3 

0044 

ref 

2 

LAST 

98 

11,2041 

7 

0336 

0 

MAS< 

extvract 

0045 

ref 

126 

LAST 

197 

11,2042 

10  000 

0 

CCS 

A 

0046 

ref 

1 

11,2043 

0 

2053 

0 

IC 

XACTaLM 
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00A7 

ref 

7 LAST  200 

llj20AA 

4 776LL 

X^Jl 

rs 

_BJL3 

00A8 

11.2045 

0 0004  0 

iNHINT 

00A9 

ref 

3 LAST  200 

11,2046 

7 0336  0 

'1AS< 

EXTVrACT 

0050 

ref 

8 LAST  201 

11.2047 

6 7761  .0 

3IT3 

0051 

REF 

A LAST  201 

11,2050 

54  336  0 

TS 

EXTVRACT 

0052 

11.2051 

0 0003  1 

RELINT 

0053 

REF 

53  LAST  19A 

11,2052  0 0002  0 

7C_  . 

3 . ^ . 

005A 

REF 

1 

11,2053 

0 4571  0 

XACTALM 

TC 

FALTnN 

0055 

ref 

11  lAsT  19?. 

. Ujl2-Q54 

5567  0 

rc 

ENdOfJOB 

0056 

REF 

1 

11,2055 

0 4724  1 

termextv 

TC 

freedsp 

IF  WE  GET  A terminate  INSTEAD  D?  A LOAD, 

0057 

REF 

1 

11,2056 

0 2060  0 

endextvb 

TC 

XACTO 

0058 

REf 

12  lAsT  201 

11,2057 

0 5567  0 

IC 

ENDOfJOb 

0059 

0060 
0061 

REF 

REF 

9 

5 

LAST 

LAST 

201 

201 

11,2060 

11,2061 

11,2062 

4 7761 
0 0004 
7 0336 

1 

0 

0 

XACTO 

CS  BIT3 

INHINT 

*1AS<  IXTVbACJ- 

0062 

REF 

6 

LAST 

201 

11,2063 

54  336 

0 

TS  EXTVRACT 

0063 

11,2064 

0 0003 

1 

RELINT 

0064 

REF 

54 

LAST 

201 

11,2065 

0 0002 

0 

XACT03 

TC  a 

0065 

REf 

2 lAsT  201 

11,2066 

0 4571  0 AlM/ENO 

TC 

FALTnN 

0066 

REF 

1 

1 1 ,2067 

0 2056  0 

TC 

ENOEXTVB 

0067 

R^F 

1 

11,2070 

0 2076 

1 

k/37ER0 

TC 

Op/tnERT 

0068 

REF 

1 

11,2071 

0 2110 

0 

TC 

IMJzEROK 

RETURN  HERE 

IF 

NOUN  s 

ICDU(20) 

0069 

REF 

1 

11,2072 

0 2117 

1 

TC 

rrzerok 

RETURN  HERE 

IF 

NOUN  s 

RCDU (40) 

0070 

REF 

2 

last  201 

1 1,2073 

0 2076 

1 

vbcoar< 

TC 

dp/inert 

0071 

REf 

1 

11,2074 

0 2132 

0 

TC 

iNJCnARK 

RETURN  HERE 

If 

NOUN  s 

ICDu(20) 

0072 

REF 

1 

11,2075 

0 2234 

0 

TC 

RRDESNBK 

RETURN  HERE 

IF 

NOUN  = 

RCDU (40) 

R0073 

RETURN^  TO 

U*1  IF  I Ml 

1 OR  L+2 

IF  RR. 

0074 

REF 

10 

LAST  196 

11,2076 

4 7757 

1 

OP/INERT 

CS 

BIT5 

0CT20 

0075 

REF 

2 

LAST  98 

1 1,2077 

6 0273 

1 

AD 

NOJNrEG 

0076 

11,2100 

0 0006 

1 

EXTEND 

0077 

REF 

1 

11,2101 

1 2065 

1 

3ZF 

XACTnO 

IF  = 20. 

0078 

ref 

55 

LAST  201 

11,2102 

24  002 

0 

INCR 

a 

0079 

ref 

1 

11,2103 

6 2107 

0 

AD 

RRINiiDIf 

s -20  OCT. 

0080 

11,2104 

0 0006 

1 

EXTEND 

0081 

ref 

2 

LAST  201 

11,2105 

1 2065 

1 

3ZF 

XACTnO 

633^.36A 

YUL  SYSTtM  FOR  AGC: 

REVISION  0 OF  PROORA'1  BURST12:  BV 

NASA  2021106-031 

dec  7. 

1967 

(MAIN) 

page 

202 

L 

0082 

e^temoed  verbs 

REF  3 LAST  200 

._  _lijL210ii Q_-Z066  0 ^ _.r.C 

__  -AL'^iNO 

USER’S  OWN  PAGE 
,1LLEGAL._ 

NO, 

3 

S3 

E5 

0083 


11.2107  77757  1 R^IMUDIF  OCT 


20 


633^36A  YUL  SYSTEM  FOR  AGC;  REVISION  0 OF  PROGRAM  BURST123  BY  NASA  2021106-031  DEC  7.  1967  (MAIN)  PAGE  203 


L 

EXTEN3ED  VERBS 

USER'S  OWN  PAGE  NO.  4 

S3  E6 

POOSA 

<EYB3ARD_  REaULST^ 

10  7-RO  aMU 

EN.CODERS.. .. 

0085 

REF 

1 

11«2110 

0 20A0 

1 

IMUZEROA 

TC 

TESTXACT 

ZERO  encoders. 

0086 

REF 

A last  198 

JJ.j2J.1JL 

JO_5206 

.0 

rc. ... 

-...a.A.N.CCALL 

0087 

REF 

1 

11  j2112 

26000 

0 

CADR 

IMJZERO 

0088 

REF 

5 LAST  203 

_ lJj2.1i3_ 

.0  520.6 

0 _ 

TC. 

SANACALL 

STALL  ... 

0089 

REf 

1 

11 j211A 

26751 

0 

CAOR 

imjstall 

0090 

11 j2115 

0 2116 

0 

TC 

♦1 

0091 

REF 

2 LAST  201 

11 j2116 

0 2056 

0 

TC 

endextvb 

0092 

REF 

2 last  203 

11 j2117 

0 20A0 

1 

RRZEROA 

TC 

TESTXACT 

0093 

REF 

6 LAST  203 

11 t2120 

0 5206 

0 

TC 

BANArALL 

ZERO  RR  CPUS, 

009A 

ref 

1 

11 j2121 

20250 

1 

:adr 

RRZERO 

0095 

REF 

7 LAST  203 

__  „J1j2122 

0 5206 

0 

R/YAITK 

TC 

BAMACA.LL.. 

0096 

REp 

2 LAST  198 

1U2123 

267A5 

0 

CADR 

RADSTALL 

0097  ' 

11  j212A 

1 2125 

1 

TCF 

+ 1 

0098 

REF 

3 LAST  203 

11.2125 

1 2056 

1 

TCF 

ENDiX.TVB 

0099 

REF 

3 LAST  203 

11 J2126 

0 20A0 

1 

LRP0S2< 

tc 

TtSTXACT 

command  lr  to  position  2. 

0100 

REf 

8 last  203 

11.2127 

0 5206 

0 

TC 

banacall 

0101 

REF 

1 

11.2130 

21162 

1 

CADR 

LRPDS2 

0102 

REF 

1 

11.2131 

1 2122 

0 

TCF 

RWAITK 
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P0103 

KEYBOARD  request 

JQ  coarse  _ALlGiM-JHE  J.MU 

OlOA 

REF 

A LAST 

203 

11.2132 

0 20A0 

1 

nuCOARK 

TC 

TESTXACT 

COARSE  align  FROM  KEYBOARD. 

0105 

REF 

1 

11.2133 

0 A6AA 

jQ__ 

JX 

jRAawAIT 

0106 

REF 

1 

11.213A 

3 2152 

0 

CAF 

VNLOOCDU 

CALL  FOR  THETAD  LOAD 

0107 

REF 

A LAST 

16l 

11.2135 

0 A657 

1 

rc 

NVSBWAIT 

0108 

REF 

A LAST 

161 

. lL.Z13i!_ 

0_  AA75 

0. 

TC 

.jE.NO.LDL£ 

STALL  waiting  EOR  THE  LOAD 

0109 

REF 

1 

11.2137 

0 2055 

0 

TC 

TERMEXTV 

0110 

REF 

1 

11.21A0 

0 215A 

0 

TC 

ICSDEL 

PROCEED  - ASK  FOR  INCREMENTAL  LOAD. 

0111 

REF 

1 

11.21A1 

3 2153 

1 

ICORK2 

CAF 

IMJCOARV 

RE-DISPLAY  COARSE  ALIGN  VERB. 

0112 

ref 

5 last 

20A 

11.21A2 

0 A657 

1 

TC 

NVSBWAIT 

0113 

REF 

2 LAST_ 

20.1. 

11.21A3 

0 4724. 

1 

TC  ^ 

. freedsp 

release  the  DISPLAYS 

OllA 

REF 

9 last 

203 

11.21AA 

0 5206 

0 

TC 

BANKCALL 

CALL  MODE  SWITCHING  PROG 

0115 

• REF 

1 

11,2145 

26065 

0 

CADR  . 

1MJC0ARS-.  ... 

0116 

REF 

10  LAST 

20A 

11.21A6 

0 5206 

0 

TC 

BANKrALL 

STALL 

0117 

REF 

Z LASX 

203 

11.21A7 

26751 

0 

CADR 

_1MJSIALL 

0118 

REF 

A LAST 

203 

11,2150 

0 2056 

0 

TC 

ENDFXTVB 

0119 

REF 

5 LAST 

20A 

11,2151 

0 2056 

0 

TC 

enoextvb 

0120 

11.2152 

02522 

0 

vnlodcdj 

DCT 

02522 

0121 

11.2153 

OAlOO 

1 

I MUCOARv 

DCT 

OaIOO 

633436A 

YUL 

system  FoR  AGC! 

: REVISION 

0 OF  PROGRAM  BURSt120  BY  1 

VASA  2ri21106-031 

DEC  7*  1967  (MAIN)  PaGE  205 

L 

EXTENDED  VERBS 

USER'S  OWN  PAGE  NO.  6 S3  E5 

P0122 

_ PB.QVJSION 

FOR.  COARSE 

ALiGM 

ro„ 

iVCREMEVTA-  ANGLES.  __  

0123 

REF 

1 

11*2159 

3 2202 

0 

ICSOEL 

CAF 

OELLnAD 

012A 

REF 

6 

LAST 

209 

11*2155 

P 9657 

1 

rc 

NVS3WAIT 

request  LOAD  OP  DELTA  ICDU  ANGL-S. 

0125 

REF 

5 

LAST 

209 

11*2156 

0 9975 

0 

TC 

ENDIDLE 

0126 

REF 

2 

LAST 

209 

11*2157 

0 2055 

0 

IC 

TERMEXTV 

0127 

REF 

1 

11*2160 

0 2191 

1 

TC 

ICDRK2 

PROCEED  WITHOUT  DATA  HERE  TOO. 

0128 

REF 

1 

11*2161 

0 2163 

1 

TC 

INCLnOP 

LOOP  TO  increment  THETAD  PROM  OsPTEMe. 

0129 

REF 

2 

LAST 

ZOi> 

11*2162 

0 2191 

1 

TC 

IC0RK2 

RE-DISPLAY  COARSE  ALIGN  VERB. 

0130 

REF 

56 

last 

201 

11*2163 

56  002 

0 

ncLoo= 

XCH 

3 

increments  thetads  in  2S  complement  from 

0131 

ref 

61 

LAST 

186 

11*2169 

59  199 

1 

rs 

MPAC 

Three  angle  increments  in  dsptem2s. 

013Z^  . 

REF 

1 

11.2165 

3 2203 

JL 

OAF 

LTHD*2 

0133 

REF 

8 

LAST 

9l 

11*2166 

59  120 

0 

TS 

3JF 

SET  UP  For  cduinc. 

013A 

REF 

15 

LAST 

191 

11*2167 

3 7762 

0 

CAF 

Two 

three  times  through. 

0135 

REF 

62 

LAST 

20S 

11*2170 

59  195 

0 

INCL00P2 

rs 

MPAC  +1 

0136 

r£f 

127 

LAST 

200 

11*2171 

50  000 

1 

INDEX 

A 

0137 

REF 

_3_ 

LAST 

_16_1_ 

11*2172 

56  392 

1 

xCH 

DSPIfMz 

INCR£MENT  to  T£M2  FOR  CDUINC. 

0138 

REF 

11 

LAST 

209 

11*2173 

0 5206 

0 

TC 

BANXrALL 

0139 

REF 

1 

11*2179 

33602 

0 

:adr 

CDJINC 

OUO 

REF 

9 

LAST 

20i> 

11*2175 

10  120 

0 

CCS 

BJF 

OKI 

ref 

10 

LAST 

205 

11*2176 

59  120 

0 

TS 

BJF 

0K2 

ref 

63 

LAST 

205 

11*2177 

10  195 

0 

CCS 

MPAC  +1 

0H3 

REF 

1 

11*2200 

0 2170 

0 

rc 

INCLnOP? 

01  AA 

REF 

69 

LAST 

205 

11*2201 

o 

o 

0 

rc 

MPAC 

RETURN  WHEN  FINISHED. 

0U5 

11*2202 

02523 

1 

DELLOAO 

OCT 

0252T 

0 1 ift 

REF 

3 

LAST 

193 

11*2203 

00902 

1 

LTHD+2 

adres 

THETAD  +2 
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POIAT  KFYBDARD  RpoUpST  TO  FINE  ALIGN  AND  GYRO  TORQUf  IMJ' ..  _ . _ . 


0U8 

REF 

5 

LAST  204 

11.2204 

0 2040 

1 

imufine< 

TC 

TESTXACT 

FINE  ALIGN  WITH  GYRO  TORUUING. 

01A9 

REf 

2 

last  204 

11.2255 

0,  4644.. 

0 

TC 

GRABwAIT.. 

0150 

REF 

1 

11.2206 

3 2232 

0 

CAF 

VNLODGYR 

CALL  FOR  LOAD  OF  GYRO  COMMANDS 

0151 

REF 

7 

LAST  205 

II.22O7 

0 4657 

1 

TC 

NVSBulAIT 

0152 

REF 

6 

LAST  205 

_ 11.2210 

_0__  4475 

0 

IC 

ENOIDL£  _ __ 

HOLD  UP  FOR  THjl  DATA  LOAD 

0153 

REF 

3 

LAST  205 

11.2211 

0 2055 

0 

TC 

TERMEXTV 

• 015A 

11.2212 

0 2213 

0 

TC 

♦ 1 

PROCEED  WITHOUT  A LOAD 

0155 

REF 

1 

11.2213 

3 2233 

1 

CAF 

IMJFINEV 

RE-DISPLAY  OUR  OWN  VERB 

0156 

REF 

8 

LAST  206 

11.2214 

0 4657 

1 

TC 

NVSBwAIT 

6157 

REF 

3 

LASJ  204 

. „11l2  215.  . 

0 4724 

1 

TC  _ 

. FREEdSP 

RELEASE  DISPLAYS  . . 

0158 

REF 

12 

LAST  205 

11,2216 

0 5206 

0 

TC 

BANCCALL 

CALL  MODE  SWITCH  PROG 

0159 

REF 

1 

11^,2217 

26252 

0 

XAOFL  _ 

IMJFTNE 

0160 

REF 

13 

LAST  208 

11,2220 

0 5206 

0 

TC 

BAN<CALL 

HIBERNATION 

0161 

REF 

i 

LAST  i04 

II1222I 

26751 

0 

CADR  . 

LM.U5XALL  . .. 

0162 

REF 

6 

LAST  204 

11,2222 

0 2056 

0 

TC 

ENDEXTVB 

,0163__ 

REF 

I- 

1L.2223 

3 2300 

0 

FINEK2 

CAF 

. LGYRoBIN. 

pinball  left  commands  IN  OGC  REGISTSRS 

0164 

REf 

14 

last  206 

11.2224 

0 5206 

0 

TC 

3AN<rALL 

0165 

REF 

1 

11.2225 

26362 

1 

caor 

IMJPiiLSE 

0166 

REF 

15 

LAST  206 

11.2226 

0 5206 

0 

TC 

3AN<CALL 

WAIT  FOR  PULSES  TO  GET  OUT. 

0167 

REF 

4 

LAST  208 

11,2227 

26751 

0 

CAOR 

IMJSTALL 

0168 

REF 

7 

LAST  208 

11.2230 

0 2056 

0 

TC 

ENDExTVB 

0169 

REF 

8 

LAST  208 

11.2231 

0 2056 

0 

TC 

ENOEXTVB 

OI7O 

11.2232 

02567 

) 

vvlodgyr 

OCT 

02567 

0171 

11,2233 

0A200 

1 

I MUFiNEv 

OCT 

04200 

fine  Align  verb 

633^,36* 

YUl 
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207 

— — 

L 

Pom- 

EXTEMOtD  VERBS 

designate  TO'  desired  GlMBAl  ANGI  FS. 

USER'S  Own  page  no.  s s3 

E5 

0173 

017^ _ 

ref 

..ref 

6 LAST  206 
3 LAST  206 

11.223A 

11»2235 

0 2040  1 RRDESN3<  TC 
Q 4i»44  0 rC 

TESTxACT 

GRAHWAIT 

0175 

0176 

0177 

REF 

REF 

R.EF__. 

1 

9 LAST  206 
7 LAST  206 

11.2236 

11.2237 
11»2240 

3 2255  1 CAF 

0 4657  1 rC 

0 4475  0 TC 

VNLORCDU 
NVSBwAIT 
.-EJNJ2JLDLE 

ASK  FOR  GIMBAL  ANGLES. 
WAIT  FOR  THE  LOAD 

0178 

0179 

REF 

A LAST  206 

11,22A1 

11»22A2 

0 2055  0 TC 

0 2243  0 TC 

TERMfXTV 

♦ I 

PROCEED 

0180 

0181 

REP 

ref 

16  LAST  206 
1 

11.2243 

11.2244 

0 5206  0 TC 

22760  0 :ADR 

BAN<rALL 

aurlokon 

ASK  OP  For  lock  on  requirements. 

0182 
0183  . 

OlB'f 

REF 

ref 

1 

10  lAsT  207 

11*2245 
11,2246 
- 11*2241 

3 2153  1 :aF 

0 4657  1 IC 

_0_0004_0_ INHINI 

OPTCOARV 

NvSBWAIT 

RE-DISPLAY  OUR  OWN  VERB 
fire  up  job  to  DO  DPSIGNATF 

0185 

0186 
0187  ^ 

REF 

REF 

REF 

1 

5 last  182 
2 LAST  200 

11.2250 

11.2251 

3 7746  0 CAF 

0 5516  0 rc 

E5 fBAn<  = 

PRICIPO 

finovac 

OGC 

0188 

C0188 

0189 

ref 

REF 

1 

5 LAST  207 

11.2252 

11.2253 
-Ja_L2^5_4 

02256  1 2CADR 

22065  1 

_A-2055  1 rCF 

RRDESK2 

termextv 

frees  display^ 

0190 

0191 

.R_ef._. 

2 ! AaT  20A 

11*2255 

02441  1 VNLDRCOJ  OCT 
11*2153  0=TC0ARV  FOUAi  c 

2441 

IMJrnARV 

different  NOUNa. 

0192 

0193 

REF 

REF 

17  LAST  207 

1 

11*2256 

11.2257 

0 5206  0 RRDESK2  IC 
20364  1 CADR 

3AN<CALL 

RRDESNB 

0194 

ref 

2 LAST  203 

11*2260 

0 2122  1 rc 

RrtAlTK 

R0I95 
R0196 
R019J_ 

Kl-tAS-  KEKrORM  VERB 

ACTION'  requested  hAs 
load,  operator  SHOU 

AVi/  rLEASE  MAR^  VERB PRESSING  ENTER  INDICATES 

3EEN  Performed,  and  does  same  recall  as  a completed 
-0  DO  VB  proceed  without  data  IF  HF  WISHES  NOT  TO 

Ro  1 98 

KCKrj-iCi  IME  KtJUESTEO  ACTION. 

0199  _ 

REF 

1 

11*2261 

0 4626  1 GOLOADLV  TC 

FLASHDFF 

0200 

0201 

0202 

REp 

REF 

REF 

2 eAST  201 
9 LAST  197 
1 

11*2262 
1 1 *2263 
11*2264 

0 2060  0 rc 

0 5225  1 rC 

12002  0 CADR 

XAcTn 

POST.lUMP 

loajjlvi 
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P0203 


IRIGA 


USER'S  OWN  PAGE  NO.  9 


S3  E5 


0204 

rEf 

7 

LAST 

207 

11.2265 

0 

2040 

1 

TORQGYRS 

TC 

TESTxaCT 

0205 

REF 

4 

LAST 

207 

11.2266 

0 

4644 

0 

rc 

5RA3WA1T 

0206  - 

RE£._ 

---2. 

JL&5JL 

206 

11.2267 

3 

TAF 

VNI  -InGYR 

0207 

REF 

11 

LAST 

207 

11.2270 

0 

4657 

1 

rc 

NVSSwAIT 

0208 

REF 

8 

LAST 

207 

11.2271 

0 

4475 

0 

rc 

endidle 

0209 

^.REF 

6_ 

LA5X- 

207 

11.2272 

0 

2055 

0 

TCL 

TFRMFXTV 

0210 

11.2273 

0 

2274 

1 

rc 

+ 1 

0211 

REF 

1 

11.2274 

3 

2301 

1 

CAF 

T0R3GYRV 

^0212__ 

ref_. 

J.MJL 

2QB 

11.2275 

0 

4657 

1 

rc 

NV5RWAIT 

0213 

REF 

4 

LAST 

206 

11.2276 

0 

4724 

1 

TC 

FREEOSP 

0214 

REF 

1 

11.2277 

1 

2223 

1 

TCF 

FINEX2 

0215 

REF 

4 

LAST 

46 

11,2300 

00403 

0 

lsyrobin 

ecadr 

DELVx 

0216 

11.2301 

05400 

0 

TORQGYRV 

OCT 

0540O 

GYRO  ToRQUING  with  no  MoDE-SWITCH. 


RE-DISPLAY  OUR  OWN  VERB 
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P0217 

ALIGN 

1 TIME  . . 

0218 

REF 

1 

11.2302 

3 2325 

1 

alintime  :af 

VNLDODT 

USES  NVSUBMON.  DOES  NOT  TEST  DS?LDC<. 

0219 

REF 

2 

LAST 

166 

11.2303 

54  113 

0 

rs 

nvtemp 

DOES  NOT  KILL  MONITOR. 

0220 

jtef 

. L 

11.2304 

0 4460 

1 

rc 

NVSJBMQN 

0221 

REF 

13 

LAST 

201 

11.2305 

0 5567 

0 

re 

ENDDfJOB 

IN  CASE  OF  ALARM  IN  LOAD  REQUEST  SET  JP. 

0222 

REF 

9 

LAST 

20« 

11,2306 

0 4475 

0 

TC 

ENDiFiLE 

0223 

REF 

lA 

LAST 

209  _ 

11.2307 

_ 0 5567 

0 

IC 

ENOOfJOB 

TERMINATE 

022A 

REF 

15 

last 

209 

11.2310 

0 5567 

0 

TC 

ENOOFJOB 

PROCEED  WITHOUT  DATA 

0225 

11.2311 

0 0004 

0 

INHINT 

DELTA  TIME  IS  IN  DSPTEMl,  +i. 

0226 

REF 

A8 

LAST 

197  _ 

11,2312 

3 7767 

0 

:af 

ZERD 

0227 

REF 

65 

LAST 

206 

11,2313 

54  146 

0 

TS 

MPAC  +2 

NEEDED  FOR  TP  AGREE 

0228 

REF 

LAST 

19A 

11,2314 

54  001 

1 

TS 

L 

ZERO  T1  6 T2  while  ALIGNING. 

0229 

ref 

5 

LAST 

188 

11,2315 

52  025 

1 

DXCH 

Time? 

0230 

REF 

66 

LAST 

209 

11.2316 

52  145 

0 

3XCH 

MPAC 

0231 

REF 

1 

11.2317 

52  340 

1 

OXCH 

dsptfMi 

increment. 

0232 

REF 

67 

LAST 

209 

ll,2i20 

20  145 

0 

DAS 

MPAC 

0233 

REF 

2 

LAST 

1A8 

11,2321 

0 7327 

0 

TC 

TPA3REE 

force  sign  agreement. 

023A 

ref 

68 

LAST 

209 

11,2322 

52  145 

0 

dxch 

MPAC 

NEW  CLOCK. 

0235 

REF 

6 

LAST 

209 

11,2323 

20  025 

1 

DAS 

TIME? 

0236 

REF 

16 

LAST 

209 

11,2324 

0 5567 

0 

re 

ENDDFJOB 

0237 


11*2325  0212A  1 VNLODDT  DCT 


02124 


V/N  FOR  LOAD  DELTA  TIME 
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YUL 
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L 

extended  verbs 

USER'S  OWN  PAGE  NO.  U S3 

E5 

P0238 

„..SELECJ  Am 

J^1T1ATE,,B£S1RED  SY5IEM  JEST  PROGRAM. 

0239 

REF 

1 

E5 

eban<= 

OPLArE 

02it0 

REF 

7 

LAST  9A 

11*2326 

10  302  1 

SICSTEST  :cs 

MOOREG 

DEMAND  mode  00. 

02M 

REf 

2 

LAST  200 

11.2327 

1 2053  1 

tcf 

XACTaLM 

02^2 

REF 

5 

LAST  208 

11,2330 

0 4644  0 

rc 

GRA3WAIT 

02^*3 

ref 

1 

11,2331 

3 2403  1 

redo  :af 

LQPL 

ASK  FOR  TEST  OPTION  (1  - 7). 

02^fA. 

_R.EF_ 

Ji9 

LAST  209 

11,2332 

54  146  0 

rs  . 

MeAC^2_,  _ 

02  A5 

REF 

1 

11,2333 

3 2402  0 

CAF 

TESTmV 

0Z<t6 

REF 

13 

last  208 

11,233A 

0 4657  1 

rc 

MVS3WAIT 

024X 

_REF_ 

LO 

LAST  209 

11.2335 

0 4475  0 

JC 

ENOInLE 

02^8 

REF 

1 

11,2336 

0 5566  1 

TC 

EJFREE 

02A9 

REF 

1 

11,2337 

0 2331  1 

TC 

REDO 

0250 

REF’ 

1 

11,2340 

0 4117  1 

TC 

NEWMoDEX 

0251 

11,2341 

00005  1 

OCT 

5 

DISPLAY  MAJOR  MODE  5 - SYSTEM  TfSTS 

0252 

11,2342 

0 0004  0 

inhint 

0253 

REf 

2 

LAsT  207 

11,2343 

3 7746  0 

caf 

PRI0?O 

025A 

REf  _ 

6 

LAST  207 

11,2344 

Q-_5Sl  6_CL_  . 

TC 

FINDVACL 

0255 

REF 

3 

LAST  207 

E5 

eban<= 

OGC 

0256 

11,2345 

02350  0 

2CADR 

TSELfCT 

C0256 

ref 

L 

11,2346 

22065  1 

0257 

REF 

'17 

LAST  209 

11,2347 

0 5567  0 

TC 

ENDOfJOB 

LEAVING  DISPLAY  GRABBED  FOR  SYSTEM  TEST. 

0258 

REF 

_JLl_l2.350_ 

4,_5343.  1 

TSELECT  . cs 

LQW4 

OCTAL  17  OPTIONS  WITHOUT  OPERATOR 

FRRD 

0259 

REf 

2 

LAsT  210 

11,2351 

6 1546  1 

AD 

OPLACE 

0260 

11,2352 

0 0006  1 

EXTEND 

p2ja 

11,2353 

6 2356  0 

3ZMF 

♦ 3 

0262 

REF 

3 

LAST  201 

11,2354 

0 4571  0 

TC 

FALTdN 

0263 

REF 

2 

LAST  2lO 

11,2355 

0 2331  1 

TC 

REDO 

026A 

REF 

3 

LAST  210 

11,2356 

51*546  1 

INDEX 

OPLArE 

0265 

REF 

1 

11,2357 

3 2361  1 

CAF 

TESTCADR 

0266 

REF 

3 

LAST  179 

11,2360 

0-5230  0 

rc 

3AN<JUMP 

R0267 

DON'T  LISE 

13  OR  14  (SEE  NOTE  ON 

JSER'S  page  1). 

0268 

REF 

A 

last  202 

JT,2361 

22066  1 

TESTCaOR  cadr 

ALM/fND 

0 ILLEGAL 

0269 

REF 

1 

11,2362 

50000  1 

CADR 

IMJTfST 

1 GYRO  DRIFT  TEST 

0270 

REF 

1 

11,2363 

50025  0 

CADR 

IMJ3ACK 

2 REPEAT  OF  IMUTEST 

0271 

REF 

1 

11,2364 

30000  1 

CADR 

aotnbimu 

3 IMU  alignment  TEST 

0272 

REF 

1 

11,2365 

50252  1 

CADR 

OPCHK 

4 IMU  CHECK 

0273 

REF 

1 

11,2366 

50451  1 

CADR 

GYRSFTST 

5 GYRO  TOROUING  TEST 

027A 

REF 

5 

LAST  210 

11 ,236J 

22066  1 

CADR 

ALM/END 

6 available 

0275 

REF 

1 

1 1,2370 

73351  1 

CADR 

GT  SCPSS 

7.  GYROCOMPASS 

0276 

REF 

1 

11,2371 

46556  0 

CADR 

samodchk 

10  SEMI-AUTOMATIC  MODING  CHECK 

0277 

REF 

1 

11,2372 

31347  0 

CADR 

SAJTnIFS 

11  semi-automatic  interface  test 

U»2373  31605  0 


CADR  AOIAmGCK 


12  AOT  ANGLE  CHECK 
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DPP 

1 1 

0 

rADR 

RDRTNIT 

L3  RENDEZVOUS  KADAR  / ANTENNAE-XRA«10LG  . 

0280 

REF 

1 

11,2375 

22410 

1 

CADR 

FSTRSAMP 

14  HIGH  SPEED  RADAR  SAMPLING. 

1 1 

1 

n 

.'ADR 

7FR0FRAS 

0281 

0282 

REF  ' 

1 

11,2377 

23007 

1 

CADR 

OISINDT 

DISPLAY  INERTIAL  DATA  TEST. 

0283 

REF 

6 

LAST 

2iO 

11,2400 

22066 

1 

:aor 

ALM/END 

REF 

7 

LAST 

2lX 

11,2401 

22066 

1 

CADR 

ALM/fND 

02-85 

11,2402 

02101 

0 

TESTNV 

OCT 

2101 

REF 

4 

LAST 

21° 

11,2403 

02546 

1 

L3PL 

ECADR 

OPLACE 

PPP 

10 

last 

207 

11,2404 

0 5225 

1 

GOSHOSJM 

tc 

POSTjUMP 

START  routine  to  DISPLAY  SUM  OF  EACH 

0288 

REF 

1 

11,2405 

77543 

0 

CADR 

SHDW5UM 

BANK  ON  DSKY 

pEF 

] 1 

LAST 

211 

11,2406 

0 5225 

1 

DOFCSTST 

TC 

POSTJUMP 

0290 

ref 

1 

11,2407 

14736 

0 

CADR 

FCSSTART 
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^ 

SPT  UP  FnR 

RADAR  sampling* 

0292 

REF 

9 LAST  199 

E7 

EBAN<= 

RST<roC 

02  9"^ 

REF 

1 

11*2410 

3 2477  1 

fstrsamp  caf 

RST<I  1ST 

0294 

REF 

rff 

2 LAST  98 
^3  1 AST  1 99 

11.2411 

11.2412 

54  411  1 
4 7763  0 

ts 

_ , ^ C5_ 

DNLSTADR 

DNE 

0296 

REF 

1 

11,2413 

1 2416  1 

TCF 

RSAMpTST 

029? 

REF 

h LAST  210 

11,2414 

0 4644  0 

RE6RSA.MP„tC_  

GRABWAIT 

0298 

REF 

1 

11,2415 

3 5205  0 

CAF 

ISEC+l 

REp 

7O  1 AST  2l0 

11.2416 

54  146  0 

RSAMPTST  IS 

MPAC  +2  __ 

n^no 

11,2417 

0 0004  0 

INHInT 

0301 

REF 

1 

11,2420 

4 2500  1 

cs 

LRPOSCAL 

O^’O? 

REF 

AH  LAST  197 

11.2421 

7 0412  1 

RAS50DES__ 

0303 

REF 

69  LAST  212 

11,2422 

54  412  1 

IS 

RADMODES 

RFF 

2 1 AST  212 

1 1.2423 

3 7500  0 

„ „..CAF  , 

_LaPD5£AL 

0305 

11,2424 

0 0006  1 

EXTEND 

0306 

11,2425 

02  033  0 

RAND 

33 

n^07 

REF 

70  LAST  212 

11,2426 

_2^6^4.l  2 l.._ 

__  ADS 

„RADMnDES_ 

0308 

11,2427 

0 0003  1 

RELINT 

REf 

1 

11,2430 

3 2451  0 

CAF  . 

_LRTSTDEX_ 

oho 

REF 

10  LAST  153 

11,2431 

54  003  0 

IS 

EBANK 

0311 

REF 

71  LAST  212 

11,2432 

56  146  1 

XCH 

MPAC  *2 

0312 

REF 

3 LAST  199 

11,2433 

_5.5„*  44 

IS 

rsampdt 

0313 

REF 

i,9  LAST  209 

11,2434 

3 7767  0 

CAF 

ZERO 

0314 

ref 

4 last  198 

11,2435 

55,444  0 

TS 

RTSIi  OC 

0315 

REF 

2 LAST  198 

11.2436 

55 » 445  1 . 

LS 

RFAIl  CNT__ 

0316 

REF 

1 

11,2437 

3 2475  0 

CAF 

HISPMAX 

0317 

REF 

2 LAST  198 

11,2440 

55'442  0 

TS 

RTSTMAX 

0318 

REF 

1 

11,2441 

3 2476  0 

CAF 

RI STnV 

0319 

REF 

14  LAST  210 

11,2442 

0 4657  1 

IC 

NVS3WAIT 

0320 

REF 

1 1 LAST  210 

11,2443 

0 4475  0 

TC 

endidle 

0321 

REF 

2 LAST  2IO 

11,2444 

0 5566  1 

TC 

ejfrfe 

0322 

REF 

1 

11,2445 

1 2501  0 

ICF 

RSEMIAUT 

0323 

REF 

5 LAST  208 

11,2446 

0 4724  1 

rdrdfree  tc 

freedsp 

0324 

REF 

4 LAST  212 

11,2447 

11,445  1 

CCS 

RSAMpDT 

0325 

11,2450 

1 2454  1 

TCF 

+ 4 

0326 

REF 

3 LAST  199 

11,2451 

03441  0 

LRTSTDEX  eCAOR 

RTSTDEX 

0327 

REF 

12  LAST  211 

11,2452 

0 5225  1 

. IC  „ _ 

POST  lUMP 

032S 

REf 

3 last  199 

11,2453 

21301  0 

CAdR 

OORSAMP 

0329 

REF 

4 LAST  199 

11,2454 

3.  6356  1. 

CAF 

SIX 

0330 

REF 

4 LAST  212 

11,2455 

7 1441  0 

MA5< 

RTSTDEX 

USER'S  OWN  PAOE  NO.  13 


S3  E5 


HIGH  SPEED  SAMPLING.  SWITCH  TO  SPECIAL 
DOWNLIST. 

WANTS  TM  BUE£EEam. 


SHOWS  NO  TM  BUFFERING. 


INITIALIZE  SCALE  AND  LR  POSITION  BITS. 


HLSP.E£D„_NNZ_- - irO  - SPEED  _PNE.^ 
iEJO_BM_  SAMPLE^COmTER^ 


ON  terminate. 

proceed  means  semi-auto  sequencing. 

SEE  IF  HI  OR  LO  SPEED  SAMPLING. 

EMC_t  otherwise  ._  SET_,UPJAJILlSX^  TiMJNGi - 


FLND  OUT,  WHICil  RADAR  wANTED,^ 
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. 033.1 

...  REF_ 

.12^8 

LAST 

205 

1U2456 

10  000 

0 

_;cs 

_A 

0332 

REF 

1 

11.2457 

1 2463 

0 

ICF 

LRCYrLE 

LANDING  radar 

ARE  SERIALS  2-5. 

0333 

REF 

2 

LAST. 

198 

1.1..2460 

.5.5*443 

.1 

TS 

RTSTRASE 

FOR  RR  base  s 

0,  max  = 1, 

033A 

REF 

5 

LAST 

212 

11.2461 

3 6306 

1 

CAF 

SIX 

0335 

11.2462 

1 2466 

0 

TCF 

♦ 4 

0336 

REF 

16 

LAST 

205 

11.2463 

3 7762 

0 

LRCYCLE 

CAF 

Two 

FOR  LR  BASE  = 

2.  max  p 3. 

0337 

REF 

3 

LAST 

213 

11.2464 

55*443 

1 

rs 

RTSTrASE 

..  _ __0338 

REF 

L 

11.2465 

3 2474 

_i_ 

CAF 

18R 

0339 

REF 

3 

LAST 

212 

1 1 »2466 

55*442 

0 

♦ 4 

TS 

RTSTmAX 

03  AO 

11.2467 

0 0004 

_0_ 

JNHINT 

03a1 

REF 

23 

last 

198 

11,2470 

0 5663 

1 

TC 

-JAITI  1ST 

03A2 

REF 

10 

LAST 

212 

E7 

eban<= 

RST<i  OC 

03.A3. 

11.2471 

Qa26i.^ 

2CADR 

RADSaMP 

C03A3 

REF 

2 

LAST 

198 

1 1.2472 

20067 

1 

03AA 

REF 

18 

LAST 

210 

11.2473 

0 5567 

0 

TC 

ENDDpJOB 

0345 

11.2474 

00022 

1 

IBR 

OEC 

lb 

0346 

11.2475 

00102 

1 

hIspmax 

3EC 

66 

0347 

11,2476 

02101 

0 

RTSTNV 

OCT 

2101 

0348 

REF 

1 

11.2477 

02236 

1 

rstklist 

5ENADR 

JPDMl  1ST 

0349 

11.2500 

00444 

0 

lrposcal 

3CT 

444 
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L 

extended  verbs 

USER*S  OWN  PAGE  NO.  15  S3  E7 

P0350 

_ SEM_L-AULQ^A3AR  TESTING., 

0351 

11.2501 

0 0004  0 

RSEMIAJT 

INHINT 

0352 

ref 

2 

LAST 

198 

lXt2502 

3 5647  1 

:af 

PR-L025 

START  HI  SPEED  SAMPLING. 

0353 

REF 

6 

LAST 

198 

11.2503 

0 5505  1 

rc 

NOVAr 

035A 

REF 

11 

LAST 

213 

E7 

EBAN<= 

SST<LOC 

0355 

11.2504 

03301  0 

2CADR 

OORSaMP 

C0355 

ref 

4 

LAST 

2lZ 

11.2505 

20067  1 

0356 

11.2506 

0 0003  1 

RELINT 

0357 

REF 

2 

LAST 

9_9  _ 

11.2507 

J3^TTbb  1 

:af  . 

five  .. 

sequence  through,  ALL  SIX  CHANNELS. 

0358 

REF 

5 

LAST 

212 

11.2510 

55*441  0 

-1 

TS 

RTSTnEX 

0359 

ref 

.1 

_ 11.2511 

3_  2527  0 

33PASTE 

:af 

-RV33  _ 

On  Enter t._swaicii  Ta_NEXi  channe_._ 

0360 

REF 

15 

LAST 

212 

11.2512 

0 4657  1 

rc 

NVSBwAIT 

0361 

ref 

2 

LAST 

160 

11.2513 

0 4622  0 

rc 

FLAShON 

0362 

REF 

12 

LAST 

212 

11.2514 

0 4475  0 

rc 

ENDIDLE 

0363 

REF 

1 

11.2515 

0 2522  0 

TC 

ENDRTST 

ON  terminate. 

036A  • 

11.2516 

1 2520  0 

TCF 

♦ 2 

0365 

REF 

1 

li.2517 

1 2511  1 . 

TCF 

33-PAsTE 

DONI  ACCEPT  DATA.  _ _ _ _ 

0366 

REF 

6 

LAST 

214 

11.2520 

11*441  0 

CCS 

RTSTdEX 

0367 

ref 

2 

LAST 

21A 

11.2521 

1 2510  0 

rCF 

33PASTE  -1 

0368 

REF 

50 

LAST 

212 

11.2522 

3 7767  0 

ENORTST 

:af 

2ER0 

ENDTEST. 

0369 

REF 

5 

LAST 

212 

11.2523 

55*445  1 

TS  . 

RSAMPIOT 

0370 

ref 

2 

LAST 

210 

11.2524 

0 4117  1 

TC 

NE()MOOEX 

0371 

11.2525 

00000  1 

OCT 

0 

0372 

REF 

3 

LAST 

212 

11.2526 

0 5566  1 

rc 

Ejfrfe 

3CT 


0373 


11*2527  03300  1 SY33 


3300 
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Pn374 

JOB 

to:  11 

TORN  OFF 

USt  OF  trim 

GIMBAL.  21  5 SFCOMnS  LAtfR. 

turn  off  DAP.  6 SET  UP  SPfCIAL  DOaIN-LINK 

R0376 

PRoGRi\M 

TO  transmit 

A Steady 

list  of  cduy  (,  z.  the  Down 

-LINK  PROGRAM 

ALSO  has  the  duty  oF  TURNING  tHE  OAP  BaCK 

R0378 

ON  ANO  ENABLING  USE 

OF.  the  trim  GIMBAL  A 

GAIN. 

0379 

11,2530 

0 0004  0 

begincou  inhint 

0380 

REF 

1 

11,2531 

3 2564  1 

CA 

FIVESECS 

turn  off  DAP  in  5 SECS 

0381 

REF 

24 

LAST 

213 

11,2532 

0 5663  1 

TC 

WAITJ  LSX  

0382 

REF 

6 

LAST 

70 

E7 

fBAN<= 

DNTMBUFF 

0383 

11,2533 

02552  1 

2CADR 

OAPOFF 

C0383 

REF 

3 

LAST 

69 

11,2534 

22067  0 

0384 

REF 

2 

LAST 

101 

11,2535 

3 1310  1 

CA 

dvsei  ect 

SAVE  OLD  contents  OF  DVSELECT. 

0385 

REF 

2 

LAST 

101 

11,2536 

55*346  0 

TS 

OLDDVSEL 

0386 

REF 

2 

LAST 

8l 

11,2537 

0 4161  0 

TC 

PHAscHNG 

0387 

11,2540 

40026  1 

OCT 

40026 

6.2  FOR  DAPOFF  TASK  6 TGOFF  j03. 

0388 

11*2541 

0 0004  0 

ToOFF  INHINT 

0389  ■ 

ref 

1 

11,2542 

4 0077  0 

CS 

OAPBnOLS 

inhibit  UsE  of  TRIM  GIMBAL  IMMEDIATELY. 

0390 

ref 

1 

11,2543 

7 7762  1 

_JLSE3RJTS_ 

0391 

REF 

2 

LAST 

215 

11,2544 

26  077  0 

ADS 

0AP3O0LS 

0392 

REF 

1 

11,2545 

3 2562  1 

CA 

LPNosMON 

prevent  gimblmon  from  turning  trim 

0393 

REF 

3 

LAST 

215 

11,2546 

55*310  0 

TS 

DVSELECT 

GIMBAL  BACK  ON. 

0394 

rEf 

3 

LAST 

215 

11,2547 

0 4161  0 

TC 

phaschng,  . 

0395 

11,2550 

00036  1 

OCT 

00036 

6.3  FOR  DAPOFF  TASK. 

0396 

REF 

19 

last 

213 

11,2551 

1 5567  1 

TCF 

ENOOFJOB 

0397 

REF 

7 

LAST 

215 

E7 

eban<= 

DNTMBUFF 

0398 

REF 

1 

11,2552 

3 2563  0 

OAPOFF  CA 

LONCdUS 

SET  DNTMGOTO  to  INITIATE  THE  SENDING  OF 

0399 

REF 

4 

LAST 

99 

11,2553 

55*401  1 

TS 

ONTMGOTO 

CDUY  6 2. 

0400 

REF 

.1 

11,2554 

4 7751  1 

CS 

GODApGO 

turning  OFF  GODAPGO  TURNS  OFF  OAP. 

0401 

REF 

3 

LAST 

215 

11.2555 

7 0077  0 

viAS< 

OAPBnOLS 

0402 

REF 

4 

LAST 

215 

11,2556 

54  077  0 

TS 

DAPBOOLS 

0403 

REF 

4 

LAST 

215 

11,2557 

0 4161  0 

TC 

PHASCHNG 

0404 

11,2560 

00006  1 

OCT 

00006 

0405 

REF 

17 

last 

198 

11,2561 

1 5727  1 

TCF 

TASKOVER 

0406 

REF 

2 

LAST 

102 

11,2562 

02237  0 

LPN6SM0N  5ENA0R 

PGNCSMON 

0407 

REF 

1 

11,2563 

02354  1 

loncdus  GENAqR 

DNCoUs 

0408 

11,2564 

00764  1 

FIVESECS  OEC 

500 
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P0A09 

-YB  43  I MU. 

attitude 

ERROR.  Meter.,  loadf.r. 

0410 

REF 

8 

LAST  208 

11.2565 

0 2040  1 

imuattck 

TC 

TESTxACT 

0411  . 

.REF 

1 

. 11.2566 

4 2631  J3 

CS 

.DC.T5QK.-  

.REMOVE  COARSE  AND  ECTR  ENABLE. 

0412 

11,2567 

0 0006  1 

EXTEND 

0413 

11.2570 

03  012  1 

aIAND 

12 

0414 

REF 

7 

LAST  212 

11.2571 

0 4644  0 

tc 

oRABwAIT 

0415 

REF 

2 

LAST  204 

11.2572 

3 2152  0 

CAF 

VNLODCDU 

0416 

REF 

16 

LAST  .214 

.1.1.2573 

.0.  4657  1 

TC 

NVSBWAIT 

0417 

REF 

13 

LAST  214 

11.2574 

0 4475  0 

TC 

ENDIOLE 

0418 

REF 

7 

LAST  208 

11.2575 

0 2055  0 

TC 

TERMeXTV 

0419 

11.2576 

0 2577  0 

tc 

♦ 1 

0420 

ref 

1 

11.2577 

3 2632  1 

CAF 

V43<l 

REDISPLAY  OUR  VERB, 

0421 

REF 

17 

LAST  218 

11.2600 

0 4657  1 

TC 

NVS3WAIT 

04-22 

REF 

18 

LAST  195 

11.,  26.01. 

_ 3 7756  1 

CAF 

BJJj,.  

ENABLE  error  CgUNTER. 

0423 

11.2602 

0 0006  1 

EXTEND 

0424 

11.2603 

05  012  1 

/-(OR 

12 

^425 

ref 

17 

LAST  213 

11.2604 

3 7762  0 

CAF 

TWO 

0426 

11.2605 

0 0004  0 

INHINT 

0427 

REF 

25 

last  215 

lit  26^6 

0 5663  1 

TC 

WAITi'lST 

PUT  OUT  COMMAND  IN  ,32  SECS. 

0428 

REF 

12 

LAST  21A  . .. 

E7 

EBAN<= 

RStCl'OC 

0429 

11.2607 

02612  0 

2CADR 

ATTCX2 

C0429 

ref 

1 

11.2610 

22067  0 

0430 

REF 

8 

LAST  218 

11,2611 

1 2055  1 

rCF 

TERMfXIV 

FREES  DISPLAY. 

0431 

REF 

18 

LAST  218 

11.2612 

3 7762  0 

ATTCK2 

CAF 

TWO 

PUT  OUT  ALL  COMMANDS  - CDU  WILL  DO  LIMIT 

0432 

ref 

57 

LAsT  205 

11.2613 

54  002  1 

TS 

0 

INCA5E  OF  EXCESS- DATA. 

0433 

REF 

129 

LAST  213 

11,2614 

50  000  1 

INDEX 

A 

0434 

REF 

4 

LAST  205 

11.2615 

3 0400  0 

CA 

THETaD 

0415 

11.2616 

0 0006  1 

EXTEND 

0436 

REF 

16 

LAST  198 

11.2617 

7 7747  0 

MP 

BIT13 

SHIFT  RIGHT  2. 

0437 

REF 

4 

last  178 

11.2620 

6 7770  0 

AD 

NEGo 

prevent  .0  IN  OUTPUT  COUNTER 

0438 

REF 

58 

LAST  218 

11.2621 

50  002  0 

INDEX 

0 

0439 

REF 

3 

LAST  i42 

11.2622 

54  050  0 

TS 

CDJXCMD 

0440 

REF 

59 

last  218 

11.2623 

10  002  1 

CCS 

0 

0441 

REF 

2 

LAST  218 

11.2624 

1 2613  0 

TCF 

ATTCK2  +1 

0442 

REF 

1 

11.2625 

3 2633  0 

CAF 

0CT70K 

0443 

11,2626 

0 0006  1 

EXTEND 

0444 

11.2627 

05  014  1 

/-(OR 

14 

0445 

REF 

18 

LAST  215 

11.2630 

1 5727  1 

TCF 

TAS<nVER 

04A6 

11.2631 

00050  1 

DCT50X 

DCT 

50 

0447 

11,2632 

04300  0 

V43K 

DCT 

4300 

0448 

11,2633 

70000  0 

0CT70IC 

OCT 

7000n 
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P.DA49„_ 

program 

TO  SCAN  CHANNELS  30 

-32-F0R  _CHAN5-LS  -I-N_S-LLFC-I£D_imLT.S-.-CALLED_BY -SPECIAL  Verb. 

0451 

REF 

1 

E7 

EBAN<= 

MSGCNT 

0452 

REF 

20 

LAST  191 

11*2634 

3 7763 

1 

SETUPMSG  CAF 

Bill 

begin  scan. 

0453 

11,2635 

0 0004 

0 

INHINT 

0454 

_ree_ 

i6_ 

■LAST  216 

11.2636 

0 5663 

1 

IC_ 

WAITI  1ST 

0455 

REF 

13 

LAST  21P 

E7 

EBAN<= 

RSTKI  OC 

0456 

11,2637 

02644 

0 

2CADR 

MSaSCAN  +2 

C0456 

REF 

_1 

LI  *2640 

■ 22067 

0 

0457 

REF 

20 

LAST  215 

11*2641 

0 5567 

0 

TC 

ENDOFJOB 

_D458 

REF 

-10 

.LAST-J^9J6 

li_*2642 

. -0  -5701 

1 

MSGSCAN  rC 

FIXDELAY  . - . 

0459 

11*2643 

00062 

0 

DEC 

50 

0460 

REF 

19 

LAST  2L6 

■_  _11*2644 

3 7762 

0 

CAF 

TrtD.  „ 

SCAN  ALL  3-  CHANNE-LS  FoR  CHANGES.- 

0461 

REF 

2 

LAST  217 

11*2645 

55*562 

0 

TS 

MSGCNT 

0462 

ref 

130 

LAST  216 

1 1 *2646 

50  000 

1 

INDEX 

A 

0463 

ref 

1 

11*2647 

3 1557 

1 

CA 

LAST30 

01 D value  of  INBITs. 

0464 

11*2650 

0 0006 

1 

EXTEND 

0465 

REF 

3 

LAST  217 

11*2651 

5 1562 

1 

INDEX 

MSGCNT 

0466 

11.2652 

06  030 

1 

RXOR 

30 

0467 

REF 

4 

LAST  217 

11*2653 

51*562 

1 

INDEX 

MSGCnT 

0468 

ref 

1 

11*2654 

7 2703 

0 

MASK 

30MSr,MSK 

0469 

11,2655 

0 0006 

1 

EXTEND 

0470 

REF 

1 

1 1 « 2656 

1 2700 

0 

3ZF 

NOMSG 

-0471^  ^ 

REF 

-6-0  _ 

LAST  216 

11*2657 

54  002 

1 

TS 

3 

SAVE  difference. 

0472 

REp 

5 

LAST  217 

1 1 » 2660 

51*562 

1 

INDEX 

msgcnt 

0473 

REF 

2 

last  217 

1 1 1 266 1 

23*557 

1 

LXCH 

LAST3O 

UPDATE  OLD  VALUE. 

0474 

11*2662 

0 0006 

1 

EXTEND 

0475 

REF 

47 

LAST  209 

11*2663 

06  001 

0 

RXDR 

C 

0476 

REF 

6 

last  217 

11*2664 

51*562 

1 

INDEX 

MSGCNT 

0477 

REF 

3 

LAST  217 

11*2665 

55*557 

0 

TS 

LAST30 

0478 

11*2666 

4 0000 

0 

COM 

0479 

REF 

61 

LAST  21 T 

11*2667 

56  002 

0 

XCH 

D 

04  80 

REF 

62 

last  217 

11*2670 

7 0002 

1 

MASK 

D 

SEE  IF  ANY  OF  CHANGED  BITS  JUST  ON. 

0481 

11*2671 

0 0006 

1 

EXTEND 

0482 

REF 

2 

LAST  217 

11*2672 

1 2700 

0 

3ZF 

NOMSG 

NO  MESSAGE  IF  SO. 

P0483 

NO  rotational  hand  controller 

IN  206. 

0484 

ref 

1 

11*2673 

3 2706 

1 

NDTRHC  CAF 

0KT30 

0485 

ref 

7 

LAST  21 Y 

11*2674 

6 1562 

1 

AD 

MSGCNT 

0486 

REF 

27 

LAST  164 

11*2675 

54  071 

0 

TS 

RUPTREG2 

0487 

REF 

63 

LAST  217 

11*2676 

4 0002 

1 

cs 

D 

0488 

REF 

1 

11*2677 

0 2724 

1 

TC 

VMESSAGE 

633<,36^ 

yul 
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: REVISION 
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0489 

REF 

8 

LAST  217 

_ LI  ..2700 

-ll  '_562.  0 .. 

._N3.MSG_  . 1CS_-. 

MSGONT 

0<*90 

REF 

2 

LAST  217 

11,2701 

1 2645  0 

TCF 

MSSSCAN  +3 

0491 

REF 

3 

LAST  218 

11,2702 

1 2642  1 

ICF 

MSoSCAN 

0492 

11,2703 

00017  1 

33MS6MSIC  3CT 

17 

0493 

11,2704 

77777  0 

DCT 

77777 

0494 

11,270.5_ 

037.77.  0 

3CTL 

3777  

0495 

11,2706 
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11.2772 
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11.3013 

1 3014 

0 

rcF 

*1 

0569 

REF 

1 
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when  bit  11  IS  PRESENT  IN  CHANNEL  13  THE 

0678 

11,3164 

0 0006 

1 

EXTEND 

DSKY  PB.  CAN  THEN  ENERGIZE  THE  STANDBY  _ 

0679 

11,3165 

05  013 

0 

WOR 

13 

RELAY  IN  THE  CGC  PWR  SUPPLIES.... 

633^36A 

L 

0680 
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P0681 

V_B 

.61 

RFCovFR  From. 

.SIANDaY 

3PEH AXIOM 

R0682 

ROUTINE 

written  for 

TEST  ROPES  ONLY**** 

MUST  be  Undated 

TO  INCLUDE 

R0683 

...flight  requirlmemts  for 

FLl GHX  - RAXiJ3NS_-5EQUENC£5.. 

0689 

REF 

2 

LAST 

229 

11.3167 

3 5352 

0 

POSTAND  CAF 

EBAN23 

COMES  HERE  FROM  LST2FAN 

0685 

REF 

12 

LAST 

229 

11.31J0 

56  003 

1 

XCH 

ebank 

SET  UP  EBANK  FOR  BANK  3 

0686 

REF 

2 

LAST 

229 

11.3171 

0 5026 

0 

rc 

finftime 

0687 

REF 

3 

LAST 

229 

11.3172 

53'513 

0 

DXCH 

TIMAr 

READ  THE  SCALAR  AND  SEE  IF  IT  OVERFLOW- 

0688 

_ li  t3173 

0 0003 

1 

TELINT 

ED  while  the  CGC  was  IN  STBY.  Ip  SO 

0689 

ref 

9 

LAST 

226 

11.3179 

31*512 

0 

:ae 

TIMAR 

THE  OVERFLOW  MUST  BE  ADDED  OR  IT  WILL 

0690 

11.3175 

0 0006 

1 

EXTEND 

SEEM  THAT  THE  REALATIVITY  THEORY  WOR<S 

0691 

ref 

2 

last 

229 

11.3176 

61*510 

1 

..  5U 

SCAlSAV 

BETTER  THAN  IT  SHOULD... 

0692 

11.3177 

0 0006 

1 

EXTEND 

0693 

REF 

1 

11.3200 

6 3223 

1 

3ZMF 

AODTIME 

IF  ITS  NEG.  IT  MUST  HAVE  OViFLWO.. 

0699 

REF 

3 

LAST 

183 

11.3201 

0 6112 

0 

TC 

INTPRET 

0695 

11.3202 

95395 

1 

DLOAD 

DSJ 

IF  IT  DID  NOT  OV-FLw.  FIND  OUT  HOw  LONG 

0696 

REF 

5 

last 

228. 

1.1.3203 

01513 

1 

TIMAr 

THE  CGC  WAS  IN  STBY  BY  SUBTRACT LN3JHE 

0697 

REF 

3 

LAST 

228 

11.3209 

01511 

0 

SCALSAV 

SCALAR  at  the  START  OF  STBY  FROM  THE 

0698 

11.3205 

97061 

0 

SRR 

RTB 

scalar  at  THE  END  OF  STBY  AND  ThEN  ADO 

0699 

11.3206 

21606 

1 

5 

THE  DIFFERENCE  TO  THE  TIME  EXIStING 

0700 

REF 

1 

11.3207 

33520 

0 

SGNAGREE 

WHEN  THE  SCALAR  WAS  READ  AT  STBY  ENTRY** 

0701 

11.3210 

77615 

0 

3AD 

0702  ' 

REF 

9 

LAST 

229 

11.3211 

01507 

1 

TIMESAN' 

0703 

REF 

6 

LAST 

228 

11.3212 

01513 

1 

store 

TIMAr 

0709 

11.3213 

77776 

1 

EXIT 

0705 

11.3219 

0 0006 

1 

CORCTTIM  EXTEND 

0706 

ref 

7 

LAsT 

228 

11.3215 

3 1513 

1 

OCA 

TIMAr 

thIs  Is  the  corrected  time  to  be  read 

0707 

REF 

8 

LAST 

229 

11.3216 

52  025 

1 

OXCH 

TIME2 

INTO  TIMEI  and  TIME2  REGS,  ADDR  29-25 

0708 

REF 

16 

LAST 

229 

11.3217 

9 7751 

1 

:s 

BITII 

0709 

11.3220 

0 0006 

1 

extend 

disable  tjhe  dsky  stby  pushbutton. 

0710 

11.3221 

03  013 

0 

WAND 

13 

0711 

ref 

25 

LAST 

225 

11.3222 

0 5567 

0 

TC 

endofjob 

0712 

11.3223 

0 0006 

1 

AODTIME  EXTEND 

0713 

ref 

1 

11.3229 

3 7793 

0 

OCA 

DPOsMAX 

IF  The  scalar  overflowed,  find  rut  how 

0719 

REF 

1 

11.3225 

53*515 

0 

OXCH 

TlMEnlFF 

MUCH  time  remained  WHeN  READ  THp  FIRST 

0715 

REF 

LAST 

228 

11.3226 

0 6112 

0 

TC 

TNT  PrET 

TIME  AND  THEN  ADD  THE  PRESENT  RpADING- 

0716 

11.3227 

95395 

1 

OLOAO 

DSJ 

WHICH  WILL  BE  THE  TOTAL  TIME  SPpNT  IN 

0717 

REF 

2 

LAST 

226 

11.3230 

01515 

1 

TIMEDIFF 

STANDBY.  TO  WHICH  THE  TIME  AT  STBY 

0718 

REF 

9 

LAST 

228 

11.3231 

01511 

0 

SCALSAV 

MAY  BE  added  TO  FIND  THE  PRESENT  TIME 

0719 

11.3232 

59215 

0 

OAD 

SRR 

CORRECT  TO  10  MSEC.. 

0720 

REF 

8 

LAST 

228 

11.3233 

01513 

1 

TIMAR 

**»*  the  time  in  standby  mode  Must  not 

0721 

11.3239 

21606 

1 

5 

EXCEED  23  HOURS  IF  TIME  IS  TO  Be 

0722 

11.3235 

77615 

0 

OAD 

CORRECTLY  COMPUTED  BY  THIS  ROUTINE.***** 

0723 

REF 

5 

LAST 

228 

11.3236 

01507 

1 

timeaav 

0729 

REF 

9 

LAST 

228 

11.3237 

01513 

1 

STORE 

TIMAR 

633436A 

yul  system  for  agc: 
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(MAIN) 

page  227 

L 

0725 

extended  verbs 

__,11.3240_  IXVLb  L.  EXJJ 

USER'S  OWN  page 

NO. 

28 

S3  E3 

0726  ref  1 11,3241  0 3214  0 IC  CORCTTIM 
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0001 

13.3A7A 

3AN< U 

0002 

REF 

A 

LAST 

189 

1A.3A7A 

5A  016  1 

<EYRUPT1 

TS  bankrupt 

0003 

REF 

56 

LAST 

219 

13.3A75 

56  002  0 

XCH  3 

OOOA 

REF 

A 

LAST 

189 

_ 13  t3_A^76 

5A.  012  0 

IS  . _3RJPT_  

0005 

REF 

1 

13.3A77 

0 A605  0 

IC  LODSAMPT 

time  IS 

snatched  in 

RUPT  for  noun  65. 

0006 

REF 

1 

13,3500 

3 4556  0 

CAF  L0W5 

0007 

13.3501 

0 0006  1 

_£!<TENU 

0008 

REF 

1 

13,3502 

02  015  1 

RAND  NNAEvIN 

0009 

ref 

8 

LAST 

167 

13,3503 

5A  073  1 

<EYCOM 

TS  RJPTREGa 

0010 

ref 

1 

13,350a 

3_5^L0_.L 

:Af  CHR-?RI0_ 

0011 

REF 

9 

LAST 

222 

13,3505 

0 5505  1 

TC  NOVAC 

0012 

REF 

2 

LAST 

98 

EO 

EBAN<=  OSPCnUNT 

0013  ■ 

13,3506 

02002  1 

2CADR  CHARIN 

C0013 

REF 

1 

13,3507 

10060  0 

OOlA 

REF 

9 

LAST 

228 

13,3510 

3 0073  0 

:a  ruptrega 

0015 

REF 

5 

LAST 

219 

13,3511 

50  06A  0 

INDE)(  LDCCtR 

0016 

REF 

76 

LAST 

219 

13,3512 

5A  lAA  1 

TS  MPAC 

leave  5 

BIT  KEY  CDE 

IN  MPAC  FOR  CHARIN 

0017 

REF 

13 

LAST 

218 

13,3513 

0 5733  0 

TC  RESUME 

633^36A 

YUL 
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RSYISION 
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L 

KEYRJ3.T 

» uprupt 
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P0018 

UPRUPt 

PRQ6RAM 

0019 

REF 

5 

LAST 

228 

13,3514 

54  016 

1 

j=rupt 

ts 

bankrupt 

. Q02Q.„ 

R.EE 

S7 

LAST 

_228 

13*3515 

56  002 

0 

XCH 

Q 

0021 

ref 

5 

LAST 

228 

13,3516 

54  012 

0 

TS 

ORJPT 

0022 

REF 

2 

LAST 

228 

13,3517 

0 4605 

0 

rc 

lIODSaMPT 

time  IS  snatched  in  RUPT  for  NOJN  65. 

002Jl 

_8EF 

_5i 

LAST 

_222 

13,3520 

■_3,-7767- 

0 

OAF 

.ZERJ 

0024 

REF 

2 

LAST 

98 

13,3521 

56  045 

0 

XCH 

INLINK 

0025 

REF 

2 

LAST 

6l 

13,3522 

54  073 

1 

TS 

KEYTEMPl 

0026 

REF 

10 

last 

201 

13,3523 

3 7761 

0 

CAF 

BIT3 

TURN  ON  UPACT  LIGHT 

0027 

13,3524 

0 0006 

1 

EXTEND 

(BIT  3 OF  CHANNEL  11) 

•0028 

ref 

1 

13,3525 

05  Oil 

1 

(JOR 

DSALmOUT 

0029 

REF 

2 

LAST 

228 

13.3526 

. 3 45.56 

0 

JPRPTl 

CAF 

LOWS 

TEST  FOR  TRIPLE  CHAR  REDUNDANCY 

0030 

REF 

3 

LAST 

229 

13,3527 

7 0073 

1 

MAS< 

klytfmpi 

LOWS  OF  WORD 

0031 

REF 

4 

LAST 

229 

13,3530 

56  073 

0 

XCH 

KLYTfMPi 

LOWS  INTO  KEYTEMPI 

0032 

REF 

3 

LAST 

73 

13,3531 

56  021 

1 

XCH 

SR 

WHOLE  WORD  INTO  SR 

0033 

REF 

1 

13,3532 

55*076 

0 

TS 

KEYTFMP2 

ORIGINAL  SR  INTO  KEYTEMP2 

0034 

REF 

1 

13*3533 

0 3577 

1 

TC 

0035 

REf 

3 

LAST 

229 

13,3534 

7 4556 

1 

MAS<..  . 

LO^.5 

MID  5 

0036 

REF 

1 

13,3535 

6 3611 

1 

AD 

HIIO 

0037 

REF 

1 

13,3536 

0 3606 

1 

TC 

JPTE9T 

0038 

REF 

2 

LAST 

229 

13,3537 

0 3577 

1 

TC 

SRGHT5 

0039 

REF 

4 

LAST 

229 

13,3540 

7 4556 

1 

MASK 

L0.V5 

HIGH  5 

0040 

13,3541 

4 0000 

0 

COM 

0041 

REF 

2 

LAST 

229 

13,3542 

0 3606 

1 

TC 

JPTEST 

00i,2 

REF' 

1 

13,3543 

0 3573 

0 

JPOK 

TC 

RESTORSR 

CODE  IS  GOOD 

0043 

REF 

1 

1 3 ♦ 3544 

4 3550 

0 

CS 

ELRCnDE 

IF  CODE  s ERROR  LIGHT  RESET,  PJT  +0 

0044 

REF 

5 

LAST 

229 

13,3545 

6 0073 

0 

AD 

KEYTEMPI 

INTO  BITl  OF  UPLOCK. 

0045 

REF 

132 

LAST 

220 

1 3 » 3546 

10  000 

0 

CCS 

A 

IF  CODE  NOT=  ELR,  PASS  CODE  ONLY  IF 

0046 

REF 

1 

13,3547 

0 3556 

1 

TC 

TSTJPLOK 

BITl  OF  UPLOCK  = 0. 

0047 

13,3550 

00022 

1 

ELRCODE 

OCT 

22 

0048 

REF 

2 

LAST 

229 

13,3551 

0 3556 

1 

TC 

TSTJPLOK 

0049 

REF 

11 

LAST 

229 

13,3552 

4 7761 

1 

CS 

B1T3 

0050 

ref 

3 

LAST 

94 

13,3553 

7 0075 

1 

MASK 

FLAGWRDl 

0051 

ref 

4 

LAST 

229 

13,3554 

54  075 

1 

TS 

FLA3WRD1 

0052 

REF 

1 

13,3555 

0 3562 

0 

TC 

ACCEpTUP 

0053 

REF 

12 

LAST 

229 

13,3556 

3 7761 

0 

TSTUPLO< 

CAF 

01T3 

0054 

REF 

5 

last 

229 

13,3557 

7 0075 

1 

MASK 

FLAoWRDl 

0055 

ref 

133 

LAST 

229 

13,3560 

10  000 

0 

CCS 

A 

0056 

REF 

14 

LAST 

228 

13,3561 

0 5733 

0 

TC 

Resjme 

BITl  OF  UPLOCK  = 1. 

0057 

REF 

6 

LAST 

229 

13,3562 

56  073 

0 

ACCEPTJP 

XCH 

KEYTFMPi 

BITl  OF  UPLOCK  s 0. 

0058 

ref 

1 

13,3563 

0 3503 

1 

TC 

KEYCnM 

0059 

REF 

2 

LAST 

229 

13,3564 

0 3573 

0 

TMFAIL2 

TC 

RESTORSR 

CODE  IS  BAD 

0060 

REf 

13 

lAst 

229 

13,3565 

4 7761 

1 

CS 

31T3 

0061 

REF 

6 

LAST 

229 

13,3566 

7 0075 

1 

MASK 

FLAGWRDl 

0062 

REF 

14 

LAST 

229 

13,3567 

6 7761 

0 

AD 

BIT3 

0063 

REF 

7 

LAST 

229 

13,3570 

54  075 

1 

TS 

FL4GWRD1 

0064 

REF 

1 

13,3571 

0 5733 

0 

tmfaili 

TC 

tmalm 

0065 

REF 

15 

LAST 

229 

13,3572 

0 5733 

0 

TC 

resjme 
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0066 

REF 

2 

LAST__  229 

13j3i>73 

_57»_0Z6  1 

.RiSTDSS.R 

kch_.  ^ 

<LYTEMP?  

0067 

13.3574 

6 0000  1 

OOJBLE 

0068 

REF 

4 

LAST 

229 

13,3575 

54  021  0 

TS 

SR 

0069 

REF 

68 

LAST 

229 

13j3576 

0 0002_  0 

TC  

0070 

REF 

16 

LAST 

229 

5733 

tmalm 

= 

resume  for  now 

0071 

ref 

5 

LAST 

230 

13,3577 

4 0021  0 

SRGHT5 

cs 

SR 

0072 

REF 

6 

LAST 

230 

13,3600 

4 0021  0 

:s 

SR 

0073 

REF 

7 

LAST 

230 

_ 13,3601 

_ 002  L 0 

:s 

SR __  _ 

0074 

REF 

8 

LAST 

230 

13,3602 

4 0021  0 

:s 

SR 

0075 

REF 

9 

LAST 

230 

13,3603 

4 0021  0 

:s 

SR 

0076 

REF 

134 

LAST 

229 

1 3 » 360^ 

4 0000  0 

:s 

A 

0077 

REF 

69 

LAST 

230 

13,3605 

0 0002  0 

TC 

3 delivers  word  uncomplemented 

0078 

REF 

7 

LAST 

22^9 

_ J.3,3606_ 

- 6__Q073  0 

JPTEST  __ 

ad 

<EYTirMPl__  _ _ . _ _ 

0079 

ref 

135 

last 

230 

13,3607 

10  000  0 

CCS 

A 

0080 

ref 

1 

13,3610 

0 3564  0 

TC 

TMFAIL2 

0081 

J.  3, 3611 

7777,0  1 

Hi  10  _ 

OCT  - 

77740  _ _ _ 

0082 

REF 

2 

LAST 

23O 

13,3612 

0 3564  0 

TC 

TMFA7L2 

0083 

REF 

70 

LAST 

230 

13,3613 

0 0002  0 

TC 

3 

rooba  upact  is  turned  off  3Y  vbreldsp,  also  by  error  light  reset 
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Rooas  THf  R-CEPTIQN  of  a BA3  code  by  uplink  lqc<s._  out  _fj,rthfr  jplink  activity 

ROO86  BY  PLACING  A 1 INTO  3IT1  OF  UPLOCK.  BlT9  (ALONG  WITH  BITll)  nF  TMKEYBUF 

Roost  is  set  to  i to  send  an  indication  of  this  situation  down  the  downlink. 

ROO88  the  J=LINK  interlock  is  allowed  when  an  error  light  _R£S£L_CanE_  is  sent 

R0089  UP  the  uplink,  Or  WHEN  A FRESH  START  IS  PERFORMED, 
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L 

PlNBA-L  game  buttons  AND  LIGHTS 

USER'S  OWN  page 

NO. 

1 S3 

Roool 

PROGRAM  NAMF  - KEYBOARD  AND  DISPLAY  PROGRAM _ _DATi^  -^22  JMOu  J 96_6 

R0003 

R0005 

Rood? 

MOD  MO'  - 0 
MOD  3Y  - FILENE 

LOG  SECTION  - PINBALL  GAME 

BUTTONS  AND  LIGHTS 

ASSEMBLY  - SUNBURST  RFV  IB  _ _ 

R0009 

functional  description- 

Rooio 

Rooii 

R0012 

TH-  keyboard  and  DISPLAY  SYSTEM  PROGRAM  OPERATES  UNDER  EXfCUTIvE 

control  and  Processes  information  exchanged  Bfthe-n  the  agc  and  the 
computer  OPeRATUR.  the  inputs  Ta  the  prosram  are  from  the  keyboard. 

R0013 

Rooia 

R00I5 

FROM  internal  PROGRAMS,  AND  FROM  THE  UPLINK. 

TH=  language  of  COMfluNICAT I ON  WITH  THE  PROGRAM  IS  A PAIR  oF  WORDS 
KNOWN  AS  VFRB  AND  NOJN.  EACH  OF  THFSF  IS  REPRFSFMTFD  BY  A 7 CHARACTFR 

R0016 

Rooiv 

R00.18 

OCTAL  NUMBER.  THE  VERB  CODE  INDICATES  WHAT  ACTION  IS  TO  BE  TAKEN, 
NOUN  code  indicates  TO  WHAT  THIS  ACTION  IS  APPLIED.  NOJNS  USUALLY 
refer  to  a GROUP  OF  -RASABLE  REgTSTERS* 

R0019 

Roozo 

R0021 

verbs  are  grouped  INTO'  DISPLAYS,  LOADS,  MONITORS  (DISPLAYS  THAT  ARE 

updated  oncf  Per  sfCO'ND).  special  functions,  and  fXtfnoeo  vfrbsithfsf 

Ro022 

R0023 

R002A 

are  outside  of  the  DO'MAIN  of  pinball  and  Can  be  found  under  log  SfCtION 

lEXTEMDED  VERBS! ) . 

A LIST  OF  VfRBS  and  NOUNS  IS  GIVfN  IN  LOG  SFCtION  (ASSEMBLY  aND 

R0025 

operation  information:. 

R0026 

calling  sequences- 

R0027 

Ro028 

R0029 

keyboard: 

EACH  Depression  of  a keyboard  button  activates  interrupt  keyrupti 

AND  PEACES  THE  S BIT  KEY  CODE  INTO  CHANNEL  15.  <-YRUPTl  PLACFS  THE  KEY 

ROO3O 

R0031 

CODE  INTO  MPAC,  ENTERS  AN  EXECUTIVE  REQUEST  FOR  THE  KEYBOARD  AND  DISPLAY 
program  (AT  (rHARlNO,  AND  EXECUTES  A RESUME, 

R0032 

ROO33 

R003A 

uplino: 

EACH  WORD  RELeIVEO  BY  THE  UPLINK  ACTIVATES  INT-RRUPT  UPRUPT  WHICH 
places  THE  5 BIT  KEY  CODE  INTO  MPAC.  ENTERS  AN  EXECUTIVE  REQUEST  FOR  THE 

ROO35 

keyboard  and  display  program  (at:charin:)  and  executes  a resume. 

R0036 

internal  programs; 

ROO37 
Ro038 
R0039_  _ 

internal  programs  call  pinball  at  :nvsjb:  with  the  desired  verb/noun 

CODE  IN  A (LOW  6 BITS  FOR  NOUN,  NEXT  6 BITS  FOR  V-RB).  OeTAtLS 
described  ON  remarks  cards  just  before  :NVsUB:  and  (NVSJBwAIt:  (SFE 

ROO^tO  SY'IBD.  table  EOR  page  NUMBERS). 

RooAi  Here  is  an  interlock  system  for  internal  programs  that  Must  bf  used 

Rooaz  in  compunction  With  imvsub:.  this  is  called  gra3/Free.  details 

Rooa3  described  on  remarks  just  Before  igrabdsp:,  ;grabaiait:  (see  symbol  table 

ROOAA  for  page  NUMBERS), 
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PINBAlL  game  buttons  AND  LIGHTS 

USER'S  OWN  PAGE 

NO.  2 S3 

Ra045 

normal  exit  modes- 

R0046 

IF  pinball  was  CA-LLD  by  external  ACTIDN»  exit  is  to  JENDoFJoB:. 

R00A7 

Rooas 

R00A9 

if  pinball  was  called  by  internal  Programs,  exit  from  pinball  is  back 
to  calling  routine.  Details  described  in  remarks  cards  just  before 

:N»/SJ3.:  AND  INVSUBWAIT!  (SEE  SYMBOL  TABLE  FOR  ?A3=  NUMBERS). 

, R0O5O 

alarm  OR  Abort  exit  modes- 

R0051 

external  initiation; 

ROO52 

ROO53 

IF  SOME  improper  SEUUENCe  OF  KeY  CODES  IS  DETECTED,  THe  DdeRATOR 

error  light  is  turned  on  and  EXIT  IS  TO  :endofjo3:. 

ROOSA  ' 

ROO55 

R0056 

internal  program  initiation: 

IF  AN  illegal  v/N  COMBINATION  IS  ATTEMPTED,  AN  ABORT  IS  CAUSED 
(WITH  OCTAL  01501 ) AND  EXIT  TO  IFNDOFJOB:. 

R0057 

R0058 

CONDI rioNS  Leading  td>  the  above  are  described  in  digital  development 
report  NOj  _ 

R0059 

OUTPUT- 

ROO6O 

in-ormation  to  he  sent  TO  the  display  =>anel  is  Left  in  thc  :dsptar: 

ROO6I 

Rq062 

R0063 

buffers  registers  (Under  eXec  control).  :dspojt:  (a  part  of  tarupt) 
handl-s  the  placing  of  the  (Dsptab:  information  Into  output  channeI-  10 
IN  interrupt. 

R0O6A 

erasable  initialization- 

R0065 

fr^sh  Start  and  restart  initialize  the  necessary  e registers  for 

ROO66 

R0067 

R0068 

PINBA-L  in  :STARTSUB:.  registers  are:  dsptab  buffer,  cadrstor, 

RE3RET,  CLPASS,  DSPLDCX,  MONSAVe,  MONSAVEI,  GRABLOCK,  VERBReG,  NOUNReG, 
DSPLIST.  ♦!,  +2*  DSPCOUNT. 

R0069 

R0070 

A complete  list  of  all  the  ERASABLeS  (BOTH  RESERVED  AND  TEMPORARIES)  FOR 
pinball  is  given  below. 

R0071 

R0072 

Ro073 


the  following  a«e  of  general  interest- 

RE'IARKS  cards  pRECrDi;  yHE  REFERENCED  STMBOL  DEFINITION.  AEE  SYMBOL 
fABLE  TO  FIND  ARPROP^iIATE  PAGE  NUMBERS. 
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L 

pinba.l  game  buttons  And  lights 

USER'S  Own  page  no. 

R0074 

NV5UB  . 

TAl  1 PliTNT  KnR  IMTcRNAI  IlSF  OF  PTM^&l  1 

Roots 

R0076 

R0077_ 

of  related  interest  NVSUBWAIT 
NVSUBSY 
PRENV3SY  

Roots 

R0079 

grabdsp 

FREEDSP 

INTeRLOCCi  system  For  internal  programs  that 

1 N CONJJNCTIQN  WITH  ! NVSUB  i . 

must  Be 

used 

Roobo 

ROOSl 

R0082 

OF  RELATED  INTEREST  GRABWAIT 

GRABJSY 

-PREGBsY  - - 

Roos3 

Rooba 

ENOIDLE 

routine  for  internal  programs  WISHING  TO  GO 
- , A W A ITIN5-  operators  BESPON SE^ _ 

10 

sleep 

While 

Roobs 

OF  Related  interest  datawait 

R0086 

-MONITOR- 

. Verbs  FoRi  Per inDic  ( i Per  sec)  display 

Rqobt 
ROOBB  _ 

THr  NoUN 
BErORE  1 

tabLe  format  15  Described  on  a page  of  remarks 

DSpAB(^;  (SEE  SYMBOL  TABLE  FOR  PAGE  NjMBE-Rl.  _ 

cards 

JUST 

Ro089 

the  Noun 

tables  themselves  are  found  on  7 Pages  starting 

4T  innadtab: 

R009()  for  FJRTHER  DET*IL5  A30UT  OPERATION  OF  THE  KEYBOARD  AND  DlSPi'AY  SYSTEM 
R0091  program.  See  the  mission  plan  and/or  DIGITAL  DEVELOPMENT  REPORT  NO.  11 
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. _RD  15il - keyboard  And  display  program 


Ro151  THe  FoLLoWYnG  OUot'a’tToN  I s' provided  tHROJoH  tHe'CoUteSY  DF  the  authors', 

R0152  ::IT  WILL  Be  proved  to  thy  FACF  that  THOJ  hast  men  about  IH££  that 

R0153  usually  talk  OF  A NOJN  AND  A VERB,  AND  SJCH  ABOMIhABLe  y/ORDS  AS  No 
R015A  CHRISTIAN  EAR  CAN  ENDURE  TO  HEAR.:! 


R0155  HENRY  6,  ACT  2*  SCENE  4 


Ro156  THe  following  ASSIGNMENTS  FOR  PINBALL  ARE  MADp  ELSEWHERE 


R0157 

RESERYED 

For  piMalLL 

EXECUTIVE  action  __ 

R0158 

R0159 

DSPCOJNT 

DECBRVCH 

ERASE 

ERASE 

DISPLAY  POSITION  INDICATOR 
+DEC,  - DEC,  OCT  INDICATOR 

R0160 

R0161 

R0162 

VERBREG 

NOUNRpG 

xreg 

ERASE 

ERASE 

ERASE 

VERB  CODE 
NOUN  CODE 
R1  INPUT  buffer 

R0163 
R0164 
, RU.L6  5 

yreg 

zreg 

xregl^ 

ERASE 

ERASE 

ERASE 

R2  INPUT  buffer 
R3  INPUT  buffer 

LO  PART  DF  XRf3  (FDR  DfC  CONw  ONLY) 

R0166 

YReGL= 

erase 

LO  PART  OF  YRe3  (FOR  DEC  CONV  ONLY) 

Ro167 

zResl= 

erase 

LO  PART  OF  ZRe5  (FOR  DEC  CONU  ONLY) 

R0168 

M0DRE3' 

ERASE 

MODE  CODE 

R0169 

DSPLOCK 

erase 

KEYBOARD/SUBRoJTI NE  CALL  INTERLOCK 

R0170- 

REDRET 

ERASE 

return  reoisteR  for  load 

R0171 

LOADSTAT 

ERASE 

status  indicator  for  LOAOTST 

Ro172 

CLPASS 

erase 

PASS  Indicator  clear 

Ro173 

NOUT 

ERASE 

activity  Counter  for  osptab 

R0174 

nouncadr 

ERASE 

MACHINE  CADR  FOR  NOUN 

1^75 

IMONSAVE 

ERASE 

N/V  CODE  For  MONITOR.  (=  MON<;AVEI-l) 

R0176 

MONSAVEl 

ERASE 

NOUNCADR  For  MONItOR(MATBS)  OMONSAVE  ♦! 

R0177 

DSPTA3 

erase 

+ 13D 

O-IO, DISPLAY  panel  BUFF ER , 1 1_1 3 ,C  RELAYS 

R0178 

CAORSTOR 

ERASE 

ENDIDLE  STORAGE 

R0179 

grablock 

erase 

internal  interloco  For  display  system 

Roieo 

NVOTEMi 

ERASE 

NVSUB  storage  For  calling  address 

ROlSl 

MUST  = NVBNKTEM-l 

R0182 

nvbnktem 

ERASE 

NVSUB  storage  For  calling  bank 

R0183 

MUST  = NVDTEM+1 

R0184 

DSPLIST 

ERASE 

+ 2 

WAITING  LIST  FOR  OSP  SYST  INTERNAL  USE 

R0185 

extvbact 

Rease 

extended  Verb  activity  interiock 

R0186 

DSPTEMil 

ERASE 

♦ 2 

BUFFER  STORAGE  ARrA  1 (MOSTLY  FOR  TIME) 

R0187 

DSPTEM2 

ERASE 

+ 2 

BUFFER  STDRAGE  AREA  2 (MOSTLY  FOR  DEG) 

633A36A 

YUL  system  for 
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L 

pinball  game 

BUTTONS  And  lights  USER'S  OWN  PAGE  NO.  5 S3 

ROI88 

end  0E_  ERASAB_Le5  RFS^Rj^IL-F or 

PINBALL  fXfCUTIVF  ACTION 

R0189 

temporaries  for  piNball  executive  Action 

ROI9O 

dbexit  = 

INTBl 5+ 

RETURN  FOR  DSPIN 

R0191 

R0192 

E>^ITE>1i  = 

BLAN<RET  s 

INTB15+ 

INTB15+ 

return  for  scale  '■actor  ROJTtNE  SfLeCT 
RETURN  for  2BLAN< 

R0I93 

R019A 

R0195 

WRDRET  = 
WDRET  = 
DECRET 

INTBl TI5 
INTBl I 15 
INIBITJ5 

RETURN  FOR  sBLAN< 

return  for  dspwo 

return  for  put;oM(Dec  load) 

ROI96 

21/22REG  = 

INTBIT15 

temp  For  oharin 

■ R0197 

UPDATRET  = 

PQLJ  

return  for  UPDATNNi  JPDAIVB-- 

R0198 

R0I99 

R02OO 

cHar  = 

eRcnt  = 

decountl  = 

POLI  SHi 
PoLISHi 
PaUISH 

TEMP  FOR  CHARI N 

COUNTER  for  ERROR  LIGHT  RESet 

COUNTER  FOR  scaling  AND  DISPLAY  (DfC) 

R02OI 

R0202__^. 

SGNON  5 

NOJNT-M  = 

VBUF 

__  VBUE  . _ _ 

temp  For  ♦»-  on 

COUNTER  FDR  MIXNOJN  fetch  -- 

R0203 

RD20A 

DlSTEMi  s 

dectem-  = 

VBUF 

VBUF 

COUNTER  FOR  OCTAL  DISPLAY  VERBS 
COUNTER  FOR  FETCH.  (DEC  DISPLAY  VFRBS) 

R0205 

R02O6 

R0207 

sgnof-  = 

NVTEM3  = 
SFTEM3.1  = 

VBUF  +1 
VBUF  +1 
VBUF  +1 

temp  FOR  ♦*-  ON 
TEMP  FOR  NVSUB 

STORAGE  FOR  SF  CONST  HI  PART (=SFTfMP2- 1 ) 

R0208 

R0209 

CODE  = 

SFTEM=2  = 

VBUF  *2 

VBUF  +2 

FOR  DSPIN 

STORAGE  for  SF  CONST  LO  PART ( =SFTFMP1+ 1 ) 

R021O- 

R02U 

MIXTEMP  = 
SIGnREI  = 

VBUF  *3 

VBUF.  +3 

FOR  MIXNDJN  data 

return  FO^  +t-  Om  

R0212 

ALSO  MiIXTEMP+1 

= VBUF+A,  MIXTEMP+2  = VBUF+5. 

R0213 

ENTRET  s 

doth: 

EXIT  FROM  enter 

R02IA 

WDCNT  = 

DOTREI 

CHAR  COUNTER  FOR  DSPWD 

R0215 

INREL  = 

DOTRET 

INPUT  buffer  selector  ( X,Y,7,  REG  ) 

RO216 

dspmmtem  = 

matin: 

dsPcount  saVf  For  dspmm  .. __ 

R0217 

mIxbr  = 

matin: 

INDICATOR  for  MIXED  OR  NORmAI  NOuN 

R02IS  _ 

TEMl  ERASE 

FXFC  TFMP 

R02I9 

DSREL  s 

TEMl 

REL  ADDRESS  FOR  DSPiN 

R0220 

R0221 


TEJ12_ 

ds'ia: 


ERASE 


FXEC  TEMP 


TEM2 


MAGNITUDE  STORE  FOR  DSPIN 
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pinball  game  buttons  And  lights 

USER'S  OWN  page 

NO.  6 

S3 

R0222 

IDILDOTEM  = 

TEM2  _ _ 

ADDR^S_S  SIOBAGL  _ 

R0223 

R022A 

TEM3  ERASE 

COUNT  = 

TEM3 

EXEC  TEMP 
FOR  DSPIN 

R0225 

R0226 

TEM4  ERASE 

LSTPTR,  = 

TiMi 

EXEC  TEMP 

LIST  POINTER  FJ1S^RMUS_Y_  _ _ 

R0227 

•R0228 

RELRET  = 

FREERET  = 

tema 

tema 

RETURN  FOR  RELDSP 
RETURN  FOR  FREEDS^ 

R0229 

R0230 

TEM5  ERASE 

NOJNA3D  = 

TEM5 

EXEC  TEMP 

TEMP  storage  fDR  NOjn  AdoRESs 

R0231 

R0232 

R0233 

nnaot-m  erase 
nntyptem  erase 
IDaOiTEM  erase 

temp  For  noun  address  table  entry 

temp  For  noun  typ-  table  entoy 

temp  For  indir  adress  table  fntry(Mixnn) 

R023A 

R0235 

R0236 

IDAD2IEM  erase 

MUST  = IDAD2TEM-1,  = IDAD3TEM-2, 

temp  For  indir  adress  table  entry(Mixnn) 
MUST  = IDAD1TEM41.  = IDAOSTEM-l. 

R0237 

R0238 

R0239 

idaDbtem  erase 
rutmxtem  erase 

temp  For  indir  adress  table  entry(Mixnn) 
must  = IDAOITEM+2,  = IDAD2TEM+1. 
temp  For  sf  rout  table  entry (Mixnn  only) 

R02A0 

end  0-  temporaries  FDR  PINBALL 

FXECUTIVE  action 

R02A1 

RESERy/ED  for  PiNbALL  INTERRUPT 

ACTION 

R02A2 

R02A3 

A02<tA 

DSPCNI  ERASE 

UPLOCO  ERASE 

counter  FDR  DSPOJr 

BITl  = UPLINK  interlock  (ACTIVATED  BY 

Reception  of  a bad  message  in 

J3LINK) 

R02A5 

end  or^i  erasables  reseRVed  for 

PINBALL  interrupt  ACTION 

R02A6 

temporaries  for 

pinball  iimterrupt  action 

R02A7 

R02A8 

R02A9 

XEYTEMPl  = 
DSRUPIEM  = 
XEYTEMP2  s 

WAITEXIT 

waitexit 

RUPTA3N 

temp  for  ceyrupt*  UPRJPT 

temp  for  dspout 

temp  for  KEYRUPT.  uprupt 

R0250'  end  D'  temporaries  FDRi  PINBALL  INTERRUPT  ACTION 
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L pinball  game  buttons  and  lights 

P0251  the  ImRUT  CQDES_A3SJJ*1£D  for  JHE  IC£yBQAKD_Aa£.. 
R6252  0 10000 

R0253  1 00001 

R025A 9 £UH0i 

R0255  verb  10001 

R0256  ERROR  RESlOOlO 

R0257  <EY  R.SE  11001 

R0258  + 11010 

R0259  - 11011 

R0260  enter  11100  

R0261  clear  11110 

R0262  NOUN  11111 


USER'S  OYjN  page  no.  7 S3 


R0263  oUTPJT-FofiMA-TLlQR  D1  SRLATL_EAMeL.  SET-OUTO-TO  _ AAAA-BcCCCCDDO.DD,. 

R026A  A-S  select  a REUAywORD.  THIS  DETERMINES  ^MICH  PAIR.  Op  CHARACTERS  ARE 
.R0265  energized. 

R0266  B FOR  SPECIAL  RELAYS  SUCH  AS  SI GNS,  ETC. 

R0267  C-S  5 bit  RELAY  CODE  FOR  LeFt  CHAR  OF  PAIR  SELECTED  BY  RELAYWORD 

R0268  D-S  5 bit  REI  AT  C0D£  FOR  RI6HTCHAR  OF  PAIR  SELECTED  BY  ReEAYWORD. 


R0269 

R0270 

R0271 

the  panel  appears  as  FOLLOWS, 
MDl  MD2 

VDl  VD2  (VERB)  NDl  ND2 

(MAJOR  MODE! 
(NOUN) 

RO272 

RlDl 

RID2  RID3 

RIDA  RID5 

(Rl) 

RO'2  73 

R2D1 

R2D2  R2D3 

R2DA  R2Db 

(R2) 

R027A 

R3D1 

R302  R3D3 

R3DA  R3D5 

(R3) 

P0275 

each 

OF  these  is  GIVE'I  a dspcount 

number  For  use  within  computation  only 

RO27.6 

mDi 

25 

R2D1 

11  ALL 

ARE  OCTAL 

R0277 

MDz 

2A 

R2D2 

10 

R0278 

VDl 

23 

R2U3 

7 

R0279 

VD2 

22 

R2Da 

6 

R0280 

NDl 

21 

R2D5 

5 

R0261 

' ND2 

20 

R3DI 

A 

RO202 

RlDl 

16 

R302 

3 

R0283 

R1D2 

15 

R3O3 

2 

R028A 

R1D3 

lA 

R3D4 

1 

R0285 

RIDA 

13 

R3D5 

0 

R0286 

R1D5 

12 

R0287 

there  is  an  11  Register  table 

(DSPTAB)  For 

THE  display  panel. 

R0288 

R0289 

DSPTA3'  RELAYWD  31T11 

RELADO 

BITS  10-6 

BITS  5-1 

RO29O 

10  1011 

MDl  (25) 

M02  (2A)  

RO29I 

9 1010 

VDl  (23) 

V02  (22) 
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R0292 

8 

lOQl 

Nai 

L211-  - 

-ND2 

1201 

R0293 

7 

1000 

RlDl 

(16) 

R0294 

6 

0111 

♦ R1 

R1D2 

(15) 

R1D3 

(lA) 

RQ295 

5 

01  10 

-R1 

RIDA 

(13) 

R1D5 

(1?) 

R0296 

A 

0101 

♦ R2 

R2D1 

(11) 

R2D2 

(10) 

R0297 

3 

0100 

-R2 

R2D3 

(7) 

R2DA 

(6) 

R0298 

2 

0011 

R2D5 

151 

R3D1 

(A) 

R0299 

1 

0010 

+ R3 

R3D2 

(3) 

R303 

(2) 

R0300 

0 

0001 

-R3 

R30A 

(1) 

R3D5 

(0) 

_ R03Q1 

0000 

NO  RELAYWORD 

R0302 

the  5 

BIT  Relay  codes  are* 

• R0303 

blan< 

00000 

R030A 

0 

10101  _ _ _ _ _ _ __  __  _ _ _ 

R0305 

1 

OOOll 

R0306 

2 

11001 

R0307 

3 

1 1011 

R0308 

• A 

Ollll 

R0309 

5 

llllO 

R0310 

6 

11100 

R0311 

7 

lOOll 

R0312 

8 

11101 

R0313 

_9 

LLLll 
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P031A 


0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 
032A 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 


PlNBAi_L  GAME  30TTON5  AND  LIGHTS  USER'S  OWN  PAGE  NO.  9 S3 

start  QF_  EXEGUIJVE  5£:TinM_Q^PiNBAU 


04*2000 


SETLOC  20000 


Kt.r 

REF 

i 

1 



04,2001 

_LL 

0 

35l4 

1 N'/SUBSYB 

TC 

NVSJRSYl 

.I'lu.vt*-  . . 

REF 

36 

LAST 

2 21 

D4_,2002- 

3 7763  1 CHARIN 

:af 

ONE 

BLOCK  DISPLAY 

SYST 

REF 

2 

LAST 

98 

04,2003 

56 

303 

1 

XCH 

DSPLOCK 

MAKE  DSP  SYST 

BUSY,  BUT  save  OLo 

REF 

1 

04,2004 

54 

105 

1 

TS 

21/27REG 

C(DSPLOCK)  FOR 

ERROR  LIGHT  RESET. 

ref 

77 

LAST 

228 

04,2005 

.56 

144 

0 

XCH 

MPAC 

REF 

1 

04,2006 

54 

107 

0 

IS 

CHA9 

REF 

136 

LAST 

230 

04.2007 

5C 

000 

1 

INDEX 

A 

,04,20 10 

0 

2011 

0 

TC 

,1 

IdPUl  CODE 

FUNCTION 

ref 

1 

04,2nll 

0 

3313 

0 

TC 

CHA9aLRM 

0 

REF 

1 

04.2012 

0 

2070 

1 

TC 

NUM 

1 

REF 

2 

LAST 

2 4_0 

04,2013, 

0 

2070 

1 

TC 

NJM 

2 

ref 

3 

LAST 

240 

04,2014 

0 

2070 

1 

TC 

NJM 

3 

REF 

4 

LAST 

240 

04,2015 

0 

2070 

1 

TC 

NUM 

4 

REF 

5 

LAST 

240 

04^2016 

0 

2070 

1 

TC 

NJM 

5 

REF 

6 

LAST 

240 

04,2017 

0 

2070 

1 

TC 

NUM 

6 

REF 

7 

LAST 

240 

04,2020 

0 

2070 

1 

TC 

NUM 

7 

REF 

1 

04,2021 

0 

2061 

1 

TC 

89TE<;T 

10 

8 

ref 

2 

LAST 

240 

04,2022 

0 

2061 

1 

TC 

69TE5T 

11 

9 

REF 

2 

LAST 

240 

04,2023 

0 

3313 

0 

TC 

CHA9ALRM 

12 

ref 

3 

LAST 

240 

04,2024 

0 

33l3 

0 

TC 

CHA9ALRM 

13 

ref 

4 

LAST 

240 

04,2025 

0 

3313 

0 

TC 

CHA9aLRM 

14 

REF 

5 

LAST 

240 

04,2026 

0 

3313 

0 

TC 

CHA9ALRM 

15 

REF 

6 

LAST 

240 

04.2027 

0 

3313 

0 

TC 

CHA9ALRM 

16 

REF 

7 

LAST 

240 

04,2030 

0 

3313 

0 

TC 

CHARALRM 

17 

ref 

8 

LAST 

240 

. 04,2031 

0 

2066 

0 

TC 

NUM  -2 

20 

0 

ref 

1 

04,2032 

0 

2243 

0 

TC 

VERB 

u 

. _.\^.ERB 

ref 

1 

04,2033 

0 

2355 

0 

TC 

error 

22 

ERROR  LIGHT  RESET 

REF 

1 

04,2034 

0 

2053 

0 

TC 

ABRT23G0 

23 

SUBORBIT  abort 

REF 

1 

04.2035 

0 

2056 

0 

TC 

ABRT24G0 

24 

CONORBIT  ABORT 

REF 

8 

LAST 

240 

04,2036 

0 

3313 

0 

TC 

CHAraLRM 

25 

REF 

9 

LAST 

240 

04,2037 

0 

3313 

0 

TC 

CHARaLRM 

26 

REF 

iO 

LAST 

240 

04,2040 

0 

3313 

0 

TC 

CHARaLRM 

27 

REF 

11 

LAST 

240 

04,2041 

0 

3313 

0 

TC 

CHARALRM 

30 

REF 

1 

04,2042 

0 

3336 

1 

TC 

VBRELDSP 

31 

KEY  RELEASE 
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50  021 

1 

INDEX 

SR 

0717 

REF 

29 

LAST 

246 

34,2564 

56  313 

0 

XCH 

DSPTaB 

0718 

34,2565 

0„  0006 

I 

EX LEND 

0719 

34,2566 

6 2570 

1 

3ZMF 

f 2 

IF 

OLD  CONTENTS  -,  NOUT  OK. 

0720 

REF 

5 

LAST 

lor 

34,2567 

24  307 

0 

INCR 

NOJT 

IF 

OLD  CONTENTS  ♦,  +1  TO  NOUT 

0721 

34,2570 

_ 0 0003 

1 

RELINT 

IF 

-,NOUT  OK 

0722 

REF 

80 

last 

248 

34,2571 

0 0002 

0 

TC 

0 

0723 

34,2572 

04000 

0 

BLANKCDN 

OCT 

4000 
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L 

pinball 

GAME 

buttons  and  lights 

USER'S  OWN  PAGE  NO,  19  S3 

P077A 

FNTER  pass  n 

I S.  THE 

execute  I 

= UN.CXII0N.^..H1 

GIeR.  aR0.£R  FNrFR_S  ARf  T.Q  LOAD  . _ 

R0725 

data 

. THe  sign  of  RE3RET  DETERMINES  THe 

PASS,  ♦ 

For  pass  o,-  for  higher 

R0726 

passes. 

R0V27 

MACHINF 

CADR 

TO  Bf  : 

S3FCIFIE.D 

IMGtB.S}  nouns  DeSI.RF  an 

ecadr^  to  Be  loaded 

R0728 

vjHeN 

USED  WITH  Load 

^ERbS,  monitor  verbs 

>,  OR  DISPlAv 

VERBS  (fXCEPT 

R0729 

VERB 

= f 

■ixed 

memory 

display, 

WHICH  requires  an 

FCaDR) 

• 

0730 

05.2000 

SETLOr  22000  . 

0731 

REF 

1 

05,2000 

0 3399  1 

nvsubb 

tc 

NVSJBl 

STANDARD  LEAD  INS,  DONT  MOVE, 

0732 

REF 

2 

LAST 

0>^Q.OL 

„l-3903  1 

DSPMM 

rCF 

....  DSPMMl.  _ 

0733 

REF 

1 

05,2002 

0 2663  0 

LDADLVl 

rc 

LOADl.V 

A073A 

END  OF  standard  LEAD  INS, 

0735 

REF 

59 

LAST 

39»  . 

...05,3003 

3 7767  0 

ENTER 

:AF 

EERO 

0736 

REF 

8 

LAST 

29/ 

05,2o09 

59  306  0 

IS 

CLpAsS 

0737 

REF 

2 

LAST 

29A 

05,2005 

3 9505  0 

CAF 

ENDINST 

0738 

REF 

2 

LAST 

29A 

05,2n06 

59  126  0 

IS 

ENTRET 

0739 

REF 

9 

LAST 

297 

05,2007 

10  309  1 

CCS 

RE3RET 

0790 

ref 

1 

06,2010 

0 2031  1 

rc 

entpaso 

IF  +,  PASS  0 

0791 

REF 

2 

LAST 

250 

O5j2011 

0 2031  1 

rc 

entpaso 

IF  ♦,  PASS  0 

0792 

05,2012 

0 2013  1 

rc 

+ 1 

IF  -,  NOT  PASS  0 

0793 

REF 

11 

LAST 

295 

05,2013 

3 6311  1 

CAF 

THREF 

IF  DEC,  alarm  if  LESS  THAN  5 CHAR  IN, 

0799 

REF 

10 

LAST 

298 

05,2019 

7 0271  1 

MASK 

DECBRNCH 

BUT  LEAVE  REGRET  - AND  FLASH  ON,  SO 

0795 

REF 

197 

LAST 

297 

05,2015 

10  000  0 

CCS 

A 

operator  can  SUPPLY  MISSING  NUMERICAL 

0796 

05,2016 

0 2020  1 

TC 

+ 2 

CHARACTERS  AND  CONTINUE, 

0797 

REF 

1 

06,2017 

0 2029  0 

TC 

accfptwd 

OCTAL.  ANY  NUMBER  OF  CHAR  OK. 

0798 

REF 

17 

LAST 

299 

05,2020 

10  270  0 

CCS 

DSPCOUNT 

0799 

REF 

1 

05,2021 

0 2329  0 

rc 

GODSpALM 

LESS  than  5 CHAR  DEC(DSPC0UNT  IS  ♦) 

075.0 

REF 

2 

LAST 

250 

06,2022 

0 2329  0 

TC 

goospalm 

Less  than  3 char  decidspcount  is  +) 

0751 

05,2023 

0 2029  0 

rc 

♦ 1 

5 CHAR  IN  (DSPCOUNT  IS  -) 

0752 

REF 

5 

LAST 

250 

05,2029 

9 0309  1 

A.CCEPTWD  :S 

RE3RFT 

5 CHAR  IN  (DSPCOUNT  IS  -) 

0753 

REF 

6 

LAST 

250 

05,2025 

59  309  1 

rs 

reorft 

SET  REQRET  ♦. 

0759 

REF 

2 

LAST 

207 

05,2026 

0 9626  1 

rc 

FLASHOFF 

0755 

REF 

7 

LAST 

250 

05,2027 

0 0309  0 

TC 

RE3RET 

0756 

REF 

3 

LAST 

250 

0126 

ENTEXIT 

= 

ENTRFT 

07s7 

05,2030 

-0i)030  1 

LDWVER3 

OCT 

3-0 

LOWER  VERB  THAI  AVOIDS  NOUN J£5J  

0758 

REF 

65 

LAST 

250 

05,2031 

3 7767  0 

entpaso 

CAF 

ZERO 

NOUN  VERB  SUB  ENTERS  HERE 

0759 

ref 

1..L 

LAST 

250 

05,2032 

59  271  1 

__JS 

DECBRNCH 

0760  REF  9 LAST  2A8 


3t>,2033  0272  1 TESTVB 


\/t^3REG 


IF  VERB  IS  30-77.  SKIP  NOUN  TEST 
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L 

PINBAlL 

game 

buttons  AmD  lights 

USER'S  OWN  page  no.  20  S3 

0761 

REF 

1 

-25_«_203Fl 

i>  2oao. 

Q_ 

_AD_ 

J_artV.FRB  _ 

__  30-VB 

0762 

05,2035 

0 0006 

1 

EXTEND 

0763 

ref 

1 

35,2036 

6 2116 

0 

3Z.MF 

VER3FAN 

VERB  G/E  30 

0766 

i5,20a7_ 

_ 0_  0006 

1 

TESTNN 

EXTIND 

VERB_  L/  30___  . . _ 

0765 

REF 

1 

05,2060 

3 2076 

1 

3CA 

LDDNnLOC 

SWITCH  BANKS  TO  NOUN  TABLE  READING 

0766 

REF 

2 

LAST 

77 

36,2061 

52  006 

0 

3XCH 

Z 

routine. 

0767 

REF 

1 

35.2062 

50  1 ao 

0 

INDEX 

MIX3R  . 

0768 

35,2063 

0 2063 

1 

rc 

♦ 0 

0769 

35,2066 

0 2066 

1 

TC 

♦ 2 

normal 

0770 

REF 

1 

35,2065 

0 2176 

0 

TC 

MiXNnUN  , 

mixed 

0771 

REF 

1 

35,2066 

10  136 

1 

CCS 

NNADtEM 

NORMAL 

0772 

ref 

2 

LAST 

251 

35,2067 

0 2116 

1 

TC 

VER3FAN  -7 

normal  if  + 

0773 

REF 

3 

LAST  250 

35,2050 

0 232A.  0 

IC 

godspalm 

NOT  IN  USE  IF  +0 

0776 

REF 

1 

05,2051 

0 2055 

0 

TC 

REDAdD 

SPECIFY  MACHINE  CADR  IF  - 

0775 

REF 

1 

35,2052 

26  310 

0 

INCR 

NOJNrADR 

augment  machine  CADR  IF  -0 

0776 

REF 

1 

35,2053 

0^6521 

0 

TC 

setnadd 

ECADR  FROM  NOUNCADR.  SETS  EB.  NDUNADD. 

0777 

REF 

1 

05,2056 

0 2102 

0 

TC 

INTMCTBS  +2 

0778 

REF 

17 

LAST 

265 

05,2055 

3 7765 

0 

REOADD 

CAF 

BIT15 

SET  CLPASS  FOR  PASSO  ONLY 

0779_^, 

,_ref„ 

9 

LAST 

250 

05,2056 

56  306 

JL 

TS 

CLPAaS 

0780 

REF 

3 

LAST 

250 

05,2057 

6 6505 

1 

CS 

ENDINST 

TEST  IF  Reached  here  from  internal  or 

078T 

REF 

1 

35,2060 

6 0126 

1 

AD 

ENTEXIT 

FROM  external 

0782 

J35,2061 

0 0006 

1 

EXTEND 

0783 

35,2062 

1 2066 

0 

3ZF 

+ 2 

EXTERNAL  MACH  CADR  TO  BE  SPECIFIED 

0786 

ref 

2 

LAST 

251 

06,2063 

0 2100 

1 

TC 

INTMrTBS 

0785  _ 

REF 

A 

35,2066 

0 2256 

1 

TC 

REDDATZ 

EXTERNAL  MACH  CADR  TO  Bf  SPfCIFIfD 

0786 

REF 

12 

LAST 

250 

06,2065 

10  271 

1 

CCS 

DEC3RNCH 

0787 

REF 

6 

LAST 

251 

35,2066 

0 2326 

0 

TC 

aODSPALM 

ALARM  IF  DECIMAL  USED  FoR  MCTBS 

0788 

REF 

L 

35,2067 

56  276 

1 

KCH 

ZRE3 

OCTAL  USED  OK 

0789 

REF 

1 

35,2070 

0 6513 

1 

TC 

SETNCADR 

ECADR  INTO  NOUNCADR,  SET  EB,  NDJNADD. 

0790 

35,2071 

0 0006 

1 

EXTEND 

0791 

REF 

2 

LAST 

251 

35,2072 

3 2076 

1 

3CA 

CODNNLOC 

SWITCH  BANKS  TO  NOUN  TABLE  READtNG 

0792 

REF 

3 

last 

251 

35,2073 

52  006 

0 

3XCH 

z 

ROUTINE, 

0793 

REF 

3 

LAST 

251 

35,2076 

0 2116 

0 

TC 

VER3FAN 

0796 

REF 

18 

LAST 

250 

EO 

EBAN<s 

DSPCOUNT 

0795 

35,2075 

02000 

0 

LDDNNL3C 

2CADR 

LODNNTAB 

C0795 

ref 

I 

33.2076 

66060 

0 

0796 

36,2077 

77772 

0 

NEG5 

OCT 

77777 

0797 

ref 

37 

LAST 

262 

35,2100 

3 0166 

1 

ISTMCT3S 

CA 

MPAC  +7 

INTERNAL  MACH  CADR  TO  BE  SPECIFIED. 

0798 

ref 

2 

LAST 

251 

35,2101 

0 6513 

1 

TC 

SETsjCADR 

ECADR  into  NOUnCADR.  SET  EB,  mDJnADD. 

0799 

REF 

22 

LAST 

226 

35,2102 

6 7760 

0 

CS 

8IT6 

NVSUB  CALL  LEFT  CADR  IN  MPAC.2  FOR  MACH 

0800 

REF 

10 

LAST 

250 

35,2103 

7 0272 

1 

MAS< 

VERBrEG 

CADR  TO  BE  SPECIFIED. 

0801 

REF 

1 

35,2106 

6 2077 

0 

AD 

NitoS 

MASKING  MAKES  VBl5  LOOK  LIKE  V3D5. 

0802 

05,2105 

0 0006 

1 

EXTEND 

0803 

REF 

6 

LAST 

251 

05,2106 

1 2116 

1 

3ZF 

VER3FAN 

VB  = 05  OR  15,  DO  NOT  DISPLAY  CADR. 

0806 

REF 

2 

LAST 

265 

35,2107 

3 6531 

1 

CAF 

R3D1 

VB  NOT  = 05  OR  15,  DISPLAY  CADR. 

0805 

REF 

19 

LAST 

25l 

35,2110 

56  270 

0 

TS 

DSPCnUNT 

0806 

REF 

2 

LAST 

251 

35,2111 

3 0310 

0 

CA 

NOUNCADR 

0807 

REF 

1 

35,2112 

0 3222 

0 

TC 

DSPDCTWD 
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L 

PINBAi.L 

game 

BUTTONS  AmD  lights 

USER'S  Own  page  no.  21  S3 

0808 

REF 

5 

LAST 

25l 

05t21 13 

0 2116  0 

EC  -_ 

VER3FAN  

0809 

REF 

LAST 

247 

05,2114 

6 7763  1 

AD 

ONE 

0810 

REF 

3 

LAST 

251 

„05i2J.15 

0-4513-1- 

rc 

5E1_V_AD-R-  __ 

-.-ECADR__-INX0-  NQ-UNCADR.  SETS  EB,  NoUNAD-D-. 

0811 

REF 

1 

05,2116 

4 2131  1 

VERBFAN 

C5 

LST2C0N 

0812 

REF 

11 

LAST 

251 

05,2117 

6 0272  0 

AD 

VER3REG 

VERB-LST2C0N 

0813 

REF 

148 

LAST  250 

05,2120 

LO  J300-  -0 

CCS 

A 

081A 

REF 

45 

LAST 

25Z 

05,2121 

6 7763  1 

AD 

ONE 

VERB  G/  LST2C0N 

0815 

05,2122 

0 2124  1 

TC 

*2 

0816 

REF 

1 

05  ,_2123_  0 2 133  _1 

rc  _ _ 

-VBFAmDIR - 

VERBAL./  LST2C0N__ 

0817 

REF 

38 

LAST 

251 

05,2124 

54  144  1 

TS 

MPAC 

0818 

REF 

3 

LAST 

241 

05,2125 

0 4666  0 

TC 

RELDSP 

RELEASE  DISPLAY  SYST 

0819 

REF 

39 

LAST 

25Z 

05i2126 

-5-6_  144  0 

XCH 

MPAC 

ALSO  TURN  OFF  RELEASE  DISPLAY  5,iST  LIGHT 

0820 

REF 

1 

05,2127 

6 2132  0 

AD 

LST2CADR 

0821 

REF 

5 

LAST 

220 

05,2130 

0 5230  0 

TC 

BAN<JUMP 

0822 

05,2131 

00040  0 

L5T2C0M 

OCT 

40 

FIRST  LST2  VERB 

0823 

REF 

1 

05,2132 

22000  1 

LST2CA3R 

CADR 

LST2FAN 

082A 

REF 

12 

LAST 

25Z 

05,2133 

50  272  0 

vbfandir 

INDEX 

VER3R£G-  --  - 

0825 

REF 

1 

05,2134 

3 2136  1 

caf 

VERBtAB 

0826 

REF 

6 

LAST 

252 

05,2135 

0 5230  0 

TC 

BANK.iUMP 

0827 

REF 

5 

LAST 

251 

35*2136 

12324  1 

VERBTA3 

CADR 

30DSPALM 

VBoo  illegal 

0828 

ref 

1 

05,2137 

12340  0 

cAqR 

DsPA 

VBOl  display  OCT  COMP  1 (Rl) 

0829 

REF 

1 

35,2140 

12345  0 

CADR 

JJSPB 

VB02  DISPLAY  OiT  COMP  2 (Rl) 

0830 

REF 

1 

35,2141 

12352  0 

CADR 

DSPC 

VB03  DISPLAY  OCT  COMP  3 (Rl) 

0831 

REF 

1 

35,2142 

12333  1 

CADR 

DSPAn 

VB04  DISPLAY  OCT  COMP  1,2  (R1,R2) 

0832 

REF 

1 

35,2143 

12326  0 

CADR 

DSPArC 

VB05  DISPLAY  OCT  COMP  1,2,3  (R1,R2,R3) 

0833 

REF 

1 

35,2144 

12445  1 

CADR 

DECDSP 

VB06  DECIMAL  DISPLAY 

0834 

REF 

1 

05,2145 

10722  1 

CADR 

DSPDPDEC 

VB07  DP  DECIMAL  DISPLAY  (R1,R2) 

0835 

REF 

1 

35,2146 

11315  0 

CADR 

DSPALARM 

VBIO  SPARE 

0836 

REF 

1 

35,2147 

13077  0 

CADR 

MONITOR 

VBll  MONITOR  OCT  COMP  1 (Rl) 

0837 

REF 

2 

LAST 

252 

35,2150 

13077  0 

CAOR 

monitor 

VB12  MONITOR  OCT  COMP  2 (Rl) 

0838 

REF 

.3 

LAST 

252 

05,2151 

13077_0 

CADR 

monitor 

VB13  monitor  OCT  COMP  3 (Rl) 

0839 

REF 

4 

LAST 

252 

35,2152 

13077  0 

CADR 

MONITOR 

VB14  MONITOR  OCT  COMP  1,2  (R1,R2) 

0840 

REF 

5 

last 

252 

35,2153 

13077  0 

CAOR 

MONITOR 

VB15  MONITOR  OCT  COMP  1,2,3  (R1,R2,R3) 

0841 

REF 

6 

last 

252 

05,2154 

13077  0 

CAOR 

MONITOR 

VB16  MONITOR  DECIMAL 

0842 

REF 

7 

LAST 

252 

35,2155 

13077  0 

CADR 

monitor 

VB17  MONITOR  DP  DEC  (Rl,R2) 

0843 

REF 

6 

LAST 

252 

35,2156 

12324  1 

CAOR 

GOOSPALM 

VB20  SPARE 

0844 

REF 

1 

35,2157 

12620  0 

CADR 

ALOAD 

VB21  LOAD  COMP  1 (Rl) 

0845 

REF 

1 

35,2160 

12631  0 

CADR 

BLOAO 

VB22  LOAD  COMP  2 (R2) 

0846 

REF 

1 

35,2161 

12646  0 

CADR 

CLOAD 

VB23  LOAD  COMP  3 (R3) 

0847 

REF 

1 

35,2162 

12572  1 

CAOR 

ABLOAD 

VB24  LOAD  COMP  1,2  (RltR2)  - 

0848 

REF 

1 

35,2163 

12535  1 

CAOR 

ABCLOAD 

VB25  LOAD  COMP  1,2,3  (R1,R2,R3) 

0849 

REF 

7 

LAST 

252 

35,2164 

12324  1 

CADR 

GODSpALM 

VB26  SPARE 

0850 

REF 

1 

35,2165 

13214  1 

CADR 

DSPFMEM 

VBJ7  fixed  Memory  display 

A0851 

THE  FOLLOWING  VERBS  MAKE  NO  NOUN  TEST 

0852 

REF 

1 

35,2166 

13314  0 

REQEXLDt 

CAOR 

VBROfXEC 

VB30  REQUEST  EXECUTIVE 

0853 

ref 

. 1 

35,2167 

13340  1 

CADR 

VBROWAIT 

VB31  REQUEST  WAITLIST 

0854 

REF 

1 

35,2170 

11343  0 

CADR 

BUMP 

VB32  C(R2)  INTO  R3,  C(Rl)  INTO  12 
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L 

pinbauL  game 

BUTTONS  And  lights 

USER 

:'S  OWN  page  no.  22 

S3 

0055 

REF 

1 

. _ iia26  -0 

j;aor 

VBPAOC 

__VB33 

proceed  WilHOUTLDATA 

0856 

REF 

1 

35,2172  11333  1 

CADR 

vbterm 

VB3A 

terminate  current  test  or 

load  reo 

0857 

REF 

1 

35,2173  13AU  1 

:adr 

vbtstlts 

VB35 

test  lights 

0858 

ref 

1 

35,217A  02000  0 

:adr 

SLAPi 

VB36 

FRESH  start 

0859 

REF 

1 

35,2175  13267  0 ENDVBFAN 

CADR 

MMCHANG 

VB37 

CHANGE  MAJOR  MODE 

R0860 

THE 

LIsT2  VERBFAN  Is  located  in  the  extended  verb 

ban< 

• 
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L 

PINBAlL 

game  buttons  and  lights 

USER'S  OWN  PAGE  NO.  23 

S3 

P0861 

NNADTAB 

contains  A R 

e-ajjve  address. 

_LDADDRELXLN_  -OW  10 

_.Bi T 5i_.__REF .erring  ....  . . _ ..  . 

R0862 

TO  ; 

(JHeRE  3 CONSECUTIVE  ADDRESSES  ARE 

Stored  m 

I 3ADDTAB)  . 

R0863 

MIXNOJN 

GETS  DATA  AND  STORES 

IN  MIXTEMP,+1,+2. 

IT  SETS 

NOUNAoD  FOR 

R0864 

MIXtFMP,  _ 

0865 

REF 

2 

LAST  251 

05*2176 

10  136 

1 MIXNOUN 

CCS 

NNADTEM 

0866  .. 

05.2177 

0 2203 

_1 

TC 

+ 4 

+ IN  USE 

0867 

REF 

8 

last  252 

06,2200 

0 2324 

0 

TC 

oODSPALM 

♦0  NOT  IN  USE 

0868 

05,2201 

0 2203 

1 

TC 

♦ 2 

- IN  USE 

08^9 

05,2202 

0 2203 

1 

TC 

♦ 1 

-0  IN  USE 

0870 

ref 

6 

LAST  213 

06,2203 

4 6306 

0 

:s 

SIX 

0871 

REF 

13 

LAST  252 

05,2204 

6 0272 

0 

AD 

VER3PEG 

at7Z 

05.2205 

0 0006 

1 

EXTEND 

0873 

05,2206 

6 2210 

0 

3ZMF 

♦ 2 

VERB  L/E  6 

0874 

REF 

6 

LAST  252 

05,2207 

0 2116 

0 

TC 

VERBpAN 

AVOID  MIXNOUN  SWAP  IF  VB  NOT  = 

display 

087:5 

REF 

22_ 

LAST  248 

05,2210 

3 7762 

0 

CAF 

TWO 

0876 

REF 

1 

06,2211 

54  107 

0 MlXNNl 

TS 

DEC3UNT 

0877 

REF 

1 

05,2212 

6 2235 

1 

AD 

MIXAD 

0878 

REF 

1 

^ -05j_i2L3 

54  135 

1 

TS 

JiOJNADD 

SET  NOUNADD  TO  MIXTEMP  + K 

0879 

REF 

2 

last  254 

05,2214 

50  107 

1 

index 

oecdunt 

Get  idaddtab  entry  for  component  < 

0880 

REF 

1 

05.2215 

3 0140 

1 

:a 

IDAO1 TEM 

OF  noun. 

0881 

REF 

A 

05,2216 

54  112 

1 

TS 

NOJNtEM 

A0882 

TEST  FOR  DP (FOR  OCT  DISPLAY), 

I-  SO,  GET 

A0883  . 

MINOR  PART  ONLY. 

0884 

REF 

1 

05,2217 

0 2721 
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P09h0 

NOUN  TABLES 

R0961 

R0962 

R0963 

NOJN  CODE  L/  55»  NORMAL  CASE.  NOUN  CODE  o/E  55.  MIXED  NOUN  CASE. 

FOR  normal  case.  NNAOTAB  CONTAINS  ONE  ECADR  FOR  EACH  NoUN. 

*0  INDICATES  NOUN  NOT  USED.  - ENTRY  INDICATES  MACHINE  CADR(E  OR  F)  TO 

R096A 

R0965 

BE  SPECIFIED.  -1  INDICATES  CHANNEL  TO  BE  SPECIFIED.  -0  INDICATES  AU3MENT 
OF  LAST  MACHINE  CADR  SUPPLIED. 

R0966 

R0967 

FOR  mixed  Case.  NNAOtAB  contains  one  indirect  ADORESSUDADDReLJ  in  low 
10  BUS.  AND  THE  COMPONENT  CODE  NUMBER  IN  THE  HIGH^  5 BITS. 

R0968 

nntyptab  is  a packed  table  OF  the  Form  mmmmmnnnnn=pppp. 

R0969 

for  he  normal  Case.  Mrs  are  the  component  code  number. 

Ro970 

R0971 

N-s  ARE  The  5F  routine  code  number. 
’-s  are  the  sf  constant  code  number. 

R0972 
R0973 
R0974  . 

mixed  CASE.M-S  Are  the  sf  constants  code  number  3 component  case 

N-S  Are  the  sf  C0NSTANT2  CODE  NUMBER 

P-S  are  the  sf  constanti  code  number 

• R0975 
R0976 
R0977 

N-S  Are  the  sf  C0NSTANT2  CODE  NUMBER  2 COMPONENT  CASE 

P-S  are  the  sf  constanti  CODE  NUMBER 

P-5  Are  the  sf  constanti  code  number  1 component  case 

R0978 

R0919 

there  is  also  an  indirect  address  table (IDADDtAB)  For  mixed  case  only, 
each  tNTRY  contains  O'NE  ecadr.  idaddrel  is  the  relative  address  of 

R0980 

R0981 

R09B2 

the  first  of  these  entries. 

THeRe  is  one  entry  in  this  table  for  each  component  of  a MIXfD  noun 
they  are  listed  in  order  of  ascending  k. 

R0983 

R09BA 

T^ERE  is  also  a scale  EACtOR  routine  number  TA3le(  RUtMXtaB  1 For  mixed 
case  dnly.  there  is  one  entry  Per  mixed  ndun.  the  eorm  is. 

R0985 

R0986 

R09l7 

qoouorrrrrsssss 

Q-s  ARE  the  sf  Routine  3 code  number  3 compon-nt  case 

R-S  ARE  the  sf  ROUTINE  2 CODE  NUMBER 

R0988 
R0989 
R0990  - 

s-s  ARE  the  sf  Routine  i code  number 

R-S  ARE  THe  sf  ROUTINE  2 CODE  NUMBER  2 COMPONENT  CASE 

s-s  ARE  the  sf  Routine  i code  number 

R0991 

R0992 

R0993 

IN  octal  display  and  load  (oCT  OR  DEC)  VERBS.  EXC.UDE  USE  oF  VERBS  WHOSE 
component  number  is  3'REATeR  than  tHe  NUMBER  OF  COMPONENTS  IN  NOUN. 
all  machine  address  tD'  Be  specified  nouns  are  1 Component. 

R099A 

R0995 

ONLY  exception  IS  NOJN.  01  TO  ALLOW  OCTAL  DISPLAYS  AND  LOADS  nF 
AN  UNCONTOLLED  NUMBER'  OF  COMPONENTS. 

R0996 

IN  mjlti-component  Load  verbs,  no  mixing  of  octal  and  decimal  data 

R0997  ' COMPOvIENT  WORDS  IS  A.LDWED.  ALARM  IF  VIOLATION. 
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P1604 

R1605 

monitor  ALLOWS  OTHER  KEYBOARD  ACTIVITY.  IT  IS  ENOED  By  VERB  TERMINATE. 
ANY  NVSUB  CALL  THAT  MASSES  THE  DSPLOCK.  OR  ANOTHER,  MONITOR. 

R1606 

R1607 

MONITOR  ACTION  IS  SUSPENDED,  BUI  NOT  ENDEO,  BY  ANY  KEYBOARD  ACTION, 
EXCEPT  ERROR  LI^HT  R-SET,  IT  BjEGINS  AGAIN  WHEN  KEY  RELEASE  TS  PERFORMED. 

R1608 

R1609 

R1610 

MONITOR  SAVES  THe  NOUN  AND  APPROPRIATE  DISPLAY  VERB  IN  MONSAvE.  IT  SAVES 
NOUNCADR  IN  MONSaVEI,  IF  NOUN  = MACHINE  CADR  TO  3-  SPECIFIED.  BIT  15  OF 
MONSAVEl  IS  THE  KILL  MONITOR  SIUNAL  (KILLER  BIT). 

Rl6ll 

R1612 

MONSAVE  INDICATES  IF  MONITOR  IS  ON(+=ON,  ♦0=OFF) 

IF  MONSAVE  IS  MONilOR  _eNTER_S.  NO  REQUEST,  BUT.  TjRNS  KILLER  BIT  OFF* 

R1613  IE  MOviSAVE  IS  +0,  MOvUTOR  ENTERS  REQUEST  AND  TURNS  KILLER  BIt  OFF. 


R1614  NVSUB  AND  VB=TERMINAT£  TURN  KILL  MONITOR  BIT  ON. 


R1615  if  KIlLER  bit  IS  ON,  MONREQ  ENTERS  NO  FURTHER  REQUESTS,  ZERO';  MONSAVE 
R1616  and  vIONSAVFI  (TURNING’  OFF  KILLER  BIT). 


R1617  monitor  dOSeNT  TEST  FOR  MATBS  SINCE  NVSUB  CAN  HANoLE  INTERNAL  MATBS  NOW 


1618 

REF 

1 

05,3077 

SETLOC 

ENDRUTIN 

1619 

ref 

22 

LAST 

267 

05,3077 

4 7745 

1 

MONITOR 

CS 

Bins 

1620 

ref 

5 

LAST 

270 

06,3100 

7 0310 

1 

MASK 

NOUNrADR 

1621 

REF 

139 

LAST 

274 

35,3101 

54  145 

0 

MONITl 

TS 

MPAC  +I 

TEMP  STORAGE 

1622 

REF 

1 

06,3102 

3 3401 

1 

CAF 

L0W6 

1623 

REF 

17 

LAST 

259 

35,3103 

7 0272 

1 

MASK 

VERBrEG 

1624 

REF 

4 

LAST 

269 

35,3104 

0 4541 

0 

TC 

LEFT'S 

1625 

REF 

5 

LAST 

242 

05,3105 

54  022 

0 

TS 

CYL 

1626 

REF 

6 

LAST 

275 

36 ,3106 

56  022 

1 

kch 

CYL 

1627 

REF 

7 

LAST 

259 

35,3107 

6 0273 

1 

AD 

NOUNrEG 

1628 

REF 

140 

last 

275 

35,3110 

54  144 

1 

TS 

MPAC 

TEMP  STORAGE 

1629 

REF 

2 

LAST 

98 

35,3111 

4 0330 

0 

:s 

GRA3I  OCK 

NEITHER  CASE  SEARCHES  LIST. 
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16A8 

REF 

3 

last 

229 

35*3i3A 

0 A 60  5 

0 

MONREQ 

tc 

LQD3AMPT 
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0 3153 

0 

TC 

killmon 
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166A 
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0 

rs 

MONSaVE 

__ 

1665 
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3 

LAST 

276 

35.3155 

5a  312 

0 

TS 

MONSAVEI 

TURN  OFF  kill  MONITOR  BIT. 

1666 

REF 

21 

last 
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35.3156 

0 5727 

0 

TC 

TASKOVER 

- 

- 

1667 

35.3157 

OOIAA 
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mOndel 

OCT 

144 

FOR  1 SEC  monitor  intervals 

1668 

ref 
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36.3160 

10  312 

0 

MONDO 

CCS 

monsavei 

CALLED  BY  EXEC 

1669 

36.3161 

0 3165 

0 

rc 

+ 4 

IF  KILLER  BIT  = 0.  CONTINUE 

1670 

36.3162 

0 3165 

0 

TC 

♦ 3 

IF  killer  BIT  = 0,  CONTINUE 

1671 
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LAST 
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35,3163 

0 5567 

0 

rc 

ENDOFJOB 

IN  CASE  TERMINATE  CAME  SINCE  LAST  MONREQ 

1672 

REF 

36 

LAST 

276 

36.316A 

0 5567 

0 

rc 

ENDOFJOB 

IN  CASE  terminate  CAME  SINCE  LAST  MONREO 

1673 

REF 
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LAST 

275 

36.3165 

10  303 

0 

CCS 

DSPLOCK 

167A 

REF 

1 

35,3166 

0 3212 

0 

TC 

monbusy 

NVSUB  IS  BUSY 

1675 

REF 
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LAST 

275 

35,3167 

3 3A01 
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CAF 

L0w6 

NVSUB  IS  AVAILABLE 

1676 

REF 
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last 
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36,3170 
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MASK 

MONSAVE 

1677 
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LAST 
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35,3171 
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rs 

nvtemp 

1678 
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LAST 

209 

35,3172 
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rc 

NVSJRMON 

PLACE  NOUN  INTO  NOUNREG  AND  DISPLAY  IT 

1679 

RtF 
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LAST 

276 

35,3173 

0 5567 

0 

TC 

ENDOFJOB 

IN  CASE  OF  ALARM  DURING  DISPLAY 
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276. 
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DISPLAY  IT. 
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4442 
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TC 
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07700  1 
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OCTAL 
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1700 

1701 
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3CT 
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1702 
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1 

1 

35.3211 

36.3212 
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M3NBAC< 
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TC 
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RELOaPON 

TURN  KEY  RELEASE  LIGHT 

1704 

REF 

39  LAST  277 

36,3213 

0 5567  0 

TC 

ENOOfJOB 

R1705 

Rt706 

DSPFMEM  IS  USED  TO  DISPLAY  (IN  OCTAL)  ANY 
IT, IS  used  WITH  NOUN  s MACHINE  CADR  TO  BE 

FIXED  register. 

specified,  the  fcadr  of  the 

R1707 

1708 

DESIRED 
REF  7 

location  is  then  punched  in.  it  handles  F/F  ( 

LAST  265  35,3214  3 4527  0 DSPFMEM  CAF 

FCADR  4000-7777) 
RlOl 

IF  F^F,  DATACALL  USES 

BANK  02  OR  03. 
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1741 

REF 

4 

LAST 

263 
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1 

TC 
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0 
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1758 

REF 

35 

LAST 

278 

04,3170 

54  270 

0 

rs 

DSPCOUNT 
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3 

LAST 

244 

34,3200 

0 3301  0 

tc 

IIDSPIN 

-R2  OFF 

1769 

REF 

5 

LAST 

278 

. _34,3^0J  _ 

3 7761-  0- 

CAF  - 

FOUR-  . 

1770 

REF 

4 

LAST 

279 

34,3202 

0 3301  0 

TC 

IIDSPIN 

+R2  OFF 

1771 

REF 

156 

LAST 

278 

34,3203 

10  144  1 

CCS 

MPAC 

1772 

34.3204 

0 i2J.-4_  0 

rc  - 

♦ 8D  . . - 

1773 

34,3205 

0 3214  0 

TC 

♦ 7 

1774 

ref 

60 

LAST 

278 

34,3206 

6 7763  1 

AD 

ONE 

1775 

ref 

157 

LAST 

279 

J4,3207 

54  144  1 

TS 

MPAC  - . 

1776 

ref 

3 

LAST 

278 

34,3210 

0 2321  0 

TC 

-ON 

1777 

ref 

158 

LAST 

279 

34,3211 

4 0145  0 

cs 

MPAC  +1 

1778 

ref 

159 

LAST 

2J9  . 

.34  ,i2l2  . . 

.54  145.  0 

IS  . 

. MP_A.C  +1--. 

1779 

34,3213 

0 3215  1 

TC 

♦2 

1780 

ref 

3 

LAST 

278 

34,3214 

0 2301  1 

TC 

♦ ON 

1781 

ref 

3 

LAST 

255 

34,3215 

3 4530  0 

CAF 

R2D1 

1782 

ref 

2 

LAST 

278 

34,3216 

0 3145  1 

END2DEC 

TC 

DSPOrWDl 

1783  REF  2 last  252  05.3222  5ETL0C  DSPFMEM  +6 

R17BA  DSPQCtwD  displays  C(A)  UPqN  ENTRY  AS  A 5 ^HAR  DCT  STARTING  IN  THf  DSP 

R1785  char  specified  1N  DSPCOUNT.  IT  STOPS  AFTE^  5 CHAR  HAVE  BeeN  HISPLAYeD. 


1786 

REF. 

- 7 

LASJ  2^75 

35,3222 

54  022 

fi 

DSPOCl/JD 

IS. 

CYL 

1787 

REF 

112 

LAST  279 

35,3223 

56  002 

0 

XCH 

3 

1788 

REF 

4 

LAST  279  . 

36,3224 

54  105 

1 

TS 

WDREt 

MUST  USE  SAME  RETURN  AS  DSP2BIT. 

1789 

REF 

26 

LAST  186 

35,3225 

3 7746 

0 

CAF 

BITIa 

TO  BLANK  SIGNS 

1790 

REF 

36 

LAST  278 

35,3226 

26  270 

0 

ADS 

DSPCOUNT 

1791 

ref 

6 

LAST  279 

35,3227 

3 7761 

0 

CAF 

Four 

1792 

ref 

3 

LAST  ^78 

35,^230 

_54  127 

1 

^JOAGAI  N 

ts 

^DCNt 

1793 

REF 

8 

LAST  279 

35,3231 

4 0022 

0 

cs 

CYL 

1794 

REF 

9 

LAST  279 

36,3232 

4 0022 

0 

cs 

CYL 

1795 

REF 

10 

LAST  279 

35,3233 

4 0022 

0 

cs 

CYL 

1796 

ref 

166 

LAST  278 

36,3234 

4 0000 

0 

cs 

A 

1797 

REF 

1 

35,3235 

7 7765 

0 

MAS< 

DSPMaK 

1798 

ref 

167 

LAST  279 

35,3236 

50  000 

1 

INDEX 

A 

1799 

REF 

4 

LAST  278 

35,3237 

3 4300 

0 

CAF 

RELTaB 

1800 

REF 

10 

LAST  278 

35,3240 

7 4556 

1 

MAS< 

LOWS 

1801 

REF 

7 

LAST  279 

35,3241 

54  114 

1 

TS 

CODF 

1802 

REF 

37 

LAST  279 

36,3242 

56  270 

1 

XCH 

DSPCOUNT 

1803 

REF 

4 

LAST  278 

35,3243 

54  133 

1 

TS 

COUNT 

1804 

REF 

168 

LAST  279 

35,3244 

10  000 

0 

CCS 

A 

decrement  DSPCOUNT  EXCEPT  AT  *0 

1805 

REF 

38 

LAST  279 

36,3245 

54  270 

0 

TS 

DSPCOUNT 

T 
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L 

PINBA-L 

game 

buttons  and  lights 

USER'S  OWN  PAGE  NO.  A9 

S3 

1806 

REF 

20 

LAST 

272  05t32A6 

0_  i223 

1 

_..JC 

POSIJUJMP. . . 

1807 

REF 

1 

06.32A7 

11307 

0 

CAOR 

DSPOCTIN 

1808 

REF 

A 

LAST 

27V  05.3250 

10  127 

1 

OCTBACC  CCS 

^DCNT 

1809 

ref 

1 

05.3251 

^ 0 3230 

0 

IC 

AD.A3AlIN  _ 

♦ 

1810 

REF 

6 

LAST 

278  05.3252 

A A565 

1 

DSPLV  CS 

VDl 

TO  BLOCK 

numerical  characters 

CLEARS. 

1811 

REF 

39 

LAST 

27V  05.3253 

5A  270 

0 

TS 

DSPCnUNT 

AND  SIGNS 

AFTER  A COMPLETED  DISPLAY, 

1812 

ref 

5 

LA3T 

27V  05.325A 

0 0105 

0 

IC 

_WDRET-  . . - _ . 

1813 

REF 

6 

LAST 

151 

7765 

DSPMS<  = 

SEVEN 

R181A 

DSP231T 

DISPL 

AYS  C(A)  UPON  ENTRY  AS 

2_  CHAR  OCT  BEGINNING  IN  THE  DSP 

R1815 

LOC 

Specified  in  dspcount  by 

PRE  CYCLING 

right  C(a)  and 

USING  the  Logic 

R1816 

OF  TME 

5 CHAR 

octal  DISPLAY 

1817 

REF 

5 

LAST 

277  05.3255 

5A  020 

1 

DSP2BIT  TS 

CYR 

1818 

REF 

113 

LAST 

27V  05.3256 

56  002 

0 

<CH 

3 

1819 

REF 

6 

LAST 

280  05.3257 

5A  105 

1 

TS 

HDRFt 

CANT  USE 

L AS  RETURN,  UPDATNN 

USES  L. 

18  20 

REF 

bl 

LAST 

27V  05.3260 

3 7763 

1 

CAF 

One 

1821 

REF 

5 

LAST 

280  05.3261 

5A  127 

1 

IS 

^DCNT 

1822 

REF 

6 

LAST 

280  05.3262 

A 0020 

1 

CS 

CyR 

1823 

REF 

7 

LAST 

280  05.3263 

A 0020 

1 

CS 

CYR 

182A 

REF 

8 

LAST 

280  05.326A 

56  020 

0 

ych 

CYR 

1825 

REF 

11 

LAST 

27V  05.3265 

5A  022 

0 

TS 

CYL 

1826 

REF 

2 

LAST 

280  05.3266 

0 3235 

0 

rc 

/JDAGaIN  +5 

R1827 

R1828 

FOR 

ARE 

DSPIN  PLACE  0/25  DCT  INTO  COUNT. 
destroyed,  if  bITIA  OF  COUNT  IS 

5 

1. 

BIT  Relay  code 
sign  is  blanked 

INTD  Code, 
with  I eFT 

both 

CHAR, 

R1829 

R1830 

FOR  OSPINl  PLACE 
DSPTA3  ENTRY  INTO 

0.1  into  BITll  OF  code 
DSRtL. 

. 2 INTD 

cdunt. 

REL  ADDRESS  OF 

1831 

REF 

1 

OH. 3217 

SETLOC  END2nEC 

♦ 1 

1832 

REF 

llA 

LAST 

O 1 
00| 
<mI 

r- 

CM 

r> 

56  002 

0 

DSpIN 

KCH 

0 

CANT  USE 

L For  return. 

SINCE 

many  of  the 

1833 

REF 

1 

DA. 3220 

5H  lOA 

0 

TS 

DSEKIT 

routines 

calling  DSPIN 

USE  L 

AS  RETURN. 

183A 

REF 

11 

LAST 

27V 

DA. 3221 

3 H556 

b 

CAF 

LOWS 

1835 

REF 

5 

LAST 

27V 

DA. 3222 

7 0133 

1 

MASK 

COUNT 

1836 

REF 

15 

LAST 

268 

DA. 3223 

5H  021 

0 

TS 

SR 

1837 

REF 

16 

LAST 

280 

DA.322A 

56  021 

1 

KCH 

SR 

1838 

REF 

1 

DA. 3225 

54  131 

0 

TS 

DSREI 

1839 

REF 

21 

LAST 

21  I 

DA. 3226 

3 7763 

1 

CAF 

BITl 

18A0 

REF 

6 

LAST 

280 

DA. 3227 

7 0133 

1 

MASK 

Count 

18A1 

REF 

1 b9 

LAST 

27V 

DA, 3230 

10  000 

0 

CCS 

A 

18A2 

DA. 3231 

0 3233 

0 

IC 

♦ 2 

LEFT  IF  COUNT  IS  ODD 

18a3 

REF 

1 

DA. 3232 

0 32A3 

1 

TC 

dspini 

-1 

right  if 

count  is  even 

18AA 

REF 

8 

LAST 

279 

DA. 3233 

56  llA 

0 

KCH 

Code 

18A5 

REF 

1 

DA. 323a 

0 4550 

0 

TC 

SLEFT5 

DOES  NOT 

USE  CYL 

63343&A 

YUL 

system  for  agc: 

REVISION 

0 OF  PROGRAM  BURST123  BY  NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  281 

L 

pinba.l 

game 

BUTTONS  And  lights 

USER'S  Own  page  no.  50  S3 

1646 

ref 

9 

LAST 

28° 

34.3235 

54  114 

1 

_ . LS„ 

.CDDf:.  . 

1847 

REF 

27 

LAST 

279 

34,3236 

3 7746 

0 

:af 

31T14 

1848 

ref 

7 

LAST 

280 

34,3237 

7 0133 

1 

MAS< 

COUNT 

1649 

REF 

1 70 

LAST. 

?80 

34.3240 

.10  000 

0 

- CCS  . , 

A 

1850 

REF 

32 

last 

275 

34,3241 

3 7762 

0 

CAF 

Two 

BIT14  = 1,  blank  sign 

1851 

REF 

62 

LAST 

280 

34,3242 

6 7763 

1 

AD 

ONE 

BIT14  = 0,  LEAVE  SIGN  ALONE 

1852 

REF 

6 

LAST 

281 

34,3243 

_5^  133 

1 

IS 

Count 

♦ 0 ITRIO  COUNT  FOR  RIGHT 

A1853 

+1  INTO  COUNT  FOR  LEFTISIGN  LEFt  ALONE) 

A1854 

♦3  Into  count  for  left (to  blank  sign) 

1855 

. 34,3244 

0_Q004_ 

0_ 

DSP  INI. 

. inhint. 

1856 

REF 

2 

LAST 

280 

34,3245 

50  131 

1 

INDEX 

DSRFL 

1857 

ref 

30 

LAST 

249 

34,3246 

10  313 

1 

CCS 

DSPTAB 

_1838_ 

34,3247 

0 3251 

1 

LC 

+ 2 

IF  ♦ 

1859 

ref 

7 

LAST 

275 

34,3250 

0 4736 

1 

tc 

CCSHOLE 

I860 

REF 

63 

LAST 

281 

34,3251 

6 7763 

1 

AD 

ONE 

if- 

1861 

REF 

1 

. 34,3252 

54  132 

0 

rs 

DSMAG 

1862 

REF 

9 

LAST 

281 

34,3253 

50  133 

0 

INDEX 

COUNT 

1863 

REF 

1 

34,3254 

7 3275 

0 

MA5< 

DSMSK 

1864 

04jl3255 

0 0006 

1 

EX.T.EjND- 

1865 

ref 

10 

last 

28l 

34,3256 

60  114 

0 

SU 

CODE 

1866 

34,3257 

0 0006 

1 

EXTEND 

1867 

ref 

1 

34,3260 

1 3273 

0 

azF 

DSLV 

SAME  ...  . _ ^ ^ 

1868 

REF 

10 

last 

281 

34.3261 

50  133 

0 

dfrnt 

INDEX 

COUNT 

1869 

REF 

2 

LAST 

28l 

34,3262 

4 3275 

0 

CS 

dsmsk 

MASK  with  77740,76037,  OR  75777 

1870 

ref 

2 

LAST 

281 

34,3263 

7 0132 

0 

MAS< 

OSMAr, 

1871 

ref 

11 

LAST 

28l 

34,3264 

6 0114 

0 

AD 

CODE 

187'2 

REF 

171 

LAST 

281 

34,3265 

4 0000 

0 

CS 

A 

1873  _ 

REF 

3 

LAST 

?8l 

34,3266 

50  131 

1 

_lf^OE_X 

DSREl 

1874 

REF 

31 

LAST 

28l 

34,3267 

56  313 

0 

XCH 

DSPTAB 

1875 

34,3270 

0 0006 

1 

EXTEND 

1876 

REF 

2 

last 

28l 

34,3271 

6 3273 

1 

3ZMF 

DSLV 

DSPTAB  ENTRY  WAS  - 

1877 

REF 

6 

last 

249 

34,3272 

24  307 

0 

INCR 

NOUT 

DSPTAB  entry  WAS  + 

1878 

34,3273 

0 0003 

1 

DSLV 

RELINT 

1879 

REF 

2 

LAST 

280 

34,3274 

0 0104 

1 

rC 

osextt 

1880 

34,3275 

00037 

0 

DSMSK 

DCT 

37 

1881 

34,3276 

01740 

0 

3CT 

1740 

1882 

34,3277 

02000 

0 

DCT 

2000 

1883 

34,3300 

03740 

1 

DCT 

37Ao 

R1884 

FOR 

llDSPIN,  PUT  REL  ADDRESSS 

OF  DSPTAB 

ENTRY  INTO'  A,  l IN  3TT11  OR  0 IN  ...  

R1885 
. .1886 

BiTll  OF  CODE. 
ref  4 LAST  2b1 

D4,3301 

54  131  O 

IIDSPJN  TS 

DSREL 

1887 

REF 

33  LAST  28l 

34,3302 

3 7762  0 

CAF 

Two 

1888 

REF 

11  LAST  28l 

34,3303 

54  133  1 

rs 

COUNT 

1889 

REF 

115  LAST  280 

34,3304 

56  002  0 

XCH 

3 MUST  USE  same  RETURN  AS  DSPIN. _ 

1890  REF  3 LAST  ^81  34,3305  54  104  0 TS  ^ DSEXIT 
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1891  REF  2 LAST  280 ?A,33Q6 Q 32AA_0 tS PSPINI 


1892 

1893 
189A 

REF 

REF 

A 

9 

LAST 

LAST 

278 

27A_. 

3A.3307 
DA, 3310 
1Ajl3JLL, 

0 3217 
3 3312 
0 5Z3a 

0 

1 

0 

DSPOCtIN 

IC 

:af 
rc 

OSPIN 

+ 2 

3ANCJUMP 

SO  DSPOCTWD  DOESNT  USE  SWCALL 

1895 

REF 

1 

DA, 3312 

13250 

1 

endspoct 

CADR 

DCT3ACK 

P1896  DSPaLaRM  finds  TC  NVSJbEND  IN  ENTRET  FOR  NVSUB  INITIATED  ROUTINES. 

R_1857 ABORT  rtITH  QlSPl. 

R1898  DSPALARM  FINDS  TC  EN50FJOB  IN  ENtRET  FOR  <EYBoARD  INITIATED  ROUTINES. 
R1899  DO  TC  ENTRET. 


1900 

REF 

5 

LAST 

255 

DA, 3313 

3 A505 

0 

charalrm 

:af 

ENOInST 

ALARMS  WHICH  MUST  DO  ENDOFJOBS 

COME 

1901 

REF 

6 

LAST 

777 

DA,331A 

5A  126 

0 

IS 

ENTRFT 

HERE.  ALLOWS  ENTRET  TO 

BE  TEMP 

ERASABLE 

1902 

REF 

A 

LAST 

210 

DA, 3315 

0 A571 

0 

DSPALARM 

IC 

FALTON 

TURN  ON  operator  ERROR 

light 

1903 

REF 

1 

DA, 3316 

A 3325 

1 

:s 

NVSBENDL 

L90A 

REF 

7 

LAST 

265 

DA, 3317 

6 0126 

1 

AD 

ENTEXIT 

1905 

DA, 3320 

0 0006 

1 

EXTEND 

1906 

DA, 3321 

1 3323 

1 

3ZF 

*2 

NVSUB  initiated.  ABORT 

1907 

REF 

8 

LAST 

28); 

DA, 3322 

0 0126 

1 

rc 

ENTEylT 

NOT  NVSUB  INITIATED, 

1908 

REF 

3 

LAST 

159 

DA, 3323 

0 6000 

1 

IC 

ABORT 

1909 

DA,332A 

01501 

1 

DCT 

01501 

1910 

REF 

1 

DA, 3325 

0 AA6A 

0 

NVSBENDL 

_rc 

NVSJrEND 

R1911 

R1912 

R1913 

MMCHANS  uses  NOUn 
IT  goes  TO  MODRDUT 
M M LIGHTS.  _ 

DIS^’UY  until  enter.  THEN 
with  the  New  m m code  in 

IT  USES  Mode  disp. 

A,  BUT  not  displayed  IN 

191A 

REF 

2 

LAST 

256 

05,3267 

setloc 

DSP2RIT  +10D 

1915 

REF 

1 

35,3267 

0 3302 

0 MMCKAN5  TC 

REOMm 

1916 

REF 

35 

LAST 

279 

35,3270 

3 7767 

0 

CAF 

zero 

1917 

REF 

8 

LAST 

275 

35,3271 

56  273 

1 

XCH 

NOUNREG 

1918 

REF 

160 

LAST 

279 

36,3272 

5A  lAA 

1 

TS 

MPAC 

1919 

REF 

3 

LAST 

255 

35,3273 

3 A566 

0 

CAF 

NDl 

1920 

REF 

AO 

LAST 

2B0 

D5,327A 

5A  270 

0 

TS 

DSPCnUNT 

1921 

REF 

21 

LAST 

261 

05,3275 

0 5206 

0 

TC 

BAN<CALL 

1922 

REF 

A 

LAST 

2A8 

35,3276 

10557 

1 

CADR 

2BLANK 

1923 

ref 

161 

LAST 

282 

35,3277 

3 OlAA 

0 

CA 

MPAC 

192A 

ref 

21 

LAST 

280 

36,3300 

0 5225 

1 

TC 

post.jump 

1925 

REF 

1 

36,3301 

11315 

0 

CADR 

modroutb  go  thru  standard  LOC. 
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L 

pinball 

GAME 

buttons  and  lights 

USER'S  Own  page  no.  52  S3 

1926 

REF 

11 

LAST 

274 

_04.,.33L5. 

.MDDROUTB. 

- 

. . DSPAl  ARM  . 

_ 4*FIX. LATER44  . _ . . . . 

1927 

ref 

116 

LAST 

28l 

D5.3302 

4 0002 

1 

REQMM 

:s 

Q 

1928 

REF 

9 

LAST 

255 

05,3303 

54  304 

1 

IS 

REQRET 

1929 

REF 

4 

LAST 

282 

35,3304 

3 .4566 

0 

CAF 

NDl 

1930 

REF 

41 

LAST 

282 

36,3305 

54  270 

0 

TS 

DSPCOUNT 

1931 

REF 

36 

LAST 

282 

35,3306 

3 7767 

0 

CAF 

ZERO' 

1932 

REF 

9 

LAST 

2.82 

.Jij3307. 

54  273 

0 

IS. 

.NOJNBE53 

1933 

REF 

22 

LAST 

282 

35,3310 

0 5206 

0 

TC 

BANKCALL 

1934 

REF 

5 

LAST 

282 

05,3311 

10557 

1 

CADR 

2BLANK 

1935 

ref 

5 

LAST 

255 

__  _D5_,  3312 

._0_4622 

0 

IC 

flashon 

1936 

REF 

9 

LAST 

282 

35,3313 

0 0126 

1 

rc 

ENTExIT 

R1937  VBRQEXEC  ENTERS  REQUEST  TO  EXEC  FOR  ANY  ADDRESS  iNiTH  ANY  PRIORITY. 

R1938  it  does  ENDOfjDB  ^FJ£Rj__ENT£R  I mg  _ request.  DISPLAY  SYST  IS  RELEASED. 

R1939  IT  assumes  NOUN  26  HAS  BEEN  PRELOADED  WITH 

R19A0  component  I PRIORITY  (BITS  10-lA)  BIT1  = 0 FoR  NDVAC'i  BITUl  FnR  FINDVAC. 

R19A1  component  2 JDB  ADRES  (12_BIT  ) 

R19A2  component  3 BBCON 


1944 

REF 

4 

LAST 

219 

35,3315 

7 0337 

1 

MASK 

DSPTFMl 

1945 

REF 

172 

LAST 

?8l 

35,3316 

10  000 

0 

CCS 

A 

1946 

REF 

1 

35,3317 

0 3336 

1 

TC 

SETi)AC 

IF  Bill  = 1,  FIND VAC 

1947 

ref 

1 

35,3320 

3 5723 

1 

CAF 

TCNOV/AC 

IF  BITl  = 0,  NOVAC 

1948 

REF 

162 

LAST 

282 

35,3321 

54  144 

1 

REQEXl  IS 

MPAC 

TC  NOVAC  OR  TC  FlNDvAC  INTO  MPAC 

1949 

ref 

23 

LAST 

283 

35,3322 

4 7763 

0 

_cs 

BIT! 

1950 

REF 

5 

LAST 

283 

35,3323 

7 0337 

1 

MASK 

DSPTFMl 

1951 

.REF 

163 

LAST 

283 

35,3324 

54  150 

1 

TS 

MPAC 

+ 4 

PRIO  INTO  MPAC+4  as  A TEMP 

1952 

REF 

4 

LAST 

252 

35,3325 

0 4666 

0 

requestc  rc 

RELDSP 

1953 

REF 

6 

LAST 

282 

35,3326 

3 4505 

0 

CA 

ENOINST 

1954 

REF 

164 

LAST 

283 

35,3327 

54  147 

1 

IS 

MPAC 

+ 3 

TC  ENDOFJOB  INTO  MPAC+3 

1955 

35,3330 

0 0006 

1 

extend 

1956 

REF 

6 

LAST 

283 

35,3331 

3 0341 

1 

DCA 

OSPTfMI 

♦ 1 

JOB  ADRES  into  MPAC+1 

1957 

REF 

165 

LAST 

283 

35,3332 

52  146 

0 

dxch 

MPAC 

♦ 1 

BBCON  INTO  MPAC+2 

1958 

REF 

166 

LAST  283 

35,3333 

3 0150 

0 

CA 

MPAC 

+ 4 

PRIO  IN  A 

1959 

35,3334 

0 0004 

0 

inhint 

1960 

REF 

167 

LAST 

283 

35,3335 

0 0144 

0 

TC 

MPAC 

1961 

REF 

1 

35,3336 

3 4562 

1 

SETVAC  CAF 

TCFImDVC 

1962 

ref 

1 

35,3337 

0 3321 

1 

TC 

REQEXl 

Ri963  vbrqwait  enters  Request  to  waitlist  for  any  address  with  any  delay. 

R196A  IT  DOES  ENoOFJDB  AFTERi  ENTERING  REQUEST. DISPLAY  SYST  IS  RELEASED. 

R1965  JL  assumes  NOUN  26  HAS  BEEN  PRELOADED  WITH 

R1966  COMPONENT  1 DELAY  (LOW  BITS) 

R1967  COMPONENT  2 TASK  ADRES  (12  BIT) 

R1968  COMPONENT  3 BBCQN 
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L 

PINBAi-L  GAME 

buttons  and  lights 

USER'S  OWN 

PAGE 

NO.  53 

S3 

1969 

REF  L 

05,3.3_40  _3__45iii  1 VBRUWAIT,  CAF 

TCaAIT __ 

1970 

1971 

1972 

REF  168  LAST 
REF  7 LAST 
REF  I 

283  05,3341  54  144  1 T5 

263  06,3342  3 0337  0 CA 

05,3343  0 3324  1 E'IDRQWI  TC 

MPAC 
DSPTFMl 
RE3JESTC  -1 

TC  WAITLIST 
TIME  DELAY 

INTO 

MPAC 

R1973 

R1974 

RE3UE5TC  WILL  PUT  TA50  ADRES  INTO  MPAC+1,  BBCON  INTO 
TC  EN'.OFJOB  INTO  MPA03.  IT  Will  TAKE  TIME  DEI  AY  OUT 

MPAC+2, 

.OF  MPAC*.4.  ANd_  . 

R1975 

leave  it  in  a*  iNHINT  AND  TC  MPaC. 

1976 

1977 

ref 

REF 

2 

54_ 

LAST  282 

last^zbi 

04,3326 

04j3326_  3 7763.  .1  _ V^PROC 

SETLOC 

CAF 

NVS3FNDL  +1 
ONE  . 

proceed. without 

DATA.  _ 

1978 

REF 

2 

LAST  268 

04,3327 

54  305  0 

TS 

LOAOaT AT 

1979 

REF 

5 

LAST  283 

04,3330 

0 4666  0 

TC 

RELOSP 

1980 

REF 

3 

LAST.  250 

_ 34,3331 

0 4626  1 

TC 

FLASHOFF  . 

1981 

REF 

2 

LAST  268 

04,3332 

0 3440  1 

TC 

RECALTST 

SEE  IF  there  is 

any'  rYCALL  FROM.  ENDIDLE 

1982 

1583 

REF 

REF 

1 

45 

LAST 

284 

04.3333 

04.3334 

0 

4 

4466 

7763 

1 V3JERM 
0 

TC 

CS 

<ILMnNON 

ONE 

TURN 

ON  KILL  MONITOR  BIT 

1984 

REF 

2 

LAST 

253 

04,3335 

0 

3327 

1 

TC 

VBPROC  +1 

TERM 

VERB  SETS  LOADSTAT  NEG 

R1985 

flash 

IS  TURNED  OFF 

ONLY  BY  PROCEED  WITHOUT  DaTA.  TERMINATE,  END  oF  LOAD 

R1986_ 

VBReLOSP  turns  OFF  R 

-LEASp  display  system  LIGHT (AND  SfAR 

ichfs  list  only 

R1987  ^ 

IF  this  light  was  turned  ON  By 

NVSUBUSY) 

, AND  turns  off 

upact  light. 

1988 

ref 

15  LAST  229 

04,3336 

4 7761  1 

VBRELDSP  CS 

BITt 

1989 

04,3337 

0 0006  1 

EXTEND 

1990 

REF 

4 LAST  246 

04,3340 

03  Oil  1 

WAND 

DSALMOUT 

TURN  OFF  UPACT 

light 

1991 

REF 

6 LAST  284 

04,3341 

0 4666  0 

TC 

RELOSP 

SEARCHES  LIST 

1992 

REF 

41  LAST  277 

04,3342 

0 5567  0 

TC 

ENDOfUOB 

R1993 

BUMP 

SHIFTS  word  Displayed  in 

R2  TO  R3, 

Rl  TO  R2.  IT  blanks  r1. 

1994 

REF 

4 LAST  266 

04,3343 

3 7766  1 

BUMP  CAF 

Five 

R2D5 

1995 

REF 

42  LAST  283 

04,3344 

54  270  0 

IS 

DSPCnUNT 

1996 

REF 

12  LAST  281 

04,3345 

54  133  1 

TS 

COUNT 

1997 

REF 

66  last  284 

04,3346 

3 7763  1 

CAF 

ONE 

SHIFT  data  OF 

R2 

TO  R3,  Rl  TU  R2 

1998 

REF 

13  LAST  284 

04,3347 

7 0133  1 

MASK 

COUNT 

1999 

REF 

14  LAST  284 

04,3350 

56  133  0 

KCH 

COUNT 

+0  INTO  COUNT 

IF 

EVEN  (RIGHT) 

2000  REF  17  LAST  2B0  04,3351  54  021  0 fS  SR  +1  INTO  COUNT  IF  ODD  (LEFT) 
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L 

pinball 

GAME  button 

s And  lights 

USER'S  OWN  page  no.  59  S3 

2001 

REF 

18 

LAST  .28A 

J19.8352 

58-  021 

1 - . 

. -^CGfcl. 

SR  . - 

. . J5SKEL  I-N  A.  _ _ 

2002 

REF 

173 

LAST  283 

09,3353 

50  000 

1 

INDEX 

A 

2003 

REF 

32 

LAST  281 

09,3359 

10  313 

1 

:cs 

OSPTaB 

200A 

39,3355 

0 3357 

0 

- T-C 

♦2 

2005 

REF 

8 

LAST  28l 

39,3356 

0 9736 

1 

TC 

CCSHOLE 

2006 

REF 

67 

LAST  289 

39,3357 

6 7763 

1 

AD 

ONE 

DSMAG  IN  A 

2007 

REF 

15 

LAST_2i9 

39i.33.60 

50  13.3. 

.0  . 

INDEX 

count...  .. 

2008 

REF 

3 

LAST  28l 

39,3361 

7 3275 

0 

MASS 

OSMSK 

2009 

REF 

16 

LAST  283 

09,3362 

50  133 

0 

INDEX 

COUNT 

2010 

39,3363 

0 3369 

0 

TC 

+ 1 

2011 

09,3369 

0 3366 

1 

TC 

+ 2 

EVEN(RIGHT)  OS 

2012 

REF 

9 

LAST  276 

39,3365 

0 9532 

1 

TC 

rights 

ODD(LEFT)  SHIFT  RIGHT 

2013 

ref_ 

12 

LAST__28.1  _ 

39j_3366 

59  119 

1 

TS 

CODE 

201A 

ref 

5 

LAST  289 

39,3367 

9 7766 

0 

:s 

FIVE 

2015 

REF 

93 

LAST  289 

39,3370 

6 0270 

1 

AD 

OSPCnUNT 

DSPCOUNT-5 

2016 

REF 

17A 

LAST  ?85 

09,3371 

10  000 

0 

CCS 

A 

TO  PREVENT  -0 

2017 

REF 

68 

LAST  283 

39,3372 

6 7763 

1 

AD 

ONE 

2018 

39,3373 

0 3375 

0 

TC 

+ 2 

2019 

ref 

9 

LAST  28 3. 

39,3379 

0 9736 

1 

TL 

JCCSHflLE 

2020 

REF 

17 

LAST  283 

39,3375 

59  133 

1 

TS 

COUNT 

2021 

REF 

5 

LAST  28Z 

39,3376 

0 3217 

0 

TC 

OSPIN 

CODE  ALREADY  IN  CODE 

2022 

REF 

99 

LAST  285 

39,3377 

9 0270 

0 

CS 

DSPCOUNT 

2023 

REF 

8 

LAST  277 

39,3900 

6 9527 

0 

AD 

RlDl 

OCT  16 

202A 

ref 

175 

LAST  283 

39,3901 

10  000 

0 

CCS 

A 

2025. 

ref 

95. 

L AST _ 283. 

39,3902 

5.6  270 

L _ _ . 

XCH 

DS_P..Cq.UN.I.  .. 

+ , DSPCOUNT  L/  OCT  1.6  . 

2026 

REF 

69 

LAST  283 

39,3903 

6 7763 

1 

AD 

ONE 

increment  DSPCOUNT 

2027 

ref 

2 

LAST  25)i 

39,3909 

0 3399 

1 

TC 

BUMP  +1 

2028 

REF 

37 

LAST  283 

39,3905 

3 7767 

0 S^SGN 

CAF 

Eero 

-0,  DSPC0UNT=  OCT  16.  Do  SIGN  SHIFT 

2029 

ref 

96 

LAST  283 

39,3906 

59  270 

0 

TS 

DSPCnUNT 

2030 

REF 

1 

39,3907 

6 3936 

0 

AD 

SwTAr  *2 

OCT  3 

2031 

REF 

176 

LAST  283 

39,3910 

50  000 

1 

INDEX 

A 

PICKUP  ORDER  , DSREL=3,9,5,6. 

2032 

ref 

33 

LAST  283 

39,3911 

10  313 

1 

CCS 

DSPTaB 

(-R2,,R2,-R1,*R1) 

2033 

39.3912 

0 3919 

0 

TC 

+ 2 

203A 

REF 

10 

LAST  283 

39,3913 

0 9736 

1 

rc 

CCSHOLE 

2035 

REF 

70 

LAST  285 

39,3919 

6 7763 

1 

AD 

ONE 

2036 

REF 

20_ 

last  271 

09,3915 

7 7751 

1 

MASS 

BITll 

2037 

REF 

13 

LAST  283 

39,3916 

59  119 

1 

TS 

CODE 

2038 

REF 

97 

LAST  285 

39,3917 

50  270 

1 

INDEX 

OSPCnUNT 

2039 

REF 

2 

LAST  285 

39,3920 

3 3939 

1 

CAF 

SwT  AB 

PUT  AWAY  ORDER.  DSREL=  0.1. 3, 9. 

20A0 

REF 

5 

LAST  279 

39,3921 

0 3301 

0 

TC 

IIDSPIN 

(-R3,+R3,-R2,»R2.) 

20a1 

REF 

98 

LAST  283 

39,3922 

9 0270 

0 

CS 

DSPCOUNT 

2092 

REF 

3 

LAST  285 

39,3923 

6 3936 

0 

AD 

SiiJTAR  +2 

OCT  3 

2093 

REF 

177 

LAST  285 

39,3929 

10  000 

0 

CCS 

A 

2099 

REF 

99 

LAST  285 

3A.3925 

56  270 

1 

XCH 

DSPCOUNT 

♦,  DSPCOUNT  L/  3 

2095 

REF 

7l 

LAST  285 

39,3926 

6 7763 

1 

AD 

ONE 

increment  DSPCOUNT  . . 

2096 

REF 

1 

39,3927 

0 3906 

0 

TC 

SrtSoN  +1 

2097 

REF 

9 

LAST  285 

39,3930 

3 9527 

0 

CAF 

RlDl 

-0,  DSPCOUNT  5 3 

2098 

REF 

50 

LAST  283 

39,3931 

59  270 

0 

TS 

OSPCnUNT 

2099 

REF 

3 

LAST  255 

39,3932 

0 2519 

0 

TC 

5BLAmS 

BLANKS  R1 
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pinba.l 

GAME  buttons  AnD  LIGHTS 

USER'S  OWN  page  no,  55 

S3 

2050 

REF  10 

LAST  25  3.  3A,3A33  . 

0 0126  ^1  - 

IX 

.EillEXir.  _ . 

2051 

34.3434 

00000  1 SWTAB 

3CT 

0 

-R3 

2052 

34.3435 

QQOQl  0 

OCT 

1 

ifi3 

2053 

34,3436 

00003  1 

3CT 

3 

-R2 

205A 

34.3^,37 

00004  0 

3CT 

4 

+ R2 
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L PINBALL  game  BUTTONS  AND  LIGHTS  USER'S  OWN  PAGE  NO.  56  S3 

P2055  nVSUB  is  .USED_J0R_JSUi^R0UU_N.E__CALL5_FRO.M  WiTHlN- _C3MPUJEfi.__It  CAN  BE  . __  _ . _ . 

R2056  used  to  do  ANY  THING  THE  KEYBOAKD  CAN  CALL.  PLACE  . . . VY YV VYnNNNNN 
R2057  into  A.  Y-S  ARE  5 BIT  YERB  CODE.  N-S  , 6 BIT  NOUN  CODE. 


R2058  NYSJB  CAN  Be  USED  WITH  MACH  CADR  TO  BE  SPEC  BY  PLACING  THE  CaDR  INTO 
R2059  MPAC+2  BEFORE  THe  STANDARD  NYSUB  CALL. 


R2060  NYSJBi  RETURNS  TO  2*  CALLING  LOC  AFTER  PERFORMING  TAS<.  IF  DISPLAY 

R2061  SYsTEMi  IS  AYAlLABLE.  THE  nEW  nOUn  AnD  YEpS  CODES  ARE  DISPLAYED. 

R2062  IF  V;S  sO  *_THE.  N£W„N0UN  CufiE  _IE_  DISPLAYED  . ONLY  (RElURN.^W  ITH  NO-FURtHER 

R2063  action.).  IF  N-S  =0.  THE  NEW  YERB  CODE  IS  DISPLAYED  ONLY(RETUpN  WITH  NO 

R206A  FURTHER  ACTION). 


R2065  IT  returns  TO  I*  CALLING  LOC  WITHOUT  PERFORMING  TAS<,  IF  DISPLAY 
R2066  SYSTEMi  is  BL0C<ED  (NOTHING  IS  DISPLAYED  IN  THIS  CASE). 

R2067  IT  DOES  TC  ABORJ  (WITH.  OCT  01501)  IF  IT  E'ICOUNTERS  A DISPLAY  PROGRAM 

R2068  ALARM  CONDITION  BEFORE  RETURN  TO  CALLER. 

R2069  THe  display  SYSJeM._LS.  BL_0.CK_£D_  BY  THE  DEPRESSION  OF  . ANY.  _ 

R2070  <EY»  EXCEPT  ERRDR  LIGHT  RESET.  ALSO  BY  ENDIDLE. 

R2071  IT  IS  released  BY  SPECIAL  YERB  = RELEASE  DISPLAY,  ALL  Gn  TO  YERBS, 

R2072  proceed  WITHOUT  DATA,  TERJMINATE,  INITIALIZE  EXECUTIYE, 

R2073  RECALL  PART  OF  RECALIST  IF  ENDIDLE  WAS  USED, 

R207A  IN  ReCALtST  IF  NVSUB  INITIATED  LOAD  AND  ENDIDLE  WAS  NOT  USED, 

R2075  YB  s REQUEST  EXECUTIVE,  VB  = REQUEST  WAITLISTt 
R2076  MONITOR  SET  UP, 

R2077  A NYSJB  CALL  THAT  PASSES  JDS.PLqCK.  ENDS.  OLD  MONITOR. 

R2078  DSPLOCK  IS  jHE  iNTERi-OCK  FoR  USE  OF  KEYBOARD  AND  DISPLAY  SYStEM  WHICH 

R2079  locks  QUT  INTERNAL  USE  WHeNEYeR  tHERF  IS  EXTERNAL  KEYBOARD.  ^ACTION.. 

R2080  NYSUB  in  FIXED-FIXeD  places  2+CaLLING  LOC  INTO  NYOTE'^i  TC  NYSUBeND  INTO 

R2081.  entret.  (This  will  restore  old  calling  bank  bits)  — 


2082 

REF 

2 

LAST 

27f 

4444 

SETLDC 

MIOSTX  +1 

2083 

REF 

5 

LAST 

277 

4444 

54  113 

0 

NYSUB 

TS 

NY  Temp 

IN  fixed  fixed 

2084 

REF 

6 

LAST 

276 

4445 

10  303 

0 

CCS 

dsplock 

2085 

REF  117 

LAST 

283 

4446 

0 0002 

0 

TC 

0 

DSP  SYST  BLOCKED.  RET  TO  1+  CALlING  LOC 

2086 

REF  118 

LAST 

287 

4447 

3 0002 

0 

CA 

0 

DSP  SYST  AYAlLABLE 

2087 

REF 

72 

LAST 

285 

4450 

6 7763 

1 

AD 

ONE 

2088 

REF 

1 

4451 

54  331 

1 

TS 

NYQTpM 

2 + calling  LOC  INTO  NVOTEM 

2089 

REF 

2 

LAST 

28A 

4452 

0 4466 

1 

TC 

KILMONON 

TURN  ON  KILL  MUNILOR  BLT 

2090 

REF 

1 

4453 

3 4457 

0 

nysubcdm 

CAF 

nysbrbnk 

2091 

REF 

_L2 

LAST 

83 

4454 

56  006 

1 

XCH 

BBANx 

2092 

REF 

1 

4455 

54  332 

1 

TS 

NvBNKTEM 

2093 

REF 

1 

4456 

0 2000 

0 

TC 

NYSJRB 

GO  TO  NVSUBl  THRU  STANDARD  LOC 

2094 

REF  A1 

LAST 

285 

EO 

fbank= 

riSPCOUNT 

2095  REF  2 LAST  25°  4457  12060  1 NYsBBBNK  BBCON  NYSJRl 
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L pinball  game  buttons  And  lights  user's  own  page  no,  57  S3 


2096 

REF 

119 

LAST  287 

, „ A6i0 

3 _00_02_ 

0 

NYSUBM3N  C.A 

_ 3 . 

__  . MQNOO  C0ME3.„HERE 

2097 

REF 

73 

LAST  287 

6661 

6 7763 

1 

AD 

ONE 

2098 

REF 

2 

LAST  287 

6662 

56  331 

1 

TS 

NVOTfM 

2 ♦ CALLING  LOC  INTO  NVQTEM 

2099 

JTEF_ 

1_ 

6663 

0 6653 

_L_ 

TC 

NVSJnCQM 

2100 

2101 

ref 

ref 

3 

12 

last 

LAST 

288 

27l 

6666 

6665 

52  332  1 
52  006  0 

N»7SUBEND 

3XCH 

3XCH 

NYOTRM 

Z 

nvbnktem  must  = NVQTEM+1 
DTCB 

2102 

REF 

1 

05,3366 

5ETL0C 

ENDRoWT  +1 

2103 

ref 

1 

35,3366 3 3363_  L 

_ nysubi..  .. 

:ae_ 

_E.NTSE.T  _ 

IN  BANK 

2106 

REF 

7 

LAST 

282 

35,3365 

56  126  0 

TS 

ENTRFT 

SET  RETURN  TO  NVSUBEND 

2105 

REF 

3 

LAST 

276 

35,3366 

3 3601  1 

CAF 

LOWS 

2106 

REF 

6 

LAST 

2fl7 

35,3367 

7 0113  0 

MAS< 

nvtemp 

2107 

REF 

169 

LAST 

286 

35,3350 

56  166  1 

TS 

MPAC 

TEMP  storage 

2108 

REF 

1 

35,3351 

3 3602  1 

CAF 

MID6 

2109 

REF 

7 

LAST. 

2J.8 

.3  5, 3 3.5  ^ 

7 0113  0 

*1AS< 

NYTFmP 

2110 

REF 

5 

LAST 

286 

35,3353 

0 6532  1 

TC 

RIGHT5 

2111 

REF 

9 

LAST 

280 

35,3356 

56  020  1 

TS 

CYR 

, 

REF 

lO 

LAST 

288 

35.3355 

56  020  0 

XCH 

CYR  . 

2113 

2116 

21L5 

REF 

REF 

170 

171 

LAST 

LAST 

288 

288 

35.3356 

35.3357 
35.3360 

56  165 
10  166 
0 3366 

0 

1 

0 

TS 

CCS 

TC 

mpac  +t 

MPAC 

+ 6 

TEMP  STORAGE 
TEST  NOUN 

IF  NOUN  NOT  *0.  GO  ON 

2116 

REF 

172 

LAST 

288 

35,3361 

56  165 

1 

XCH 

MPAC  ♦! 

2117 

REF 

7 

LAST 

266 

35,3362 

0 2316 

0 

TC 

JPDAtVB  -1 

IF  NOUN  = +0,  DISPLAY  VERB  . TH-EN  RETURN 

2118 

REF 

2 

LAST 

282 

35,3363 

0 6666 

0 

EMTSET 

TC 

NVSJBEND 

2119 

REF 

173 

LAST 

288 

35,3366 

10  165 

0 

CCS 

MPAC  +1 

TEST  VERB 

2120 

35,3365 

0 3371 

1 

TC 

♦ 6 

IF  Verb  not  +o,  go  on 

2121 

REF 

179 

LAST 

288 

35.3366 

56  166 

0 

XCH 

MPAC 

2122 

REF 

1 

35,3367 

0 2276 

1 

TC 

JPDAtNN  -1 

IF  Verb  s +o,  display  noun,  then  return 

2123 

REF 

3 

LAST 

288 

35,3370 

0 6666 

0 

TC 

NVSJBEND 

2126 

REF 

175 

LAST 

288 

35,3371 

5^  165 

1 

XCH 

MPAC  tl 

2125 

REF 

8 

LAST 

288 

35,3372 

0 2316 

0 

TC 

JPDATVB  -1 

IF  BOTH  NOUN  AND  VERB  NOT  +0,  DISPLAY 

2126 

RET 

1 76 

LAST 

288 

35.3373 

56  166 

0 

XCH 

MPAC 

BOTH  AND  GO  TO  ENTPASO 

2127 

ref 

2 

LAST 

288 

35,3376 

0 2276 

1 

TC 

JPDATNN  -1 

2128 

REF 

38 

LAST 

785 

35,3375 

3 7767 

0 

CAF 

ZERO 

2129 

REF 

3 

LAST 

286 

35,3376 

56  305 

0 

TS 

LOADSTAT 

SET  FOR  waiting  FOR  DATA  CONDITION 

2130 

REF 

12 

LAST 

267 

36,3377 

56  306 

0 

TS 

CLPASS 

2131 

REF 

3 

LAST 

250 

35,3600 

0 2031 

1 

TC 

ENTPaSO 

R2132 

IF 

internal 

MaCH  cadr^  to  be  specified, 

MPAC+2 

/JILL  Be 

PLACED  INTO 

R2133 

NOJNCADR  in 

entpaso 

(INTMCTBS 

) . 

213A 

2135 


36.3601  00077  1 l3W6 

35.3602  07700  1 MID6 


3CT 

3CT 


77 

7703 
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2136 

PINBAlL 
REF  9 

game  buttons  And  lights 

LAST  288  _ _ _ 9966 

_ _ StTUlC  N\lS Jr£ND *2 

USER'S  OWN  page 

NO.  58 

S3 

2137 

REF 

29 

LAST  277 

9966 

9 7795  1 

<ILMONON  :S 

BlTls 

force  BIT  15  OF 

MONSAVEI 

TO  1, 

2138 

9967 

0 0009  0 

INHINT 

THIS  IS 

the  kill 

monitor 

BIT. 

2139 

ref 

6 

LAST  277 

_ _ 9A10 

7 0312._0 

MAS< 

..M0.NSAVE1 

2190 

REF 

25 

LAST  289 

9971 

6 7795  0 

AD 

B1T15 

2U1 

REF 

7 

LAST  28V 

9972 

59  312  0 

rs 

MONSaVEI 

2192 

_ .9973 

_ 0 J)003  _1  _ 

RELI.iNT 

2193 

ref 

120 

LAST  288 

9979 

0 0002  0 

TC 

0 

R21AA  LOAOSTAT  +0  INActIVE(WAITING  for  DATA).  SET  BY  NVSJ8 
R21A5  tl  proceed  no  DATA.  SFT  BY  SPECIAL  VER3. 

R2U6  -1  terminate  Set  by  special  verb 

R21A7  -0  data  in  set  BY  END  OF  LOAD  ROUTINE 


R2148  L TC  ENDIDLE_  J_F4J<£X FIXED) 

R21A9  ROUTINES  THAT  REqUeST  LOADS  THROUGH  NVSUb  SHOULD  USE  ENDIDLe  WHILf 
R2150  waiting  for  THE  DATA  TO  BE  LOADED.  ENDIDLE  PUTS  CURRENT  UOS  ^0  SLEEP. 
R2151  _ENDID,E  cannot  Be  CABLED  FROM  FRASABLF  MfMqRY.  SI\|C£  UOBSLEEP  AND. 
R21S2  UOBWA<E  CAN  HANDLE  ONLY  FIXED  MEMORY, 

R2153  RECALTST  TESTS  LOADSTAT  AND  WA<bS  UOB  UP  TO, 

R215A_„  _L  + 1 FOR  TERMINATE 

R2155  L+2  FOR  PROCEED  WITHOUT  DATA 

R2156  L+3  FOR  data  IN 

R2157  IT  DDES  NOTHImG_  _IF_L0ADSTAT  INDICATES  WAITING  FQR  DATA,_ 


2158 

REF 

79 

LAST  288 

9975 

3 7763 

1 ENDIDLE 

CAF 

ONE 

2159 

REF 

7 

LAST  287 

9976 

59  303 

0 

rs 

DSPLnCK 

2160 

REF 

1 

9977 

22  009 

0 

lxch 

FBANK 

2l6l 

REF 

121 

LAST  289 

9500 

56  002 

0 

XCH 

3 

2162 

REF 

S 

LAST  199 

A501 

52  129 

1 

OXCH 

BUF2 

2163 

REF 

9 

LAST  220 

9502 

0 5235 

0 

TC 

MAKErADR 

2U9 

REF 

5 

LAST  255 

9503 

59  327 

0 

rs 

CADRSTOR 

2165 

REF 

3 

LAST  157 

9509 

.0  5595 

0 

TC 

UOBSLEEP 

2166  rEf  92  last  28^  9505  0 5567  0 ENdiNsT  TC  ENDOFUOB 

R2167  DATAWAIT  I5_AN  AlteRIATIJVEL  TO  ENDIDLE.  IT  RETURNS  IMMfDIATFLy  IF 

R2168  LOADSTAT  INDICATES  THAT  DATA  IS  ALREADY  IN,  OR  PRdCeED  OR  TERMINATE  HAS 

R2169  BEEN  executed,  RETURN:  FORMAT  IS  SAME  AS  FOR  ENOIO.E, 

R2170  DATAWAIT  CANNOT  Be  CALLED  FROM  ERASABLE  MEMORY,  SINCe_U03SLEEP_ 

R217I  AND  UOBWAKE  CAN  HANDLE  ONLY  FIXED  MEMORY. 

R2172  DATAWAIT  SHOULD  BE  USED  OnLY  AFTER  REQUESTING  A LOAD  VERB. 


2173  REF  9 LAST  Z88 


9506  10  305  0 DATAWAIT  CCS 


LOADSTAT 
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2174 

REF 

1 

4507 

_0_7QX5_  0 

. _ . TCF 

DaTWAIXI-  - 

pbo.ceed,  return  to  L+X.. 

2175 

REF 

17 

LAST 

221 

4510 

1 4475  1 

TCF 

ENDlnLE 

STILL  waiting.  GO  TO  SLEEP. 

2176 

REF 

122 

LAST 

289 

4511 

0 0002  0 

TC 

D 

TERMINATE.  RETURN  TO  L*l. 

2177 

REF 

4 

LAST 

168  _ 

4512 

i 7017  1 

TCF  _ 

..3*2 

DATA  IN.  RETURN  TO  L*3 

2178 

REF 

3 

LAST 

168 

7015 

DATWAITI  : 

3+1 

RETURN  TO  L+2 

R2179  DATAWAIT  DOFS  NOT  RELEASE  DISPLAY  SYST.  IT  IS  RELEASED  AH  END.  DF. NVSUB. 
R2180  initiated  LOAD,  Ip  ENDIDLe  WAS  NOT  USED, 


2181 

R2182 

REF  2 LAST  288 

DSPMM  Place  major 

mdde  code 

05,3403 
LNJQ.  MDDREG 

SETLOC 

MID6  +1 

2183 

REF  1 

05,3403 

3 4567  1 

DSPMMl 

CAF 

MDl 

gets  here  thru  dspmm  (Standard  Iead  in) 

' 2184 

REF  52  LAST  28/ 

05,3404 

56  270  1 

XCH 

DSPCOUNT. 

2185 

REF  1 

05,3405 

54  130  1 

TS 

DSPMmTEM 

SAVE  DSPCOUNT 

2186 

REF  8 LAST  210 

06,3406 

3 0302  0 

CA 

modrfg 

2187 

REF  123  LAST  290 

05,3407 

22  002  0 

uXCH 

3 

2188 

REF  3 LAST  282 

06,3410 

0 3255  0 

TC 

DSP2nlT 

2189 

REF  2 LAST  29° 

06,3411 

56  130  0 

kch 

DSPMmTEM 

RESTORE  DSPCOUNT 

2190  _ 

REF  53  LAST  290 

06.34X2 

54  270  0 

TS 

DSPCOUNT 

2191 

REF  bO  LAST  269 

05,3413 

0 0001  0 

DSPMMEND 

TC 

L 

R2192  RECALtST  IS  ENTERED  DIReCtLY  AFTER  DATA  IS 

^2193.  loaded^,  terminate  VE^B.  IS  EXECUTED.  OR  THE  PROCEED  WITHOUT  DATA  wfRR  IS 
R219A  executed.  IT  WA<eS  U3  JOB  THAT  DID  TC  eNDIDLE. 

R2195  IF  NY5UB  INITIATED  LOAD,  AND  ENDIDLf  WaS  NOT  USfD,  THfN  IT  RfLfASfS 

R2196  display  SYST.  (NeEdED  FOR  pATAWAIT) 


2197  ref  a last  28S___ OA,3AAO  SETLDC  SwJAb  +4 


2198  REF  6 LAST  289  04,3440  10  327  0 RECALTST  CCS  CADRSTOR 

2199  REF  1 04,3441  0 3446  1 TC  RECALl 

2200  REF  43  LAST  289  04,3442  0 5567  0 TC  ENOOfJOB 

2201  REF  2 LAST  290  04,3443  0 3446  1 TC  RECALl 

2202  REF  7 LAST  290 04,3444  54  327  0 TS CADRSTOR 

2203  REF  1 04,3445  0 3464  1 TC  RECAI  3 

A2204 

2 2 05  REF  39  LAST  2B»  04,3446  3 7767  0 RECALl  CAF  ZERO' 

2206  REF  8 LAST  290  34,3447  56  327  1 XCH  CADRsTOR 

2207  OA,3450  0 0004  0 INHINT 

2208  REF  3 LAST  15^  0A.3451  0 5551  0 TC  JOBWaKE 

2209  REF  5 LAST  289  04,3452  10  305  0 CCS  LOADSTAT 

2210  REF  1 04,3453  0 3470  1 TC  DOPROC 

2211  REF  44  LAST  290 04,3454  0 5567  0 TC ENDOFJOB 

2212  REF  1 04,3455  0 3466  0 TC  DOTERM 


NORMAL  EXIT  IF  KEYBOARD  INITIATED 

-0.  CONCLUSION  OF  NVSUB  INITIATED  LOAD. 
♦0  INTO  CADRSTOR,  RELEASE  DISPLAY, 

AND  ENDOFJOB,  NEEDeD  FOR  DATAWAIT. 


♦ proceed  without  data 
pathalogical  case  exit 
- terminate 


633i»36A  YUL  SYSTEM  FOR  ''GC : REVISION  0 OF  PROGRAM  BURST123  BY  NASA  202110ft-031 


DEC  7*  1967  (MAIN)  PAGE  291 


2213 

PINBAlL 
REF  34 

game 

LAST 

BUTTONS  and  lights 
28 1 34.3456  3.  776Z_D_ 

_CAF  . . 

Two 

USER'S  OWN  page  NO.  60 

2214 

REF 

6 

LAST 

22B 

34,3457 

50  064  0 

RECAL2 

INDEX 

LOCCtR 

2215 

REF 

4 

LAST 

166 

34,3460 

6 0154  1 

AD 

LOC 

LOC  IS  ♦ FOR  BASIC  JOBS 

2216 

REF 

7 

LAST 

291 

34,3461 

50,  064  0 

INOiX. 

_locctr_. 

2217 

REF 

5 

LAST 

291 

34,3462 

54  154  0 

TS 

LOC 

2218 

34,3463 

0 0003  1 

RELINT 

2219 

REF 

2 

LAST 

275 

Q 4711  1 

. RECAL3 

rc 

RELDsPl 

_ does  NOT  search  LIST.  . 

2220 

REF 

45 

LAST 

290 

34,3465 

0 5567  0 

TC 

ENDDFJOB 

2221 

REF 

90 

LAST 

290 

U4i3466- 

3 7767  0 

DDTERM 

CAF 

ZERO 

2222 

ref 

1 

34,3467 

0 3457  1 

TC 

RECAl2 

2223  REF  75  LAST,  ^89 

2224  REF  2 LAST  29l 


34.3470  3 7763  1 03PR0C, , CAF 

34.3471  0 3457  1 TC 


ONE  _ 
RECAi  2 
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P2225 

pinBa'-L  Game  buttons  and  lights 

the  following  REEER-5-  to  XHE  NO-JN  TABLES  __  _ 

USER'S  OWN  Page 

NO. 

61 

S3 

R2226 

component  Code  number. 

interpretation 

R2227 

00000 

a component 

R2228 

00001 

2 COMPONENT 

(EACH  S P) 

R2229 

00010 

3 component 

(EACH  SP) 

R2230  SF  ROjiTINE  rODE  NUMBER JjNIERPBET I OM 


R2231  00000  OCTAL  ONLY 

R2232  OP.OQI STRAIGHT  FRAOTIONAI 

R2233  00010  degrees  (XXX. XX) 

R2234  00011  ARITHMETIC  5F 

R2235  00100  ARITH  DPi  _ JJULLMULT  BY  2X1A  AT  END) 

R2236  00101  ARITH  DP2  OUT (STRAIGHT) 

R2237  OOllO  OPTICS  DEGREES (XX. XXX  MAX  89.999>  OR 

R2238  00111  ARITH  DP3  J^UT  ( SL  7 AT  END) 

R2239  end  o?i  SF  Routine  code  numbers 


IN  (STRAIGHT-!  - - 
IN(5L  7 At  END) 
(XXX. XX  MAX  179.99) 
IN  ( STRAIGHT) 


R2240 

SF  Constant  code  num3er 

interpretation 

R22A1 

00000 

WHOLE 

R22A2 

00000 

time  SeC(XXX.XX)SAME  as  WHOLf(ARITH  dpi) 

R22A3 

00001 

time  HOURS(XXX.XX)  use  ARITH:  DP? 

R22AA 

00010 

DEGREES 

R22A5 

00010 

OPTICS  degrees 

R2246 

00011 

GYRO  Degrees  (xx.xxx)  use  arithdps 

R22A7 

00100 

GYRO  bias  drift  .3BXXXXX  MILl IRAD/SEC 

R22A8 

00101 

gyro  axis  ACCEL.  DRIFT 

R22A9 

•BBXXXXX  (MILLIRAO/SEC)  / (CM/SEC  SEC) 

R225O 

00110 

PIPA  BIAS  X.XXXX  CM/SEC  SEC 

R2251 

00111 

PIPA  SCALE  FACTOR  ERROR 

R2252 

XXXXX.  PARTS/M, ILLION 

R2253 

01000 

POSITlON(XXXX.X  XILOMeTERS)  use  ARITHDP3 

R225A 

01001 

VELOCITY(XXXX.X  MeTERS/SEC)  USE  ARITHDP2 

R2255 

01010 

time  HoURS(XXX.XX)WEE<S  INSI0E(ARITHDP2) 

R2256 

01011 

ELEVATION  DEGREES (89. 999MAX ) USE  ARITH 

R2257 

01100 

RENDEZVOUS  RADAR  RANGE (XXXXXr.FEFT ) 

R_2_^6 

USE  ARITHDPI 

R2259 

OllOl 

RENDEZVOUS  RADAR  RANGE  R AT E ( XXXXX. FT /SEC 

R2260 

USE  ARlTHDPl 

R2261 

OHIO 

LANDING  radar  ALT  I TUDE ( XXXXX. FEET ) 

R2262 

USE  ARlTHDPl 
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L 

PINBAlL 

GAME  buttons  AnD  LIGHTS  USER'S  OWN  PAGE  NO.  62 

S3 

R2263 

Ollll 

__  _ -lNLT-IAL/PlNAL_ALTlT-JO£  L)(XXXX.FEEri  - - -- 

R226A 

R2265 

R2266 

10000 

lOOOl 

USE  ARlTHDPl 

ALTITUDE  RATEIMXXKX.FEET)  USF  ARITH 

FORWARD/LATERAL  velocity (XXXyX.FEFT/SEC)_ 

R2267 

R2268 

R2269 

10010 

USE  ARITH 

ROTATIONAL  HAND  CONTROLLER  ANGLE  RATES 

XXXXX.DfG/ScC  USF  ARITH 

R2270 

R2271 

R2272 

10011 

lOlOO 

LANDING  RADAR  VELX ( XXXXX. FEET/SEC) 

USE  ARlTHDPl 

_ .LANDING  RADAR  VELY  (XXKXX.FEEt/SEC) 

R2273 

R227A 

R2275 

lOlOl 

USE  ARlTHDPl 

LANDING  radar  VEL2 (XXXXX. FEET/SEC) 

_ . „ . USE  ARlTHDPl 

R2276 

R2277 

R2278 

lOllO 
end  of. 

OPTICAL  tracker  A2IMUTH  ANGLE (XXX. XXDEG) 

USE  ARlTHDPl 

SF  CONST A_Ni_  code  NUMBERS 

R2279  FOR  GREATER  THAN  SINGEE  PRECISION  SCAtESt  PUT  ADDRESS  qF  MAJoR  PART  INTq 
R2280  NOUN  lABLES. 

R2281  octal  LOADS  PLAC£^.til_i_NjO  ^MAJOR  PARTi  DATA  INTO  MINOR  PART. 

R2282  OCTAL  DISPLAYS  SHOW  MINOR  PART  ONLY. 

R2283  TO  GET  AT  BOTH  MAJOR  AND  MINOR  PARTS  (IN  OCTAL),  JS£  NOUN  Dll 
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L 

PINBALL  game  buttons  AND  LIGHTS  USER'S  OWN  PAGE  NO.  63 

S3 

P2284 

tHe  Following  routjn-s  are  for  reading  the  noun  tables  and  the  sf  tables 

R2285 

R2286 

(WHiCHi  are  in  a Separate  bank  from  the  rest  of  pinbald,  these  reading 

ROUTINES  are  IN  THE  SAME  BANK  AS  THE  TABLES.  THEY  ARE  CALLED  BY  DXCh  Z, 

R22B7 

LOdNNIAB  LOAD^  NnadTEMi  with  the  NNADTAB  entry.  NNTYPTEM.WLTH,  THE--  - - _ . ^ 

R2288 
R2289 
■ R2290 

NNtYPTAB  entry,  if  the  noun  is  mixed,  IDADiTEM  is  loaded  with  the  FIRST 
IDADDTAB  entry,  IDAD2TEM  THE  SECOND  IDaDDTAB  ENTRY,  I0AD3IEM  THE  THIRD 
IDADDTAB  FNTRY,  RUTMXTEM  with  the  RUTMXTA3  ENTRY.  MiXBR  IS  SET  FOR 

R2291  MIXED  OR  NORMAL  NOUN. 


22(32 

23,2000 

3ANK 

23 

2293 

ref 

1 

23,2000 

52  142 

1 

LODNNTAB 

PXCH 

TdAdpTEM 

SAVE  RETURN  INFO  IN  IqAoZTEM,  I^AdSTEM. 

229A 

•REF 

10 

LAST 

283 

23,2001 

50  273 

1 

index 

NOJNREG 

.2295 

REF 

1 

23;2002 

3 2052 

1 

CAF 

NNADTAB 

2296 

REF 

7 

LAST 

27O 

23,2003 

54  136 

1 

IS 

NNADTEM 

2297 

REF 

11 

LAST 

29A 

23,2004 

50  273 

1 

INDEX 

NDJNrEG 

2298 

REF 

1 

23,2005 

3 2152 

0 

:af 

NNT  YPTAB 

2299 

REF 

5 

LAST 

269 

23,2006 

54  137 

0 

TS 

NNTYrTEM 

2300 

REF 

12 

LAST 

29A 

23,2007 

4 0273 

0 

:s 

NOJNREG 

2301 

REF 

1 

23,2010 

6 2036 

0 

AD 

MIXCON 

2302 

23,2011 

0 0006 

1 

EXTEND 

2303 

REF 

1 

23,2012 

6 2016 

1 

3ZMF 

LODMtXNN 

NOUN  number  G/E  first  MIXED  NOJ'N 

230A 

REF 

76 

LAST 

29I 

23,2013 

3 7763 

1 

CAF 

ONE 

NOUN  number  L/  first  MIXED  NOJN 

2305 

REF 

12 

last 

273 

23,2014 

54  130 

1 

rs 

MIX3R 

NORMAL.  +1  INTO  MIXBR. 

2306 

REF 

1 

23,2015 

0 2034 

1 

re 

LODNLV 

2307 

REF 

35 

LAST 

29I 

23,2016 

3 7762 

0 

LDDMIXNN 

CAF 

TWO 

MIXED.  +2  INTO  MIXBR. 

2308 

REF 

13 

LAST 

29A 

23,2017 

54  130 

1 

TS 

M1X3R 

2309 

REF 

13 

LAST 

29A 

23,2020 

50  273 

1 

INDEX 

NOJNREG 

2310 

REF 

1 

23,2021 

3 2420 

0 

CAF 

RUTMXTAB  -55 

2311 

REF 

2 

LAST 

268 

23,2022 

54  143 

0 

TS 

RUTMXTEM 

2312 

ref 

1 

23,2023 

3 5337 

0 

CAF 

LOwlO 

2313 

ref 

8 

LAST 

29A 

23,2024' 

7 0136 

1 

MASK 

NNAOtEM 

231A 

REF 

12A 

LAST 

29O 

23,2025 

54  002 

1 

TS 

0 

TEMP 

2315 

ref 

178 

LAST 

28S 

23,2026 

50  000 

1 

INDEX 

A 

2316 

ref 

1 

23,2027 

3 2406 

1 

CAF 

iDADnTAB 

2317 

REF 

A 

LAST 

269 

23,2030 

54  140 

0 

TS 

IDADITEM 

LOAD  IDADITEM  WITH  FIRST  IDADDTAB  ENTRY 

2318 

23,2031 

0 0006 

1 

EXTEND 

2319 

ref 

125 

LAST 

29A 

23,2032 

5 0002 

0 

INDEX 

0 

LOAD  IDAD2TEM  WITH  2ND  IDADDTAB  ENTRY 

2320 

REF 

2 

LAST 

29A 

23,2033 

3 2410 

0 

DCA 

IDADnTAB  +1 

LOAD  1DAD3TEM  WITH  3RD  IDADDTA3  ENTRY. 

2321 

REF 

2 

LAST 

29A 

23,2034 

52  142 

1 

LDDNLV 

DXCH 

IDAD2TEM 

PUT  return  info  into  a,  L. 

2322 

REF 

13 

LAST 

288 

23,2035 

52  006 

0 

DXCH 

Z 

2323 

23*2036 

00055 

1 

MiXCON 

DCT 

55 

first  MIXED  NOUN  = 55* 

R232A  GTSFOJT  _ loads  S'- temp U SFjEMPz  J^ITH  THe  PP  SFqJTAS.  ENTRIES. 
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L 

2325 

PINBA.L 
REF  lA 

GAME 

LAST 

BUTTONS  And  lights 

273  _23_i2037.  52_llA  1 GlSfOUI 

DKCH 

SFTFmPI  _ 

USER'S  OWN  page  no.  6A 
_ ZX  LSFCONUMi  ^ARRIVES  JN  SFTEMPl..  . 

S3 

2326 

23.20A0 

0 0006  1 

EXTEND 

2327 

ref 

179 

LAST 

29A 

23.20A1 

5 0000  1 

INDEX 

A 

2328 

REF 

1 

, 23i20A2 

3 233L  1 

iCA  . 

SFJJtAB  _ _ 

2329 

REF 

15 

LAST 

295 

23.20A3 

52  llA  1 SFCOM 

DXCH 

SFTEMPl 

2330 

REF 

lA 

LAST 

29A 

23.20AA 

52  006  0 

DXCH 

Z 

R2331  GTSFIN,  loads _ 55 TEMPJ.u^-lEMPZ_rtilH  ThE  UP  SFINTAS  ENTRIES. 


2332 

2333 

REF 

16 

LAST 

295 

23.20A5 

23.2nA6 

52 

0 

llA 

0006 

1 GTSFIN 
1 

DXCH  SFTEMPl 

EXTEND 

2X(SFC0NUM)  ARRIVES  IN  SFTEMPl, 

233A 

ref 

IBO 

LAST 

295 

23.20A7 

5 

0000 

1 

INDEX  A 

2335 

REF 

1 

23,2050 

3 

2253 

1 

DCA  SFINtAB 

2336 

ref 

1 

. 23,2051 

1 

20A3 

0 

TCF  SFCDM. 

A2337 

2338 

23,2052 

00000 

1 

NNADTA3  DCT 

OOOOn 

2339 

23,2053 

AOOOO 

0 

DCT 

AOOOO 

23A0 

23,205A 

AOOOO 

0 

DCT 

AOOOn 

23a1  • 

23,2055 

AOOOO 

0 

DCT 

AOOOO 

2 3.  A 2 

23,2056 

AOOOO 

0 

JCT 

AOOOO 

23A3 

23,2057 

AOOOO 

0 

DCT 

AOOOO 

23AA 

23,2060 

AOOOO 

0 

DCT 

AOOOO 

23A5 

23,2061 

00000 

1 

DCT 

00000 

23A6 

23,2062 

77776 

1 

DCT 

77776 

23A7 

23,2063 

00000 

1 

DCT 

00000 

23A8 

23,206A 

00000 

1 

DCT 

ooooo 

23A9 

23,2065 

00000 

1 

DCT 

00000 

2350 

23,2066 

00000 

1 

DCT 

ooooo 

2351 

23,Z067 

77777 

0 

DCT 

777J7 

2352 

REF 

9 

LAST 

226 

23,2070 

0002A 

1 

ECADR 

T1ME2 

2353 

REF 

lO 

LAST 

295 

23,2071 

0002A 

1 

ECADR 

T1ME2 

235A 

REF 

8 

LAST 

223 

23,2072 

00032 

0 

ECADR 

CDJX 

2355 

REF 

2 

LAST 

1A7 

23,2073 

00037 

0 

ECADR 

PIPAV 

2356 

REF 

5 

LAST 

215 

23,207A 

OOAOO 

0 

ECADR 

THETAD 

2357 

REF 

A 

LAST 

205 

23,2075 

003A2 

1 

ECADR 

DSPTFM2 

2358 

REF 

8 

LAST 

28A 

23,2076 

00337 

0 

ECADR 

DSPTfMI 

2359 

REF 

9 

LAST 

295 

23,2077 

00337 

0 

ECADR 

DSPTfMI 

2 3feP_ 

REF 

10 

LAST 

295 

23,2100 

00337 

0 

ECADR 

DSPTFMI 

2361 

REF 

2 

LAST 

89 

23,2101 

01355 

0 

ECADR 

SMODF 

2362 

REF 

11 

LAST 

295 

23,2102 

00337 

0 

ECADR 

DSPTfMI 

2363 

REF 

1 

23,2103 

01363 

0 

ECADR 

ALMCaDR 

236A 

REF 

3A 

last 

67 

23,210a 

02166 

1 

ECADR 

TDEC 

2365 

REF 

1 

23,2105 

020A6 

1 

ECADR 

TET 

2366 

REF 

1 

23,2106 

0217A 

1 

ECADR 

MEASn 

2367 

REF 

12 

LAST 

295 

23,2107 

00337 

0 

ECADR 

OSPTEMl 

NN  normal  nouns 

00  NOT  IN  USE 

01  SPECIFY  machine  ADDRESS  (FRACTIONAL) 

02  SPECIFY  MACHINE  ADDRESS  (WHDuE) 

03  SPECIFY  machine  ADDRESS  (DESrEES) 

OA  SPECIFJ  MACHINE  ADDRESS  (HOJrS) 

05  SPECIFY  MACHINE  ADDRESS  (SECONDS) 

06  SPECIFY  MACHINE  ADDRESS  (GYRO*  DES) 

07  SPARE 

10  CHANNEL  TO  BE  SPECIFIED 

11  SPARE 

12  SPARE 

13  SPARE 
lA  SPARE 

15  INCREMENT  MACHINE  ADDRESS 

16  time  seconds 

17  TIME  HOURS 

20  ICDU  

21  PIPAS 

22  new  angles  1 

23  delta  angles  I 

2A  DELTA  time  (SEC) 

25  CHECKLIST 

26  PRlO/DELAY.  ADRES,  BBCOlN_ 

27  SELF  TEST  ON/OFF  SWITCH 

30  STAR  numbers 

31  ALMCADR.  ALMCADR  t-l.  ERCOUN T 

32  decision  time  (MIDCOURSE) 

33  ephemeris  time  (MIDCOUKSE) 

3A  measured  OtMNTITY  (MIpCOURSEJ 
35  INBIT  message 
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2368 

REF 

1 

_23j_2LlQ__ 

_^  OJ_5.QO  0 _ 

ECAM. 

LANOMAJRie  . . 

3^6 

LANDMARK  DATA. _1  „ 

2369 

REF 

2 

LAST 

296 

23.2111 

01503  0 

ECADR 

LANDMARK  +3 

37 

LANDMARK  DATA  2 

2370 

REF 

7 

LAST 

189 

23,2112 

00035  1 

iCADR 

OPTY 

40 

RENDEZVOUS  RADAR  ANGLES  (TRJn.  SHAFT) 

2371 

REF 

15 

LAST 

185 

23^2113 

00422  0 

ECADR 

.TANG^ 

41 

NEW  REND,  radar  ANGLES  (TRUN,  SHAFT) 

2372 

REF 

5 

LAST 

295 

23,2114 

00342  1 

ECADR 

0SPTfM2 

42 

AOT  ROTATION  ANGLES 

2373 

REF 

8 

LAST 

167 

23,2115 

00374  1 

ECADR 

xymark 

43 

AOT  Detent  code 

237A 

REF 

3 

LAST 

no 

23.2116 

00357  0 

ECADR 

foryfl 

44 

Forward  velocity,  lateral  velocity 

2375 

REF 

1 

23.2117 

03031  0 

ECADR 

PCOM. 

45 

rotational  hand  controller  angle  rate 

2376 

23.2120 

00000  1 

OCT 

OOOOn 

46 

SPARE 

2377 

23,2121 

00000  1 

OCT 

0.0000 

47 

SPARE 

2378 

REF 

7 

LAST 

246 

23.2122 

01360  0 

ECADR 

failreg 

50 

FAILREG.  FAILREG  +1,  FAILREG  +2. 

2379 

23.2123 

00000  1 

OCT 

oooon 

51 

SPARE 

2380 

REF 

1 

23.2124 

01444  1 

ECADR 

GBIASX 

52 

GYRO  BIAS  DRIFT 

2381 

REF 

1 

23.2125 

01447  1 

ECADR 

ADI  Ax 

53 

gyro  input  AXIS  acceleration  DRIFT 

2382 

REF 

1 

23.2126 

01452  0 

ECADR 

ADSRaX 

54 

gyro  spin  AXIS  acceleration  drift 

A2383 

NN 

MIXED  NOUNS 

238A 

23.2127 

02000  0 

OCT 

0200n 

55 

LANDING  RADAR  ALTITUDE,  TIME(SEC) 

2385 

23j2130 

02002  1 

OCT 

02QT12 

56 

LANDING  RADAR  VELX,  TIMEISECL 

2386 

23.2131 

02004  1 

OCT 

02004 

57 

landing  radar  VELY,  TIME(SEC) 

2387 

23.2132 

02006  0 

OCT 

02006 

60 

landing  radar  VELZ,  TIME(SEC) 

238J 

23.2133 

02010_JL 

OCT 

O20LO 

61 

TARGET  AZIMUTH  AND  ELEVATION 

2389 

23.2134 

04012  0 

OCT 

04012 

62 

RENDEZVOUS  RADAR  RANGE,  TRUN,  SHAFT 

2390. 

23.2135 

04015  1 

OCT 

04015 

63 

REND,  radar  range  RATE.  TRUN,  SHAFT 

2391 

23.2136 

04020  1 

OCT 

04020 

64 

INITIAL  ALTj  FINAL  ALJ,  ALT  RATE 

2392 

23.2137 

02023  1 

OCT 

02023 

65 

Sampled  time  (hours  and  seconds) 

A2393 

(FETCHED  IN  INTERRUPT) 

2394 

23.2140 

04025  1 

OCT 

04025 

66 

SYSTEM  TEST  RESULTS 

2395 

23.2141 

04030  0 

OCT 

0403O 

67 

DELTA  gyro  angles 

2396 

23.2142 

02033  0 

OCT 

0203i< 

70 

OPTICAL  tracker  angles  (AZI MjTH.ELEV) 

2397 

23.2143 

02035  0 

OCT 

02035 

71 

DESIRED  OPT,  TRACK.  ANGLES  (AZ.  ELEV) 

2398 

23.2144 

04037  1 

OCT 

04037 

72 

delta  POSITION 

2399 

23,2145 

04042  0 

OCT 

04042 

73 

delta  velocity 

2400 

23,2146 

04045  1 

OCT 

04045 

74 

measurement  data  (MIDCOURSE) 

2401 

23,'2147 

04050  0 

OCT 

O4O5O 

75 

measurement  deviations  (MIDCOURSE) 

2402 

23,2150 

04053  0 

OCT 

O4O53 

76 

POSITION  VECTOR 

2403 

23,2151 

04056  0 

OCT 

04056 

77 

VELOCITY  VECTOR 

A2404 

NN 

normal  nouns 

2405 

23,2152 

00000 

1 

NNTYPTAB  OCT 

00000 

00 

NOT  IN 

USE 

2406 

23,2153 

00040 

0 

OCT 

OOOAO 

01 

ICOMP 

fractional 

2407 

23.2154 

00140 

1 

OCT 

00140 

02 

ICOMP 

WHOLE 

2408 

23.2155 

00102 

1 

OCT 

00102 

03 

ICOMP 

DEGREES 

2409 

23,2156 

00241 

0 

OCT 

002A1 

04 

ICOMP 

HOURS 

2410 

23,2157 

00200 

0 

OCT 

00200 

05 

ICOMP 

SECONDS 

2411 

23,2160 

00343 

0 

OCT 

00343 

06 

ICOMP 

gyro  degrees 

2412 

23,2161 

00000 

1 

OCT 

00000 

07 

SPARE 

2413 

23.2162 

00000 

1 

OCt 

OOOOO 

10 

ICOMP 

octal  only 
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2414 

23.2163 

QOOQQ  1 

OCT 

onnon 

1 1 

SPARE 

2A15 

23,2164 

00000  1 

OCT 

OoOoo 

12 

SPARE 

2416 

23,2165 

00000  1 

OCT 

00000 

13 

SPARE 

2417 

23,21.66 

00000  1 

OCT 

OODOO_ 

14 

SPAKE 

2418 

23,2167 

00000  1 

OCT 

oooon 

15  ICOMP 

OCTAL  ONLY 

2419 

23,2170 

00200  0 

OCT 

00200 

16  ICOMP 

SECONDS 

2420 

23,21.71. 

.00.241  .0 

OCl 

0.0i4i  

- 17 -ICOMP 

HOURS 

2421 

23,2172 

04102  0 

OCT 

0410? 

20  3C0MP 

DEGREES 

2422 

23,2173 

04140  0 

OCT 

04140 

21  3C0MP 

WHOLE 

2423 

23,_21J.4 

. 04102. 0 

OCT 

04102 

.22  -3C0MP 

DEGREES  . 

2424 

23,2175 

04102  0 

OCT 

04l0? 

23  3C0MP 

DEGREES 

2425 

23,2176 

00200  0 

OCT 

00200 

24  ICOMP 

SECONDS 

2426 

23,2177 

_ 00140  1 

OCT  _ 

00140. 

25  -ICOMP- 

whole 

• 2427 

23,2200 

04000  0 

OCT 

04000 

26  3C0MP 

OCTAL  ONLY 

2428 

23,2201 

00140  1 

OCT 

00140 

27  ICOMP 

WHOLE 

2429 

23,2202 

04140  0 

OCT.  . 

. 04-1 4 a.  - 

30.  3.C0MP 

WHOLE 

2430 

23,2203 

04000  0 

OCT 

04000 

31  3C0MP 

OCTAL  ONLY 

2431 

23,2204 

00252  1 

OCT 

00257 

32  ICOMP 

TIME  WEEKS 

2432 

23,2205 

00252  1 

OCT 

00Z52 

33  ICOMP 

TIME  WEEKS 

2433 

23,2206 

00350  1 

OCT 

00350 

34  ICOMP 

POSITION 

2434 

23,2207 

04000  0 

OCT 

04000 

35  3C0MP 

octal  only 

2435 

. 23,2210 

04000  0 

oCT 

0400O 

36  3C0MP 

octal  only 

2436 

23,2211 

04000  0 

OCT 

O4OOO 

37  3C0MP 

OCTAL  ONLY 

2437 

23,2212 

02102  0 

OCT 

O2IO2 

40  2C0MP 

DEGREES 

2438 

_ 23j2_2l3 

02102  0 

OCJ . _ 

0.2-1-07-.- 

. . 41  2CPMP 

DEGREES 

2439 

23,2214 

02102  0 

OCT 

O2IO7 

42  2C0MP 

DEGREES 

2440 

23,2215 

00140  1 

OCT 

OOI40 

43  ICOMP 

WHOLE 

2441 

23,2216 

02161  0 

OCT. 

02161 

44  2C0MP 

FORWARD/LATERAL  VELOCITY 

2442 

23,2217 

04162  0 

OCT 

04167 

45  3 COMP 

ROT  HAND  CONT  ANGLE  RATE 

2443 

23,2220 

00000  1 

OCT 

OOOOO 

46 

SPARE 

2444 

23,2221 

00000  1 

OCT 

OOOOO 

47 

SPARE 

2445 

23,2222 

04000  0 

OCT 

O4OOO 

50  3C0MP 

OCTAL  ONLY 

2446 

, 23,2223 

00000  1 

OCT 

OOOOO 

51 

SPARE 

2447 

23,2224 

04144  1 

OCT 

04144 

52  3j:0MP 

GYRO  BIAS  DRIFT 

2448 

23,2225 

04145  0 

OCT 

04145 

53  3C0MP 

GYRO  AXIS  ACCEL,  DRIFT 

2449 

23,2226 

04145  0 

OCT 

04145 

54  3C0MP 

GYRO  AXIS  ACCEL,  DRIFT 

A2450 

NN 

MIXED  NOUNS 

2451 

23,2227 

00016 

0 

OCT 

00016 

55 

2C0MP 

LANDING  radar  ALT,  SECONDS 

2452 

23,2230 

00023 

0 

OCT 

00023 

56 

2C0MP 

LANDING  RADAR  VELX,  SECONDS 

2453 

23,2231 

00024 

1 

OCT 

00024 

57 

2C0MP 

LANDING  RADAR  VELY,  SECONDS 

2454 

23,2232 

00025 

0 

OCT 

00025 

60 

2C0MP 

LANDING  RADAR  VELZ,  SECONDS 

2455 

23,2233 

00542 

1 

OCT 

00542 

61 

2C0MP 

DEGREES.  ELEVATION  DE'.REES 

2456 

23,2234 

04114 

1 

OCT 

04114 

62 

3C0MP 

REND.  RADAR  RANGE,  DE5,  DEG 

2457 

23,2235 

09115 

0 

OCT 

04115 

63 

3C0MP 

REND,  RAD,  RANGE  RATE,  DEG, DEG 

2458 

23,2236 

40757 

0 

OCT 

40757 

64 

3C0MP 

IN/FN  ALT,  IN/FN  ALT,  ALT  RATE 

2459 

23,2237 

00001 

0 

OCT 

00001 

65 

2C0MP 

HOURS,  SECONDS 

2460 

23,2240 

OOOOO 

1 

OCT 

oooon 

66 

3C0MP 

WHOLE,  FRACTIONAL,  WHOLE 

2461 

23,2241 

06143 

1 

OCT 

P6143 

67 

3C0MP 

GYRO  DEGREES  FOR  EACH 

2462 

23,2242 

00126 

1 

OCT 

00126 

70 

2C0MP 

OPT  TRACK  AZIMUTH,  DEGREES 
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2A63 

23.2243 

„Q0LL2fc_  1 

3GJ 

---00X26 - 

Tl 

-2C  0-MP-  - 

-OPT-.  TRACK  -AZIMUTH,  -OESREES 

2A6A 

23,2244 

20410  0 

OCT 

20410 

72 

3C0MP 

position  for  each 

2A65 

23,2245 

22451  1 

OCT 

22451 

73 

3C0MP 

VELOCITY  FOR  EACH 

2A66 

23,2246 

_.0.0412  0 

OCT  _ 

0_0412 

74 

3C0MP 

-TIME  WEEKS,  POSITION,  WL-lOLE. 

2467 

23,2247 

20450  1 

OCT 

20450 

75 

3C0MP 

POSITION,  VELOCITY,  ^tSITION 

2468 

23,2250 

20410  0 

OCT 

20410 

76 

3C0MP 

POSITION  FOR  each 

2469 

23j,2^5_l_ 

_22451  1 

OCT  . 

2 2 451  

77 

3C0MP 

VELOCITY  FOR  EACH 

2470 

23,2252 

00006 

1 

SFINTA3  dCT 

00006 

WHOLE, TIME(SEC) 

2471 

23,2253 

03240 

1 

OCT 

03240 

2472 

23,2254 

00253 

0 

OCT 

00253 

TIME  HOURS  ( = 1,3.,...  ) 

2473 

23,2255 

25124 

1 

OCT 

25I24 

(POINT  BETWEEN  BITS  7-8  ) 

2474 

23,2256 

00000 

1 

OCT 

0 

degrees  (sfcon  in  DEGINSF  ) 

2475 

Z3.2257 

00000 

1 

OCT 

0 

24'76 

23,2260 

10707 

0 

OCT 

10707 

GYRO  DEGREES 

2477 

23,2261 

03435 

0 

OCT 

03435 

UPPED  BY  1 

2478 

23j2262 

00001 

0 

- - - - OCT 

OOOOJ  - 

GYRO  BIAS  DRIFT 

2479 

23,2263 

02133 

1 

OCT 

02133 

24b0 

23,2264 

00011 

1 

OCT 

OOOll 

GYRO  AXIS  ACCEL,  DRIFT 

2481 

23,2265 

30322 

1 

OCT 

3032a 

2482 

23,2266 

00004 

0 

OCT 

ooool 

PIPA  BIAS 

2483 

23,2267 

14021 

1 

OCT 

14021 

2484 

23.2270 

00314 

1 

OCT 

0031^* 

PIPA  SCALE  ERROR. 

2485 

23,2271 

31463 

1 

OCT 

31463 

2486 

23,2272 

23420 

0 

OCT 

23420 

POSITION 

2487 

23,2273 

00000 

1 

OCT 

00000 

2488 

23,2274 

00201 

1 

OCT 

00201 

VELOCITY 

2489 

23,2275 

30327 

1 

OCT 

30327 

( POINT  between  bits  7-8  ) 

2490 

23,2276 

01371 

0 

OCT 

01371 

TIME  WEEKS 

2491 

23,2277 

34750 

1 

OCT 

34750 

( POINT  between  bits  7-8  ) 

2492 

23,2300 

00001 

0 

OCT 

OOOOl 

ELEVATION  DEGREES 

2493 

23,2301 

03434 

1 

OCT 

03434 

2494 

23,2302 

00006 

1 

OCT 

00006 

rendezvous  radar  range 

2495 

23,2303 

20162 

0 

OCT 

20162 

2496 

23,2304 

00011 

1 

OCT 

OOOll 

RENDEZVOUS  RADAR  RANGE  RATE 

2497 

23,2305 

27066 

1 

OCT 

27O66 

2498 

23,2306 

00005 

1 

OCT 

00005 

LANDING  RADAR  ALTITUDE 

2499 

23,2307 

24733 

0 

OCT 

24733 

2500 

23.2310 

00002 

0 

OCT 

00002 

INITIAL/FINAL  ALTITUDE 

2501 

23,2311 

23224 

1 

OCT 

23224 

2502 

23,2312 

00014 

1 

OCT 

00014 

ALTITUDE  RATE 

2503 

23,2313 

06500 

1 

OCT 

06500 

2504 

23,2314 

00012 

1 

OCT 

00012 

FORWARD/LATERAL  VELOCITY 

2505 

23,2315 

36455 

0 

OCT 

36455 

2506 

23,2316 

04256 

1 

OCT 

04256 

ROT  HAND  CONT  ANGLE  RATE 

2507 

23,2317 

07071 

0 

OCT 

07071 

2508 

23,2320 

00011 

1 

OCT 

OOOll 

LANDING  RADAR  VELX 

2509 

23,2321 

17410 

1 

OCT 

17410 
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2511 

23,2323 

33740  1 

OCT 

33740 

2512 

23,2324 

00007  0 

OCT 

00007 

LANDING  RADAR  VELZ 

2513 

23,2325 

03701  .1. 

OCT 

03701  _ _ _ 

2514  23,2326  00005  I OCT  0000^  OPTICAL  AZIMUTH  TRACKER  ANGLE 

2515  23,2327  21616  0 OCT  21616 


_ _AZ5_16 END  OF  5FINTAB 


2517 

23,2330 

05174  0 SFOUTAB 

3CT 

05174 

WHOLE,  TimE(SEC) 

2518- 

23,2331 

13261  0 

DCT 

13261 

2519 

2A.2X3.2 

- _ Z767JD.J 

DCJ 

27670  _ _ 

_ TIME  HOURS _ _ 

2520 

23,2333 

31357  1 

DCT 

31357 

2521 

23,2334 

00000  1 

DCT 

0 

DEGREES 

2522 

23,2335 

00000  1 

DCT 

0 

2523 

23,2336 

00714  0 

DCT 

00714 

GYRO  DEGREES 

2524 

23,2337 

31463  1 

DCT 

31463 

(POINT  BETWEEN  BITS  7-8) 

2525 

23,2340 

35753  0 

DCT 

- 35753 

GYRO  BIAS  DRIFT 

2526 

23,2341 

32323  1 

DCT 

32323 

2527  ' 

23,2342 

03216  1 

DCT 

03216 

GYRO  AXIS  ACCEL.  DRIFT 

2528 

23,2343 

06400  0 

DCT 

06400 

2529 

23,2344 

07237  0 

DCT 

07237 

PIPA  BIAS 

2530 

23,2345 

37776  0 

DCT 

37776 

2531 

23,2346 

00120  1 

DCT 

00120 

PIPA  SCALE  ERROR 

2532 

23,2347 

00000  1 

DCT 

oooon 

2533 

23,2350 

00321  1 

DCT 

00321 

POSITION 

2534 

23,2351 

26706  1 

DCT 

( POINT  BETWEEN  BITS  7-8  ) 

2535 

23,2352 

37441  1 

DCT 

37441 

VELOCITY 

2536 

23,2353 

14247  0 

DCT 

14247 

2537 

23,2354 

05300  1 

DCT 

05300 

TIME  WEEKS 

2538 

23,2355 

20305  0 

DCT 

20305 

2539 

23,2356 

34631  1 

DCT 

34631 

elevation  degrees 

2540 

23,2357 

23146  0 

DCT 

23146 

2541 

23,2360 

04725  0 

DCT 

04725 

rendezvous  radar  range 

2542 

23,2361 

35454  1 

DCT 

35454 

2543 

23,2362 

03225  1 

DCT 

03225 

RENDEZVOUS  RADAR  RANGE  RATE 

2544 

23,2363 

07470  0 

DCT 

67470 

2545 

23,2364 

05521  1 

DCT 

05521 

LANDING  RADAR  ALTITUDE 

2546 

23,2365 

30260  0 

DCT 

30260 

2547 

23,2366 

14226  1 

DCT 

14226 

INITIAL/FINAL  ALTITUDE 

2548 

23,2367 

31757  0 

DCT 

31757 

2549 

23,2370 

02476  0 

DCT 

02476 

ALTITUDE  RATE 

2550 

23,2371 

05531  0 

DCT 

O5531 

2551 

23,2372 

02727  1 

DCT 

02727 

FORWARD/LATERAL  VELOCITY 

2552 

23,2373 

16415  0 

DCT 

1 6411; 

2553 

23,2374 
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sYstemi  for  other  internal  users. 

R273B 

R2739 

R27A0 

the  calling  seojences  are 

L TC  GRAB05P 

L+X  return  HeRE^  a/HEN  system  is  already  grabbed.  , . . _ 

R27A1 

L+2  RETURN  HERE  MEANS  YOU  HAVE  IT 

R2742 

1 TC  NVSU3 

R27A3 

R27<tA 

L+1  return  here  if  operator  has  intervened 

L+2  RETURN  HERE  AFTER  EXECUTION 

R27A5 

A routine  called  grabusy  i.s  Provided  (use  is  optional)  to  put  your 

R27A6 

R27A7 

R27A8 

JOB  TO'  SLEEP  UNTIL  THE  SYSTEM  IS  FREED  BY  tHe  J03  HOLDING  It. 
GRABJSY  cannot  Be  called  from  E memory,  SINCE  JoBSLEEP  and  jobwakf 
handle  only  fixed  memory. 

R27A9 

YOUR  :adr  is  put  at  first  available  slot  in  a Awaiting  list  (fifo). 

R2750 

THF  calling  SEOJENCF  IS 

R2751 
R2752  ■ 

CAF  WAKEFCADR 

TC  GRABJSY 

R2753 

R275A 

R2755 

A routine  called  NVSUBUSY  is  provided  (JSE  is  OPTIONAI ) TO  put 
your  job  to  sleep  until  the  operator  Releases  it. 

NVSU3JSY  CANNOT  Be  CA.LeD  FROM  e MEMORY,  SINCE  J03SLEEP  AND  JOBWAKE 

R2756 

R2757 

R2758 

handle  only  Fixed  memory. 

YOJR  :ADR  IS  pjt 

ON  TO^i  OF  A waiting  .1ST  (FIFO),  IT  ALSO  TURNS  ON  KEY  RELEASf  LIGHT, 

R2759 

R2760 

THE  CALLING  SE3UENCE  IS 
CAF  WAKEFCADR  • 

R2761 

TC  NVSU3JSY 

R2762 

R2763 

after  a TC  FREEDsP.  the  internal  INTERLOCK!  IS  KEPT  BUSY  FOR  i.75  SECS. 
after  which  a CADR  is  called  from  THF  LIST-  THIS  INSURFS  THAT  ALL 

R2764 

DISPLAYS  waiting  WILL!  BE  VISIBLE. 

R2765 

R2766 

GRaBLOCK  IS  THE  INTERVAL  INTERLOCK  FOR  THE  USE  OF  THE  KEYBOARD 
AND  DISPLAY  SYSTEM. 

R2767  +0  F^EE 
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R2768  *l  SDME  INTERNAL_R0JjrXNE-HA5_GRABa£D  D-SP-  SXST _ „ , _ _ _ 

R2769  +2  SDME  INTERNAL  ROUTINE  HAS  GONE  TO  NVSJBUSY 


2770 

2771 

rEF 

REF 

3 

139 

LAST 

LAST 

275 

304 

4632 
4_63_3 

10  330 
0 0002 

0 grabdsp 
0 

CCS 

TC 

GRABI  OCK 
3 - 

ALREADY  GRABBED,  RETURN 

2772 

REF 

77 

last 

299 

4634 

3 7763 

1 

CAF 

ONE 

NOT  grabbed.  Set  to  +i 

2773 

REF 

4 

LAST 

306 

4635 

54  330 

0 

TS 

GRABLOCK 

AND  RETURN  TO  L+2 

_277A. 

_ ME 



JZSO 

4636 

1.7015 

0 

_LTC£_. 

2775 

rEF 

2 

last 

299 

9637 

3 5337  0 

PREGBSY 

caf 

LDWIO 

special  entrance  for  routines  in  fixed 

2776 

REF 

190 

LAST 

306 

9640 

7 0002  1 

MAS< 

3 

BANKS  ONLY  DESIRING  THE  FCADR  Dp 

2777 

REF 

2 

last 

289 

4651 

6 0004  0. 

AD 

FBANK..  ..  . . 

X ♦ (LOC  FRjDM  WHICH  TC  PREGBSY  WAS  03NE) 

2778 

REF 

22 

LAST 

282 

4642 

0 5225  1 

GRABUSY 

TC 

POSTJUMP 

TO  BE  entered. 

2779 

REF 

1 

4643 

10000  0 

CAOR 

GRA3USYB 

2780 

MF 

? 

LAST 

29O 

04.3472 

5ETLQC 

DOPRnC  ♦? 

2781 

REF 

61 

LAST 

29O 

34,3472 

54  001  1 

GRABUSYl 

TS 

L 

2782 

REF 

5 

LAST 

306 

39,3473 

10  330  0 

CCS 

GRABi  OCK 

2783 

34,3474 

0 3477  0 

rc 

+ 3 

still  GRABBED.  . 

2789 

REF 

62 

LAST 

306 

39,3475 

3 0001  0 

CA 

L 

NOT  grabbed  so  DO  DIRECT  CALL 

2785 

REF 

10 

LAST 

282 

34,3476 

0 5230  0 

rc 

bankjump 

2786 

REF 

36 

last 

299 

34,3477 

3 7762  0 

CAF 

TWD 

2787 

REF 

1 

34,3500 

54  134  0 

TS 

LSTPtR 

2788 

REF 

2 

LAST 

306 

34,3501 

50  134  1 

INDEX 

LSTPTR 

search  list  for  FIRST  AVAILABLE  SPACE 

2789 

REF 

4 

LAST 

98 

34,3502 

10  333  0 

CCS 

dspltst 

FROM  bottom. 

2790  . 

34,3503 

0 3505  1 

TC 

+ 2 

2791 

REF 

1 

34,3504 

0 3510  0 

rc 

PUTInLST 

space  found 

2792 

REF 

3 

LAST 

306 

34,3505 

10  134  0 

CCS 

LSTPTR 

decrement  pointer 

2793 

34,3506 

0 3500  1 

TC 

-6 

2799 

REF 

1 

34,3507 

0 3554  0 

TC 

LSTFULL 

2795 

REF 

63 

LAST 

306 

34,3510 

3 (300L  0 

PJTINLST 

CA 

L 

2796 

REF 

-4 

LAST 

306 

34,3511 

50  134  1 

INDEX 

LSTPtR 

2797 

REF 

5 

LAST 

306 

34,3512 

54  333  0 

TS 

DSPLIST 

2798 

REF 

4 

LAST 

289 

34,3513 

0 5545  0 

TC 

JOBSl  EEP 

R2799  GRABiJAIT  Is  A SPECIA.  ENTRANCE  FOR  ROUTINES  IN  FUED  BAN<S  ONLY.  IF 

R2800  SYSTEMi  IS  NOT  GRABBED.  IT  GRABS  IT  AND  RETURNS  TD  L+1  ( L = LOC  FROM 

R2801  WHICH  the  TC  GRABwAIT  WaS  DQNE).  IF  SYSTEM.  IS  GRABBED,  IT  PUTS  CALLING 

R2802  JOB  TO'  SLEEP  WITH  L+ I GOING  INTO  LIST  FOR  EVeNTUAu  WA<ING  JP  WHEN 

R2803  SYSTEM:  IS  FREED. 

280A  REF  I ^6AA  SE T1.DC^  Tr^i iSY  +2 

2805  REF  6 LAST  306  10  330  0 GRABWAIT  CCS  3RA3L0CK 

2806  REF  I_  4645  1 4637  0 fCF  PREoBSY GRABBED.  PUT  L.l  INTO  LIST.  GO  TO  SLEEP. 

2807  REF  78  LAST  306  464^  3 7753  1 CAF  DNE  NOT  GRABBED.  GRAB  AND  RETURN  TD  L+1. 
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PINBAlL 

GAME 

buttons  amd  Lights 

USER'S  OWN  page  no.  76  S3 

2808 

REF 

7 

LAST 

3 .ap  - - 

4647__J4„JJ0 

_0 

- _r.s_ 

GR.AJl  OCX _ 

2809 

REF 

141 

LAST 

306 

4650 

0 0002 

0 

TC 

3 

2810 

ref 

1 

4651 

4 4656 

1 

pRenvbsy  :s 

2<  + 3 

special  entrance  for  routines  in  fixed 

2811 

REF 

LAST 

JOY. 

. A652_. 

6 0002 

0 

. , AD. 

3.  ..  . 

.BANKS  O.NLY  .DESIRING.  THE  FCADR.  J.FiLO.C..  .. 

2812 

REF 

3 

LAST 

306 

4653 

6 0004 

0 

AD 

fbank 

FROM  WHICH  THE  TC  PRENVBSY  WAS  DONE)  -2 

2813 

REF 

23 

LAST 

306 

4654 

0 5225 

1 

NVSUBUSY  TC 

PDSTJUMP 

TO  BE  entered. 

2814 

REF 

1 

A655  . 

_ lOOOJ. 

1 

CAOR 

NVSJBSYB 

2815 

4656 

02003 

0 

2<+3  3CT 

2003 

2816 

REF 

2 

LAST 

306 

_ _DA,35L4 

SETLDC  PJTImLST 

2817 

ref 

64 

LAST 

306 

04,3514 

54  001 

1 

NVsUBsYl  TS 

L 

2818 

REF 

8 

LAST 

28V 

04,3515 

10  303 

0 

CCS 

OSPLOCK 

TEST  IF  REALLY  LOCKED  OUT 

2819 

04.3516 

_Q  J521 

L 

TC 

♦ 3 

STILL  BUSY 

2820 

REF 

65 

LAST 

307 

04,3517 

3 0001 

0 

CA 

L 

DSPLOCK  = +0  SO  RETURN  DIRECTLY 

2821 

R£F 

11 

LAST 

306 

04,3520 

0 5230 

0 

rc 

bank.iump 

2822 

REF 

37 

last 

306 

04^3521 

3 7762 

0 

CAF 

TWO  . . 

SET  FOR  GRABBED  STATE  AND  NVSJ3JSY  USE 

2823 

REF 

8 

LAST 

307 

04,3522 

54  330 

0 

TS 

GRA3L0CK 

2824 

REF 

66 

LAST 

307 

04,3523 

3 0001 

0 

CA 

L 

2825 

REF 

6 

LAST 

306 

04,3524 

56  335 

1 

KCH 

DSPLTST  ,2 

ENTER  CADR  INTO  FIRST  POSITION  oF  LIST 

2826 

REF 

7 

LAST 

307 

04,3525 

56  334 

0 

XCH 

DSPLtST  +1 

(BOTTOM) 

2827 

REF 

8 

LAST 

307 

04,3526 

56  333 

1 

KCH 

DSPLIST 

2828 

r_ef 

Ifll 

LAST 

795 

04,3527 

10  000 

0 

CCS 

A 

2829 

ref 

2 

LAST 

306 

04,3530 

0 3554 

0 

TC 

LSTFIJLL 

2830 

04,3531 

0 3533 

1 

TC 

♦ 2 

2831 

ref 

3 

LAST 

307 

04,3532 

0 3554 

0 

TC 

LSTFIJLL 

2832 

ref 

2 

LAST 

277 

04,3533 

0 A601 

1 

TC 

Reldspon 

2833 

ref 

67 

LAST 

307 

04,3534 

3 0001 

0 

CA 

L 

2834 

ref 

5_ 

LAST 

306 

04,3535 

.0.  5S45. 

0 

ENDNVBSY  TC 

J03SI  EEP 

R2835  NV5B/J‘\IT  IS  A S>^EcIAl  ENTRANCE  FOR  ROUTINES  IN  fIkEQ  aAN<s  ONLY.  IF 
R2836  SYSTE'1-  IS  NOT  BUSY.  IT  EXECUTES  V/N  AND  RETURNS  TOi  L+1  (L=  LOC  FROM 

R2837  WHICH  THE  TC  NVSBWAHJAS  DONE).  IF  SYSTE’t  IS  BUSY.  IT  PUTS  CALLING  JOB 

R2838  TO  SLEEP  WITH  L-1  GOING  INTO  LIST  FOR  EVENTUAL  WACilNG  UP  WHEN  SYSTEM 
R2839  IS  NOr  BUSY. 


2840 

REF 

2 

LAST 

219 

4657 

SETLOC 

NVSJRUSY  +3 

2841 

ref 

8 

LAST 

288 

4657 

54  113  0 

nvsbwait 

TS 

NVTEMP 

2842 

REF 

9 

LAST 

307 

4660 

10  303  0 

CCS 

DSPLnCK 

2843 

REF 

1 

4661 

1 4664  0 

TCF 

NVSBWTl 

BUSY 

2844 

REF 

143 

LAST 

307 

4662 

3 0002  0 

CA 

0 

FREE. 

NVSUB  WILL  SAVE  L+1 

FOR  RETURN 

2845 

REF 

3 

LAST 

219 

4663 

1 4451  1 

TCF 

NVSJb  t5 

AFTER 

EXECUTION, 

2846 

REF 

144 

LAST 

307 

4664 

24  002  0 

NVSBWTl 

INCR 

3 

L.2. 

PRENVBSY  WILL  PUT  L-1  INTO  LIST 

2847 

REF 

1 

4665 

1 4651  0 

TCF 

PRENwBSY 

GO  TO 

SLEEP. 
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L 

28A8 

PINBACL 
REF  195 

game 

LAST 

buttons  and  lights 

307  _ _ 9^6 6A  _5_6_  002 

reldsp 

USER'S  OWN  PAGE  NO,  77  S3 

._5.ET  D5P.L-0«  TO  .+  0..  TJJ.RN  RELD.SP  £lGHT_ 

28A9 

ref 

1 

9667 

59  139 

0 

ts 

RELrfT 

OFF,  search  DSPLiST 

2850 

REF 

2 

LAST 

262 

9670 

3 7771 

1 

caf 

NEol 

2851 

REF 

9 

LAST 

307 

9671 

6 0330 

1 

. AD 

GSA3L0,CK. 

2852 

9672 

0 0006 

1 

EXTEND 

SEARCH  LIST  ONLY  IF  GRABLOCK  = *2 

2853 

ref 

1 

9673 

6 9701 

0 

3ZMF 

REL0SP2 

(SOMEONE  USED  NVSUBUSY) 

285A 

ref 

1 

__  9619 

0 9719 

1 

rc 

. nxsearch,  . 

2855 

ref 

2 

LAST 

308 

9675 

0 9701 

0 

rc 

REL0SP2 

LIST  EMPTY 

2856 

REF 

9 

LAST 

290 

9676 

0 5551 

0 

TC 

JOBNAKE 

LIST  NOT  empty 

2857 

REF 

79 

LAST 

3O6 

967_1 

3 7763 

1 

CAF 

ONE 

2858 

REF 

10 

LAST 

308 

9700 

59  330 

0 

IS 

0RA31  OCX 

‘2859 

9701 

0 0009 

0 

RELDSP2 

INriINT 

2860 

REF 

12 

LAST 

303 

V70Z 

9 7757 

1 

C5 

_ BIT5 

TURN  OFF  key  RE.LEASE  LIGHT 

2861 

9703 

0 0006 

1 

EXTEND 

(BIT  5 OF  CHANNEL  11) 

2862 

REF 

lO 

LAST 

309 

9709 

03  Oil 

1 

()AND 

dsaCmout 

2863 

REF 

91 

LAST 

29l 

9J05 

-3  7767 

0 

CAF 

ZERO.  . . 

286A 

REF 

10 

LAST 

307 

97O6 

59  303 

0 

rs 

DSPLOCK 

2865 

9707 

0 0003 

1 

RELINT 

2866 

REF 

2 

LAST 

308 

. 9 7 LO 

0,0139 

1 

T _C  , „ 

-R£.L?£I_.  . 

2867 

REF 

196 

LAST 

308 

9711 

56  002 

0 

RELDSPl 

XCH 

3 

SET  DSPLOCK  TO  +0,  RELDSP  LIGHT  OFF, 

2868 

REF 

3 

LAST 

308 

9712 

59  139 

0 

rs 

RELRfT 

NO  LIST  search 

2869 

REF 

3 

LAST 

308 

9713 

0 9701 

0 

TC 

REL0<;P2 

2870 

2871 

2872 

REF 

REF 

REF 

92 

9 

10 

LAST 

LAST 

LAST 

3o8 

307 

308 

9719 

9715 

9716 

3 7767 
56  333 
56  339 

0 

1 

0 

WKSEARCH  CAF 
KCH 
XCH 

Zero 

DSPLIST 
DSPLIST  ♦! 

SEARCHES  LIST.  LeAVES  ReSULt  IN  A. 

IF  EMPTY,  RETURN  TO  L+1. 

IF  NOT  EMPTY,  INHiNT  AND  RETURN  TO  L+2. 

2873 

■ REF 

11 

LAST 

308 

9717 

56  335 

1 

XCH 

DSPCIST  +2 

2879 

9720 

0 0006 

1 

EXTEND 

2875 

REF 

3 

LAST 

170 

9721 

1 7020 

0 

3ZF 

TC3 

EMPTY,  RETURN  TO  L+1 

2876 

9722 

0 0009 

0 

inhint 

NOT  empty 

2877 

REF 

5 

LAST 

306 

9723 

1 7015 

0 

TCF 

3+1 

return  to  L+2 

2878 

REF 

197 

la.st 

308 

9729 

56  002  0 FREED.AP 

XCH 

3 

2879 

REF 

1 

9725 

59  139  0 

TS 

FREEdET 

2880 

9726 

0 0009  0 

INHINT 

2881 

REF 

1 

9727 

3 9735  1 

CAF 

shotVme 

2882 

REF 

31 

last 

303 

9730 

0 5663  1 

TC 

WAIT!  1ST 

2883 

REF 

59 

LAST 

290 

EO 

ebank= 

DSPCOUNT 

2889 

9731 

03536  1 

2CADR 

FREEWAIT 

C2889 

ref 

1 

9732 

10060  0 

2885 

9733 

0 0003  1 

RE  LI  NT 

2886 

REF 

2 

LAST 

308 

9739 

0 0139  1 

TC 

FREERET 

2887 

9735 

00257  1 SHOTIME 

DEC 

175 

SET  FOR  1.75  SEC. 

2888 

REF 

1 

04t3536 

5ETL0C 

ENDNVBSY  +1 

9 
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2889 

REF 

3 

LAST 

27  b 

04.3936 

_ 3_  5210  1 

F9EEWAIT 

:af  __  . 

- called  B-Y  T3RUPT _ 

2890 

REF 

11 

LAST 

276 

04,3537 

0 5505  1 

TC 

NOYAC 

2891 

REF 

55 

LAST 

308 

EO 

EBAN<= 

DSPCOUNT 

2892 

_ _04,3S4O 

^03543  -0 

2CA0i 

.FREOSPDO 

C2892 

ref 

1 

04,3541 

10060  0 

2893 

REF 

22 

LAST 

276 

04,3542 

0 5727  0 

TC 

TASAnVER 

289A 

ref 

2 

LAST 

U) 

0 

(X 

04,3543 

0 4714  1 

F9EDSP00 

TC 

WiC SEARCH-  - 

CALLED  BY  E)(ECUTlVE 

2895 

REF 

1 

04,3544 

0 3552  0 

TC 

LSTEMPTY 

LIST  EMPTY 

2896 

REF 

5 

LAST 

308 

04,3545 

0 5551  0 

TC 

jobwake 

LIST  NOT  empty 

2891 

04,3546 

0 0003  1 

9ELINT 

2898 

REF 

30 

LAST 

308 

04,3547 

3 7763  1 

CAF 

ONE 

SET  FOR  GRABBED  CONDITION 

2899 

REF 

11 

LAST 

308 

04,3550 

54  330  0 

TS 

3RA3I  OCK 

2900 

REF 

LAST 

?9l 

04.3551 

0 5567  0 

TC  _ 

ENDOpJOB 

2901 

REF 

93 

LAST 

308 

04,3552 

3 7767  0 

lstempty 

CAF 

ZERO 

SET  FOR  FREE  CONDITION 

2902 

04,3553 

0 3550  1 

TC 

-3 

2903 

REF 

if 

LAST 

282 

-_04il55-4 

fl  6000  1 

lsthull 

TC 

AB0-9.T 

2904 

04,3555 

01206  1 

OCT 

01206 

PINBALL  waiting  LINE  FULL. 
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P2905 

VBTST-TS  TUrwS  Om 

ALL  Display 

_£AM£jL_LLGtULS.  AFTER  5 SEC,  IT  tURmS 

R2906 

OEF 
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caution  and  status  lights. 

2907 

REF 
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_ ..05,3414 
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2908 
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,3414 

0 0004 
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2909 

REF 
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REF 
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LAST 
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REF 
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LAST 
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AD 

BITl 

2912 

REF 
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LAST 
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0 

TS 
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2913 

REF 
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05 
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3 3457 
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CAF 
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TURN  ON  UPLINK  ACTIVITY,  TEMP,  <EY  RLSE, 

291A 

05 

*3422^ 

0 0006 

1 . 

EXTEND 
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2915 

ref 

11 

LAST 

308 

05 

,3423 

05  on 

1 

WOR 

DSALmOUT 

2916 

REF 

1 

05 

» 3424 

3 3460 

0 

CAF 

TSTC0N2 

TURN  ON  NO  ATT,  GIMBAL  LOCK,  TRACKER, 

2917 

REF 

34 

LAST 

215 

05 

.^3425 

54  326 

1 

TS 

OSPTAB  ...+  I1.D 

PROG  ALM, 

2918 

REF 

28 

LAST 

246 

06 

,3426 

3 7752 

0 

CAF 

31T10 

TURN  ON  TEST  ALARM  OUTBIT 

2919 

05 

,3427 

0 0006 

1 

EXTEND 

2920 

REF 

2 

last 

246 

05 

.3430 

05  013 

0 

WO.S 

CHANI 3 

2921 

REF 

3 

LAST 

242 

05 

,3431 

3 4570 

1 

CAF 

TEN 

2922 

REF 

5 

LAST 

246 

05 

,3432 

54  107 

0 

tstltsi 

TS 

ERCNT 

2923 

_BEF 

1 

06 

,3433 

4 3455 

1 

cs 

FULLnSP 

2924 

REF 

6 

LAST 

310 

06 

,3434 

50  107 

1 

index 

ERCNT 

2925 

REF 

35 

LAST 

310 

06 

,3435 

54  313 

1 

TS 

DSPTaB 

2926 

REF 

7 

LAST 

310 

06 

,3436 

10  107 

0 

CCS 

ERCNT 

2927 

REF 

1 

06 

,3437 

0 3432 

1 

rc 

TSTLTSI 

2928 

REF 

1 

05 

,3440 

4 3456 

1 

CS 

FJLLDSPl 

2929 

REF 

36^ 

LAST 

310 

05 

.3441 

54  314 

0 

TS 

DSPTAB  ^ t)  _ _ 

TURN  0N_3  PLUS  Sl^S 

2930 

REF 

37 

LAST 

310 

06 

,3442 

54  317 

0 

TS 

DSPTAB  +4 

2931 

ref 

38 

LAST 

310 

05 

,3443 

54  321 

0 

TS 

DSPTAB  +6 

2932 

REF 

2 

LAST 

9l 

05 

,3444 

3 7764 

0 

CAF 

eleyfn 

2933 

REF 

. 7 

LAST 

28l 

05 

,3445 

54  307 

1 

TS 

NOJT 

2934 

06 

,3446 

0 0003 

1 

RELINT 

2935 

ref 

1 

06 

,3447 

3 3462 

1 

CAF 

sholts 

2936 

05 

,3450 

0 0004 

0 

INHINT 

2937 

REF 

32 

LAST 

308 

06 

,3451 

0 5663 

1 

TC 

WAIT!  1ST 

2938 

REF 

39 

LAST 

310 

EO 

rBAN<= 

DSPTAB 

2939 

06 

,3452 

03463 

0 

2CADR 

TSTCtS2 

C2939 

ref 

1 

05 

,3453 

12060 

1 

2940 

REF 

47 

LAST 

309 

05 

,3454 

0 5567 

0 

TC 

enddfjob 

DSPLOCK  IS  left  BUSY  (FROM  KEYBdARD 

A2941 

ACTION)  UNTIL  TSTLTS3  TO  INSURE  THAT 

A2942 

LIGHTS  TEST  WILL  BE  SEEN. 

2943 

05,3455 

05675 

0 

FJLLDSP 

dCT 

05675 

DISPLAY 

ALL  8:S 

2944 

06,3456 

07675 

1 

FJLLDSPl 

oCT 

07675 

DISPLAY 

ALL  8(S  AND  ♦ 

2945 

05,3457 

00175 

1 

TSTCONl 

OCT 

00175 

A 29A6 UPLINK  ACTIVITY.  TEMP.  KEY  RLSE. 

A29A7  V/N  FLASH,  OPERATOR  ERROR. 
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L 

pinball  game  buttons  And  lights 

USER'S  OWN  page  NO.  80  S3 

29^8 

_ 05.3960  40ii3D  0 

J3TC0_N2  _ 

_ oa 

90650  _ _ 

lOSPIABtUD  BIT_S  A,6.,a,9. 

A2949 

2950 

A2951 

06,3961  00115  1 

TSTCON3 

OCT 

00115 

NO  ATT,  GIMBaL  LOCK,  TRACKER,  PROo  ALM, 
CHAN  11  BITS  1,  3,  9,  7. 

. UPLLMK  ACTIVITY,  TEMP.  OPERATOR  ERROR. 

2952 

05,3962  00769  1 

SHOUTS 

OCT 

769 

5 SEC 

2953 

2959 

REF 

REf 

9 

12 

LAST 

LAST 

309 
309  _ 

35*3463 

35«3_464 

3 5210  1 TSTLTS2 
0 5505  1 

CAF 

rc 

CHRPRIO 
NOVAC  . 

called  by  waitlist 

2955 

ref 

90 

LAST 

310 

EO 

EBAN<= 

DSPTAB 

2956 

06,3965 

03970  1 

2CADR 

TSTLTS3 

C2956 

R£f_ 

1 

05,3966 

12060  1 

2957 

REF 

23 

LAST 

309 

05,3967 

0 5727  0 

TC 

TASKOVER 

2958 

rEf 

1 

05,3970 

9 3961 

0 TSTLTS3 

:s 

TsTCDnB 

Called  by  executive 

2959 

05.3971 

0 0009 

0 

inhint 

2960 

06,3972 

0 0006 

1 

EXTEND 

TURN  OFF  UPLINK  ACTIVITY,  TEMP, 

2961 

REF 

12 

LAST 

310 

05,3973 

03  Oil 

1 

WAND 

DSALmOUT 

OPERATOR  error. 

2962 

REF 

29 

LAST 

310 

06,3979 

9 7752 

1 

:s 

aiTio 

TURN  OFF  TEST  ALARM  OUTBIT 

2963 

05,3975 

0 0006 

1 

EXTEND 

2969 

REF 

3 

LAST 

310 

06,3976 

03  013 

0 

WAND 

CHANl 3 

2965 

REF 

26 

LAST 

289 

05.3977 

3 7795 

0 

CAF 

B1T15 

TURN  OFF  AUTO,  HOLD,  FREE,  NO  AIT,  SPARE 

2966 

REF 

91 

last 

311 

05,3500 

59  326 

1 

TS 

OSPTAB  +11D 

GIMBAL  LOCK,  SPARE,  TRACKER,  PROG  ALM 

2967 

REF 

1 

05,3501 

9 3521 

0 

CS 

13-11  ,1 

SET  BITS  TO  INDICATE  ALL  LAMPS  OUT,  TEST 

2968 

REF 

15 

LAST 

3 TO 

05,3502 

7_  0366 

0 

MASK 

IMD0ES33 

LIGHTS  complete. 

2969 

REF 

9 

LAST 

296 

05,3503 

6 5692 

1 

AD 

PR1016 

2970 

REF 

16 

last 

311 

05,3509 

59  366 

0 

rs 

TMDDFS33 

2971 

REF 

1 

05,3505 

9 3523 

1 

CS 

3CT55000 

2972 

REF 

57 

LAST 

296 

05,3506 

7 0365 

0 

MASK 

IM00ES30 

2973 

REF 

2 

LAST 

131 

05,3507 

6 5691 

1 

AD 

PRlO'l  5 

15000. 

297A 

ref 

58 

LAST 

311 

06,3510 

5^  365 

0 

rs 

1M00FS30 

2975 

REF 

1 

05.3511 

9 ^522 

0 

CS 

HFAII  S2 

2976 

REF 

7A 

LAST 

296 

05,3512 

7 0912 

1 

MASK 

RADMnDES 

2977 

REF 

20 

LAST 

303 

05,3513 

6 7755 

1 

AD 

31T7 

2978 

REF 

75 

LAST 

311 

05,3519 

59  912 

1 

rs 

RADMODES 

2979 

05,3515 

0 0003 

1 

RELINT 

2980 

REF 

2 

LAST 

90 

D5  ♦ 35 1 6 

0 2001 

1 

TC 

DSPMM 

REDISPLAY  C(MODREG) 

298l 

REF 

29 

LAST 

307 

05,3517 

0 5225 

1 

TC 

PDSTJUMP 

TURN  OFF  key  RLSE  LIGHT  (AND  SEARCH  LIST 

2982 

REF 

2 

LAST 

253 

05,3520 

11333 

1 

CAOR 

VBTERM 

IF  APPROPRIATE). 

A2983 

TURN  OFF  V/N  FLASH,  SET  LOADSTAT  FOR 

A2989 

FOR  terminate  condition,  and  go  to 

A2985 

RFCALTST.  FINALLY  DO  TC  ENOOFJOB. 

633^t36A 
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L 

29B6 

pinball  game  buttons  and  lights 

_35t3321  _ i&OOJ._i 

J1CJ_ 

. .liiDaU  . 

USER'S  OWN  page  no,  81 

S3 

2987 

2988 

35.3522  00330  1 

35.3523  55000  1 

RFAILS2 

0CT55030 

dct 

OCT 

330 

55030 

RADAR  CDU  AND  DATA  FAIL  FLAGS. 

633«(36A  YUL  system  FOR  *GC;  REVISION  0 OF  PROGRAM  BURST12D  BY  NASA  2021106-031 
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L ALARM  AND  ABORT  USER'S  OWN  PAGE  NO.  1 S3 


Rnnn  1 

PROGRAM 

description  ^ _ 

_DA.TE_  9 FFB  1967  _ _ _ 

R0002 

R0003 

ROOOA 

PROGRAM 
MOD  3Y- 

written  by  M. HAMILTON 
R.MeLANSoN  TO'  ADD  DOCUMENTATION 

LOG  SECTION-ALABM  AND  ABORT 

assembly  sunburst  rev  107 

Rooos 

R0006 

ROOOT 

functional  description- 

TO  illuminate  the  program  alarm  lamp  and  display  octal  alarm  OR  ABORT 

COD-S  VIA  verb  15  NOUN  50.  OCtjAL  CODeS__ SUPPL I ED  BY  CALLING  ROUTINE.  _ ___  _ 

ROODS 

R0009 

ROOlO 

calli NG 
L TC 

SEQUENCE- 

ALARM  OR  abort  LIN  TASK 

DR  U03) 

ROOll 

R0012 

R0013 

L+i  OCT  (OCTAL  CODE 

NORMAL  EX IX_MQDE-  _ 

identifying  cause  of  alarm  or  ABORT) 

R0015 

R0016 

R0017 

TO  .1*2  OF  calling  SEUUENCE  IF  ALARM 
(TC  TRAP)  TO  RESTART  IF  ABORT 

Roois 

R0019 

R0020 

alarm  or 

OUTPUT- 

ABORT  exit  mode-  NONE 

Ro021 

R0022 

R0023 

ALARM 

erasable 

OR  abort  octau 

INJIIALlzATIdN 

CODE  IN  ONE  OF  FAILREG  ReG 

isters 

FOR  nlSPLAY. 

R002A 

R0025 

R0026 

failreg  thru  FaiLREG' 
DEBRIS- 

♦2  zeroed  by  fresh  start. 

R0027 

005A 

0 . A 1 L . 

ALMCADR*ALMCAOR 

♦i.ruptrega 

A736 

3L0C< 

2 

0055 
00555 

0056 

ref  US 
REF  2 

LAST  30S 
LAST  295 

H/36  0 OOOA  0 

4737  3 0002  0 

4740  55'363  1 

CCSHOLE 

inhint 

CA 

ts 

Q 

ALMCiDR 

0057 

0058 

rEF  1 

4741  0 6003  1 

4742  01103  1 

TC 

DCT 

AB0rt2 

1103  . 

0059 

00591 

REF  U9 

LAST  313 

4743  0 0004  0 

4744  3 0002  0 

CURTAINS 

inhint 

CA 

SAVE  2CADR  OF  USER  FOR  CURTAINS  DISPLAY 
Q 

00592 

ref  3 

LAST  313 

4745  55'363  1 

TS 

ALMCaDR 

Q05„98 

RER 

4746  0 4760  1 

TC 

ALARM2 

0060 

4747  00310  0 

OCT 

00310 

00602 

4JT50  0 0004  0 

UETENTRY 

LNHL^I 

0060A 

00606 

REF  1 

REF  13 
REF  1 

LAST  287 

4751  3 4754  0 

4752  56  006  1 

4753  1 2007  0 

CAF 

XCH 

TCF 

CURTRB 

BBANK 

F0R5FTIT 

00608 

00609 

REF  28 
REF  2 

LAST  22A 
LAST  313 

E3 

4754  16063  0 

curtbb 

eban<= 

3BC0N 

LSTl 

fqrgftit  ^ 

0061 

07.2103 

3AN< 

07 

633A36A 

yul 

system  For  *gc: 

REVISION 

0 OF  PROGRAM  BURST123  SY 

NASA  2021106-031 

DEC  7, 

1967  (MAIN)  page  314 

L 

00612 

ALARvi  and  abort 
REF  1 

37.2103 

0 4632 

_1_ 

LARMLA-RM  .T.C 

GRA3DSP 

USER'S  OWN  page 

NO.  2 S3 

0061A 

REF 

48  LAST  310 

37,2104 

1 5567 

1 

rcF 

ENDDFJOB 

00615 

REF 

2 LAST  93 

37,2105 

1 2107 

1 

rCF 

DOALARM  ♦! 

0062 

REF 

10  LAST  21“^ 

37,2106 

0 4644 

0 

D3ALARM  rC 

GRABWAIT 

DISPLAY  FAILREG. 

0063 

REF 

1 

37,2107 

3 2112 

1 

CAF 

FAICOISP 

0064 

REF 

22  LAST.  Z2l  . 

37,2110 

0 465J7 

1 

r c . 

.NVSauiAIT.  . . 

0065 

REF 

7 last  221 

37,2111 

0 5566 

1 

re 

EJFRFE 

FREE  display  AND 

END  JOB. 

0066 

37*2112 

01550 

0 

FAILDISP  DCT 

01550 

MONITOR  DISPLAYS 

3 FAILREG  REGS 

0070 

REF 

30  last  193 

37_i2.U3 

. 0.  475.5 

1 

_ JET ABORT  re  _ 

alarm 

0071 

37,2114 

00312 

1 

DCT 

00312 

0072 

REF 

_ 1 

3:7,2115 

1 4750 

0 

TCF 

J.ET.ENTR.Y.  . . 

R04b0  • 

alarvi  is  called  eith 

eR  in  interrupt  or 

under  executive 

CONTROL 

R0481 

calling  sequence, 

A0482 

TC 

ALARM 

A0483 

dct 

AAANm 

ALARM  NO.  NN  IN 

general  area  AAA. 

A04M 

(RETURNS  HERE! 

05002 

0501 

4755 

4755 
0 0004  0 

ALARM 

3U0C< 

inhint 

02 

05012 

REF 

150 

LAST 

313 

4756 

3 0002 

0 

CA 

Q 

05014 

REF 

4 

LAST 

313 

4757 

55*363 

1 

TS 

ALMCaDR 

0502 

rEf 

151 

last 

319 

4760 

50  002 

0 

ALARM2 

INDEX 

Q 

0503 

4761 

3 0000 

1 

CA 

0 

0504 

REF 

68 

LAST 

307 

4762 

54  001 

1 

bdrtent 

rs 

L 

STORE  RETURN  -1  IN  L 

05042 

REF 

14 

LAST 

313 

4763 

3 0006 

1 

CA 

05044 

REF 

5 

LAST 

314 

4764 

55*364 

0 

T5 

ALMCaDR  +1 

0505 

ref 

152 

LAST 

314 

4765 

3 0002 

0 

CA 

Q 

0506 

REF 

10 

LAST 

228 

4766 

54  073 

1 

TS 

RUPTRE64 

0507 

REF 

8 

LAST 

296 

4767 

11*360 

1 

CHKFAILl 

CCS 

FAILREG 

IS  anything  in  FAILREG 

O5O8 

REF 

1 

4770 

1 4773 

1 

rcF 

CH<FaIL2 

YES  TRY  NEXT  REG 

0509 

ref 

9 

last 

314 

4771 

23*360 

0 

.XCH 

faicreg 

0510 

REF 

1 

4772 

1 5005 

0 

fCF 

PR05LARM 

TURN  ALARM  LIGHT  ON  FOR  FIRST  AlARM 

0511  REF  10  LAST  ai't  A773  11»361  0 CHKFAIL2  CCS  ^FAlLREG  *1 
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REVISION 
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L 

alarvi  and  abort 

USER*S  own  page  NO.  3 

S3 

n5i  2 

R£F 

1 

477it 

-1  4-777  0 - 

TCF 

-EA1-L3-  - 

0513 

REF 

11  LAST 

314 

4775 

23*361  1 

LXCH 

FAILREG  +1 

0514 

REF 

1 

4776 

1 5010  1 

TCF 

ARMDSPON 

LIGHT  ALREADY  ON 

0515 

REF 

12  LAST 

315 

4777 

3 1362  I 

FA1L3  :A 

FAILREG  +7 

0516 

rEf 

13  last 

278 

5000 

7 7743  1 

■ *1AS< 

POSMAX 

0517 

REF 

132  LAST 

307 

_500i 

. 10  000  -0 

:cs 

A 

0518 

REF 

1 

5002 

1 5020  1 

TCF 

MULTFAIL 

0519 

REF 

13  LAST 

315 

5003 

23*362  1 

lXCH 

FAILREG  +7 

0520 

REF 

2 LAST 

315_ 

- 500.4 

1 5010  1 

TCF 

ARMDSPON 

LAST  display  TURN  ON  UNTIL  ERR 

RESET 

0521 

REF 

42  last 

311 

5005 

4 0326  1 

PROGLARM  :S 

DSPTAB  +11D 

0522 

ref 

1 

5006 

7 6006  0 

. . MAS<  . 

3CT40400  ..  _ 

0523 

REF 

43  LAST 

315 

5007 

26  326  1 

ADS 

DSPTAB  +11D 

■ 05231 

REF 

2 LAST 

93 

5010 

3 5660  1 

ARMDSPON  CAF  . . . 

-PR-ID37-  - 

05232 

ref 

13  LAST 

311 

5011 

0 5505  1 

TC 

NOVAr 

05233 

REF 

14  LAST 

315 

E2 

eban<= 

FAILREG 

05234 

5012 

02103  1 

2CADR 

LASMI  ARM 

C05234 

REF 

1 

5013 

16062  1 

0524 

REF 

11  LAST 

314 

5014 

56  073  0 

mjltexit  xch 

RJPTREG4 

052A5 

5015 

0 0003  1 

REUJiLT 

0525 

REF 

133  LAST 

315 

5016 

50  000  1 

INDEX 

A 

0526 

5017 

0 0001  0 

TC 

1 

0527 

REF 

59  LAST 

31A 

5020 

3 0001  0 

mjltfail  :a 

L 

0528 

REF 

27  LAST 

311 

5021 

6 7745  0 

AD 

BITls 

0529 

REF 

15  LAST 

315 

5022 

57*362  1 

XCH 

FAILREG  +2 

05292 

REF 

14  LAST 

315 

5023 

7 7743  1 

MAS< 

POSMAX 

05294 

REf 

16  last 

315 

5024 

55*361  0 

TS 

FAIlREG  +1 

0530 

REF 

1 

5025 

1 5014  0 

TCF 

MJLTEXIT 

(3543- 

6000 

3L0C< 

03 

0550 

6000 

0 0004  0 

A3oRT  INHINT 

05502 

ref 

153  LAST 

314 

6001 

3 0002  0 

CA 

D 

05504 

REF 

6 LAST 

314 

6002 

55*363  1 

IS 

ALMCaDR 

0551 

ref 

154  LAST 

315 

6003 

50  002  0 

A30RT2  index 

D 

0552 

6004 

3 0000  1 

CAF 

0 

0553 

REF 

1 

6005 

0 4762  0 

TC 

BORTfNT 

0554 

6006 

40400  1 

OCT40400  3CT 

40400 

05542 

REF 

19  last 

273 

6007 

4 7750  0 

CS 

BIT17 

PUT  RFSTARTABILITY  FLAG  DOWN  6 

oENERATE 

05544 

REF 

8 last 

229 

6010 

7 0075  1 

MAS< 

FLAGwRDl 

A RESTART  TO  YIELD  A FAKESTRT. 

05546 

REF 

9 LAST 

315 

6011 

54  075  1 

rs 

F L AoWRD 1 

0555  REF  I _ 6012  1 6012  0 i^HlMPER  TCP  WHIMPER 
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L 

UPDATE  PROGRAM  PART  1 OF  2 USER'S 

OWN  PAGE 

NO.  1 

S3 

Roool 

PROGRAM,  NAME-  UPDATE- £K0SRAM . _ - . - _ 

R000105 

ROOOll 

ROOOI2 

PROGRAM  written  BY-  RHODE 
MOD  NDi.-  2 

MOD  BY-  KILROY  TO  ADD  AGC  CLOCK  AND  TE (V75E4ETTTTTE)  UPDATE  FEATURE. 

R00013 

R00014 

R0D015_ 

date-  01FEB67 

LOG  SECTIONS-  UPDATE  PROGRAM  PART  1 OF  2 
JPDATF  PROGRAM  PART  ? OF  ? 

R00016 

R0OOI7 

ROOQI8 

ASSEM3LY-  RfV  93  OF  SUNBURST 

functional  oescRiptio.n-  to  process  Commands  and  data  insertions 

requested  by  the  ground  via  uplink.  _ . 

R00019 

ROO02 

ROOO2I 

VERBS  V64,  VST,  V70,  V?l,  V72,  V73,  V75  AND  V76  WILL  NOT  BE 
processed  if  the  mission  timers  are  DISA3LeD(I.E.  an  MP  IS  IN 
PROGRESS).  OPERATOR  ERROR  LIGHT  WILL  3f  tURNFD  ON. 

ROO022 

ROOO25 

R00026 

V65,  V66  and  V74  WILL  Be  PROCESSED  EVEN  iF  A MP  IS  IN  PROGRESS 
calling  SEOUENCE-  TCF.  XXUPDAT  where  XX  = extended  VERBS(64  TO  76) 

LST2FAN  CONTAINS  A LIST,  OF  ,TrF- XXUPO-AI . 

R00027 

R00028 

R00029 

WHICH  ARE  USED  BY  VeRBFAN  IN  PINBaLL  TO 
GIVE  control  to  the  UPDATE  PROGRAM. 
subroutines  called-  p.OSTUUMP,IBnKCALLi  BANKCALL.  CH£CKMM,_  SRaBWAI T , 

R0003 

R00031 

Ro0032' 

NEWMOOEX,  FREEDSP,  WAITLIST,  ENDOFUOB,  NoVAC,  TASKOVER,  FINDVAC 
ENDUP,  DOV67,  D0V70,  DOV71,  DOV72,  DOV73,  0OV74,  DFiTMCAL, 
GRRPLACel,  NVSBWAIT,  ENDIDLe,  XACTALM,  MGfTUP,  updatint,  tpagree 

R00033 

R00034 

R00035 

R00036 

R00037 

RMOJfl. 

R00039 

ROOO'f 

Rooe<*i 

R00042 

ROOO<*3 

ROOO^'i 

RCOO^tS 

R00046 

Ro0047 

ROO051 

R00053 

Roods^ 


NORi'^ALi  EXIT  mode-  TC  BANKCALL 
CAD?.  ENDUP 

alarm  or  abort  exit  mode-  BZF_  XACTALM 


TC 

CADR 


BANKCALL 

XACTALM 


IN  prqGrfs s_. 
IF  MP  IN  PROGRESS 


res'tart  protection-  none  for  verbs  64  TO  74.  restart  protection  is 

INCLUDED  FOR.  V75  AND  V76  UNDER  THE  FqLLO/^ING  C I RC JMST ANCfS 

1.  THE  data  mas  been  SENT  AND  VERIFIED  ( I .E.  V33E  HAs  BEEN  SENT) 

2.  program  is  in  the  Process  of  moving  data  from  struff  to 
appropriate  registers  or 

VER»  76  O'Ri  VERB  75UNDEX  = 4 ONLY)  PRdGRAM  (5)  _ARf  WAITINGIVIA  WAITLIST  _ 

3 SEC  CAlU  For  orbital  integration  TD  Be  turned  off. 

<H(»0F  LoURSE  all  ground  updates (IF  LOST  DUE  TO  A RESTART)  CAN 

Be  restarted  by  sending  the  CoJMMANDS  and  D^TA_A  S_EC0ND  TlMEiHHt  „ _ 

input  (SEE  LATEST  AS2DS  GToP ( RS27 : FOR  MORE  IINFO)-  DESCRIPTION  OF  UPDATE  COMPONENTS 

CDMP, 

update  ENTRY  DeSCRiIPTION. OF  UPDATE  VeRBS  NO.  SYMrOL  VALUES  DEFINITION  (WHERE  STORED) 


R00056 

R00058 

Roods 

VS4EI EXXXXXE 
XXXXXE 

SET  M.ISSION  timer  I TO  ELAPSE  AI  A 
given  ground  elapsed  TIME(GET) .X-5 

1.  I 

2.  XXXXX 

1 ,2,3,4 

MISSION  TIMERS 

MSB  OF  GET (MUST  Be  IN) 

R000S2 

R00064 

Roooss 

VS5E 

are  he  get (IN  CENTISECONDS  OF  TH- 
DESIRED  EVENT. 

SET  GUIDANCE  REFERENCE  RELEASE 

3.  XXXXX 
NONE 

LSB  OF  GET (THE  FUTURE) 

R00066 

R00067 

ROOOSS 

VS6E 

DISCRETE. 

INITIATE  the  LGC  DFI  TLM  CALIBRATE 
ROUTINE. 

NONE 

ROOOS9 

VS7EXXXE 

ENTER.  A THREE  DIGIT  OCTAL  NUMBER 

1.  XXX 

1-377 (OCTAL) 

SEE  GSOP  FOR  LIST  OF  COMMANDS 

633A36A 
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Rnon7i 

REPR-SFNTING  the  8-  BIT  COMMAND  TO  , 

r60072 

BE  SENT  TO  THE  LMP. 

R00073 

VTOEIETTTTTE 

increment  timer  I by  ttttt  octal 

I. 

I 

1 *293*4 

MISSION  timers 

R00075 

seconds.  

TTTtT 

- -#*S£E  NOTES  TO  LEFT*# 

R00077 

»asee  below  For  description  of 

R00079 

(UPDATE  OF  TIMERI  LOGIC  ! AND 

Roooei 

_ MAINTENANCE-LOGIC!  It# 

R00085 

V7IEIEPPE 

set  mission  phase  register  I TO 

1. 

I 

1 ,2, 3, A 

MISSION  PHASE  REGISTERS 

R00087 

MISSION  PHASE  PP  (OCTAL) 

2. 

PP  7, 

10,11,13,15(OCT)  MISSION  PHASES 

R00089 

V72EIEPPETTTTTE 

. (— combination  of  V70  AND  V71.  — ) 

R0009 

V73EIE 

CHANGE  the  STATE  OF  THE  D?S  COLD 

1. 

I 

1 

ENABLE/INHIBIT  RCS  TESrING 

R00092 

SOAK  (MISSION  PHASE  8)  DISCRETE(I= 

2) 

I 

2 

ENABLe/INHIBIT  dps  COLO  50A< 

R0009A 

- I - 

3...  . - - 

— .ENABLE/-INHLB1T  RCS  COLo  SOA< 

R00096 

(I  s 1 OR  3 WILL  ONLY  INVERT 

R00098 

RESPECTIVE  bits  OF  FLA3WRD2  AND 

ROOlO  . 

HAVE  NO  OTHER  EFFECT  ON  ?Q6) . 

R00102 

V7AE 

MISSION  idle  command. 

NONE 

ROOlOA 

(VERS  15, NOUN  50,  Rl  = FAlLREG, 

R00105 

R2  = FAlLREG  +1,  R3  = FAlLREG  .2 

R00106 

WILL  APPEAR  ON  DSKY) 

R00107 

V75E1EXXXXXE 

UPDAlE  target  parameters  FOR  DPSl 

1. 

I 

1 

DPSi  target  PARAMS  UPDATE  CODe 

R00109 

XXXXXE 

, BURN. (MISSION  PHASE  9). 

Zm 

XXXXX 

MSB  OF  R(P)  (RP  ) 

Room 

3. 

xxxxx 

LSB  OF  RIP)  (RP  .1) 

RO01121 

(RP  IS 

the  desired  perigee  or  APOGEE 

R001123 

RADIUS 

SCALED  AT  meters  2(2A)) 

R00113 

V75E2EXXXXXE 

UPDATE  target  PARAMETERS  FOR  DPS2 

1. 

I 

2 

DPS2  target  PARAMS  UPDATE  CODE 

R00115 

XXXXXE 

BURN  (MISSION  PHASE  11)  . 

2. 

xxxxx 

MSB  OF  CPT(6)  (CPT6/2  ) 

R00117 

XXXXXE 

3. 

xxxxx 

LSB  OF  CPT  (6)  (CPT6/2  .1) 

R00119 

XXXXXE 

A. 

xxxxx 

MSB  OF  CPT (7)  (CPT6/2  ,2) 

R00121 

XXXXXE 

5. 

xxxxx 

LSB  OF  CPT (7)  (CPT6/2  *3) 

R00123 

XXXXXE 

6t 

xxxxx 

MSB  OF  CPT(8)  (CPT6/2  .A) 

R00125 

7. 

xxxxx 

LSB  OF  CPT(8)  (CPT6/2  .5) 

R00127 

(CPT/6 

IS  1/2  UNIT  NORMAL  TO  Hi 

R00129 

DESIRED 

ORBITAL  PLANE  IN  STABLE  MEMBER 

R001301 

R00131 

R00133 

R00135 

R00137 

R00139 

R00141 

R00143 

R00145 

R00147 

R001^9 

R00151 

R00153 

R001532 

ROOIS^ 

ROOlS^tZ 


V75E3EXXXXXE 

XXXXXE 

XXXXXE 

XXXXXE 

XXXXXE 


UPDATE  target  PARAMETERS  FOR  APS2 
BURN  (MISSION  PHASE  13). 


XXXXXE 

XXXXXE 

XXXXXE 

XXXXXE 

XXXXXE 


1.  I 

2.  X_XXXX 

3.  XXXXX 
A.  XXXXX 

_5j XXXXX 

6.  XXXXX 


7. 

„ 8._ 

9. 

10. 

-11., 


XXXXX 

-XXXXX_ 

xxxxx 

XXXXX 

■ xxxxx. 


COORDINATES) 

APS2  TARGET  PARAMS  UPDATE  CODE 
MSB  OF  RCSM(TA)0  (RWECL  )_ 
LSB  OF  RCSM(TA)0  (RWEC  .1) 

MSB  OF  RCSM(TA)1  (RW^C  .2) 
LSB_0,E  RCSM(TA)1  (RWeC  .3), 
MSB  OF  RCSM(TA)2  (RWeC  .A) 

LSB  OF  RCSM(TA)2  (RWeC  *5) 

MSB  OF  TA  _ (TINT-  — J 

LSB  OF  TA  (TINT  *1  ) 

MSB  OF  RD  (RCO  ) 

LSB  OF  RD (RCO.  ...I )__ 


(RIVeC  is  the  POSITION  VECTOR  0-  THE 

desired  intercept  point  in  stable 

MEMBER  COORD  SCALED  AT  METERS  (.251.  - 
TINT  IS  THE  TIME  SCALED  AT  CSEC  2(28). 
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R00155 

RCO  IS  THE  DESIRED  RADIUS  AT  CJ-rDFF 

R00156 

scaled  at  meters  2(25) ) 

R00157 

\/75EAETTTTTE 

UPDATE  LGC  CLOCK ( T IME2 ,T I MeU  1. 

I A 

LGC  AND  SV  CLOCK  UPDAT-  CODE 

R00159 

. .and  STATE  T^CTOK  TJMEITL.TE  +U  . . 

TJTTT  _ 

delta  TIME(SP. octal. cseci  to 

ROOI6I 

WITH  TTTTTdN  CENTISECONDS) 

BE  ADDED  TO  TIMEl 

AND  IE  +l 

R00163 

V76E  XXXXXE 

state  vector  update.  U 

XXXXX 

MSB  OF  X POSITION 

(ReFrrect 

) 

R00165 

XXXXXEL_. 

...  2.- 

XXKXX  _ 

...  LSB  OF  .X  POSITION 

(REFrREOI 

♦ 1) 

R00167 

XXXXXE 

3. 

■XXXXX 

MSB  OF  Y POSITION 

(REFrReCT 

.2) 

R00I69 

XXXXXE 

A. 

XXXXX 

LSB  OF  Y POSITION 

(REFrReCT 

♦ 3) 

R00171 

XXXXXE 

. . . . ..  5. 

XXXXX 

MSB  OF  Z POSITION 

(REFFReCT 

.A) 

R00173 

XXXXXE 

6. 

XXXXX 

LSB  OF  Z POSITION 

(REF-ReCT 

♦ 5) 

R00175 

XXXXXE 

7. 

XXXXX 

MSB  OF  X VELOCITY 

(REFv/RECT 

) 

P00177 

XXXXXE 

_ 8. 

XXXXX 

_ _ . _ LSB  OF__X_ VELOCITY 

(R£F.^R.EXT 

*J.) 

R00179 

XXXXXE 

9. 

XXXXX 

MSB  OF  Y VELOCITY 

(REFv/ReCT 

*2) 

ROOI8I 

XXXXXE 

10. 

xxxxx 

LSB  OF  Y VELOCITY 

(REFRRECT 

♦ 3) 

R00183 

XXXXXE 

11. 

XXXXX 

. . MSB.  OF  Z VELOCITY 

(REFvRECT 

*A) 

R00185 

XXXXXE 

12. 

xxxxx 

LSB  OF  Z VELOCITY 

(REF>/RECT 

♦ 5) 

R00187 

XXXXXE 

13. 

xxxxx 

MSB  OF  TIME 

(TE 

) 

R00189 

XXXXXE 

lA. 

xxxxx 

LSB  OF  TIME 

(TE  *1 

) 

R00I91 

(POSITION  SCALED  AT  KILOMETERS  2dA). 

R00193 

velocity  scaled  at  METERS/CSEC 

. BDJ5195„ 

2(7)  / 1.29753638  ^ 

niuwi.y2 £ > f j L 

R001961  TIME  scaled  AT  CENTISECONDS  2<23>  ) 

R00197  UPDATE  OF  TIMERI  LOGICTUPDT  = TTTTT  TIME  ^eNT  v^IA  UPLINO- 

RilfllSA I 


R00199 

BEFORE 

A 

A 

A 

H 

R0020 

UPDATE 

N 

N 

N 

E 

R00201 

TIMERI  = 

D UPPT 

= D 

TIMERI  + UPDT  = 

D TIMERI  ♦ JPOT 

= N 

timed  I = ...  . 

R00202 

R00203 

( 

( 

R0020A 

( 

( 

OVERFLOW 

NO  CuANGf  (except  OPERATOR  ERROR  = ON) 

R00205 

( 

( 

R00206 

( 

( 

R00207 

( 

( 

( 

R00208 

( .GT. 

+ 0( 

( .GE.  *0 

TIMERI  + UPDT 

R00209 

( .LT. 

-0( 

NO 

( 

ROOZJ 

( 

( 

OVERFLOW  • 

( .LT.  -0 

0 

R00211 

• oE t *0 

( 

( 

( 

R00212 

( 

( 

( .EO.  -0 

0 

R00213 

( 

( 

( 

R0021A 

( 

( 

R00215 

( 

R00216 

( 

( 

R00217 

( .EO. 

+ 0 ( 

UPDT 

R00218 

( .EO. 

-0( 

R002I9 

( 

( 

R0022 

( 

R00221 

R00222 

.LE.  -0 

.iPOI ^ 
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R00223  TIMER  MAINTENAN0£ JjaililBY  JMMAmTLlj^  - 

R0022A  TIMERI  = MEANS 

R00225  

R00226  .GT.  *0  TIMERL  IS_CaUNTING  DOWN  _ _ _ 

RO0227  .EQ,  +0  mission  PHASE  IN  ASSOCIATED  MISSION  PHASE  REGISTER  IS  NOW  DUE 

R00228  .LT.  -0  FREE  BUT  LOADED  BY  GROUND 

R00229 FREE 

R00321  OUTPUT-  PERFORM  UPDATES  AS  DESCRIBED  IN  GSOP  AND  (INPUT: 

R003215  erasable  INITIALIZATION  REQUIRED-  NONE 


R00322 

OEBRIS(ERASABLE  LOCAT IONS  DESTROYED  BY  THIS  PROG 

RAM)- 

MPAC  - MPAC  +2. 

R003225 

STCOUNI , 

EBANK.,  UPVERB,  UPOLDMOD.  FLA3WRD2  ( BI  T6)  , U?YeMP  , 

R00323 

uptempi, 

COMPNUMB,  REFRRECT  - REFRRECT 

♦5,  REFRCV  - REFRCV  +5, 

R003235 

refvrect 

- REFVRECT 

t5  ,_Ji£FYCV_  - REFVCV 

R0032A 

DELTAV  - 

OE.TAV  +5t 

NUV  - NUV  +5*  REFTC 

. REFTC  +1, 

R0032A5 

refkep  - 

RE?<EP  +1, 

UPINDEX,  updt 

R00325 

AND_C£NTilAL^fiIST£RS 

00329 

11,3242 

3AN< 

11 

003291 

REF 

3 

LASTL  70 

E4 

£BAN< 

= STBJcF  „ ^ ^ 

0033 

REF 

25 

LAST  31I 

11,3242 

0 5225  1 65UPDAT 

TC 

POSTJUMP 

003A 

REF 

1 

11,3243 

56000  1 

:adr 

GRRPI  ACE 

6035 

ref 

26 

LAST  31R 

11,3244 

0 5225  1 74UPDAT 

TC 

POSTJUMP 

00.36 

REF 

1 

11,3245 

16003  0 

:adr 

00V74 

0037 

11,3246 

0 0004  0 66UPDAT 

INHINT 

00375 

REF 

15 

LAST  147 

11,3247 

0 5270  1 

TC 

IBNCcALL 

0038 

REF 

1 

11,3250 

56204  1 

CADR 

DFITMCAL 

■ 0039 

REF 

49 

LAST  314 

11,3251 

1 5567  1 

TCF 

ENDOfJOB 

OOaO 

REF 

1 

11,3252 

3 3311  1 73UPDAT 

:a 

OCT74 

OOAl 

REf 

2 

LAsT  200 

11,3253 

0 3255  0 

TC 

67JPnAT  +1 

OOa2 

ref 

1 

11,3254 

3 3312  1 67UPDAT 

CA 

DCT67 

00a3  - 

REF 

I3l 

LAST  304 

11,3255 

54  144  1 

rs 

MPAc 

OOAA 

ref 

3l 

LAST  309 

11,3256 

3 7763  1 

:a 

ONE 

OOA5 

REF 

2 

LAST  200 

11,3257 

0 3277  0 

TC 

76JPDAT  +3 

0046 

REF 

1 

11,3260 

3 3313  0 70UPDAT 

CA 

OCT7O 

0047 

REF 

2 

LAST  200 

11,3261 

0 3263  0 

rc 

TlJPnAT  +1 

0048 

REF 

1 

1U3262 

3 3314  1 71UPDAT 

CA 

0CT71 

0049 

REF 

132 

LAST  31R 

11,3263 

54  144  1 

rs 

MPAC 

0050 

REF 

38 

LAST  307 

11,3264 

3 7762  0 

CA 

Two 

0051 

REF 

3 

LAST  319 

11,3265 

0 3277  0 

TC 

76J?nAT  *3 

0052 

REF 

1 

11,3266 

3 3315  0 64UPDAT 

CA 

110CT64 

0053 

REF 

2 

LAST  200 

11,3267 

0 3271  0 

TC 

72JPDAT  +1 

005A 

REF 

1 

11,3270 

3 3316  0 72UPDAT 

CA 

0CT7£_ 

0055 

REF 

133 

LAST  319 

11,3271 

54  144  1 

TS 

MPAC 

0056 

ref 

13 

LAST  279 

11,3272 

3 6311  1 

CA 

THREF 

0057 

REF 

4 

LAST  319 

11,3273 

0 3277  0 

rc 

76JPDAT  +3 

0058 

REF 

1 

11,3274 

3 3317  1 76UPDAT 

CA 

0CT76 

0059 

ref 

134 

LAST  319 

11,3275 

54  144  1 

rs 

MPAC 

0060 

REF 

1 

11,3276 

3 3320  0 

CA 

110CT16 

0061 

ref 

135 

LAST  319 

11,3277 

54  145  0 

TS 

MPAC  +1 
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0062 

REF 

2 LAST  200^ 

_L1jJ30O  0 A103  1 

_ IC 

-TiUPnAJ  *Z 

0063 

ref 

1 

11,3301 

3 3321  1 

75UPDAT 

CA 

11DCT75 

006A 

ref 

136  LAST  3lV 

11,3302 

54  144  1 

TS 

MPAC 

0065 

REF 

1 

_LljJ33_03 

3 0076  0 

:a 

FLA5WRD2 

. TEST  IF  XI ME85 ..ENABLED. 

0066 

REF 

13  LAST  308 

11,3304 

7 7757  1 

>1A5< 

B1T5 

0067 

11,3305 

0 0006  1 

EXTENi; 

0068 

REF 

3 LAST  21D 

11,3306 

1 2053  1 

3ZF 

XACT_aLM__ 

....  NO„i  REXURN 

0070 

REF 

23  LAST  283 

11,3307 

0 5206  0 

TC 

8AN<CALL 

0071 

REF 

1 

11,3310 

54000  0 

CADR 

JPPART2 

007Z 

11,3311 

00073  0 

_acj73  „ 

0.00X3  . 

0073 

11,3312 

00067  0 

0CT67 

OCT 

00067 

007A 

11,3313 

00070  0 

DCT70 

OCT 

00070 

0075 

11,3314 

00071  1 

..1ET71 

OCT 

00071 

0076 

11,3315 

00064  0 

110CT64 

OCT 

D 0 0 64 

0077 

11,3316 

00072  1 

DCT72 

OCT 

00077 

D07a 

11,3317 

Q0Q76  0 

3CT76 

OCT 

QDQ76 

0079 

11,3320 

00016  0 

110CT16 

OCT 

16 

0080 

11,3321 

00075  0 

110CT75 

OCT 

00075 

633<t36A  YUL  SYSTEM  FOR  AGC;  REVISION  0 OF  PROGRAM  BURSTlZO  SY  NASA  2021106-031 


DEC  7,  1967  (MAIN)  PAGE  321 


L update  program  Part  2 of  2 


USER'S  OWN  Page  no.  1 S3 


0001 

?^,?nnn 

3AN2 

_26 

0002 

REF 

A 

LAST 

31^ 

E4 

rBAN<= 

stbjff 

0003 

REF 

1 

26,2000 

3 2515  1 U=PART2 

:A 

UPE4 

OOOA 

REF 

15 

LAST 

302 

26j2001 

5-4  003  0- 

IS 

eb-Ank  . - - 

0005 

REF 

1 

26,2002 

0 4133  1 

TC 

checkmm 

0006 

26,2003 

00027  1 

DCT 

27 

0007 

- , 26jZ00A_ 

0 2006  0- 

rc 

t2  - _ 

0008 

ref 

1 

26,2005 

0 2513  1 

rc 

21XCTALM 

0009 

REF 

32 

LAST 

319 

26,2006 

3 7763  1 

CA 

DNE 

0010 

ref 

1 

26,2007 

5-5 '7-15  -1 

IS 

STCDUNT 

00105 

ref 

11 

LAST 

31A 

26,2010 

0 4644  0 

TC 

grabwait 

00106 

ref 

137 

LAST 

320 

26,2011 

3 0144  0 

CA 

MPAC 

00107 

ref 

1 

26,2012 

551721  0 

IS 

JPYERB 

0011 

REF 

9 

LAST 

290 

26,2013 

3 0302  0 

CA 

MODREG 

0012 

REF 

1 

26,201A 

55*716  1 

TS 

JPDCDMOD 

00125 

REF 

5 

LAST 

215 

26,2015 

0 4l6l  0 

TC 

PHASCHNO 

00126 

26,2016 

U0076  0 

DCT 

00076 

6.7  SPOT  TO  RESTORE  Old  PROGRAM  mDdE. 

0013 

ref 

if 

LAST  221 

26.2017 

- 0 4U7  1- 

TC  -_  - 

N£WMQD£X.  - - . 

OOIA 

26,2020 

00027  1 

DCT 

27 

0015 

REF 

2 

LAST 

321 

26.2021 

4 1721  0 

CS 

JPYERB 

0016 

ref 

1 

26,^022 

6 2362  1 

AD 

210CT75 

0017 

26,2023 

0 0006  1 

EXTEND 

0018 

26,202A 

1 2030  1 

3ZF 

♦ 4 

00183 

ref' 

1 38 

LAST 

321 

26,2025 

3 0145  1 

CA 

MPAC  +1 

00186 

REF 

1 

26,2026 

55*722  0 

TS 

COMPNUMB 

0019 

REF 

1 

26,2027 

0 2052  1 

TC 

UPIN  +1 

0020 

REF 

33 

LAST 

321 

26,2030 

3 7763  1 J^N033 

CA 

DNE 

CONTINUE  V75 

0021 

ref 

1 

26,2031 

6 2523  1 

AD 

ASTBFMl 

0022 

REF 

139 

LAST 

321 

26,2032 

54  146  0 

TS 

MPAC  +2 

0023 

REF 

L 

26,2033 

3 2364  1 

CA 

siatenv 

UPDATE  PROGRAM  IS  READY  TO  ACC£3T  TARGET 

002A 

REF 

23 

LAST 

31A 

26,203A 

0 4657  1 

TC 

nysbwait 

update  index,  flash  V 21  N 01 

002A1 

REF 

18 

LAST 

29O 

26,2035 

0 4475  0 

TC 

ENDIDLE 

WAIT  FOR  V33,  V34  OR  DATA. 

002A2 

REF 

1 

26,2036 

1 2463  0 

TCF 

JP\/ERe34 

V34  TERMINATE  UPDATE  PROGRAM. 

0025 

ref 

1 

26,2037 

0 2030  0 

TC 

JPND'33 

V33,  IGNORE 

0026 

REF 

7 

LAST 

279 

26,2040 

3 7761  0 

CA 

FOUR 

octal  no,  in  stbuff 

0027 

ref 

1 

26,2041 

55*717  0 

TS 

UPTFMP 

0028 

REF 

5 

LAST 

321 

26,2042 

3 1677  0 

CA 

STBJFF 

0029 

REf 

1 

26,2043 

0 2473  0 

rc 

UPRANGE 

IS  STBUFF  GE  1 AND  lE  4 

0030 

REF 

2 

LAST 

321 

26,2044 

0 i030  0 

TC 

UPND33 

NO.  TRY  again 

0031 

REF 

6 

LAST 

321 

26,2o45 

51*677  0 

INDEX 

STBJfF 

yes 

0032 

ref 

1 

26,2046 

3 2515  1 

CA 

ADFC  -1 

0033 

REE 

2 

LA5T 

321 

26,2047 

55*722  0 

T5 

CQMPmUMR 

003A 

REF 

39 

LAST 

319 

26,2050 

3 7762  0 

CA 

Two 

0035 

REF 

2 

LAST 

321 

26,2051 

55*715  1 U=1N 

TS 

SICOuNT 

0036 

REF 

2 

LAST 

321 

26,2052 

3 2523  1 

CA 

AST3FM1 

0037 

REF 

3 

LAST 

321 

26,2053 

6 1715  0 

AD 

STCDUNT 

0038 

REF 

190 

LAST 

321 

26,2054 

54  146  0 

IS 

MPAC  +2 

0039 

REF 

2 

LAST 

321 

26,2055 

3 2364  1 

CA 

ST ATfNV 

UPDATE  PROGRAM  IS  READY  TO  ACCENT  THE 

OOaO 

REF 

2A 

LAST 

321 

26,2056 

0 4657  1 

TC 

NvSBwAIT 

NEXT  COMPONENT,  FLASH  V2l  NOl 

633436A  YUL  SYSTEM  FOR  AQC!  REVISION  0 OF  PROGRAM  BURST12D  6Y  NASA  2021106-031 


DEC  7.  1967  (MAIN)  PAGE  322 


UPDATE  program  PArT  2 OF  2 


USER'S  OWN  page  no. 


S3  EA 


OOa02 

REF 

2 

LAST 

32l 

26 

2060 

1 2463 

0 

rcF 

JPVERB34 

V34  terminate  update  program. 

OOaI 

REF 

2 

LAST 

321 

26 

2061 

0 2052 

1 

rc 

JPIN  +1 

V33  , IGNORE 

00a2 

REF 

4 

LAST 

321 

26 

2062 

4 1715 

1 

:s_.  . 

SIOUNT. 

OCTAL  NO- 

00a3 

ref 

3 

LAST 

321 

26 

2063 

6 1722 

1 

AD 

COMPNUMB 

OOAA 

26 

2064 

0 0006 

1 

EXTEND- 

00A5 

26 

,2065 

1 2070 

0 

iZE. 

_ 

00A6 

REF 

5 

LAST 

322 

26 

2066 

25*715 

0 

INCR 

STCOiiNT 

00A7 

ref 

3 

LAST 

322 

26 

2067 

0 2052 

1 

rc 

JPIN  +1 

00A8 

ref 

1 

.26 

20.70 

3 .2522 

0. 

j=here 

'A 

UPAOfTPT 

OOA9 

REF 

191 

last 

321 

26 

2071 

54  146 

0 

TS 

MPAC  *2 

0050 

REF 

1 

26 

2072 

3 2353 

0 

:a 

DCTIo 

INDICATE  TO  GROUND  THAT  ALL  COMPONENTS 

0051 

REF 

25 

LAST 

3.2.1_ 

26 

2.0.7J3 

-Q_  4657 

.1 

rc 

NVSBWAIT 

H A VE_  BEEK  received  BY  .F.LASHIHG  . ,/2L  N02.. 

00511 

REF 

20 

LAST 

322 

26 

2074 

0 4475 

0 

tc 

ENDIOLE 

WAIT  FOR  V33,  V34  OR  DATA (COMPONENT  NO.) 

00512 

REF 

3 

LAST 

322 

26 

2075 

1 2463 

0 

rcF 

JPVERB34 

V34  terminate  update  program. 

0052  ■ 

REF 

1 

.26,2076 

0 2107 

0 

TC 

JPST0R£. 

.V33,  VE.RIFY 

0053 

REF 

4 

LAST 

322 

26 

2077 

3 1722 

1 

:a 

Compnumb 

OCTAL  IDENTIFIER 

005A 

REF 

2 

LAST 

321 

26 

2100 

55*717 

0 

T5 

JPTemP 

0055 

ref 

1 

26 

2101 

3 1720 

0 

:a 

JPTFMPI 

0056 

ref 

2 

LAsT 

32l 

26 

2102 

0 2473 

0 

rc 

JPRANGE 

0057 

REF 

1 

26 

2103 

0 2070 

1 

TC 

JPHERE 

BAD  OCTAL  IDENTIFIER 

0058 

fief 

_2 

LAST 

32^ 

26 

2104 

3 1720 

0 

CA 

JPTEMPl 

0059 

ref 

3 

LAST 

321 

26 

2105 

6 2523 

1 

AD 

AST3FM1 

0060 

REF 

4 

LAST 

322 

26 

2106 

0 2054 

1 

TC 

JPIN  +3 

0061 

ftEF 

7 

LAST 

221 

26 

2107 

0 4724 

1 

JRSTORE 

TC 

FREEnSP 

0062 

26 

2110 

0 0004 

0 

INHINT 

0063 

REF 

2 

LAST 

320 

26 

2111 

4 0076 

1 

:s 

FLA0WRD2 

INVERT  VERIFLAG  FOR  GROUND  VER1='Y 

0064 

REF 

21 

LAST 

304 

26 

2112 

7 7756 

0 

MAS< 

BITS 

0065 

ref 

155 

LAST 

315 

26 

2113 

54  002 

1 

TS 

3 

0066 

REF 

22 

LAST 

322 

26 

2114 

4 7756 

0 

:s 

BITS 

0067 

REF 

3 

LAST 

322 

26 

2115 

7 0076 

1 

*1AS< 

FLA3U/RD2 

0068 

REF 

156 

LAST 

322 

26 

2116 

6 0002 

0 

AD 

3 

0069 

REF 

4 

LAST 

322 

26 

2117 

54  076 

1 

TS 

FLAGWRD2 

00691 

26 

2120 

0 0003 

) 

RELINT 

006911 

ref 

3 

LAST 

321 

26 

2121 

4 1721 

0 

CS 

jpverb 

IF  A VERB  75  OR  76  UPDATE 

006912 

REF 

2 

last 

321 

26 

2122 

6 2362 

1 

AD 

213CT75 

STAY  IN  P27  UNTIL  UPDATE  IS  COMPLETED. 

006913 

26 

2123 

0 0006 

1 

EXTEND 

(THIS  IS  DONE  SO  THAT  NO  OTHER  UPDATES 

006914 

REF 

1 

26 

2124 

6 2132 

0 

32MF 

JPREtURN 

WILL  BE  ALLOWED  IF  ORBIT  INT  IS  ON) 

00692 

ref 

2 

LAST 

321 

26 

2125 

0 4133 

1 

TC 

CHECkMM 

00694 

26 

2126 

00027 

1 

DCT 

27 

00696 

REF 

2 

LAST 

322 

26 

2127 

0 2132 

0 

TC 

JPREtURN 

0070 

REF 

2 

LAST 

321 

26 

2130 

3 1716 

0 

:a 

JPDLDMOO 

RESTORE  PRE-P27  MODE 

0071 

REF 

5 

LAST 

321 

26 

2131 

0 4122 

1 

TC 

NEWMODEX  *3 

(THIS  WILL  CAUSE  A RELINT) 

OO72 

26 

2132 

0 0004 

0 

UPRETURN 

INHINT 

OO72I 

REF 

14 

LAST 

320 

26 

2133 

3 7757 

0 

:a 

BITS 

0073 

ref 

5 

LAST 

322 

26 

2134 

7 0076 

1 

mas< 

FLA0WRD2 

0074 

26 

2135 

0 0006 

1 

extend 

0075 

REF 

1 

26 

2136 

1 2504 

0 

3ZF 

XCTALMRM 

0076 

ref 

1 

26 

2137 

4 2153 

0 

:s 

213CT64 

BEGIN  STORING  DATA  FROM  STBUFP 

0077 

REF 

4 

LAST 

322 

26 

2140 

6 1721 

1 

AD 

UPVERB 

YES,  continue 
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0079 

26 

,21A2 

0 21A3 

0 

TC 

♦ 1 

0080 

26 

,21A3 

0 0006 

1 

EXTEND 

0081 

REF 

7 

LAST 

32l 

_ 26 

,21AA 

-3  L701 

0 

DCA  _ 

-STBJfF  ♦!_ 

0082 

REF 

1 

26 

,21A5 

0 2301 

1 

TC 

JPENri6A 

0083 

REF 

1 

26 

,21A6 

0 2311 

0 

TC 

JPEND67 

V67 

OOSA 

ref 

1 

_ 26 .21 A 7 

0.  2315 

1 

rc 

JPE_N070  -- 

V70 

0085 

REF 

1 

26 

,2150 

0 2323 

1 

rc 

JPEND71 

V71 

0086 

REF 

1 

26 

,2151 

0 2331 

1 

rc 

UPEND72 

V72 

■0087 

ref 

1 

, 26 

.2152 

CL  23  A 1 

0 

rc 

JPEND73 

0088 

26 

,2153 

0006A 

0 

210CT6A  DCT 

0006A 

0089 

ref 

1 

26 

,215A 

0 23A5 

1 

TC 

UPEND75 

V75 

0090 

ref 

6 

LAST 

S22 

26,2155 

A„0076, 

1 . 

J^.ENDJ6--CS 

FUA.5wR.D2  . — 

IS  ORBITAL  INTEGRATION  ON 

0091 

REF 

21 

LAST 

311 

26 

,2156 

7 7755 

0 

MAS< 

3IT7 

0092 

26 

.2157 

0 0006 

1 

EXTEND 

0093 

REF 

1 

2b 

,2160 

1 2262 

1 

3ZF 

.SELJPRCK 

YES,  SET  LIP  3SEC  CALL  TO  CHECK  A.GAIN 

00931 

REF 

6 

LAST 

321 

26 

,2161 

0 A161 

0 

TC 

PHASrHNG 

00932 

26 

,2162 

05026 

0 

DCT 

05026 

00933 

26 

,2163 

33000 

1 

DCT 

330.00  .. 

0093A 

26 

,216A 

0 OOOA 

0 

INHINT 

INHINT  Because  phaschng  relints  and  beca 

C00935 

USE  RESTARTED  JOB  WILL  NEED  IT, 

009A 

26 

,2165 

0 0006 

1 

EXTEND 

V76 

0095 

REF 

8 

LAST 

323 

26 

,2166 

3 1700 

1 

DCA 

ST3JfF 

NO,  BEGIN  LOAD  OF  UPDATE  PARAMETERS 

0096 

REF 

1 

26 

,2167 

53*211 

0 

DXCH 

REF9RECT 

0097 

26 

,2170 

0 0006 

1 

EXTEND 

0098 

REf 

9 

last 

323 

26 

,2171 

3 1700 

1 

dca 

ST3JFF 

0099  , 

REF 

1 

26 

,2172 

53*2A1 

0 

DXCH 

REFRrV 

OIOS) 

26 

,2173 

0 0006 

1 

EXTEND 

0101 

ref 

10 

LAST 

323 

26 

,217A 

3 1702 

0 

DCA 

ST3JFF  +2 

0102 

REF 

2 

LAST 

323 

26 

,2175 

53*213 

1 

DXCH 

REFRrECT  +2 

0103 

26 

.2176 

0 0006 

1 

EXTEND 

OlOA 

REf 

11 

last 

323 

26 

,2177 

3 1702 

0 

dca 

STBJfF  +2 

0105 

ref 

2 

LAST 

323 

26 

,2200 

53'2A3 

1 

DXCH 

REFRrV  +2 

0106 

26 

.2201 

0 0006 

1 

-XTEND 

0107 

REF 

12 

LAST 

323 

26 

,2202 

3 170A 

0 

DCA 

STBJfF  +A 

0108 

REF 

3 

LAST 

323 

26 

,2203 

53*215 

1 

DXCH 

REFRRECT  +A 

0109 

26 

,220A 

0 0006 

1 

EXTEND 

0110 

ref 

13 

last 

323 

26 

.2205 

3 170A 

0 

DCA 

ST3JFF  +A 

0111 

REF 

3 

LAST 

323 

26 

,2206 

53*2A5 

1 

DXCH 

refrcv  +A 

0112 

26 

.2207 

0 0006 

1 

EXTEND 

0113 

REF 

lA 

LAST 

323 

26 

,2210 

3 1706 

1 

DCA 

ST3JFF  +6 

OllA 

REF 

1 

26 

.2211 

53*217 

0 

DXCH 

REFVRECT 

0L15 

26 

,2212 

0 0006 

1 

EXTEND 

0116 

REf 

15 

LAST 

323 

26 

,2213 

3 1706 

1 

DCA 

5T3JFF  +6 

0117 

REF 

1 

26 

,221A 

53*2A7 

0 

DXCH 

REFvrV 

0118 

26 

,2215 

0 0006 

1 

EXTEND 

0119 

REF 

16 

LAST 

323 

26 

,2216 

3 1710 

0 

DCA 

STBJFF  +8D 

0120 

REF 

2 

LAST 

323 

26 

,2217 

53*221 

0 

DXCH 

REFYRECT  +2 

0121 

26 

,2220 

0 0006 

1 

EXTEND 

0122 

REf 

17 

last 

323 

26 

,2221 

3 1710 

0 

dca 

STBJfF  *8D 

633436A  YUL  SYSTEM  FOR  AQC;  REVISION  0 OF  PROGRAM  BURST12D  BY  NASA  2021106-031 


DEC  7,  1967  (MAIN)  PAGE  32A 


update  program  Part  2 of  2 


USER'S  OWN  Page  no.  a 
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012A 

26 

.2223 

0 0006  1 

EXTEND 

0125 

REF 

18 

LAST  323 

26 

.2224 

3 1712  1 

OCA 

ST3JFF  +10D 

0126 

REF 

3 

LAST  323 

26 

.2225 

537223  1 

OXCH.  , 

REFyRECT  +4 

0127 

26 

.2226 

0 0006  1 

EXTEND 

0128 

ref 

19 

LAsT  324 

26 

.2227 

3 1712  1 

OCA 

STBUFF  +10D 

0123 

REF 

3 

LAST  324 

26 

.2230 

53«253  0 

. . DXCH,  „ 

REF'/rV  >4 

0130 

26 

.2231 

0 0006  1 

EXTEND 

0131 

REF 

20 

LAST  324 

26 

.2232 

3 1714  1 

OCA 

STBJfF  +12D 

0132 

REF 

1 

26 

.2233 

53*257  1 

J,E__. 

0133 

REF 

9A 

LAST  309 

26 

.2234 

3 7767  0 

CA 

ZERO 

013A 

REf 

1 

26 

.2235 

55'22A  0 

rs 

DELTaV 

0135 

REF 

? 

LAST  324 

26 

.2236 

557  225,  1 

- - TS 

DELTAV  +1 

0136 

REF 

3 

LAST  324 

26 

.2237 

55*226  1 

TS 

DELTAV  +2 

0137 

REF 

A 

LAST  324 

26 

.2240 

55*227  0 

TS 

DELTAV  +3 

0138 

REf 

5 

LAsT. 324 

26 

.2241 

55_*230  0 

TS- 

-DELTAV  +4, 

0139 

REF 

6 

LAST  324 

26 

.2242 

55*231  1 

TS 

DELTAV  +5 

oiao 

REF 

1 

26 

.2243 

55*232  1 

TS 

NUV 

OUl 

REF 

2 

LAST  324 

26 

.2244 

55*233  0 

TS 

NUV  +1-  -- 

01A2 

REf 

3 

LAsT  324 

26 

.2245 

55*234  1 

TS 

NUV  +2 

01A3 

REF 

4 

LAST  324 

26 

.2246 

55*235  0 

TS 

NUV  +3 

OlAA 

REF 

5 

LAS'L324 

26 

,2247 

55*236  0 

TS 

..NUV  +4 

01A5 

REF 

6 

LAST  324 

26 

.2250 

55*237  1 

TS 

NUV  +5 

01A6 

REf 

1 

26 

,2251 

55*254  1 

TS 

REFTC 

_ 0M7  . 

REF- 

2 

LAST  324 

26 

,2252 

55*255  0 

TS 

REFTC  +1 

01A8 

REF 

1 

26 

.2253 

55*260  0 

TS 

REFXvEP 

01A9 

REF 

2 

LAST  324 

26 

,2254 

55*261  1 

TS 

REFXKEP  +1 

0U91 

REF 

A 

LAST  222 

26 

.2255 

3 7746  0 

CAF 

PRI370 

SET  UP  UOB  TO  STORE  NEW  STATE 

FOR  DWNTEL 

01A92 

REf 

8 

last  303 

26 

,2256 

0 5516  0 

TC 

FIN^VAC 

01A93 

REF 

36 

LAST  300 

E4 

'BAN<= 

TOEC 

01A9A 

26 

.2257 

02475  0 

2CADR 

UPDAtINT 

C01A9A 

REF 

1 

26 

,2260 

16064  1 

0150 

REF 

A 

last  322 

26 

.2261 

1 2464  1 

TCF 

UPVERB34  +1 

RESTORE  PRE-P27  MODE  AND  EXIT 

Update 

0151 

ref 

I 

26 

.2262 

3 2524  0 

S£TUPRC<  :a 

3SEC2_1 

0152 

REF 

33 

LAST  310 

26 

,2263 

0 5663  1 

TC 

WAITLIST 

0153 

REF 

21 

LAST  324 

E4 

eban<= 

stbjff 

015A 

26 

.2264 

02274  1 

2CADR 

UPDOAGN 

C015A 

REF 

1 

26 

.2265 

54064  1 

015A1 

REF 

7 

LAST  323 

26 

,2266 

0 4161  0 

TC 

PHASCHNG 

015A2 

26 

.2267 

47016  0 

OCT 

47016 

01543 

26 

.2270 

00454  1 

OEC 

300 

015AA 

REF 

22 

LAST  324 

E4 

EBAN<= 

stbjff 

015A5 

26 

,2271 

02274  1 

2CADR 

JPDOAGN 

C015A5 

ref 

2 

LAST  324 

26 

,2272 

54064  1 

0155 

REF 

50 

LAST  319 

26 

,2273 

0 5567  0 

rc 

endofjob 

0156 

REF 

2 

LAST  219 

26 

.2274 

3 5651  0 

JPDOAGN  CA 

PRI027 

0157 

REF 

lA 

LAST  315 

26 

.2275 

0 5505  1 

TC 

NOVAC 

0158 

REF 

23 

LAST  324 

E4 

EBAN<= 

STBJFF 

0159 

26 

.2276 

02132  0 

2CADR 

JPRETURN 

C0159 

ref 

3 

LAST  322 

26 

,2277 

54064  1 
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0160 

0163 

REF 

REF 

24 

1 

-LASI-ili  - 

26i  ^3UU- 
26,2301 

-a- 57^27 
53*206 

0 

0 

J=END64 

JV 

DXCH 

1 AbXCJVbH 
JPGET 

■ ■ --  - - - ■ - ■ 

01631 

REF 

24 

LAST  324 

26.2302 

3 1677 

0 

CA 

ST3JFF 

01634 

REF 

1 

26j2303 

55*204 

1 

Is 

JP1ND£X 

01638 

REF 

3 

LAST  324 

26,2304 

3 5651 

0 

:a 

PR1D27 

0164 

REF 

9 

LAST  324 

26,2305 

0 5516 

0 

TC 

FINDUAC 

0165 

REF 

75 

LAST  325 

E4_ 

FBAN<= 

5T3JFF 

0166 

26,2306 

02325 

1 

2CA0R 

MGETUP 

C0166 

ref 

1 

26,2307 

62064 

1 

0167 

REF 

1 

26.2310 

0 7471 

1 

ij: 

JP3JTT 

0168 

ref 

26 

LAST  325 

26,2311 

3 1677 

0 

JPEND67 

:a 

ST3JFF 

0169 

REF 

2 

LAST  325 

26,2312 

55*204 

1 

rs 

JPINDtX 

OI7O  ■ 

ref 

27 

LAST  319 

26_t23l3 

o_  5225 

1 

TC 

postjump_  . 

0171 

REf 

1 

26,2314 

62202 

0 

:adr 

DOV67 

0172 

REF 

27 

LAST  325 

26,2315 

3 1677 

0 

J=END70 

:a 

stbjff 

0173 

REF 

3 

last  325  __ 

26,2316 

55*204 

1 

rs 

JP  I NDEX  _ _ 

OI74 

REF 

28 

LAST  325 

26,2317 

3 I7OO 

1 

CA 

ST3JFF  +1 

0175 

REf 

1 

26,2320 

55*203 

0 

T5 

JPOT 

0176 

REF 

28 

LAST  325 

26,2321 

Q 5225 

1 

ICL 

PDS-TJUMP 

0177 

REF 

1 

26,2322 

62153 

1 

CADR 

D0Y70 

0178 

REF 

29 

LAST  325 

26,2323 

3 1677 

0 

JAEND71 

CA 

STBJFF 

0179 

REF 

4 

LASTL  325 

26,2324 

55*204 

1 

TS 

JP INDEX 

0180 

REF 

30 

LAST  325 

26.2325 

3 I7OO 

1 

CA 

STBJFF  +1 

0181 

ref 

1 

26,2326 

55*202 

1 

TS 

JPPHaSE 

0182 

ref 

29 

LAST  325 

26,2327 

0 5225 

1 

rc 

POSTjUMP 

0183 

REF 

1 

26,2330 

62155 

1 

CADR 

D0Y7r 

0184 

REF 

31 

LAST  325 

26,2331 

3 1677 

0 

J^END72 

CA 

STBJFF 

0185 

REF 

5 

LAST  325 

26,2332 

55*204 

1 

rs 

JPINDEX 

0186 

REF 

32 

LAST  325 

26.2333 

3 I7OO 

1 

CA 

stbjff  +1 

0187 

ref- 

2 

last  325 

26,2334 

55*202 

1 

TS 

JPPHASE 

_ olet. 

REF 

33 

LAST  325 

26,2335 

JL70L 

0 

CA 

STBJFF  +2 

0189 

REF 

2 

LAST  325 

26,2336 

55*203 

0 

TS 

JPDT 

0190 

REF 

30 

LAST  325 

26,2337 

0 5225 

1 

TC 

POST.lUMP 

QL91 

REf 

1 

26,2340 

62157 

0 

cApr 

JiaV7E 

0192 

REF 

34 

LAST  325 

26,2341 

3 1677 

0 

J=’END73 

CA 

STBJFF 

0193 

ref 

6 

LAST  325 

26.2342 

55*204 

1 

TS 

JPINDEX 

0194 

REF 

31 

LAST  325 

26.2343 

0 5225 

1 

TC 

postjump 

0195 

ref 

1 

26,2344 

62165 

1 

CAdR 

00V73 

0196 

REF 

8 

LAST  324 

26,2345 

0 4161 

0 

J=’END75 

rc 

PHASCHNG 

01961 

26,2346 

05026 

0 

DCT 

05.026. 

01962 

26,2347 

33000 

1 

DCT 

33000 

01963 

26,2350 

0 0004 

0 

inmint 

INHINT  because  PHASCHNG  RELINTS  AND  BECA 

C01964 

USE  RESTARTED  JOB  WILL  NEED  IT.  

01965 

REF 

5 

LAST  322 

26,2351 

51*722 

1 

INDEX 

compnumb 

V75 

0197 

26,2352 

0 2352 

1 

TC 

FAN  TO  V75  routines 

0198 

26,2353 

DOT  Ip 

OCT 

07105 

0199 

ref 

1 

26,2354 

0 2417 

1 

rC 

1 = 4 

0200 

26,2355 

0 0006 

1 

1 = 1 

EXTEND 

0201 

ref 

35 

LAST  325 

26,2356 

3 1701 

0 

DCA 

SJBJFF  +1 

0202 

REF 

1 

26,2357 

53*755 

0 

DXCH 

RP 
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UPOAT 

r 

PROGRAM  PART 

2 OF  2 

USER*S  OWN  PAGE  NO. 

6 S3  E4 

0203 

REF 

a 

LAST 

26J.2360 

-0  -2464 

.0. 

rc 

..  ..RESIOBEL.  PRE.-.P2.7--  MODi- 

AND. EXIT  J3DATE 

0204 

REF 

1 

26 

,2361 

0 2405 

1 

rc 

1=2 

0205 

26 

,2362 

00075 

0 

210CT75 

OCT 

75 

0206 

REF 

2 LAST 

325 

26 

,2363 

0 .24 1 7 

1 

rc 

1 = 4 _ 

0207 

26 

,2364 

02101 

0 

stateny 

OCT 

2101 

0208 

26 

,2365 

0 0006 

1 

1=3 

EXTEND 

0209 

ref 

36 

LAST 

325 

26,2366  3 17.01 

0 

OCA.  . 

STBJEF  *1 

0210 

REF 

1 

26 

,2367 

53'765 

0 

oxen 

RlVEr 

0211 

26 

• 2370 

0 0006 

1 

EXTEND 

0212 

reel. 

37 

1 AsT 

326 

_26 

• 2371 

3 1703 

A 

OCA  _ 

STajcF  *3 

0213 

REF 

2 

LAST 

326 

26 

,2372 

53'767 

1 

oxen 

RIYFC  +2 

0214 

26 

,2373 

0 0006 

1 

EXTEND 

0215 

ref 

38 

LAST 

326 

26 

• 2374 

3 1705 

1 

OCA 

SrBJFF  +5 

0216 

REF 

3 

LAST 

326 

26 

,2375 

53*771 

0 

oxen 

RlVEC  +4 

0217 

26 

• 2376 

0 0006 

1 

EXTEND 

0218 

REf 

39 

LAsT 

326 

26 

• 2377 

3 1707 

0 

OCA  __ 

3JFF-  +7. 

0219 

REF 

■ 1 

26 

,2400 

53^773 

1 

oxen 

tint 

0220 

26 

,2401 

0 0006 

1 

extend 

0221 

ref 

40 

LAST 

326  _ _ 

Z6 

,2402 

3 1711 

1 

OCA  _ 

STBJfF  .,90  . 

0222 

REF 

1 

26 

,2403 

53*775 

1 

oxen 

RCO 

0223 

REF 

3 

LAST 

326 

26 

• 2404 

0 2464 

0 

re 

JPQJITRM 

RESTORE  PRE-P27  MODE 

AND  EXIT  J3DATE 

0224 

26 

,2405 

0 0006 

1 

J=2 

extend 

0225 

REF 

41 

LAST 

326 

26 

,2406 

3 1701 

0 

OCA 

STBJFF  +1 

0226 

REF 

1 

26 

,2407 

53*757 

1 

oxen 

CPT6/2 

0227 

?6 

• 2410 

0 0006 

1 

=xtend 

0228 

ref 

42 

LAST 

326 

26 

,2411 

3 1703 

1 

OCA 

STBJfF  +3 

0229 

REF 

2 

LAST 

326 

26 

,2412 

53*761 

1 

oxen 

CPT6/2  +2 

0^10  _ 

26 

,2413 

0 0006 

1 

extend 

0231 

REF 

43 

LAST 

326 

26 

• 2414 

3 1705 

1 

OCA 

STBJFF  +5 

0232 

REF 

3 

LAST 

326 

26 

• 24l5 

53*763 

0 

oxen 

CPT6/2  +4 

0233 

REF 

4 

LAST 

326 

26 

•24liL 

0 2464  0 

re 

JPDJITRM 

RESTORE  PRE-P27  MODE 

AND  EXIT  J-3DATE 

02345 

REf 

7 

LAsT 

323 

26 

,2417 

4 0076 

1 

1=4 

es 

FlA5wRD2 

Is  orbital  INTEGRATION  ON 

0235 

REF 

22 

LAST 

323 

26 

,2420 

7 7755 

0 

vlAS< 

BIT7 

02J55 

26 

.2421 

0 0006 

1 

EXTEND 

0236 

REF 

2 

last 

323 

26 

,2422 

1 2262 

1 

3ZF 

SETJdRCK 

YES 

02372 

ref 

44 

LAST 

326 

26 

,2423 

31*700 

1 

CAE 

STBJFF  +1 

02374 

REF 

2 

LAST 

324 

26 

• 2424 

6 1257 

0 

AD 

TE  ♦I 

02376 

REf 

45 

LAsT 

326 

26 

,2425 

55*714 

0 

TS 

srajFF  +13D 

02378 

REF 

95 

LAST 

324 

26 

,2426 

3 7767 

0 

:af 

2ER0 

0238 

REF 

3 

LAST 

326 

26 

,2427 

6 1256 

1 

AD 

TE 

02382 

REF 

46 

LAST 

326 

26 

,2430 

55*713 

1 

rs 

STBJFF  +12D 

02384 

REF 

96 

LAST 

326 

26 

,2431 

3 7767 

0 

:a 

ZERO 

02386 

REF 

70 

LAST 

315 

26 

,2432 

54  001 

1 

rs 

L 

02388 

REF 

12 

LAST 

304 

26 

,2433 

52  025 

1 

oxen 

TINE? 

0239 

REF 

47 

LAST 

326 

26 

,2434 

53*712 

0 

oxen 

STBJFF  +10D 

02392 

REF 

(> 

LAST 

285 

26 

• 2435 

3 7766 

1 

CA 

FIVE 

02393 

ref 

1 

26 

• 2436 

0 4246 

0 

re 

NE/JPHASE 

02394 

26 

• 2437 

00006 

1 

ocr 

00006 

02396 


26.2AA0  0 OOOA  0 1=A.C0NT  INHINT 
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L 

02398 

UPDATE 
REF  37 

program  part 

LAST  326 

2 OF  2 
26.2441 

3 7767 

jQ_ 

'A 

ZFRQ. 

USER'S  OWN  PAgE  no,  7 S3  E4 

02<t0 

ref  192 

LAST 

322 

26,2442 

54  146 

0 

TS 

MPAC  +2 

FOR  TPAGREE 

02412 

26,2443 

0 0006 

1 

EXTEND 

02414 

REF  48 

LAST- 

32-6 

26_* 

-3-1714 

1 

iCA- 

-S13JFF-  +12D 

02416 

REF  4 

LAST 

326 

26,2445 

53*257 

1 

3XCH 

TE 

02418 

REF  49 

LAST 

327 

26*2446 

3 I7OO 

1 

CA 

ST8JFF  +1 

0242 

REf  50 

last 

22-7 

2 6j  24-4  7 

6-  1712 

1 

AD- 

^T-BjF-F->-11D-  - 

02422 

REF  71 

LAST 

326 

26,2450 

54  001 

1 

TS 

L 

02424 

REF  98 

LAST 

327 

26,2451 

3 7767 

0 

:a 

ZERO* 

02426 

REF  51 

LAST 

327 

26,2452 

6 1711 

1 

AD 

SIBJFF  +100 

02428 

REF  193 

LAST 

327 

26,2453 

52  145 

0 

3XCH 

ypac 

0243 

REF  5 

LAST 

265 

26,2454 

0 7327 

0 

TC 

TPAGrEE 

FORCE  SIGN  AGREEMENT 

02432 

REF  194 

LAST 

327  . 

26, 2455 

52  145 

0 

3XCH 

MPAC  . - . 

02434 

REF  13 

LAST 

326 

26,2456 

20  025 

1 

DAS 

TIME3 

NEW  CLOCK 

02436 

REF  7 

LAST 

28° 

26,2457 

3 7765 

1 

:af 

SEVEN 

6,7  SPOT  TO  RESTORE  OLD  PROGRAM,  MODE. 

02437 ■ 

REF  2 

LAST 

326 

26,2460 

0 4246 

0 

IC 

NEriPHASE 

02438 

26 » 246 1 

00006 

1 

DCT 

0000ft 

02457 

REF  5 

last 

-226  . 

- Zb  tZ‘t62. 

0 2464 

-0 

tc  __ 

-JPaJllRM  _ 

restore  PRE-P27  MODE.  AND  EXIT -JADAT.E  -- 

0246 

REF  8 

LAST 

322 

26,2463 

0 4724 

1 

JPVERB34 

TC 

FREEDSP 

02462 

REF  3 

LAST 

322 

26  * 2464 

0 4133 

1 

JPQUITRM 

TC 

CHECk:MM 

RESTORE  MODE  AND  UPUUIT 

02464 

26,2465 

00027 

1 

OCT 

27 

02466 

REF  2 

LAST 

325 

26*2466 

1 2471 

0 

rcF 

JPOJtT 

0247 

REF  3 

last 

322 

26,2467 

3 1716 

0 

CA 

JPDLDMOD 

0248 

REF  6 

LAST 

322 

26,2470 

0 4122 

1 

TC 

NEwMODEX  t3 

0249 

REF  24 

LAST 

320 

26,2471 

0 5206 

0 

JPQUIT 

TC 

3AN<CALL 

SETS  6.0  SPOT  AND  DOES  ENDOFJ03 

0250 

RE/  1 

26,2472 

62351 

1 

rAoR 

ENOJD 

0259 

26,2473 

0 0006 

1 

JPRANGE 

EXTEND 

0260 

REF  1 

26,2474 

6 2503 

0 

3ZMF 

JPRAtlS 

C(A)  LE  zero  return  TO  Q 

0261 

REF  145 

LAST 

322 

26.2475 

4 0000 

0 

CS 

A 

0262 

ref  136 

LAST 

327 

26,2476 

24  000 

1 

INCR 

A 

0263 

REF.  3 

LAST 

322 

26,2477 

6 1717 

1 

AD 

JPTEmP 

026A 

26,2500 

0 0006 

1 

EXTEND 

0265 

REF  2 

LAST 

327 

26,2501 

6 2503 

0 

3ZMF 

JPRAUS 

C(A)  GT  C(LOC)  RETURN  TO  Q 

0266 

ref  157 

LAST 

322 

26,2502 

24  002 

0 

INCR 

3 

0267 

REF  158 

LAST 

327 

26,2503 

0 0002 

0 

JPRAUS 

TC 

3 

C(A)  LE  C(LOC)  AND  GT  0 RETURN  TO  Q+1 

02671 

REF  4 

LAST 

327 

26,2504 

0 4133 

1 

xctalmrm 

TC 

CHECK  MM 

02672 

26,2505 

00027 

1 

OCT 

27 

02673 

26,2506 

1 2511 

1 

rcF 

♦ 3 

02674 

REF  4 

LAST 

327 

26,2507 

3 1716 

0 

CA 

JPOLnMOD 

02675 

REF  7 

LAST 

327 

26,2510 

0 4122 

1 

TC 

NEWMODEX  +3 

026T6 

REF  9 

LAST 

325 

26,2511 

0 4161 

0 

TC 

PHASCHNG 

02677 

26,2512 

00006 

1 

OCT 

00006 

0268 

REF  25 

LAST 

327 

26,2513 

0 5206 

0 

2UCTALV1 

TC 

3AN<CALL 

0269 

REF  4 

LAST 

320 

26,2514 

22053 

1 

CAOR 

XACTALM 

O27O 

26,2515 

02000 

0 

JPE4 

OCT 

2000 

0272 

26,2516 

00003 

1 

ADFC 

OCT 

00003 

0273 

26,2517 

00007 

0 

OCT 

00007 

633436A 

YUL  system  fok  agc: 

REVISION 

0 OF  PROGRAM  BURST12D  BY 

NASA  2021106-031 

DEC  7, 

1967  (MAIN) 

PAGE 

328 

L 

UPDATE  program  PArT 

2 OF  2 

USER'S  OWN  PAGE 

NO.  8 

S3 

E4 

0274 

_2L6,2520 

00£I13 

0 

. - OCX- 

OOQI3 

0275 

26,2521 

00002 

0 

DCT 

00002 

0276 

REF  3 last  32Z 

26,2522 

02320 

1 

JPAOFTPl  ECADR 

JPTEMPl 

0277 

REF  52  LAST  327 

26,2523 

_ 02276 

0 

ASTBFML  iC;\DR 

_ SJBJfF  -l 

0278  26,2524  00454  1 3SEC21  3EC  300 


63343&A 

yUL  SySTEM  FOR  A^C:  REVISION  0 OF  PROORA'1  BURSri23  BY  NASft  2021106-031 

DEC 

7.  1967 

(MAIN)  PAsE  329 

L 

DO^JN-TELEMETRY  PROGRA“Ii 

USER'S  OWN  PAGE  NO. 

1 S3 

ROOOl 

PROGRAM -NAME-  DOWN  T£LEMEIRy_EHu5RAM.  . . _ _ . 

R0002 

R0003 

Rn004 

MOD  NO'.-  2 
MOD  BY-  KILROY 

DATF-  21N0\/66 

R0005 

R0006 

R0007 

LOG  SECTION-  down  TElEMETRY  PROGRAM 
ASSEMBLY-  REV  IZ  OF  5JNBURST 

functional  DFSCRIPTION-  this  ROUTINE  IS  INITIATFD  by  TFLFMFTdY  end 

R0008 

R0009 

ROOlO 

PULSE  '■ROM  THE  DOWNLINK  TELeMeTRY  CONVERTER.  THIS  PULSE  OCCURS 

AT  50  Times  ^er  secievery  20  msi  therefore  dodowntm  is 
EX£CUTE„D  AT  these  RA_TES.  _TH1S_  ROUTINE  5E.ECTS  THE  APPROPRIATE 

ROOll 

R0012 

Ro0l3 

LGC  DATA  TO  BE  TRANSMITTED  DOWNLINK  AND  LOADS  IT  INTO  OUTPUT 
channels  34  AND  35.  THE  INFORMATION  IS  THEN  GATED  OUT  FROM  THE 
LGC  IN  SFRI  Aui  FASHION- 

R00131 

R00132 

R00133 

this  PROGRAM.  IS  CODED  FOR  A 2 SECOND  DOWNLISt.  SINCE  DOWNRJPTS 
OCCUR  every  20M5  AND  2 LGC  COMPUTER  WORDS  CAN  BE  PLACED  IN 
CHANN_ELS_3_4  AND-35 -DURLNG  EACH  , DOWNRUPt  THE  PROGRAM  IS  CAPABLE 

R00134 

R0014 

^0015 

OF  sending  200  LGC  WORDS  EVERY  2 SECONDS, 
calling  sequence-  none 

PROGRAM  IS  entered  VIA  TCF  DODOWNtM  WHICH.  IS  fXfCUtfD  AS  A 

R0016 

R0017 

Roois 

RESULT  OF  A DOWNRUPT.  CONTROL  IS  RETURNED  VIA  TCF  ReSUMe  WHICH 
IN  effect  IS  A RESUME. 

SUBROUTINES  CALLED-  NINE 

R0019 

R0020 

R0020i 

NORMAu  EXIT  MODE-  TCr  RESUME 
ALARM  OR  ABORT  EXIT  MODE-  NONE 
RESTART  PROTECTION-  NO'  c. 

R00202 

R00203 

R0020A 

■ EXCEPT  THAT  WHEN  A RESTART  DOES  OCCUR  ISIARTSUB:  Wll  L 
initialize  he  DOWNLISt  POINTER  TO  THE  BEGINNING  OF  THE  NOMINAL 
DOWNLISt.  THiIS  HAS  THE  EFFECT  OF  IGNORING'  THE  REMAINDER  oF  THE 

R00205 

R00206 

R0021 

DOWNLISt  WHICH  THE  DOWN-TELeMeTR Y PROGRAM.  WAS  WORKING  ON  WHEN 
THE  RESTART  OCCURRED. 

OUTPUT-  EVERY  Z SECD'NDS  100  DOUBLE  PRECISION  WORDS  ( I ,Et  _200  LGC 

R0022 

R0023 

R002A 

computer  WORDS)  ARE  TRANSMITTED  VIA  DOwNuINK. 

erasable  initialization  required-  none 

DNTMGOTO,DNlSTADR  and  EBANK  are  initialized  in  STARtSUB (FRESH 

R0025 

R0026 

R0027 

START  and  restart) 

DEBRI5(ERASABLE  locations  destroyed  by  this  PROGRAM)- 

LDATALST,ITEMP1,ITEMP2,dNTMBUFF  to  DNTMBUFF  + 21D.TMINDEX.DNQ 

R0028 

0029 

0030 

15.2000  BANK  15 

REF  8 LAST  21P  E7  £BANK=  DNTMRUFF 

00301 

00302 

00303 

0007  eRaszero  equals  7 

REF  1 0007  DMYEcADR  equals  ERA57ER0 

REF  2 LAST  329  0007  DMYADRES  -QUALS  ERAS7ER0 

USE 

use 

DMYEcADR 

DMYADRES 

TO  GENERATE  A DuMMY  EcADR 
TO  GENERATE  A DUMMY  ADRES 

00304 

00305 

REF  3 last  329  q007  UNKNOWN  EQUALS  ERASZERO 

REF  4 LAST  329  0007  S^ARE  -QUALS  ERA57ER0 

USE 

USE 

UNKNOWN  when  THE 

spare  to  indicate 

mnemonic  is  unknown 
available  space 

0031 


15*2000  00437  1 LOWIDCOD  3CT 


00437 
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L DO^N-TELeMETRY  PRoGRA'I^  USER'S  OWN  PACE  NO,  2 S3 

Poi2l  DODOWvTYI  is  ENTERED  EVERY  20  MS  bY  AN  INTERRUPT,  TRIGGERED  gV  THF . 

R0122  receipt  of  AN  eIYOPULSE  FROM  THE  SPACECRAFT  TELeMETRY  PROSRAMMeR. 

R012205  THe  organ  I ZAT I DN.  0F„1H£_  PROGRAM  IS  ASEOLtOWS...... _ _ 

R0I221  1.  A MAIN  PROGRAM(DODDWNTM)  WHICH  CONTROLS*  A SERIES  OF  SUBROUTINES. 

R012215  2.  SJ3ROUTINES(SeNDIO,SENDSNAP  eTC.)  WHIC4  ARE  DESIGNED  TO  HANDLE 

R0i222^  SPECIFIC  PORTIONS  OF  THE  DOWNLIST. 

R0I2225  3.  JEOUALS!  CARDS(ND3i,  N0P2 i LINCR)  WHICHl  DEFINE  NO.  OF  ITEMS  IN  THE 
R01223  PORTIONS  OF  THE  DOWNLISTS. 

R012235  A.  DOWNLISTS.  - DOWNUSTS  MUST  BE  COMPLLE^  IN  THE  SAME  BAN<  AS  THE 


R0122A 

OOWN-TELeMETRY 

program,  this  is  done 

FOR  ease 

OF  CODING,  faster 

R0122A5 

EX 

ecution  and 

TO  insure  that  the 

30WNLIST  ID:S(FIRST 

WORD  OF  each 

Ro1225 

2 

5EC 

DOWNLlS-i^)  ARE 

UNloy£j_IHE 

-OCATlON  OF 

THE  AoS 

OOWNflST  MUST 

Be 

R012255 

2001 

OF  the  fbank  in 

WHICH 

the  DOWN- 

telemetry 

program  resides. 

R01226 

(I 

.E. 

AGSLIST 

= XX, 2001) . 

THIS  WILL 

make  the 

10  WORD 

FOR  THE  AGS 

R012265 

DOWNLINK  DATA 

= 00301. 

R01227 

0123 

REF 

6 

LASJ  229 

15 

,2.00_1 

5A  . 0 1 6 

1 

dodowntm 

rs 

BANKRUPT 

012A 

15 

,2n02 

0 0006 

1 

EXTEND 

012A5 

REF 

6 

LAST  229 

15 

,2003 

22  012 

1 

OXCH 

ORJPT 

0125 

REF 

5 

LAST  215 

15 

,200A 

_ 51'AOl 

0 

INDEX 

ONTMGOTO 

GO  TO  APPROPRIATE 

0126 

15 

,2005 

1 0000 

0 

TCF 

0 

TELEMETRY  PHASt 

0127 

ref 

1 

15 

,2006 

0 2032 

1 

DMPhAsEI 

TC 

SENOTO 

send  Id  word(s) 

0128 

REF 

23 

LAST  326 

15 

,2007 

3 7755^ 

1 

CAF 

BIT7 

SET  WORD  order 

0129 

15 

,2010 

0 0006 

1 

EXTEND 

BACK  TO  1 FOR 

0130 

15 

,2011 

05  013 

0 

WOR 

13 

REMAINDER  OF  CYCLE 

0131 

REF 

.1 

15 

,2012 

3 2235 

1 

CA 

DNLInCR 

CALCULATE  ADDRESS  OF 

0132 

REF 

1 

15 

,2013 

27'AOO 

0 

ADS 

LDATaLST 

SNAPSHOT  WORDS  TO  BE  SENT  (GROUP  D 

0133 

REF 

1 

15 

,201A 

0 2046 

1 

TC 

SNAPSHOT 

SAVE  AND  SEND  SNAPSHOT  WORDS  (GROUP  D 

013A 

REF 

1 

15 

,2015 

3 2233 

1 

:a 

ONDPl-1 

PLACE  NO.  OF  DP  WORDS  IN  GROUP  1 INTO  A 

0135 

REF 

1 

15 

,2016 

0 2116 

0 

TC 

SENODP 

send  double  PRECISION  WORDS  (GRtUP  D 

0136 

REF 

1 

15 

,2017 

0 2152 

0 

TC 

SENOrH 

SEND  CHANNELS  11-lA  AND  31-33 

0137 

REF 

1 

15 

,2020 

0 2206 

1 

TC 

SENODSTB 

SEND  DISPLAY  TABLES 

0138 

REF 

1 

15 

,2021 

0 2226 

0 

TC 

SENDTIME 

SEND  TIMEl  and  TIME2 

0139 

REF 

1 

15 

,2022 

A 2112 

0 

:s 

DNSNAP 

CALCULATE  ADDRESS  OF 

OUO 

REF 

2 

LAST  330 

15 

,2023 

27, AOO 

0 

ads 

LIOATALST 

SNAPSHOT  WORDS  TO  BE  SENT (GROUP  2) 

OUl 

REF 

2 

LAST  33O 

15 

,202A 

0 20A6 

1 

TC 

SNAPSHOT 

SAVE  and  send  snapshot  WORDS  (GROUP  2) 

0K2 

REF 

1 

15 

,2025 

3 223A 

0 

:a 

DNDP2-I 

PLACE  NO,  OF  DP  WORDS  IN  GROUP  2 

01A3 

REF 

2 

LAST  33O 

15 

,2026 

0 2116 

0 

TC 

SENODP 

SEND  DOUBLE  PRECISION  WORDS(GROUP  2) 

OlAA 

REF 

2 

LAST  330 

15 

,2027 

0 2152 

0 

TC 

SENOCH 

SEND  CHANNELS  11-lA  AND  31-33 

0U5 

REF 

2 

LAST  330 

15 

,2030 

0 2206 

1 

TC 

SENDOSTB 

SEND  DISPLAY  TABLE 

0U6 

REF 

2 

LAST  9« 

15 

,2031 

1 2006 

1 

ICF 

dnphasei 

GO  BACK  AND  START  OVER 

01A8 

REF 

3 

LAST  212 

15,2032 

3 OAll 

0 ScNDID 

CA 

onlstadr 

INITIALIZE  DOwNLIST  ADDRESS  AS  SELECTED 

01A9 

REF 

3 

LAST  330 

15,2033 

55'AOO 

0 

TS 

LDAtALSt 

BY  A MISSION  OR  TEST  PROGRAM 

0150 

REF 

2A 

LAST  330 

15,203A 

A 7755 

0 

cs 

SIT7 

SET  WORD 

0151  15,2035  0 0006  1 EXTEND  ORDER  BIT  7 IN 
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0152 

- 15 ,2036 

-03  013  0 

wAm  - -li  

CHANNEL  13  TO  .0  _ _ 

0153 

015A 

REF 

15,2037 

6 last  33 P L5-tE040- 

0 0006  1 
-23 ' API  0 

EXTEND 

- - IXCH PNI-MGOia 

SET  UP  DNTMGOTO  SO  NEXT  ENTRY  n 
DODOWNTM  WILL  TRANSFER  CONTROL  TO 

A0155  the  INSTRUCTION  AFTER  TC  SENDI3. 

0156  REF  1 15j20AO 3-  2000  0 _ . CAF  . LOWJnCOD  . - -PLACE -SPECIAL -ID  CODE  INTO  L- 


0157 

0158 

REF 

REF 

72  LAST  327 
A-LAET-33P- 

15,20A2 

13jZak3 

5A  001 
_3  LAQO 

1 

-3- 

TS 

. . :a  -- 

L 

-LDA-TALST  . 

I50LAIE-RELATl-V-E--LaC  OF-  DOWNLISr  I-N  T-US  - 

0159 

A0160 

REF 

3 LAST  306 

15,20AA 

7 5337 

1 

MAS< 

LOWIO 

FIXED  BANK,  RESULT  s 0000  - 1777,  NO 

conflict  of  duplicate  id  words  can  occur 

0161 

REF 

1 

15,20A5 

1 21A0 

1 

ICF 

dntmexit 

send  list  id  word  and  special  n code 

A0l62 


0163 

15,2046 

0 0006 

I 

snapshot  EXTEND 

016A 

REF 

1 

15,2n47 

23*406 

1 

3XCH 

DN3 

SAVE  RETURN  ADDRESS 

0165 

REF 

99 

LAST 

327 

15,2050 

3 7767 

0 

CAF 

zero 

INITIALIZE  THE 

0166 

REF 

50 

LAST 

22Z 

15,2051 

54  061 

1 

TS 

ITEMdI 

DNTMBUFF  I NCRLHENTER ( I TEMPI ) TO  ZERO, 

0167 

REF 

1 

15,2052 

3 2114 

1 

CAF 

ONSNAP-2 

INITIALIZE  LOOP  COUNTER ( I TEMP2 ) TO 

0168 

REF 

23 

last 

222 

15,2053 

54  062 

1 

SNAPLOOP  TS 

ITEMP2 

TOTAL  NO,  OF  SNAPSHOT  DP  WORDS  uESS  2, 

0169 

REF 

5 

LAST 

331 

15,2054 

6 1400 

1 

AD 

LDATALST 

CALCULATE  ADDRESS  OF  NEXT 

0170 

15,2055 

0 0006 

1 

EXTEND 

ENTRY  IN  DOWNLIST, 

0171 

REF 

137 

last 

327 

15,2056 

5 0000 

1 

INDEX 

A 

PICK  UP  THE  DOUBLE  PRECISION  WORD  FROM 

01711 

15,2057 

5 0000 

1 

INDEX 

0 

THE  NEXT  ENTRY 

0172 

15,2060 

3 0001 

0 

OCA 

0 

IN  THE  DOWNLIST, 

0173 

REF 

51 

last 

331 

15,2061 

50  061 

0 

INDEX 

ITEMPl 

AND  SAVE  IT  IN  THE  NEXT  AVAILA3°E  LOC 

017A 

REF 

9 

LAST 

32V 

15,2062 

53'410 

1 

OXCH 

ONTMrUFF 

IN  DNTMBUFF  SNAPSHOT  BUFFER. 

0175 

REF 

ao 

LAST 

321 

15,2063 

3 7762 

0 

CAF 

Two 

INCREMENT  DNTMBUFF  INCREMENTER  ( 1 TEMPI ) 

0176 

ref 

52 

LAsT 

331 

15,2064 

26  061 

1 

ADS 

ITEMPl 

BY  2, 

0177 

REF 

2A 

LAST 

331 

15,2065 

10  062 

1 

CCS 

ITEMP2 

HAVE  ALL  SNAPSHOT  DP  WORDS  BEEN  SAVED,,, 

0178 

-REF 

1 

15,2066 

1 2053 

1 

ICF 

SNA3L00P 

NO— GO  BACK  AND  CONTINUE  SAVING  THEM 

0179 

REF 

1 

15,2067 

3 2113 

0 

CAF 

DNSNAP-1 

YES— PLACE  NO,  OF  DP  WORDS  REMAINING 

0180 

REF 

1 

15,2070 

55 '402 

1 

TS 

TMINDEX 

TO  BE  SENT  INTO  TMINDEX. 

0181 

REF 

1 

15»2071 

3 2115 

0 

CAF 

LSENDSNP 

SET  UP  DNTMGOTO  SO  PROGRAM  C0NT90L  WILL 

0162 

ref 

7 

last 

331 

15,2072 

55*401 

1 

TS 

DNTMGOTO 

BE  transferred  TO  SENDSNAP  ON  NfXT 

A0183 

ENTRY  XQ-  D-PDOWNTNa 

018A 

15,2073 

0 0006 

1 

EXTEND 

PICK  UP  FIRST  DP  SNAPSHOT  WORD 

0185 

REF 

6 

last 

331 

15,2074 

5 1400 

1 

INDEX 

Toatalst 

AND  PLACE  IT  IN  A + L. 

0186 

REF 

1 

15,2075 

5 0013 

0 

INDEX 

NSNAP  -_L 

(((THIS  ADDITIONAL  CODING  ALTHOUGH  A BIT  

0187 

15,2076 

3 0001 

0 

OCA 

0 

SUPERFLUOUS  IS  JUSTIFIED  BECAUSE  IT 

A0188 

SAVES  2 WORDS  OF  ERASABLE  STORAGE))) 

0189 

REF 

2 

LAST 

331 

15,2077 

1 2140 

1 

TCF 

DNTMfXLTL 

GO  SEND  FIRST  SNAPSHOT  DP  ENTRY. 

0190 

REF 

2 

LAST 

331 

15,2100 

11*402 

1 

SENDSNAP  CCS 

TMlNnEX 

ANY  SNAPSHOT  WORDS  LEFT  IN  BUFFER 

0191 

15,2101 

1 2103 

0 

TCF 

+ 2 

YES— GO  PROCESS  THEM 

0192 

ref 

2 

last 

331 

15,2102 

0 1406 

1 

TC 

aNo 

NO— RETURN  TO  INSTRUCTION  AFTER- 

A0193 

TC  SNAPSHOT. 

633436A 

YUL 

SYSTEM  FOR  Agc: 

REVISION 

0 OF  PROGRAM  BURST123  BY  NASA  2n211O6-03l 

DEC  7,  1967  (MAIN)  PAGE  332 

L 

do»jn 

-TELEMETRY  PROGRAM. 

USER'S  OWN  page  no.  4 S3  E7 

0l9A 

REF 

3 

LAST 

331 

1.5.  ..2 103. 

• 402 

1 

_T S __  . 

JLM.IND£X_...  .. 

...  SAVE  .COUNT  OF  SNAPSHOT  WORDS  REMA1.N1N5. 

0195 

15,2104 

6 0000 

1 

30JBLE 

CALCULATE  DECREMeNTER 

0196 

15,2105 

4 0000 

0 

COM 

FOR  NEXT  OP  WORD  IN 

0197 

15,2106 

0 0006 

A 

fxtend 

BUFFER- 

0198 

REF 

138 

LAST 

331 

15,2107 

5 0000 

1 

INDEX 

A 

0199 

REF 

10 

last 

33l 

15,2110 

3 1434 

0 

5CA 

DNTMrUFF  +20D 

TAKE  next  dp  WORD  OUT  OF  BUFFER,  PLACE 

0200 

REF 

3 

last 

3 3 1 _ 

1 5_,2 1.1.1. 

_ 1.2L40 

1 

TCF  _ 

_QNT  MEX  n _ . _ 

IT  INTO  A ♦ L AND  GO  SEND  IT. 

0201 

0014 

N5NAP 

equals 

120 

number  of  OP  SNAPSHOT  WORDS. 

0202 

REF 

2 

LAST 

33l 

15,2112 

00014 

1 

DNSNAP 

ACRES 

NSNAP 

NO.  OF  DP  SNAPSHOT  WORDS  CONSTANT 

0203 

REF 

3 

LAST 

332 

_L5j^l_l3 

00013 

0 

ONSNAP-1 

adres 

NSNAP  -1 

NO.  OF  DP  SNAPSHOT  RORDS  -1  CDsiSTANT 

0204 

REF 

4 

LAST 

332 

15,2114 

00012 

1 

DNSNAP-2 

adres 

NSNAP  -2 

NO.  OF  DP  SNAPSHOT  WORDS  -2  CDviSTANT 

0205 

REF 

1 

15,2115 

02100 

1 

lsendsnp 

adres 

SENDSNAP 

LOC  OF  ROUTINE  WHICH  SENDS  SNAPaHDT  BUFF 

A0206 

0207 

0 

15,2116 

0 0006 

1 

SENDDp 

extend 

ENTER  WITH  NO.  Dp  WORDS  REmaInImg  TO 

0208 

REF 

3 

LAST 

33I 

15,2117 

23*406 

1 

3XCH 

DN3 

BE  sent  in  a,  save  RETURN  ADDRESS. 

0209 

REF 

4 

LAST 

332 

15,2120 

55*402 

1 

ts 

tmindex 

place  no.  OF  DP  WORDS  TO  Be  SeNT  AFTER 

0210 

REF 

34 

LAST 

321 

13*iL2L 

6 7763 

1 

AD 

ONF 

THIS  ONE  into  tmindex.  CALCULAt-  NEXT 

0211 

15,2122 

4 0000 

0 

COM 

location  in  DOWNlIST  and  save 

0212 

REF 

7 

LAST 

33I 

15,2123 

27*400 

0 

ads 

ldatalst 

IT  IN  ldatalst. 

0213 

REF 

1 

15^2124 

3 2151 

0 

CAF 

LSENDDPA 

SET  UP  DNTMGOTO  SO  PROGRAM  CONTROL  WILL 

0214 

REF 

8 

LAST 

331 

15,2125 

55*401 

1 

TS 

ontmgoto 

GO  TO  SENDDPA  ON  NEXT  ENTRY  TO  3000WNTM. 

0215 

REF 

5 

LAST 

332 

15*2126 

31*402 

0 

CAE 

TMINDEX 

PLACE  NO.  OF  WORDS  REMAINING  TO  BE  SENT 

0216- 

REf 

6 

1 AST 

332 

15,2127 

55*402 

1 

SENddPB 

TS 

TmINdEX 

INTO  A.  SAVE  No.  DP  WORnS  TO  BE  SENT. 

0217 

REF 

8 

LAST 

332 

15,2130 

6 1400 

1 

AD 

CDAtaLST 

CALCULATE  NEXT  DOWNLIST  ENTRY. 

0218 

REF 

139 

LAST 

332 

15,2131 

50  000 

1 

INDEX 

A 

0219 

15,2132 

3 0000 

1 

CA 

0 

PICK  UP  ECADR  OF  NEXT  DQWNLIST  xNTRY._ 

0220 

REF 

16 

last 

321 

15,2133 

54  003 

0 

TS 

EBANK 

SET  EBANK. 

0221 

REF 

6 

LAST 

302 

15,2134 

7 4564 

0 

MAS< 

LO^Js 

ISOLATE  relative  ADDRESS. 

0222 

15,2135 

0 0006 

1 

EXTEND 

0223 

REF 

190 

last 

332 

15,2136 

5 0000 

1 

INDEX 

A 

PICK  UP  DOUBLE  PRECISION 

0224 

15,2137 

3 1401 

0 

DCA 

3400 

WORD  INTO  A ♦ L.  (DCA  3400  s OCA  1400) 

0225 

15,2i4o 

0 0006 

1 

dntmexit 

EXTEND 

general  down-telemetry  exit 

0226 

REF 

1 

15,2141 

01  034 

1 

/JRITE 

DNT^Ii 

TO  send  a ♦ L to  channels  34  * 35 

0227 

REF 

73 

LAST 

331 

15,2142 

3 0001 

0 

CA 

L 

RESPECTIVELY. 

0228 

15,2143 

0 0006 

1 

tmexitl 

EXTEND 

ALTERNATE  DOWN  TELEMETRY  EXIT 

0229 

REF 

1 

15,2144 

01  035 

0 

NRITE 

DNTM2 

TO  SEND  A TO  CHANNEL  35. 

0230 

REF 

17 

LAST 

230 

15,2145 

1 5733 

1 

TCF 

RESJME 

EXIT  DOWN  telemetry  PROG  VIA  RESUME. 

0231 

REF 

7 

LAST 

332 

15*2146 

11*402 

1 

SENDDPA 

CCS 

TMINDEX 

ANY  DP  WORDS  REMAINING  TO  Bf  SENT. 

0232 

REf 

1 

15*2147 

1 2127 

0 

TCF 

SENddPB 

YES— GO  send  Them. 

0233 

REF 

4 

LAST 

332 

15*2150 

0 1406 

1 

TC 

DNQ 

RETURN  TO  INSTR  AFTER  TC  SENDDP. 

0234 

REF 

1 

15,2151 

02146 

0 

lbenddpa 

ADRES 

SENDnPA 

LOC  OF  ROUTINE  WHICH  SENDS  DP  W3ROS. 

A0235 

• •••••••« 

!••••••< 

0236  ' 15,2152^  0 0006  1 SENDCH  EXTEND 
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0237 

REF 

5 

LAST 

332 

15.2153 

23  J-40  6 

1 _ 

_OX_CH 3 NO  _ _ „ 

.SAVL  RETURN  ADDRESS  _ 

0238 

REF 

1 

15,2154 

3 2175 

0 

:af 

LSENnCHA 

SET  UP  DNTMGOTO  SO  PROG  CONTROL  WILL  30 

0239 

REF 

9 

LAST 

332 

15,2155 

55*401 

1 

TS 

DNTMGOTO 

TO  SENDCHA  ON  NEXT  ENTRY  TO  DODOWNTM. 

02<t0 

REF 

LAST 

319  _ _ 

3 Y.31L- 

1 

CAF 

J^REF.  _ 

PLACE  NO.  OF  PAIRS  OF,  CHANNELS  TO  BE 

A02-H 

SENT  after  this  PAIR  INTO  A. 

0243 

REF 

8 

LAST 

33Z 

15,2157 

55*402 

1 

SENDCH3 

ts 

tmindex 

SAVE  NO.  OF  PAIRS  OF  CHANNELS  RrMAINING 

0244 

15j^ElCL 

0 0006 

fXIEND 

T0,B£_5ENT  .INTO,  A.  PJCK  UP.  CHANNEL 

0245 

REF 

191 

LAST 

33Z 

15,2161 

5 0000 

1 

INDEX 

A 

ADDRESS  FROM 

0246 

REF 

1 

15,2162 

5 2202 

0 

INDEX 

FIXL3TCL 

NEXT  ENTRY  IN  FIXLSTCL. 

0247 

_ A5j2163 

_ 00  000 

1 

READ 

_0_  _ 

PLACE  contents  OF  THE 

0248 

REF 

74 

LAST 

332 

15,2164 

54  001 

1 

TS 

L 

CHANNEL  INTO  L. 

0249 

15,2165 

0 0006 

1 

EXTEND 

PICK  UP  NEXT  CHANNEL 

0250 

REF 

9 

LAST 

3J3  _ 

_ 15,2166 

5 _L4,02 

0 

INDEX 

TMINnEX 

ADDRJESS  FROM  NEXT  ENTRY 

0251 

REF 

1 

15,2167 

5 2176 

0 

INDEX 

FIXLSTCA 

IN  FIXLSTCA. 

0252 

15,2170 

00  000 

1 

READ 

0 

PLACE  contents  OF  CHANNEL  INTO  A. 

0253 

ref 

4 

LA5X_ 

33_2 

15,2171 

1 2140 

1 • 

TCF  _ 

DNTMEXIT_  _ _ 

NOW  GO  send  a + L, 

0254 

REF 

10 

LAST 

333 

15,2172 

11*402 

1 

SENDCHA 

CCS 

tmindex 

ANY  MORE  channel  PAIRS  TO  BE  SENT 

0255 

REF 

1 

15*2173 

1 2157 

1 

TCF 

SENDCHB 

YES— GO  send  them. 

0256 

ref 

6 

LA5T_ 

333  _ 

15,2174 

1406 

l_ 

JC 

dno 

„No— reiurn.  Lo  lnstjr  after  Tc  senoch. 

0257 

REF 

1 

15,2175 

02172 

1 

lsendcha 

adres 

SENDrHA 

LOCATION  OF  ROUTINE  WHICH  SENDS  CHANNELS 

0258 

15,2176 

00032 

0 

FIXLSTCA 

dct 

32 

CHANNEL  32 

0259 

15.2177 

_ 000 3 01 

DCT  30 

chanxiel  so 

0260 

15,2200 

00013 

0 

DCT 

13 

CHANNEL  13 

0261 

15,2201 

00011 

1 

DCT 

11 

CHANNEL  11 

0262 

15,2202 

00033 

1 

FiXLSTCL 

DCT 

33 

CHANNEL  33 

0263 

15,2203 

00031 

0 

DCT 

31 

CHANNEL  31 

0264 

15,2204 

00014 

1 

dct 

14 

CHANNEL  14 

0265 

15,2205 

00012 

1 

DCT 

12 

CHANNEL  12 

A0266 

0267 

15,2206 

0 0006 

1 

SENDDSTB 

EXTEND 

0268 

REF 

7 

LAST 

333 

15,2207 

23*406 

1 

3XCH 

DN3 

SAVE  RETURN  ADDRESS 

0269 

REF 

1 

15,2210 

3 Z2Z5 

0 

CAF 

ISENnDSA 

SET  UP  DNTMGOTO  SO  PROGRAM  CONTiOL  WILL 

0270 

ref 

10 

last 

333 

15,2211 

55*401 

1 

rs 

DNT  MGOTO 

GO  TO  SENddSA  ON  NEXT  ENTRY  TO  jOjOWNTM. 

0271 

ref 

7 

LAST 

326 

15,2212 

3 7766 

1 

CAF 

five 

PLACE  NO.  OF  PAIRS  OF  DSPTAB  WORDS  REM 

0272 

REF 

11 

LAST 

333 

15,2213 

55*402 

1 

SENDDS3 

rs 

TMINnEX 

AFTER  THIS  PAIR  INTO  A,  SAVE  ND.  REMAIN. 

0273 

15,2214 

6 0000 

1 

DOJBLE 

ING  INTO  tmindex.  CALCULATE  DECrEMENTER 

0274 

15,2215 

4 0000 

0 

COM 

FOR  NEXT  PAIR  OF  WORoS(SP) 

0275 

15,2216 

0 0006 

1 

EXTEND 

IN  DSPTAB. 

0276 

REF 

192 

LAST 

333 

15,2217 

5 0000 

1 

INDEX 

A 

PICK  UP  PAIR  OF  DSPTAB  WORDS(SP)  AND 

0277 

REF 

44 

LAST 

315 

15,2220 

3 0326 

0 

DCA 

DSPTAB  +10D 

leave  them  in  A + L. 

0278 

REF 

LAST 

333 

15,2221 

1 2140 

L 

TCF 

DNTMpXIT 

NOW  GO  SEND  A * L. 

0279 

REF 

12 

LAST 

333 

15,2222 

11*402 

1 

SENDDSA 

CCS 

TMINDEX 

ANY  WORDS  LEFT  IN  DSPTAB  TO  BE  SENT 

0280 

REF 

1 

15,2223 

1 2213 

1 

TCF 

senddsb 

YES— GO  SEND  THEM 

0281 

ref 

8 

last 

333 

15,2224 

0 1406 

1 

rc 

DN3 

NO— return  to  instr  After  tc  semddstb.  

0282 

REF 

1 

15,2225 

02222 

1 

lsenddsa 

adres 

senddsa 

LOC  OF  routine  WHICH  SENDS  DISPLAY  TABLE 

A0283 
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0284 

_15,2226_ 

0 0006 

1 

T Vlf- 

- X T F ,\|  n 

_.._SET_  UP  -DNTMGDJO  SO  PTIDGRAM 

COj^TjOL-  WILL 

0285 

REF 

11 

LAST 

333 

15,2227 

23'401 

0 

3XCH 

DNTHoOTO 

GO  TO  INSTRUCTION  AFTER  TC 

SENDtIHE. 

02851 

15,2230 

0 0006 

1 

EXTEND 

0286 

REF 

14 

LAST 

32T  ^ _ 

_15_,2231 

3_  0025 

0 

DC  A . 

IOE2  _ 

PLACE  TIME2  and  TIMEl  INTO 

A and  L. 

0287 

REF 

6 

LAST 

333 

15,2232 

1 2140 

1 

TCF 

dntmfxit 

NOW  GO  SEND  A AND  L, 

Ar»2Rft 

0289 

ref 

1 

15,2233 

00032 

0 

ONDPl-l 

ADRES 

NDPl  -i 

NO.  Of  Dp  WORDS  IN  GR(DUP  1 

LESS  I 

0290 

REF 

1 

15,_2234 

. 00032 

0 

DNDP2-1 

adres 

NDP2  -1 

NO,  OF  DP  WORDS  IN  GROUP  2 

LESS  1 

0291 

REF 

1 

15,2235 

00102 

1 

ONLINCR 

adres 

LINCB 

relative  loc  of  first  group 

' IN  downlist. 

A0292 

A0293_ 
A02  9A 
A0295 
0296 

0297 

0298 
A0299 


» (HtS**** »****»*****»****»*»*»»»***»*»****<>»» 


change  the  following  3 EQUALS  CARDS  WHEN  MODIFYING  THE  STRUCTURE  OF  THE 
DOWNLlSTS, 

0033  NDPl  equals  27D  NUMBER  OF  OP  WORDS  (GROUP  1) 

0033  NDP2  EOJALS  270  NUMBER  OF  DP  WORDS  (GROUP  2) 

0102  LINCR  equals  660  LINCR  = NDPl  + NDP2  ♦ 12D 

)t » »»»*)*  lHHHHUHHUHHt  jt  lUHt#  * * *»  * JHHt  * » »»  X W **  * » » X X « X * X XX  X X X X X X XX  X X X»  X X X_X  X XX  X 
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P0300 

NOMINAL 

SUNBURST  IA5236)  2 SECOND  DOWN! 1ST 

R03001 

AS  OF 

DATE  = 

02EEB67 

R0301 

LAST 

-NTRY  IN  DOWNLIST_  WJLL  Be 

sent:  FIRST  * THFN  UST  FNTRY  - 1 FTC.—— 

0302 

15,2236 

NOMDNLST  equals 

03025 

REF 

2 

LAST 

99 

15,2236 

J=>DNL15T  EQUALS 

NOMDnLST 

NOT  USED  IN  206. 

Af)3n3 

DISPLAY  TABLES 

A030A 

DSPTAB  +I0D  AND  DSPTAB  *11D 

A0305 

DSPTAB  +8D  AND  DSPTAB  +90 

A0306 

DSPTAR  *6  AND  D.SPT4R  *7 

A0307 

DSPTAB  +4  AND  DSPTAB  +5 

A0308 

DSPTAB  +2  AND  DSPTAB  +3 

A0309 

DSPTAB  „ ^AND  DSPTAB  +1 

A03H 

CHANNELS  32  AND  33 

A0312 

CHANNELS  30  AND  31  . 

A0313 

CHANNELS  13  AND  14 

A031A 

CHANNELS  11  AND  12 

A0315 

ANY  EBANX  (GROUP  2) 

0316 

ref 

23 

LAST 

220 

15,2236 

00076 

0 

ECADR 

STATE  +2 

(FLAGWRD2,DAPB00L5)  FLAGWORDS 

0317 

REF 

24 

LAST 

335 

15,2237 

00074 

1 

ECADR 

ST  ATF 

(STATE, FLAGWRDl)  FLAGwORDS 

0318 

REF 

2 

last 

47 

15,2240 

03017 

1 

ecadr 

DME3AR  „1 

(GARBAGE, OMEGAR)  ANGULAR  RATES  ABOUT  THE 

0319 

REF 

5 

LAST 

49 

15,2241 

03015 

0 

ECADR 

DMESAP 

(0MEGAP,0MEGAQ)  P,Q,R  BODY  AXES  (DAP) 

A03195 

SCALED  AT  45  DEG/SEC, 

0320 

REF 

3 

LAST 

163 

15,2242 

00033 

1 

ECADR 

CDUY 

(CDUy,CDU2)  actual  cduis 

0321 

REF 

9 

LAST 

295 

15,2243 

00031 

0 

ECADR 

CDUX  _1 

(GARBAGE, CDUX)  ACTUAL  CDUIS 

.0322 

REF 

2 

LAST 

39 

15,2244 

02343 

1 

ECADR 

PD  .4 

APS2  DESIRED  RADIUS  VECTOR  IN  STABLE 

0323 

REF 

3 

LAST 

335 

15,2245 

02341 

0 

ECADR 

PD  _ 

MEMBER  CO-ORDINATES. 

032A 

REF 

4 

LAST 

335 

15,2246 

02337 

1 

ecadr 

RD 

scaled  meters  X 2(-25) . 

0325 

REF 

3 

LAST 

4l 

15,2247 

02327 

0 

ECADR 

YOVECT  +4 

APS2.DPS1  DESIRED  VELOCITY  VECTOR  IN 

0326 

REF 

4 

LAST 

335 

15,2250 

02325 

1 

ECADR 

YDVECT  +2 

STABLE  MEMBER  CO-ORDINATES, 

0327 

REF 

5 

LAST 

335 

15,2251 

02323 

1 

ECADR 

YDYECT 

SCALED  M/CS  X 2 (-7). 

0328 

REF 

1 

15,2252 

02335 

0 

ECADR 

YGVECT  +4 

APS2,DPS1  velocity  TO  BE  GAINED  SCALED 

0329 

REF 

2 

LAST 335 

15, -2253 

0_213_3 

0 

ECADR 

YSYECT  +2 

M/CS  X 2 (-7).  IN  LOCAL  VERTICAL  (APS2) 

0330 

REF 

3 

LAST 

335 

15,2254 

02331 

1 

ECADR 

YGYECT 

OR  STABLE  MEMBER  (DPSl) . 

0331 

REF 

3 

LAST 

67 

15,2255 

02345 

1 

ecadr 

TTG3 

ESTIMATED  TIME  TO  GO  IN  CS ( APS2 , DPSl , 2 ) , 

0332 

REF 

2 

LAST 

9O 

15,2256 

00764 

1 

ECADR 

PHA5ENUM 

(phasenum,i/pipadt)present  mission  phase 

A03325 

, IMU  COMP  TIME  BASE  OR  DT  IN  C.S. 

0333 

REF 

3 

LAST 

102 

15,2257 

01166 

1 

ECADR 

MT1MFR2 

(MTIMER2,MTIMER1)  REGISTERS  CONTAINING 

0334 

REF 

5 

LAST 

102 

15,2260 

01164 

0 

ECADR 

MTIMFR4 

(MTIMER4,MTIMER3)  DELTA  TiS  OF  v(P;S. 

0335 

REF 

3 

LAST 

102 

15,2261 

01172 

1 

ECADR 

MPHASE2 

(Mphase2,mphasei)  registers  containing 

0336 

REF 

3 

LAST 

102 

15,2262 

01170 

0 

ECADR 

MPHASE4 

(MPHASE4,MPHASE3)  MP!S  TO  BE  CA.LED, 

0337 

REF 

1 

15,2263 

02551 

J 

ECADR 

OELAREA 

scaled  in  units  of  2(7)  PERCENT  INCREASE 

0338 

REF 

2 

LAST 

89 

15,2264 

01143 

0 

ECADR 

LMPIn 

(LMPIN, LMPOUT) 

0339 

REF 

14 

LAST 

106 

15,2265 

01141 

1 

ECADR 

LMPCMD  +6 

OUTPUT  TO  LMP  = REGISTERS 

0340 

REF 

LAST 

335 

15,2266 

01137 

0 

ECADR 

LMPCmD  *4 

CONTAINING  THE 

0341 

REF 

16 

LAST 

335 

15,2267 

01135 

1 

ECADR 

LMPCMD  +2 

LAST  EIGHT  LMP  COMMANDS 

0342 

REF 

17 

LAST 

335 

15,2270 

01133 

1 

ECADR 

LMPCMD 

TO  Be  SENT  BY  THE  LGC, 

Ao343 

SNAPSHOT  DP 

WORDS  FROM  EBANK  E7  OR  UNSWITCHABLE  ERASABLE  ( OR  3U0  2)—  - , 

0344 

REF 

4 

LAST 

335 

15,2271 

00033 

1 

ADRES 

CDUY 

(CDUY,CDUZ) 

633436A  YUU 

system  for  agc: 

REVISION  C 

) OF  PROGRAM  BURST12D  BY  NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  336 

L 

D0(JN 

-telemetry  PROGRAMi 

USER'S  OWN  PALE  NO,  8 S3  E7 

0395 

REF 

5 

LAST  335 

I5j.22^72 

00033  1 

- AfiR.ES,.. 

,COJ.Y  ..  

, _(Cfiuy.,ifiU2J , _ 

0396 

ref 

1 

15,2273 

01320  1 

ACRES 

Mass 

MASS  scaled  in  UNITS  OF  2(15)  KGS. 

0397 

REF 

25 

LAST 

335 

15,2279 

00100  0 

ACRES 

STATF  +9 

(STATE  +9, GARBAGE)  LAMBERT  FLAGS 

0398 

REF 

2 

LAST 

197 

. 15,2275 

_ 00091  1 

ACRE.S 

P1PA2 

(PIPAZ, GARBAGE)  ACTUAL  2 PIP  COUNTS. 

0399 

REF 

3 

LAST 

295 

15,2276 

00037  0 

ACRES 

PlPAX 

(PIPAX.PIPAY)  ACTUAL  X,Y  PIP  COjNTS. 

0350 

REF 

7 

LAST 

315 

15,2277 

01369  1 

ACRES 

ALMCADR  +1 

(ALMCADR  *1,ERC0UNT) ALM  LOC  BBCON.SLFCK 

An3505 

FAIL  COUNTER. 

0351 

REF 

17 

LAST 

315 

15,2300 

01362  1 

ACRES 

FAILREG  +2 

(FAILREG  .2, ALMCADR) ALM  CODE, ALM  LOC  3. 

0352 

REF 

18 

LAST 

335 

15,2301 

01360  0 

ACRES 

FAILREG 

(FAILREG,  +1)LAST  AND  PREV.  ALA?M  CODES. 

0353 

REF 

1 

15,2302 

01567  1 

ACRES 

COMPtORK  +9 

E)GYR0C0MPASS  gyro  TORQUES  IN  VERTICAL, 

0359 

REF 

2 

LAST 

336 

15,2303 

01565  0 

ACRES 

COMPtORK  +2 

S) SOUTH,  east  system, erate  not  included. 

0355 

REF 

3 

LAST 

336 

15,2309 

01563  0 

ACRES 

COMPtORK 

V)  37777,37777  = (1  - 2(-28))REvS. 

A0356 

CLOCK 

A0357 

TIME2  AND  TIMEl 

yzipi  

A0359 

DSPTAB  *100  AND  DSPTAB  tUD 

A0360 

DSPTAB  +8C  AND  DSPTAB  *90 

A0361 

DSPTAB  *6  AND  DSPTAB  *7 

A0362 

DSPTAB  ■'9  AND  DSPTAB.  *5 

A0363 

DSPTAB  *2  AND  DSPTAB  +3 

A0369 

DSPTAB  AND  DSPTAB  *i 

AQ365 

A0366 

CHANNELS  32  AND  33 

A0367 

CHANNELS  30  AND  31 

A0366 

CHANNELS  13  AND  19 

A0369 

CHANNELS  11  AND  12 

A0370 

- ANY  EBANK  (GROUP  1) 

0371 

ref 

26 

LAST 

336 

15.2305 

00076  0 

ECADR 

STATF  *2 

(FLAGWRD2.DAPB00LS)  FLAGWORDS 

0372 

-REF 

27 

LAST 

336 

15,2306 

00079  1 

ECADR 

STATE 

(STATE, FLAGWrDD  FLAGwORDS 

0373 

REF 

3 

LAST 

335 

15,2307 

03017  1 

ECADR 

0ME5AR  -1 

(GARBAGE, OMEGAR)  ANGULAR  RATES  9B0UT  THE 

0379 

REF 

6 

LAST 

335 

15,2310 

03015-  0 

ECADR 

OMEGAP 

(OMEGAP, OMEGAQ)  P,Q,R  BODY  AXES  (DAP) 

A03795 

scaled  at  95  DEG/SEC. 

0375 

REF 

6 

LAST 

336 

15,2311 

00033  1 

ECADR 

COJY 

(CDUY,CDUZ)  actual  CDUIS 

03J6 

REF 

10 

LAST 

335 

15,2312 

00031  0 

ECADR 

COJX  -1 

(GARBAGE, CDUX)  ACTUAL  CDUIS 

0377 

REF 

3 

LAST 

92 

15,2313 

01356  0 

ECADR 

RECOrTR 

(redoctr.sfaidrestart  ctr,slfc<  fail  Q, 

0378 

REF 

1 

15,2319 

02267  0 

ECADR 

TIGN 

TIME  FOR  ENGINE  ON  IN  CS  (MP'S  9,11,13). 

0^79 

REF 

9 

LAST 

55 

15,2315 

03260  0 

ECADR 

AOSO 

(aosq.aosr)  moment  offset (0»R) 

A03795 

scaled  at  90  dEG/SEC/SEC. 

0380 

REF 

1 

15,2316 

02570  1 

ECADR 

FC 

thrust  command  scaled  3 lbs  X 2 (-19). 

0381 

REF 

1 

15,2317 

01311  0 

ECADR 

TEVEwT 

time  of  GRR.  liftoff,  ENGINE  ON/OFF  (CS) 

0382 

REF 

59 

LAST 

311 

15,2320 

00365  1 

ECADR 

IM0DES30 

(lM0()ES30,IMdDES33)  PGNC5  FLAGWORDS 

0383 

REF 

53 

LAST 

328 

15,2321 

02313  1 

ECADR 

ST3JFF  *120 

STBUFF  = 19  REGISTERS 

0389 

REF 

59 

LAST 

336 

15,2322 

02311  0 

ECADR 

STBJfF  4.10C 

IN  WHICH  THE  UPLINKED  DATA 

0385 

REF 

55 

LAST 

336 

15,2323 

02307  1 

ECADR 

STBJfF  *8D 

IS  PLACED  FOR  GROUND 

0386 

REF 

56 

LAST 

336 

15,2329 

02305  0 

ECADR 

STBJFF  +6 

DISPLAY  AND  VERIFICATION 

0387 

REF 

57 

LAST 

336 

15,2325 

02303  0 

ECADR 

STBJFF  +9 

BEFORE  PLACEMENT 

0388 

REF 

58 

LAST 

336 

15,2326 

02301  1 

ECADR 

STBJFF  *2 

IN  THE  APPROPRIATE 

0389 

REF 

59 

LAST 

336 

15,2327 

02277  1 

ECADR 

STBJFF 

erasable  locations. 

0390 

REF 

6 

LAST 

322 

15,2330 

02315  1 

ECADR 

stcount 

(STCOUNT. UPOLDMD) 

0391  REF  5 LAST  32Z  15,2331  02321  0 ECADR  JPVERB  (UPVERB,COMPNUMBl 
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L 

DO^IN. 

-telemetry  Program 

USER'S  OWN  PAGE  NO.  9 S3  E7 

n:^Q2 

REF 

1 

- 15j2332 

03021 

1 

..  ..  cCADR 

_alphar.  . 

(ALPHAR.GARBAGHDIST.  ACC.  AbOJr  R-AXTS 

0393 

REF 

3 

LAST  335 

15,2333 

011*3 

0 

ecadr 

LMPIn 

(LMPIN, LMPOUT) 

039* 

REF 

18 

LAST  335 

15,233* 

011*1 

1 

ecadr 

LMPCMD  *6 

OUTPUT  TO  LMP  = REGISTERS 

0395 

REF 

19 

LAST  33T  __ 

_ _ 15i2i35_ 

01137 

0 

ECABR_. 

,_LMPXMD_  *A 

_ . C0NIAIN1NG__IHE  _____  _ _____ 

0396 

REF 

20 

LAST  337 

15,2336 

01135 

1 

ECADR 

LMPCMD  +2 

LAST  eight  LMP  COMMANDS 

0397 

REF 

21 

LAST  337 

15,2337 

01133 

1 

ECADR 

LMPCMD 

TO  BE  SENT  BY  THE  LGC. 

*0398 

SNAPSMOJ  DP 

4)DRD5  from 

EBANK  _E7  OR  UNSWItCHABLE__£RASABLELGRdUP  1)-- 

0399 

REF 

1 

15,23*0 

00*07 

1 

ADRES 

DELY7 

THE  CHANGE  IN  VELOCITY  ALONG 

0*00 

REF 

1 

15,23*1 

00*05 

0 

adres 

DELYY 

EACH  OF  THE  STABLE  MEMBER  AXES  IN  THE 

0*01 

REF 

8 

LAST  3 OP 

L5j23*2  - 

_D_0:*Pi.0 

ADRES 

_DELVX  . 

2 se_c  interval  PRECEEDING  PIPTHE. 

0*02 

REF 

1 

15,23*3 

00767 

1 

ADRES 

CDJYD 

(CDUYD,CDUZD)  desired  cdu;s 

0*03 

REF 

* 

LAST  223 

15,23** 

00765 

0 

ADRES 

CDJKD  -1 

(GARBAGE, CDUXD)  DESIRED  CDUIS 

0*0* 

REF 

1 

15,23*5 

01326 

1 

ADRES 

statime 

TIME  FOR  RN  AND  VN  IN  CENT  I SECONDS, 

0*05 

REF 

1 

15,23*6 

01022 

0 

ADRES 

YN  *4 

AVE.G/ORBIT.INT.  STATE  VECTOR  Z VEL 

0*06 

REF 

2 

LAST  337 

15,23*7 

01020 

1 

ADRES 

YN  *7 

AVE.G/ORBIT.INT.  STATE  VECTOR  Y VEL 

0*07 

REF 

3 

last  337 

15,2350 

01016 

1 

ADRES 

YN 

_ ____  A_VE..G2_QRB1T,INT.__STAT£  _VECTOR_  X veL 

*0*075 

•VN  IS  scaled  METERS/CS  X 2 (-7). 

0*08 

REF 

1 

15,2351 

0101* 

0 

ADRES 

RN  *4 

AVE.G/ORBIT.INT.  STATE  VECTOR  Z POS 

0*09 

REF 

2 

LASL  33  T 

15,2352 

01012 

0 

ADRES 

RN 

AVE.G/ORBIT.INT.  STATE  VECTOR  Y PoS 

0*10 

REF 

3 

last  337 

15,2353 

01010 

1 

ADRES 

RN 

AVE.G/ORBIT.INT.  STATE  VECTOR  X POS 

*0*105 

RN  IS  SCALED  METERS  X 2 (-2*). 

*0*11 

ID  WORDS 

*0*12 

I.D.,  SYNCH  BITS 

*0*13 

start  here  And  Read  back  for  contents  of  downlist 

633(»36A  yUL  SySTEM  FOR  AqC:  REVISION  0 OF  pROORA'I  BURST123  BY  NASA  202110A-031  DEC  7.  1967  (MAIN)  pAQE  338 


L do»jn-telemetry  Program,  user's  own  page  no.  lo  S3  E7 


o 

fT 

>4- 

O 

Q. 

SPECIAL 

DOWN-LI^K 

program  jo 

SEND  SAMPLES-- OF  C3UX  Z. 

T0L-IUR-N_XH£- 

-DAP  B-ACK-ON.-  - ----- 

0432 

0433 

REF 

REF 

4 

2 

LAST  331 
LAST  330_ 

15,2354 

15,2335 

3 5337  0 
Q -20J3_  0 

DNCDUS 

:a 

rc 

LO/glO 

-S£:i3ID.  +I_ 

MAKE  THIS  ID  UNIOUE. 

SEND  ID  6 EXIT.  

0434 

0435 

ref 

25 

last  330 

15.2356 

15.2357 

3 7755  1 
0 0006  1 

:AF 

EXTEND 

BIT7 

ENTER  HERE  THE  SECOND  TIME. 

0436 

15,2360 

05  013  0 

WOR 

13 

SET  WORD  order  CODE  =1 

0437 

ref 

1 

15,2361 

3 2424  1 

:a 

LDNCdUGO 

0A38 

REF 

12„ 

L A SJ_  3 3A  _ _ 

15,2362 

33TA01_1__ 

TS  _ 

ontmgoto 

SET  DNTMGOTO  FOR  NEXT  CDUY  ,Z-  D-OWN  JM  -PAS-^ 

0439  ' REF  2 LAST  90  15*2363  3 1404  0 CA  DNCOlJN  INITIALIZE  DOWN  COUY.Z  COUNTER 

R043902  START  cDd^MG  FOH  MOdJL^  3 REMAKE,  AUGUST  1967**h*START  cDDIMG'  FOR  MOpULE  3 REMAKE,  AUGUST  1967*»)nnHHHHHHH*»*n**»*nt 


0440 

REF 

1 

15»2364 

1 3707 

0 

rcF 

I5IN9RT 

terminate  gimbal  drives,  if  any. 

P044002 

»*END  CODING 

FOR 

MODULE  3 remake.  AUGUST 

l967»»»*»END  CODING'  FOR  MODULE 

3 RFMAKE.  august  lq67**HHHHt**HHHHm)HH*»*H* 

0441 

REF 

35 

LAST 

332 

15,2365 

3 7763 

1 

DNCDUS30  :a 

ONE 

ENTER  HERE  THE  THIRD  TIME,  6 AFTER. 

0442 

REF 

53 

last 

33I 

15,2366 

54  061 

1 

*•1  IS 

ITEMdL 

SET  UP  INDEX  FOR  CDU  ERROR  CHECK. 

0443 

REF 

193 

LAST 

333 

15,2367 

50  000 

1 

INDEX 

A 

0444 

REF 

2 

LAST 

337 

15,2370 

3 0767 

1 

CA 

CDJYn 

PICK  UP  CDUD  For  COMPARISON  WiT-t  CDU. 

0445 

15,2371 

0 0006 

1 

EXTEND 

0446 

ref 

54 

LAST 

338 

15,2372 

5 0061 

0 

INDEX 

ITEMbl 

0447 

REF 

7 

east 

33b 

15,2373 

20  033 

0 

MSJ 

CDJY 

GET  difference  BETWEEN  ACTUAL  CoU  (,  COUO 

0448 

15.2374 

0 0006 

1 

EXTEND 

0449 

15,2375 

6 2377 

0 

3ZMF 

♦ 2 

GET  NEG  OF  ABSOLUTE  MAG  OF  DIFFERENCE 

0450 

15,2376 

4 0000 

0 

COM 

0451 

REF 

2 

LAST 

90 

15,2377 

6 1405 

1 

AD 

CDJLMIT 

COMPARE  difference  WITH  ALLOWED  MAXIMUM. 

0452 

15,2400 

0 0006 

1 

EXTEND 

0453 

REF 

1 

15,2401 

6 2413 

0 

3ZMF 

ONCOUEND 

IF  ERROR  IS  TOO  BIG,  RESTORE  DA=  NOW. 

O45A 

REF 

55 

LAST 

CD 

15*2402 

10  0&1 

1 

CCS 

ITEMPI 

IS  CHECK  COMPLETE? 

0455 

ref 

1 

15,2403 

1 2366 

1 

TCF 

ONCOUSGO  +1 

NO.  GO  CHECK  CDUY. 

0456 

REF 

1 

15,2404 

11 '403 

0 

CCS 

oncoucnt 

YES.  ARE  WE  THRU  SENDING  CDU'S? 

0457 

15*2405 

1 24O7 

1 

TCF 

+ 2 

NO. 

0458 

ref 

2 

last 

338 

15*2406 

1 2413 

1 

TCF 

dncoueno 

YES. 

0459 

ref 

2 

LAST 

338 

15*2407 

55'403 

0 

TS 

ONCOUCNT 

0460 

15*2410 

0 0006 

1 

FETCHC3J  EXTEND 

0461 

ref 

8 

LAsT 

338 

15*2411 

3 0034 

0 

OCA 

CdJY 

PICK  UP  cdUy  and  cduz 

0462 

REF 

7 

LAST 

334 

15*2412 

1 2140 

1 

TCF 

ontmfxit 

GO  send  them 

0465 

REF 

3 

LAST 

215 

15*2413 

3 1346 

1 

DNCDUEND  CA 

OLDOVSEL 

0466 

REf 

4 

LAST 

215 

15*2414 

55*310 

0 

TS 

DVSElECT 

0467 

REF 

9 

last 

223 

15*2415 

4 0077 

0 

cs 

OAP300LS 

RESTORE  GODAPGO  TO  TURN  DAP  BACK  ON. 

0468 

REF 

2 

LAST 

215 

15,2416 

7 7751 

1 

MASK 

GOOAPGO 

0469 

ref 

10 

LAST 

338 

15,2417 

26  077 

0 

ADS 

DAP300LS 

633(,36A 

yul 

system  for  agc: 

REVISION 

0 OF  PROGRAM  BURST12D  BY 

NASA  2021106-031 

DEC  /, 

1967  (MAIN)  PAGE 

339 

L 

do^n 

-TELEMETRY  RROGRAvIi 

USER'S  OWN  page 

NO.  11  S3 

E7 

0^70 

REF 

1 

15jZ420 

3 2423  0 

. . -CA 

__LONf  AZE1_ 

jreestablish_  the 

N0RMAL._D0WNL15T.  , 

0^t7l 

REF 

13  LAST  338 

15,2421 

55*401  1 

TS 

onimgoto 

0472 

rEf 

1 

a5J^42^ 

1 2430  1 

ICF 

_EEIChCDU 

send _TH£  final  CDU  PAIR.  _ 

0473 

0474 

REF 

REF 

3 LAST  33O 
2 LAST.  338 

15,2423 

15,242Fl 

02006  0 
._023L65-i) 

L3NFAZE1  ADRES 
_.L3NCDJ50  acres 

DNPHASEl 
OMCOllSGCL  
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L INFLI3HT  ALIGNMENT  ROJIINES  USER'S  OWN  PAGE  NO.  1 si 

00X11 15t2425 3AMiX LS 

0002  REF  12  LAST  69  E5  EBAN<=  KSM 


R0003  CAlCGTA  COMPUTES  THE  5TR0  TORQUE  ANGLES  REQUIRED  TO  BRINS  THc  STABLE  MEMBER  INTO  THE  DESIRED  ORiENTATIOn. 

Roooi  THe  nPUT  is  the  desired  stable  member  coordinates  referred  to  present  stable  member  coordinates.  THt  three 

R0007  half-jnit  vectors  are  Stored  at  xdc,  ydc,  and  zdc. 


R0008  THe  outputs  are  the  three  gyro  tORQUING  angles  to  Be  APPClEO  TO  the  Y*  Z.  and  X GYROS  AND  ARe  StOReD  DP  AT  ISC, 
ROOlO  mGc*  and  OGc  respectively,  angles  are  SlAlED  properly  for  IMiiPUlSF. 


0011 

15,7428 

7-1220 

1 CALCGTA 

ITA 

OLOAD 

PUSHDDWN^  QO-,Q2»16D*J.8D,22D-26  0.,32D-36D 

0012 

ref 

1 

15,2426 

00051 

0 

52 

XDC  = (XDl  XD2  XD3) 

0013 

REF 

6 

LAST 

44 

15,2427 

02423 

0 

XDC 

YDC  = (YDl  YD2  YD3) 

OOIA 

15i2430 

65325 

0 

5DDL 

PDDL 

ZDC  = (ZDl  .Z02  ZD3) 

0015 

REF 

1 

15,2431 

33105 

0 

ZEROOP 

0016 

REF 

7 

LAST 

340 

15,2432 

02427 

1 

XDC  +4 

0017 

15,2433 

55476 

1 

dcomp 

VDEF 

0018 

15,2434 

77656 

1 

UNIT 

0019 

REF 

1 

15,2435 

14027 

1 

STOOL 

ZPRImE 

ZP  = UNIT(-XD3  0 XDl)  = (ZPl  Z®2  ZP3) 

0020 

REF 

2 

LAST 

340 

15,2436 

00027 

1 

ZPRIME 

0021 

15,2437 

77742 

0 

SRI 

0022 

REjr 

1 

15,2440 

14023 

0 

STODL 

SINTH 

SIN(IGr)  = ZPl 

0023 

REF 

3 

LAST 

340 

15,2441 

00033 

1 

ZPRIME  +4 

0024 

15,2442 

77742 

0 

SRI 

0025 

REF 

1 

15,2443 

34021 

0 

STCALL 

COSTw 

COS(IGC)  s ZP3 

0026 

REF 

1 

15,2444 

32476 

0 

arctrig 

0027 

REF 

1 

15,2445 

16503 

0 

STOOL 

IGC 

Y GYRO  TORQUING  ANGLE  FRACTION  OF  REV. 

0028 

REF 

8 

LAST 

340 

15,2446 

02425 

0 

XDC  +2 

0029 

15,2447 

77742 

0 

SRI 

0030 

ref 

2 

LAST 

340 

15,2450 

14023 

0 

STODL 

SINTH 

SIN(MGC)  = XD2 

0031 

REF 

LAST 

340 

15,2451 

00027 

1 

7PRIME 

0032 

15,2452 

65205 

0 

OMP 

PBOL 

0033 

ref 

9 

LAsT 

340 

15,2453 

02427 

1 

XdC  *4 

PDOO  = (ZPl) (Xo3) 

0034 

REF 

5 

LAST 

340 

15,2454 

00033 

1 

ZPRIME  +4 

0035 

15,2455 

45205 

1 

DMP 

D5J 

0036 

ref 

10 

LAST 

340 

15,2456 

02423 

0 

XDC 

MPAC  = (ZP3) (XDl) 

0037 

15,2457 

77626 

0 

STADR 

0038 

REF 

2 

LAST 

340 

15,2460 

43756 

1 

STCALL 

costh 

COS(MGC)  = MPAC  - PDOO 

0039 

REF 

2 

LAST 

340 

15,2461 

32476 

0 

arctrig 

OOAO  REF  1 


15,2A62  26505  0 


STOVL  mg 


Z GYRO  TORQUING  ANGLE  FRACTION  OF  REV 


633«,36A 

yUL 

Sf5TEM  FOR  ftGCI 

; REVISION 

0 OF  PROGRAVl 

BURST120  BY  NASA  2ri2110fc-03l 

DEC  7,  1967 

(MAIN)  PAGE  341 

L 

INFLI5HT  ALIGN'IEnT 

R3JTINES 

USER'S  Own  page  no. 

2 S3  E5 

OO^tl 

REF 

6 

LAST 

340 

15.^463 

. 00027 

1 .. 

2PR1ME  --  - - 

00^,2 

15.2464 

77641 

1 

30T 

00<(3 

REF 

1 

15,2465 

02437 

0 

ZOC 

00<t^ 

REF 

3 

LAST 

340 

15,2466 

24021 

1 

_ . ST3VJ-  -COSTM  

cos  ( OGC L =_2P  . ZDC 

00^5 

REF 

7 

LAST 

341 

15,2467 

00027 

1 

ZPRIME 

00^(6 

15,2470 

77641 

1 

30T 

, OO^t7 

ref 

1 

15,24^71 

02431 

0 

_YDC  . _ 

0048 

REF 

3 

LAST 

340 

15,2472 

34023 

1 

5TCALL  SINTH 

SIN(OGC)  = ZP  . YOC 

0049 

ref 

3 

LAST 

340 

15,2473 

32476 

0 

ARCTrIG 

0050 

REF 

4 

LAST 

210 

15,2474 

36501 

0 

5TCALL  OGC 

X GYRO  TORQUING  ANGLE 

FRACTION  OF  REV, 

0051 

ref 

2 

LAST 

340 

15,2475 

00051 

0 

52 
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L INFLIGHT  ALIGNMENT  ROUTINES  USER'S  OWN  PAGE  NO.  3 S3  E5 

R0052  ARCTRIG  computes  an  angle  given  THF  sink  and  cosive  of  this  ANGLf. _ 

R0053  the  inputs  are  Sin/A  and  cos/a  stored  dp  at  sinth  and  costh. 


ROOSA  the  DJTpUT  is  THe  CALCULATED  ANgLE  BETwEE't  *.5  ANO  -.5  REVOLUTIONS  AND  STORED  AT  THETA.  THE  OUTpUT  IS  A^SO 
R0056  AVAILABLE  AT  MPAC. 


0057 

15.2A76 

_^515A5_  L ARCTriG 

OLOaD 

_ AB3  _ _ 

. PUSHDOWN  16d,18D,20D,22D-26D 

0058 

RLF 

A LAST  3Al 

15.2A77 

00023  0 

SINTH 

0059 

0060 

jref 

1 

15.2500 

15.2501 

50025  0 
33073  0 

DSU 

bimn 

3TSNA5 

ABS(SIN/A)  - S1N(A5)/A 

0061 

REF 

1 

15,2502 

32511  0 

TRIG) 

IF  (-A5,A5)  OR  (135,-135) 

0062 

0063 

ref 

A 

LAST 

3Al 

15,2503 

15,250A 

725A5  0 
00021  1 

3L0AD 

SLl 

COSTH 

(A5,135)  OR  (-135, -A5) 

006A 

0065 

0066 

REF 

REF 

5 

1 

LAST 

3A2 

15.2505 

15.2506 

15.2507 

75326  1 
00023  0 
00025  0 

ACOS 

STORE 

SIGN 

SINTH 

theta 

X 3 ARCCOS(COS)  WITH  SIGN(SIN) 

0067 

15,2510 

77616  0 

RVQ 

0068 

0069 

REF 

6 

LAST 

3A2 

15.2511 

15.2512 

725A5 

00023 

0 0 

AJ 

c< 

OLOAo 

SLl 

SINTH 

(-A5,A5)  OR  (135,-135) 

0070 

0071 
OOJZ 

REF 

ref 

2 

5 

LAST 

LAST 

3A2 

3A2 

15,2513 

15,251A 

15,2515 

77736 

1A025 

00021 

0 

0 

1 

ASIN 

STODL 

THETA 

COSTH 

X s ARCSIN(SIN)  WITH  SIGN(SIN) 

0073 

15,2516 

776A0 

0 

3MN 

OO7A 

ref 

1 

15,2517 

32522 

0 

TRIG2 

IF  (135,-135) 

0075 

15,2520 

A35A5 

1 

OLOAO 

RVO 

0076 

REF 

3 

LAST 

3A2 

15,2521 

00025 

0 

theta 

X = ARCSIN(SIN)  (-A5,A5) 

0077 

15,2522 

753A5  1 TRIG2 

DLOAO 

SIGN 

035  *-135.) 

0078 

0079 

0080 

REf 

REF 

1 

7 

LAST 

3A2 

15,2523 

15,252A 

15,2525 

33075  0 
00023  0 
77625  0 

DSU 

HALpDP 

SINTH 

0081 

REF 

A 

LAST 

3A2 

15,2526 

00025  0 

theta 

0082 

REF 

5 

last 

3A2 

15,2527 

00025  0 

STORE 

THETA 

X 3 .5  with  SIGN(SIN)  - ARCSIN(SIN) 

0083 

15,2530 

77616  0 

RVO 

(*)  - (*)  OK  (.)  - (-) 
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U INFL13HT  alignment  RDJTINeS 


USER’S  OWN  PAGE  NO,  4 S3  E5 


R0084  SMmB  transforms,  a _SJM.JIU7£C_T_taiNl_  FROM  .SJ-AiLL  jl£M3£B„LD_NAV  1 GAT  I On  BASE,, COORDINATES.  _ _ 

Ro086  tHe  inputs  ARe  1)  HE  STAR  YeCtOR  ReTeRRED  TO  PRrScNT  STABLE  MEMBER  COORDINATES  STORED  AT  LOCATION  32D  OF  THE 

ROO88  VAC  area.  2)  T!jE  GIMi3AL_aNGLeS,  (CDUYjCOJE,CDJX)_SIOJ^_D„ALAI  TERNATING  locations  RESPeLTIVELY.,  the  angles  are 

R0090  USUAL. Y STORED  ''T  LOCATIONS  2,4,  AND  6 OF  THE  MARO  VAC  AREA.  THEY  CAN  Be  STORED  AT  LOCATIONS  20,22,  AND  24  OF 

ROO92  YOUR  JOB  VAC  area.  3)  THe  BASE  ADDReSS  oF  THE  GI MBaL  ANoLeS  STORfD  SP  AT  LOCATION  Si  oF  YOUR  JOB  VAC  A^eA. 


Roo94  tHe  output  is  tHe  stari  Vector  refeRReD  to  navigation  base  coordinates  stored  at  32D  of  the  vac  area.  tHe  output 

R0096  IS  ALSO  AVAILABLE  AT  MPAC. 


0097 

16.7431 

43O2O  A 

smnb 

ITA 

clear 

PUSHDOWN  00,02, 0A-10D,30D,32D-36D 

0098 

0099 

rbf 

ref 

3 LAST  34I 
1 

15.2532 

15.2533 

00051  0 
00264  1 

S2 

nbsmrit 

SET  NBSMBIT  = 0 

0100 

0101 

0102 

15*2534 

15.2535 

15.2536 

77170  1 
00004  0 
00000  1 

SMNBl 

AXT.l 

AXT  ,2 

4 

0 

rotate  X,2,  ABOUT  Y 

0103 

0104 

REF 

1 

15,2537 

15.25A0 

77624  1 
32601  1 

CALL 

AXISoOT 

0105 

0106 
0107, 

15.2541 

15.2542 

15.2543 

77170 

00002 

00004 

1 

0 

0 

AXT.l 

AXT. 2 

2 

4 

rotate 

Y,X 

ABOUT  Z 

0108 

15,2544 

77624 

1 

CALL 

0109 

ref 

2 

LAST 

343 

15,2545 

32601 

1 

AxISpOT 

0110 

15,2546 

77170 

1 

AXT.l 

AXT,2 

ROTATE 

Z,Y 

ABOUT  X 

0111 

15,2547 

00000 

1 

0 

0112_ 

15,2550 

00002 

0 

2 

0113 

15,2551 

77624 

1 

CALL 

0114 

ref 

3 

LAST 

343 

15,2552 

32601 

1 

axisrot 

0115 

15, 2553 

77650 

1 

GOTO 

0116 

REf 

4 

LAsT 

343 

15,2554 

00051 

0 

S2 
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L INFLI3HT  ALIGNMENT  ROUTINES  USER'S  OWN  PAGE  NO.  5 S3  E5 

RollV  NBSM  rRANSFORMS  A STAR  DIRECTION  FROM  NAylGATlDN  3ASF  TO  STArLF  MfMBfR  COORDINATfS. 

Roii9  tHe  impjtS  are  1)  tme  star  Vector  reFeR'^ed  to  navigation  base  coordinates  stored  at  location  32D  of  th?  vac 

R0121  _aR£a . z ) the  qImbal  angles  (Cduy.cduz.cdjx)  stor ed  at  a'te.rnating  locations  Respectively,  the  anglfs  arf 

R0123  usually  stored  At  locations  2, a,  and  6 of  the  Marc  vac  area,  they  can  be  stored  at  locations  20,22,  AND  2A  OF 

R0125  your  job  vac  area,  3)  the  base  address  oF  the  gimbal  angles  storfD  sp  at  location  Si  of  Your  job  vac  area. 


R012Y  tHe  output  is  tHe  star.  Vector  referred  to  present  stable  memreR  coordinates  stored  at  location  32D  of  the  vac 

R0129  AREA,  the  OuTPJT  IS  ALSO  AVAILABLE  AT  MPAC. 


0130 

15*2555 

A3020 

1 

N3SM 

ITA 

SET 

PUSHDOWN  00,02,04-LOD,30D,32D-56D 

0131 

ref 

5 

last 

3A3 

15,2556 

00051 

0 

S2 

0132 

REF 

2 

LAST 

3A3 

15,2557 

0006A 

0 

NBSMrIT 

SET  NBSMBIT  s 1 

0133 

15,2560 

77170 

1 

N3SM2 

AXT,1 

AXT,7 

ROTATE  Z,Y  ABOUT  X 

013A 

15,2561 

00000 

1 

0 

0135 

_ L5,2562  . 

00002 

0 

2 

0136 

15,2563 

7762A 

1 

call 

0137 

REF 

A 

LAST 

3A3 

1 5 ,256A 

32601 

1 

AXISoOT 

0138 

15,2565 

77170 

1 

AXT,1 

AXT  ,2 

ROTATE  Y,X  ABOUT  Z 

0139 

15,2566 

00002 

0 

2 

Ol^iO 

15,2567 

OOOOA 

0 

4 

OlAl 

15,2570 

7762A 

1 

CALL 

01A2 

ref 

5 

LAST 

3AA 

15,2571 

32601 

1 

AXISrOT 

0U3 

15,2572 

77170 

1 

AXT,1 

AXT, 2 

rotate  X,Z,  ABOUT  Y 

OlAA 

15,2573 

OOOOA 

0 

4 

01A5 

15,257A 

00000 

1 

0 

01A6 

15,2575 

77624 

1 

CALL 

0U7 

REF 

6 

LAST 

3AA 

15,2576 

32601 

1 

AXISdOT 

01A8 

15,2577 

77650 

1 

GOTO 

01A9 

-ref 

6 

last 

3AA 

15,2600 

00051 

0 

S2 
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L INFLIGHT  ALIGNMENT  ROUTINES  USER'S  OWN  PAGE  NO.  6 S3  E5 

Roiso  AxISJ?OjT-_  LS  UTILIffD  3Y  THf  SMNB  and  NfeSM  RQUJI  VfS,.  Sff  _RFjlARK_5,,QM,  THF_SF  RaUTLNES_  FOR  _JJ1PU.T5„  AND  0UTPUT3..  


0152 

15.2601 

66660 

1 AKISROT 

XSJ.l 

SLOAn* 

0153 

ref 

3 

LAST 

183 

15,2602 

00050 

1 

SI 

SMNb 

. NbSM 

0154 

15.2603 

00005 

1 _ _ 

4il  

IG  MG 

OG  . OG MG 

0155 

15,2604 

56034 

0 

RTB 

XAO.l 

0156 

ref 

3 

LAST 

189 

15,2605 

33457 

1 

CDJLnGIC 

0157 

ref 

4 

LAST 

345 

15,2606 

00050 

.1  _ 

51 

0158 

15,2607 

00037 

0 

STORE 

300 

0159 

15,2fel0 

77746 

1 ACCUROT 

:os 

0160 

15,2611 

04011 

0 

STORE 

8D,1 

COS(ANGLE) 

01601 

15,2612 

73545 

1 

OLOAO 

SIN 

0161 

15.2613 

00037  0 

3QD 

0163 

15,2614 

04013 

1 

STORE 

loD.r 

SIN(ANGLE) 

0164 

15,2615 

72403 

n 

3MP* 

SLl 

0165 

15,2616 

77732 

1 

320  +4,2 

0166 

15,2617 

40723 

0 

3D0L» 

DMP» 

POO 

0167 

15,2620 

00011 

1 

8D.1 

S3SIN  SISIN 

S2SIN  . S2SIN  SISIN 

S3SIN 

0168 

15,2621 

77732 

1 

320  +4.2 

0169 

15,2622 

64752 

0 

SLL 

PDDLt 

P02 

0170' 

15,2623 

00013 

0 

100,1 

S3COS  SICOS 

S2C0S  . S2COS  SICOS 

S3C0S 

0171 

15,2624 

72403 

0 

OMP» 

SLl 

MPAC 

0172 

15,2625 

00045 

0 

32D  +4,1 

SISIN  S2SIN 

S3SIN  . S3SIN  S2SIN 

SISIN 

0173 

15,2626 

77614 

1 

30FF 

0174 

ref 

3 

LAST 

344 

15,2627 

00344 

1 

NBSMBIT 

0175 

ref 

1 

15,2630 

32643 

1 

AXISROTl 

0176 

15,2631 

45421 

1 

3DSU 

STAOR 

. PD2  - M5A 

z 

0177 

15,2632 

67732 

0 

STORE 

320  +4,2 

. S2  SI 

S3 

01771 

15,2633 

77743 

1 

5L0A04 

0178 

15,2634 

00011 

1 

80,1 

0179 

15,2635 

72403 

0 

OMP» 

SLl 

. MPAC 

0180 

15,2636 

00045 

0 

320  +4,1 

. S3C0S  S2C0S 

SICOS 

0181 

15,2637 

45415 

0 

OAD 

S_TAOR 

. PDO„.t  M=A 

0182 

15,2640 

73732 

0 

STORE 

320  +4,1 

. S3  S2 

SI 

01821 

15,2641 

43575 

1 

VLOAD 

RVO 

0lB3_  _ 

15.2642 

00041 

1 

370 

0185 

15,2643 

45415 

0 AKISROTl 

OAD 

ST  AOr 

MPAC  + PD2 

« 

0186 

15,2644 

67732 

0 

STORE 

320  +4,2 

S3  SI 

S2 

01861 

15,2645 

77743 

1 

0LOAO4 

0187 

15,2646 

00011 

1 

80,1 
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L 

0TB8 

INFLIGHT  alignment  ROUTINES 
15.2647 

JZ4J02L„0 

OMP» 

_SLL 

USER'S  Own  page  no.  7 S3  es 

MPAC_. . _ . , _ 

0189 

0190 

15.2650 

15.2651 

00045  0 
45425  0 

osa 

320  *4.1 
STADr  

SlCOS  S2C0S  S3C0S  . 
MPAC  - PDO 

0191 

01911 

OL92 

15.2652 

15.2653 

15.2654 

73732  0 
43575  1 
00041  1 

STORE 

VLOAO 

32D  +4,1 
RVO 

32D 

SI  S2  S3 

R0l94 

cALCoA  Computes 

THE  vOU  DRIVING  ANGLeS  ReOUIReO  TO'  BRING  tHe  STABLE  MeMBeR  INTO  THE  DeSIRED  ORIENTATION. 

R0196 

THf  IMPUtS  ARE 

1)  THE  navigation  BASF  COORDINATES  RFFFRRfD  ^-0  ANY 

COORDINATE!  system.  THe  THREE  HALF-UNIT 

R0198 

VECT0T6  ARE  STORED  AT  XNb.YNB^ 

, and  znb. 

2)  the  desired 

stable  member  coordinates  referred  to  the  same 

R0200 

COORDINATE  SYSTEM  ARE  STORED  AT  XSM,  YSM.  AND  ZSM, 

Ro201 

tHe  outputs  are 

the  three  cdu 

DRIVING  angles  AND  ARe  STORED  aP  At 

THeTAD.  THeTAD  +1.  AND  THeTAD  +2. 

0203 

15,2655 

47375 

0 CALCGA 

vloao 

VXV 

PUSHDOWN  00-04, 16D,18D 

0204 

REF 

1 

J5t2656 

02423 

0 

XN3 

XNB  = OGA  (OUTER  GIMBAL  AXIS) 

0205 

REF 

1 

15,2657 

02407 

0 

YSM 

YSM  = IGA  (INNER  GIMBAL  AXIS) 

0206 

15,2660 

41456 

0 

UNIT 

PUSH 

PDO  = UNIT(0GA  X IGA)  = MGA 

0207 

15,2661 

44041 

1 

DOT 

ITA 

0208 

REF 

1 

15,2662 

02437 

0 

ZNB 

O2  05__ 

REF 

7 

LAST 

344 

15,2663 

00051 

0 

S2 

0210 

REF 

6 

LAST 

34Z 

1 f 2664 

24021 

1 

STOVL 

costu 

COS(OG)  = MGA  . ZNB 

0211 

15,2665 

00001 

0 

0 

0212 

15  *2666 

77641 

1 

DOT 

0213 

REF 

1 

15,2667 

02431 

0 

ynb 

0214 

REF 

8 

LAST 

342 

15,2670 

34023 

1 

stcall 

SINTH 

SIN(OG)  s MGA  , YNB 

0215 

REF 

4 

LAST 

34l 

15,2671 

32476 

0 

arctrig 

0216 

REF 

5 

LAST 

341 

15,2672 

26501 

1 

STOVL 

OGC 

0217 

15,2673 

00001 

0 

0 

0218 

15,2674 

50235 

0 

VXV 

Dot 

PROVISION  FOR  MG  ANGLE  OF  90  DEGREES 

0219 

REF 

2 

LAST 

346 

15,2675 

02423 

0 

XNB 

0220 

ref 

2 

LAST 

346 

15,2676 

02407 

0 

YSM 

0221 

15,2677 

77752 

1 

SLl 

0222 

REF 

7 

LAST 

346 

15,2700 

24021 

1 

STOVL 

COSTh 

COS(MG)  = IGA  , (MGA  X OGA) 

0223 

REF 

3 

LAST 

346 

15,2701 

02407 

0 

YSM 

0224 

15,2702 

77641 

1 

DOT 

0225 

REF 

3 

LAST 

346 

15,2703 

02423 

0 

XNB 

0226 

REF 

9 

LAST 

346 

15,2704 

34023 

1 

STCALL 

SINTM 

SIN(MG)  = IGA  . OGA 

0227 

REF 

5 

LAST 

346 

15,2705 

32476 

0 

Arctrig 

0228 

REF 

2 

LAST 

340 

15,2706 

02505 

0 

store 

MGC 

0229 

15,2707 

45246 

0 

ABS 

DSJ 

0230 

ref 

1 

15,2710 

33113 

1 

• 1 66. • • 

0231 

15,2711 

77644 

1 

3PL 

0232 

REF 

1 

15,2712 

32731 

0 

GlMLOCKl 

IF  angle  greater  than  60  DEGREES 
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L INFLI5HT  ALIGNMENT  ROOTINES 


USER'S  OWN  page  no.  8 S3  E5 


0233 

15.2713 

50375 

_0_ 

CALCGAl 

VLQAO 

DOT 

0234 

REF 

1 

15.2714 

02415 

0 

ZSM 

0235 

15,2715 

00001 

0 

0 

0236 

REF 

8 

LAST 

346 

15.27L6 

24021 

1 

sTavj-. 

_COSTU  _ _ 

COStlG),  s ZSM  . 

MGA 

0237 

ref 

13 

LAST 

340 

15,2717 

02401 

0 

XSM 

0238 

15,_2I20. 

. 45441 

1 

DOT 

ST AOR  . 

0239 

REf 

10 

LAST 

346 

15,2721 

43754 

0 

STCAlL 

SINTh 

SIN(IG)  s xsm  . 

MGA 

0240 

ref 

6 

LAST 

34E 

15,2722 

32476 

0 

ARCTRIG 

0241 

REF 

2 

LAST 

34O 

15,2723 

26503 

0 

STOVL 

IGC 

0242 

REF 

6 

LAST 

346 

15,2724 

02501 

1 

ococ 

0243 

15,2725 

77634 

0 

RiTB 

0244 

ref 

1 

15,2726 

33526 

0 

V1ST02S 

0245 

REF 

6 

LAST 

295 

15,2727 

34401 

0 

STCALL 

THETAD 

■ 0246 

REF 

8 

LAST 

346 

15,2730 

00051 

0 

S2 

0247 

15,2731 

77776 

1 

GIMLOCCl 

EXIT 

02472 

REF 

3 

LAST 

90_ 

- 15,2732 

0 6051 

0 

rc 

FLAGiUP 

SET  GIMBAL  LOCK 

FLAG 

02474 

15,2733 

00200 

0 

OCT 

200 

0248 

ref 

31 

LAST 

314 

15,2734 

0 4755 

1 

rc 

alarm 

0249  . 

15,2735 

00401 

1 

OCT 

00401 

0250 

ref 

5 

LAST 

226 

15,2736 

0 6112 

0 

TC 

INTPRET 

0251 

15,2737 

77650 

1 

30TD 

0252 REF__.  I 15.27A0  32713  0 


CALCGAl 
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L 

R0253 

R0255 

R0257 

R0259 

R0261 


R0262 

R0264 


0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 
02731 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0_Z_8l 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 
02« 
0294 


INFLIoHT  alignment  ROUTINES  USER'S  OWN  PAGE  NO.  9 S3  E5 

AXISGEN  COMPUTES  THE  COORDINATES  OF  ONE  COORDINATE  SYSTEM  RFFERRFD  TO  AmOTHER  COORDINATE  SYSThM.  . 

THe  IMPUtS  are  1)  THE  StARi  VECTOR  REFERRED  TO  COORDINATE  SYSTEM  A STORED  AT  STARAD.  2)  THE  STAR2  VECTOR 
referred  to  coordinate  SYSJEM  a stored  at  STARAD  t6,„3)  THE  STARi  VECTOR  REFERRED  TO  COORDINATE  SYSTEM, _B  STORED 
AT  LOCATION  6 OF  THE  VAC  AREA.  4)  THE  STAR2  VECTOR  REFERRED  TO  COORDINATE  SYSTEM  B STORED  AT  LOCATION  12O  OF 
the  vac  AREA. 


THe  output  defines  COORDINATE  SYSTEM  A ReFeRReO  T 0>  COORDINATf  SYSTEM  B.  THe  THREE  HALF-UNIT  VECTORS  ARE  StOReO 


AT  LO 

CATION5 

xdl, 

XDC'  +6*  XDC 

+12D,  and 

STArAD, 

STArAo 

+6,  STARAd  +12D. 

15,2741 

6fc370 

0 

AXISGEN 

AXT,l 

SSP 

PUSHDOWN  00-22D.24D-28D, 

30D 

rEf 

1 

15.2742 

02452 

0 

STARAO  +6 

REF 

5 

LAST 

345 

15,2743 

00051 

0 

Si 

REF 

2 

LAST 

34B 

15,2744 

02436 

1 

STARAD  -6 

15,2745 

46773 

0 

AXISGENI 

VLOAD# 

VXV* 

06D 

UA  s Si 

ref 

3 

LAST 

348 

15.2746 

02461 

0 

STARAD  +J2D,1 

STARAD  +000  UB  s 

Si 

ref 

4 

LAST 

348 

15,2747 

02467 

0 

STARAD  +1bD,1 

15,2750 

77656 

1 

UNIT 

12D 

VA  = UNITISl  X S2) 

ref 

5 

LAST 

348 

15,2751 

06467 

1 

STORE 

SIARAD  +18D.1 

STARAD  +06D  VB  = 

UNITISl  X S2) 

15,2752 

77773 

1 

VLOAQ* 

ref 

6 

LAST 

348 

15,2753 

02461 

0 

STARAD  +12D,1 

15,2754 

76433 

1 

VXV» 

VSLl 

REF 

7 

LAST 

348 

15,2755 

02467 

0 

STARaO  +18D,1 

180 

WA  s UA  X VA 

REF 

8 

LAST 

348 

15,2756 

06475 

1 

STORE 

STARAD  *24D,1 

STARAD  +12D  WB  = 

UB  X VB 

15,2757 

77700 

0 

tIX,l 

REf 

1 

15,2760 

32745 

0 

AXlSr,ENl 

15,2761 

66160 

0 

AXC,1 

SXA,i 

15,2762 

00006  1 

6 

15,2763 

00036 

1 

300 

15,2764 

66370 

0 

AXT,1 

SSP 

15,2765 

00022 

1 

180 

REF 

6 

LAST 

348 

15,2766 

00051 

0 

SI 

15,2767 

00006 

1 

6 

REF 


15 


2770  66374  1 


AXT.2  SSP 


15.2772 

15.2773 

00052  0 
00002  0 

S2 

2 

15,2774 

76720  0 

AXISGEN2  XCHX.l  VLOAn* 

15,2775 

00036  1 

30D 

Xl  = 

-6  X2=+6 

Xl  = 

-6  X2=+4 

XU-6  X2  = *2 

15,2776 

00001  0 

0,1 

9 LAST  347 


15 


2777  62757  0 


VXSCt  PDVL» 


J=(UA)(UB1)  J=(UA)(UB2)  J=(JA)(U33) 
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L 

INFLI 

oHT  ALIGNMENT 

ROUTINES 

USER'S  OWN 

PAGE  NO.  10 

S3  E5 

0295 

REF 

9. 

EAST 

348  - 

_ E5jS-0-0.Q- 

75^24 

--0-- 

-STARaD  *6,2 

0296 

15,3001 

00007 

0 

6,1 

0297 

15,3002 

77757 

1 

^XSC» 

0298 

REF 

10 

LAST 

349  _ 

15., 3003 

_ 75316 

1 

SIARaD  +12D,2 

0299 

15,3004 

30031 

0 

STOVL* 

240 

K= (VA) (VBl) 

J=  (VA)  (VB2) 

J=(VA) (V33) 

0300 

15,3005 

00015 

0 

12D,1 

0301 

15,3006 

53357 

0 

i/XSC» 

yAD 

0302 

REF 

11 

LAST 

349 

15,3007 

75310 

1 

STARaO  +UD,2 

L= (WA) (WBl) 

Js(WA) (WB2) 

J= ( VA) (WB3) 

0303 

15.3010 

76455 

_V_5L1 

0304 

15,3011 

00031 

0 

240 

0305 

15,3012 

77720 

1 

XCHX,1 

0306 

15.3013 

00036 

1 

300 

0307 

ref 

11 

LAST 

340 

15,3014 

06445 

1 

STORE 

XOC  +18D,1 

XDC  = L+J+K 

YDC  = L*J*K 

ZDC  = L+J*K 

0308 

15,3015 

77700 

0 

nx,i 

0309 

ref 

1 

15,3016 

33017 

1 

AXI SgEN3 

0310 

15.3017 

77704 

1 

AX1SGFN3 

TIX.2 

0311 

ref 

1 

15,3020 

32774 

1 

AXISr.EN2 

0312 

1 

77-775 

1 

Jl  OAn 

0313 

REf 

12 

LAsT 

349 

15,3022 

02423 

0 

XOC 

0314 

REF 

12 

LAST 

349 

15,3023 

26445 

0 

STOVL 

SIARAD 

0315 

re_e 

2 

last 

341 

15.3024 

02431 

0 

YDC 

0316 

REF 

13 

LAST 

349 

15,3025 

26453 

1 

STOVL 

STAraD  *6 

0317 

REF 

2 

LAST 

341 

15,3026 

02437 

0 

ZDC 

0318 

ref 

14 

LAST 

349 

15,3027 

02461 

0 

STORE 

STARaD  *12D  . 

RV3 


0319 


15,3030  77616  0 
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L 

Rqaib 

INFLIoHT  alignment  routines 
TRANS3SF  computes  tH?  TRANSPOSf 

USER'S  OWN  PAGE  NO, 

^ Of__A_  MAIR J7(,  (j;.RA^_SPaS_£_  = INYrRSe  oF  XiRXHOGaNAL  TRANSFORMATION) 

11 

S3  E5 

R0A20 

R0A22 

tHe  input  is  a matrix  Defining 

STARAO  tlTD.  _ 

coordinate  system  a with  reSPect  to  coordinate  system  b Stored 

IN 

StARAD  thru 

RoA23  THe  OJTPUT  IS  A MATRK  DEFINING  COORDINATE  SYSTEM  B i^ITH  ReSpeCt  TO  COORDINATE  SYSTEM  A STORED  IN  StARAO  tHRJ 
R0^25 5TARA3I  ♦17D. 


0A26 

REF 

15 

LAST 

349 

15,3031 

53*447 

0 

TRANSPSE  DXCH 

ST ARflD 

+ 2 

PUSHDOWN  NONE 

0A27 

REF 

16 

LAST 

35O 

15,3032 

_5X'453_ 

0 

DXCH 

starad 

♦6 

0A28 

ref 

17 

LA5T 

35O 

15,3033 

53*447 

0 

DXCH 

STARAD 

♦2 

0429  _ 

.5EF 

18 

LAST 

35O 

15,3034 

53*451 

1 

-DXCH 

STARAD 

0430 

REF 

19 

LAST 

35O 

15,3035 

53*H6l 

1 

DXCH 

STARAD 

+12D 

0431 

rlf 

20 

last 

350 

15,3036 

53*451 

1 

DXCH 

Starad 

+ 4 

0432 

ref 

21 

LAST 

35O 

15,3037 

53*457 

1 

DXCH 

STAraD 

+10D 

0433 

REF 

22 

LAST 

35O 

15,3040 

53*463 

0 

DXCH 

STARAD 

♦ 14D 

0434 

REf 

23 

LA5T 

350 

15,3041 

53*457 

1 

DXCH 

starad 

♦ lOD 

0435 

ref 

1 

15,3042 

1 6125 

0 

TCF 

DANZiG 

R0A36  SMO/EREF  TRANSFORMS  STABLE  MEMBER  DESIRED  COORDINATES  FroM  StABLF  MEMBER  DESIRED  (DESIRED  s PRESENT  HER?)  TO 

RQA38  earth  Reference  coordinates  to  align  the  starLe  mfMrer  to  spfcififD  gimrAL  angles. 

Roaao  tHe  inputs  are  1)  the  matrix  Defining  the  earth  R?FeRenCe  coordinate  frame  with  ReSPeCt  to  the  navigation  base 
R 0 A A 2___  coordinate  FRAME.  2)  SAME  AS  2)  AND  3)  OF  SMNB, 


Roaa3  tHe  output  is  tHe  desired  Stable  member  cdordinateb  with  respect  to  the  earth  Reference  coordinate  FRAMr.  the 
RQAA5__  three  unit  vectors  are  stored  at  XSmi  YSvi»  and  ZSvi. 


0446 

1^,3043 

77220 

1 

SMD/EREF  ITA 

VLDAD 

PUSHDOWN  00,02,04-10D,30D,320-:»6D 

0447 

15,3044 

00014 

1 

120 

0448 

ref 

1 

15,3045 

33103 

0 

XUNIT 

0449 

15,3046 

34041 

0 

stcall 

320 

0450 

REF 

3 

LAST 

183 

15,3047 

32531 

1 

SMNB 

stable  MEMBER  TO  NAVIGATION  BASF 

0451 

15,3050 

76521 

0 

V(XV 

VSLl 

0452 

REF 

24 

LAST 

35O 

15,3051 

02445 

0 

StAraD 

THEN  TO  EARTH  REFERENCE 

0453 

REF 

14 

LAST 

347 

15,3052 

26401 

0 

STOVL 

XSM 

0454 

ref 

1 

15,3053 

33101 

1 

YUNIt 

0455 

15.3054 

34041 

0 

STCALL 

32D 

0456 

REF 

4 

LAST 

35O 

15,3055 

32531 

1 

SMNB 

STABLE  MEMBER  TO  NAVIGATION  BASE 

0457 

15,3056 

76521 

0 

»1XV 

VSLl 

0458 

REF 

25 

LAST 

35O 

15,3057 

02445 

0 

STARaD 

THEN  TO  EARTH  REFERENCE 

0459 

REF 

4 

LAST 

346 

15,3060 

26407 

0 

STDVL 

YSM 

0460 

REF 

1 

15,3061 

33077 

1 

ZUNIT 

0461 

15,3062 

34041 

0 

stcall 

320 

633^(36A 

yul  system  for  AgCI 

1 REVISION 

0 OF  program  BURST120  BY 

NASA  2021106-031  DEC  7*  1967  (MAIN)  PAGE 

351 

L 

IMFLI3HT  ALIGNMENT 

routines 

USER'S  OWN  PAGE  NO.  12  S3 

E5 

0A62 

RLF  5 lAsT  350_ 

15.3063 

32531 

1 

_SMN3-  - -S-IAblejmember  10- navigation  BAs?  - 

0463 

15,3064 

76521 

0 

MXV 

VSLl 

0464 

REF  26  LAST  350 

15,3065 

02445 

0 

STARaD  then  to  earth  reference 

0465 

REF  2 LAST  347 

3Qiii> 

J6415  J.  - 

- 5ICALL--ZS-M  _ . . _ 

0466 

15,3067 

00014 

1 

12D 

0467 

_ 15,3070 

_ 67-777 

1 - 

270DEG 

_ 2DEC 

^.25 

C0467 

15,3071 

77777 

0 

0468 

15,3072 

05520 

0 

3TSN45 

2DEC 

• 1 76q 

C046tS 

15.3073 

26075 

0469 

15,3074 

20000 

0 

HALFDP 

2DEC 

.5 

C0469 

15,3075 

00000 

1 

0470 

15,3076 

00000 

ZJNIT 

2PEC 

0 

C0470 

15,3077 

00000 

1 

0471 

15,3100 

00000 

1 

YJNIT 

2DEC 

0 

C0471 

15,3101 

00000 

1 

0472 

15,3102 

20000 

0 

xJnit 

2DEC 

0,5 

C0472 

15,3103 

00000 

1 

0473 

15,3104 

00000 

zerodp 

?DEC 

0 

C0473 

15,3105 

00000 

1 

0474 

15,3106 

00000 

1 

2DEC 

0 

C0474 

15,3107 

00000 

1 

0475 

15,3110 

00000 

1 

2DEC 

0 

C0475 

15,3111 

00000 

1 

0476 

15,3112 

05252 

1 

• 1 66 • • • 

2DEC 

• 1 66a66 6667 

C0476 

15,3113 

25253 

1 
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L INFLI3HT  ALIGNMfcNT  RDJTINeS  USER'S  OWN  PAGE  NO.  13  S3  E5 

P0A77  AOTN3  COnVERJS„  THE^A_3-r_RE_UCXi  _ROTAllOjl_A\GLE-_iyRDL^AiiD_SRJ.Tj  „AwD . _ __ 

Roa78  the  0-tent  Setting  t>  a half  unit  star  vector  referred  td  thp 
R0479  navigation  BASE  FOR  'IDN-FLIGHT  ALIGNMENT  MODES 

ROABO  __  - - - . . . - _ _____  _ _ _ 

Roabi  the  imputs  are 

R0A82 

ROA03  _ y RET.  LINE  RATATJDN  S(yROTl  STORED  IN  LOC  3 DF  THE  MAR<  \/AC  AREA 

ROABA  spiral  rotation  A'IoLe  S(SROT)  stored  n LOC  5 oF  MAR<  vac  area 

R0Ab5  angle  of  center  Or  field  of  view  S(ELV)  stored  in  LOC  9 DF  MARK  VAC 

R0A86  _ APT  ASZIMUTH  ANGLE  S(DfT)  STORED  IN  LoC  B oF  MaRi^__VAC__AR_£A  _ 

Roabt  th-  complement  of  3ase  address  of  Mark  vac  is  stored  at  xi 

R0AB71  compensation  FOR  FIELD  OF  VIEW  TILT  IN  LOC  loO 

R0AB72  the  AiOVE  STORAGp  IS  DONE  By  API  MARK 


ROABB 

R0A89  the  output  is  A HALF  UNIT  STAR  VfCTOR  IN  NB  COORDINATES  5T3_?tD 


R0A90 

AT  32D 

AND  available 

IN 

VAC  ON 

retura 

TO 

THE 

CALLING  PROGRAM 

R0A91 

0A92 

15 

.311A 

_6660T 

0 

adtnb 

SETPD 

SLDAd_* 

0A93 

15 

»3115 

00001 

0 

0 

OA931 

15 

.3116 

00013 

0 

lOD.l 

AOT  FOV  TILT  COMPENSATION  ANGLE 

OA932 

15 

,3117 

A15A2 

1 

SRI 

PUSH 

RESCALE  TILT  TO  2PI 

0A9A 

15 

,3120 

A7133 

0 

SLOAOit 

RT3 

OA95 

15 

,3121 

OOOOA 

0 

3,1 

0A96 

ref 

A 

LAST 

3A5 

15 

,3122 

33A57 

1 

COULnGIC 

0A97 

15 

,3123 

00017 

1 

store 

lAD 

STORE  uncompensated  TROT  FOR 

5 COMP 

0A971 

15 

,3l2A 

A1A15 

1 

OAD 

Push 

yROT  NOW  corrected  FOR  TILT 

OA98 

15 

,3125 

653A6 

0 

COS 

POOL 

1/2  COS(YROT)  PD  0-1 

OA99 

15 

.3126 

A1556 

1 

SIN 

push 

1/2  SlN(yROT)  PD  2-3 

0500 

15 

,3127 

A7133 

0 

SLOADk 

RTB 

0501 

15 

,3130 

00006 

1 

5,1 

0502 

REF 

5 

LAST 

35H 

15 

,3131 

33A57 

1 

coulHgic 

0503 

15 

,3132 

00021 

1 

STORE 

160 

STORE  S IF  S and  Y ARE  ZERO, 

S = 3 

050A 

15 

,3133 

5205A 

1 

3ZE 

GOTO 

S NOT  ZERO 

0505 

REF 

1 

15 

,313A 

33136 

0 

SISZ 

5 = 0 

0506 

REF  ‘ 

1 

15 

,3135 

331A6 

1 

SCOMo 

0507 

15 

,3136 

531A5 

1 

SISZ 

DLOAO 

BZE 

IS  y ZERO 

0508 

15 

,3137 

00017 

1 

lAD 

0509 

REF 

1 

15 

,31A0 

331A3 

1 

yisz 

y=o 

0510 

15 

,31A1 

77650 

1 

GOTO 

0511 

ref 

2 

LAST 

35Z 

15 

.31A2 

331A6 

1 

SCOMp 

0512 

15 

,31A3 

521A5 

0 

yisz 

DLOAD 

GOTO' 

0513 

ref 

2 

LAST 

3A0 

15 

,31AA 

33105 

0 

ZEROnP 

051 A 

REF 

1 

15 

,31A5 

33153 

0 

SGOT 

0515 

15 

,31A6 

A53A5 

1 

SCOMP 

DLOAD 

OSU 

0516 

15 

,31A7 

00017 

1 

lAD 

0517 

15 

,3150 

00021 

1 

160 

y-s 

0518 

15 

,3151 

77621 

1 

3DSJ 

0519 

REF 

1 

15 

,3152 

332A0 

1 

NEARnNE 

S=360-(Y-S) 

0520 

15 

.3153 

41405 

0 

S30T 

OMP 

PUSH 

633i,36A  YUL  system  for  Agc;  REVISION  0 OF  PROGRAM  BURST120  BY  NASA  2n21106-03l 
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L 

0521 

INFLISHT 
REF  1 

alignment  RD'JTINES 
15.3154 

33236  0 

USER'S  OWN  page  no.  14 
DPI /I ? 

S3  E5 

0522 

15.3155 

65346  0 

COS 

pool 

0523 

15,3156 

41556  1 

SIN 

PUSR 

D52A 

^ 15,3157 

7-2405  Q 

DMP 

SLl 

0525 

15,3160 

00001  0 

0 

0526 

15,3161 

14001  0 

STODL 

0 

0527 

15,3162 

00003  1 

2 

0528 

15,3163 

45405  1 

DMP 

STAOo 

0529 

_ _ _ 15,315^4 

- X7774  0 

STORE 

2 

0530 

15,3165 

47133  0 

SLOADit 

RTB 

Q53J. 

15,3166 

00012  1 

9D,1 

0532 

RFF  6 

LAST  352  15,3167 

33457  1 

COJCnGIC 

0533 

15,3170 

73406  1 

5USH 

SIN 

0514  - 

15,3171 

71525  0 

9DDL 

ros 

0535 

15,3172 

41206  0 

3USH 

DMP 

0536 

15,3173 

00001  0 

0 

0537 

15.3174 

41375  0 

?DDL 

DMP 

0538 

15,3175 

00005  1 

4 

0539 

15,3176 

00007  0 

6 

0540 

15,3177 

77415  1 

DAD 

SLl 

0541  . 

15,3200 

77626  0 

STADR 

0542 

15,3201 

63736  0 

STODL 

32D 

0543 

15,3202 

77605  1 

OMP 

0544 

15,3203 

00005  1 

4 

0545 

15,3204 

14005  1 

STODL 

4 

0546 

15,3205 

44205  0 

OMP 

BDSJ 

0^41 

15.3206 

00001  0 

0 

0548 

15,3207 

66606  1 

7USH 

SLOAn* 

0549 

15,3210 

00011  1 

80,1 

0550 

15,3^11 

41434  1 

RTB 

PUSR 

0551 

REF  7 

LAST  353  15,3212 

33457  1 

CDJLnGIC 

0552 

15,3213 

65346  0 

COS 

PDDL 

0553 

15,3214 

77756  0 

SIN 

0554 

15.3215 

00001  0 

STORE 

0 

P555 

15,3216 

65205  0 

OMP 

PDDI 

0556 

15,3217 

00005  1 

4 

0557 

15,3220 

00007  0 

6 

0558 

15,3221 

43205  1 

OMP 

DAD 

0559 

15,3222 

00003  1 

2 

0560 

15,3223 

77712  0 

SL2 

0561 

15,3224 

14043  0 

STOOL 

34D 

0562 

15,3225 

45405  1 

OMP 

STAOr 

0563 

15.3226 

63732  1 

STODL_ 

633«,36A 

YUL  system  for  Agc 

! REVISION 

0 OF  PROGRAM  BURST120  BY 

NASA  2021106-031 

OEC  7,  1967  (MAIN) 

PAGE 

354 

L 

INFL13HT  ALIGnME-NT 

routines 

USER'S  OWN  page  no.  15 

S3 

E5 

Q564 

L5_i3_227 

77605  1 

OMP 

0565 

15,3230 

62421  1 

3DSU 

SL2 

0566 

15,3231 

00045  0 

360 

0567 

^ 15, 3 2 32 

4,04,5  ,0  , 

ST_OV,L 

360 

0568 

15,3233 

00041  1 

320 

0569 

15,3234 

77616  0 

RV3 

057° 

15,3235 

02525  1 

0=1/12 

2DEC 

.0833333333 

: ; 

C0570 

15,3236 

12525  0 

0571 

^ 15,3237 

37777  1 

NEARONE 

2oec 

.999999999 

C0571  15,3240  37777  1 


633^>36A  YUL  system  FOR  AGC:  REVISION  0 OF  PROGRAM  BURST123  BY  NASA  2021106-031 


DEC  7*  1967 


(MAIN)  PAGE  355 


L INFLI3HT  ALIGNMENT  RD'JTINES  USER'S  OWN  PAGE  NO,  16  S3  E5 

P0572  AOTSM  CALCULATfS  A HA^LUJJNJ  T STAR . VJ  CXOR^J  N__SJ  AB_LF- .5EMBEiLC0QRDXNAIF.S _ 

R0573  FROM  TWO  PLANES  CONTAINING  THE  STAR  REFERRED  TO  N3 
R057A 

R0575  . T-H£_l_MeLlTS  -ARL  

R0576 

Ro577  aot  Azimuth  and  elevation  stored  in  sd  and  90  reSp,  of  vac  area 

R0578  CDJY»  CDUZ  AND  CDU<  EROM  A YMaRK  STORED,  AT,  3t  5 1 AND . 7.  _0L  UAC__AR£A __  . _ . . 

R0579  CDJY,  CDUZ  AND  CDUK  FROM  A XMARK  STORED  AT  2*  A,  AND  6 OF  VAC  AREA 

R05791  compensation  FoR  FIELD  oF  ViEw  STORED  AT  loD  OF  VAC  AREA 

Ro580  the  base  address  of  the  CPUS  IS  stored  at  location  Si  


R0581 

R0582 

R0583_ 

the 

_ANJJ_ 

OUTPUT  IS  A star  VECTOR  REFERRED 
AVAILBLF  IN  MPAC 

TO 

STABLE 

member  at 

LOC  32D 

R058A 

0585 

15.3241 

40220 

0 

ADTSM 

STD 

SETPn 

0586 

15.3Z42 

00035 

1 

29  D 

.^ET  UP  ^RETURN „ . 

0587 

15,3243 

00001 

0 

0 

0588 

15,3244 

66740 

1 

LXC.l 

SLOAn't 

0589 

REF 

7 LAST  348 15,3245 

_ 00050 

1 

Si 

_ COMPLEMENT-  OF  CDU  ADR  FOP  XMAR<  _ _ 

0590 

15,3246 

00011 

1 

8D,1 

LOAD  APPARENT  TILT  ANGLE, ONES  C3MP 

05901 

15,3247 

77742 

0 

SRI 

RESCALE  TILT  TO  2PI 

0591 

15,3250 

7L406 

0 

PUSH 

COS 

0592 

15,3251 

73525 

1 

PDDL 

SIN 

1/2  COS(TA)  0-1 

0593 

15,3252 

66606 

1 

PUSH 

SLDAn» 

1/2  SIN(TA)  2-3 

059A 

15,3253 

00007 

0 

6,1 

LOAD  AZIMUTH.  2S  COMP 

0595 

15,3254 

41434 

1 

RTB 

PUSHi 

0596 

REF 

8 LAST  353  15,3255 

33457 

1 

CDJLnGIC 

0597 

15,3256 

65346 

0 

COB 

POOL 

1/2  COS(AZ)  4-5 

0598 

15,3257 

41556 

1 

SIN 

PUSH 

1/2  SIN(AZ)  6-7 

0599 

15,3260 

65205 

0 

3MP 

PDDL 

06Q0 

15,3261 

00001 

0 

0 

0601 

15,3262 

65205 

0 

3MP 

PDDL 

0602 

15,3263 

00003 

1 

2 

0603 

15,3264 

00005 

1 

4 

060A 

15,3265 

65205 

0 

3MP 

PDDL 

0605 

15,3266 

00001 

0 

0 

0606 

15,3267 

00005  1 

0607 

15,3270 

41405 

0 

3MP 

PUSH 

0608 

15,3271 

47133 

0 

sloaqx 

RTB 

0609 

15,3272 

00 010 

0 

7.1 

LOAD  ELEVATION,  2S  COMP 

0610 

REF 

9 LAST  355  15,3273 

33457 

1 

CDJLnGIC 

0611 

15,3274 

73406 

1 

push 

SIN 

0612 

15,3275 

71525 

0 

PDDL 

COS 

1/2  SJNLELV)  14-15  - - 

0613 

15,3276 

41206 

0 

PUSH 

DMP 

1/2  COS(ELV)  16-17 

061A 

15,3277 

00001 

0 

0 

0615 

15,3300 

77752 

1 

8L1 

0616 

15,3301 

14041 

1 

STODL 

32D 

X COMPONENT  OF  X-PLANE  VECTOR 

0617 

15,3302 

72405 

0 

IMP 

8L1 

UP  16-17 

0618 

15,3303 

00003 

1 

2 
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DEC  7.  X967  (MAIN)  PAGE  356 


L 

INFLI3HT 

alignment 

R3JTINES 

USER'S  OWN  PAGh,  NO.  17 

S3  e5 

0619 

15j3309 

„ 65276_ 

1 

X.  COJMPO.NENT  OF  Y^PLANE  VECTOR 

16-17 

0620 

15*3305 

00017 

1 

190 

06201 

15.3306 

72905 

J) 

tmp 

^SJ_1 

0621 

15,3307 

00007 

0 

6 

0622 

15,3310 

72921 

0 

30SJ 

SLl 

0623 

15,3311 

00015 

0 

120^  _ ...  . 

062A 

15,3312 

19093 

0 

SIDDL 

390 

Y COMPONENT  OF  X-PLANE  VEC 

J)625 

15,3313 

00017 

J. 

1 4D 

0626 

15,3319 

72905 

0 

OMP 

SLl 

0627 

15,3315 

00013 

0 

100 

0628 

15  i33.l6  _ 

72915 

1 

DAD 

SLl 

0629 

15,3317 

00011 

1 

80 

0630 

15,3320 

77676 

0 

3C0MP 

0631 

15j3121 

19095 

0 

STOD.L, 

360  _. 

Z COMPONENT  OF  X-PLANE  VECTOR 

0632 

15.3322 

00017 

1 

190 

0613 

15.3323 

72905 

0 

IMP 

SLl 

063A 

15,3329 

00011 

1 

80 

0635 

15,3325 

72915 

1 

DAO 

SLl 

0636 

15,3326 

00013 

_Q 

100 

06  37 

15,3327 

91325 

0 

= DOL 

OMP 

Y COMPONENT  OF  Y-PLANE  VECTOR 

18-19 

0638 

15,3330 

00017 

1 

190 

0639 

15,3331 

00015 

0 

120 

• 06AO 

15,3332 

72925 

1 

35J 

SLl 

06A1 

15,3333 

00007 

0 

6 

06A2 

15,3339 

39025 

1 

STCALL 

200 

Z COMPONENT  OF  Y-PLANE  yE-^TOR 

23-21 

06A3 

REF  ±_ 

15,3335 

32555 

0 

nbsm. 

TRANSFORM  TO  SM 

06AA 

15,3336 

29013 

0 

5T0VL 

100 

STORE  X-PLAVE  VECTOR  (SM) 

0695 

15,3337 

00021 

1 

160 

LOAD  Y-PLANE  VECTOR  (NB) 

0696 

15,3390 

62120 

0 

xCHx.l 

INCR.l 

0697 

REF  8 

LAST  355 

15,3391 

00050 

1 

Si 

increment  CDU  base  ADR  TO  YMAR<  COUS 

06971 

15,3392 

00001 

0 

1 

06972 

15,3393 

77720 

1 

XCHX.l 

PUT  IT  BACK  IN  SI 

06973 

REF  9 

LAST  356 

15,3399 

00050 

1 

SI 

06979 

15,3395 

34091 

0 

STCALL 

320 

06975 

REF  2 

LAST  356 

15,3396 

32555 

0 

NBSM 

GET  Y-PLANE  IN  SM 

06976 

15,3397 

76935 

1 

yxv 

VSLl 

YP  CROSS  XP 

06977 

15,3350 

00013 

0 

100 

06978 

15,3351 

53976 

1 

yCOMP 

JNIT 

UNIT(XP  CROSS  YP) 

06979 

15,3352 

00091 

1 

STORE 

320 

STAR  VECTOR  IN  SM  COORDINATES 

0698 

15,3353 

77650 

1 

SOTO 

06981 

15,3359 

00035 

1 

290 

RETURN 

633«t36A 


L 

P06<(9 

R0651 

R0653 

R0655 

R0657 

R0658 

R0660 

R0661  ^ 

0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 

0680 
0681 
0682- 
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INFLIGHT  alignment  ROJ'TinES  USER'S  OWN  PAGE  NO.  18  S3  E5 

. ^ J.HE- FOi-LO-liilAj^R.OUTJ-NjL..J-AIC£S_-A._HAi.F  _UNJLJ- TA3.G£I-_Vi:-C_TaB-^RE:F^SRED  10  NAV  BASEL COQRDI NATeS.  AND  EHlS  BOTH 

GIMBA-  orientations  AT  WHICH  tHe  RR  MIGHT  SIGHT  THE  TARGET.  THe  GIMBAL  ANGLeS  CORRESPONDING  TO  THe  PReS-NT  MoDe 
ARe  L-FT  in  MODEA  and  those  which  would  be  USeD  after  a ReMODe  in  MoDeB.  this  routine  assumes  mode  I IS  trunnion 
angle  LfSS  than  90  D-3S  IN  ABS  VALU£  WITH  ARBITRARY  SHAFl,„/iITHA  CqRReSPONDJNG  DEFINITION  FOR  MODE  2.  MODE 
SELECTION  AND  LIMIT  CHECKING  ARE  DONE  ELSEWHERE. 

_ _ THf  MQDf  1 configuration  15  calculated  FROM ^tHE -VECTOR,  and  THEN  MODe  2 IS  FOUND  USING  THE  ReUAIIONS 


S(2)  = 180  t 5(1) 
T(2)  S-iaO_»:,LI.U 


15.3355 

57545 

1 

rrangles 

dload 

OCOMP 

SINCE  WE  WILL  FIND  THE  MODE  1 S-tAFT 

- _ L5i3_i56_. 

00043 

0 

34D  . _ . . 

_ -ANGLE-J..AlE.fl.L  W£,.C.A.N  FIND.  THE  MDoe  1. 

15,3357 

67401 

0 

SETPD 

ASIN 

TRUNNION  BY  SIMPLY  TAKING  THE  ARCSIN 

OF 

15,3360 

00001 

0 

0 

THE  Y component,  THE  ASIN  GIVING  AN 

15,3361 

44206 

0 

5USH 

BDSJ 

AN.SWER  WHOSE  ABS  VAL  IS  LESS  THAN  90 

deg 

ref 

2 

LAST 

342 

15,3362 

33075 

0 

HALFnP 

15,3363 

1A005 

1 

STODL 

4 

MODE  2 TRUNNION  TO  a. 

REF 

3 

LAST 

352 

15,3364 

33105 

0 

ZERODP 

15,3365 

24043 

0 

STOVL 

340 

UNIT  THE  projection  OF  THE  VECTdR  IN 

THE 

15,33.66 

00041 

1 

32D 

X-Z  PLANE. 

15,3367 

41056 

1 

UNIT 

30V3 

CALL  FOR  S/C  MANEUVER  ON  GIMBAL  LOCK. 

REF 

4 

LAST 

181 

15,3370 

20347 

0 

DESRfTRN  +1 

-15j3-3J1 

14041 

1 

STODL 

3 2D 

PROJECTION  VECTOR. 

15,3372 

00041 

1 

32D 

15,3373 

44142 

0 

SRI 

ST3 

ref  . 

_ iO_ 

LAST 

348 

15.3A74 

nnosi 

0 

S? 

REF 

u 

LAST 

347 

15,3375 

14023 

0 

STODL 

SINtw 

USE  ARCTRIG  SINCE  SHAFT  COULD  3i' ARB. 

15,3376 

00045 

0 

360 

15,3377 

77742 

Q 

SRI 

ref 

9 

LAST 

347 

15,3400 

34021 

0 

STCALL 

COSTH 

ref 

7 

LAST 

347 

15,3401 

32476 

0 

ARCTRIG 

633<t36A  YUL  SfSTEM  FOR  AGC;  REVISION  0 OF  PROGRAvi  BURST123  BY  NASA  2n2110fe-031  DEC  7*  1967  (MAIN)  PAGE  358 


L 

INFLIoHT  ALIGNMBnT 

R3JTINES 

USER'S  OWN  PAGE  NO.  19 

S3  E5 

0683 

15,.3Aa2_ 

_ A320i) 

1 

. .. 

. D_AD  _ 

. . - MODE  J.  shaft  la  2, 

068A 

REF 

3 

LAST 

357 

15.3A03 

33075 

0 

HALFnP 

(OVERFLOW  DOESNT  MATTER  SINCE 

SCALED  REV 

0685 

15.3A0A 

2A007 

0 

stoyl 

6 

0686 

^ 15,3a05 

_ 00005 

1 

A 

0687 

15,3A06 

7763A 

0 

RTB 

FIND  MODE  2 CDU  ANGLES. 

0688 

REF 

1 

15,3A07 

335A3 

0 

2V1ST02S 

0689 

REF 

3 

LAST 

18_0 

_ 15  i3_Al  0- 

_ _2AA25 

1, 

5I0VL 

MODEh 

0690 

15.3A11 

00001 

0 

0 

0691 

15.3A12 

7763A 

0 

^iTB 

MODE  1 ANGLES  TO  MODE  A. 

0692 

ref 

2 

LAST 

3iB,  _ 

15,3A13 

335A3 

0 

2V15T02S 

0693 

REF 

2 

LAST 

178 

15,3A1A 

00A23 

1 

STORE 

MODEA 

069A 

15,3A15 

77776 

1 

EXIT 

0695 

REF 

76 

LAST 

311 

15»3Al6 

A 0A12 

1 

:s 

9ADMnDES 

SWAP  modea  and  modeb  if  rr  in 

MiDE  2. 

0696 

ref 

70 

last 

315 

15.3A17 

7 7750 

0 

*lAS< 

31T12 

0697 

REF 

19A 

LAST 

338 

15,3A20 

10  000 

0 

:cs 

A 

• 0698 

15,3A21 

1 3A25 

0 

rcF 

♦A 

0699 

REF 

3 

LAST 

358 

15.3A22 

52  A23 

0 

OXCH 

MODFA 

0700 

REF 

A 

LAST 

358 

l5t3A23 

52  A25 

0 

DXCH 

MOOER 

0701 

REF 

A 

LAST 

358 

15,3a2A 

52  A23 

0 

3XCH 

MODEA 

0702 

ref 

6 

LAST 

3A7 

15»3A25 

0 6112 

0 

TC 

INTPRET 

0703 

15i3A26 

77650 

1 

SOTO 

OlOA 

ref 

LI 

LAST 

357 

15.3A27 

00051 

0 
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L INFLI5HT  ALIGNMENT  RDJTINeS  USER'S  OWN  PAGE  NO.  20  S3  E5 

P0705  G17FN  RR  TRJNIOn  ‘\mD  SHAFT  (T.,S)  IN- JANG » U_  ETJ^D_LHE  <\5SnClAXED_ _ . _ 

R0706  LINE  OF  SIGHT  IN  NAV  3ASE  AxES.  THe  HALF  UNIT  VECTOR,  , 5 ( S IN ( 5) CoS ( T ) , 

R0707  -SIN( I) ,COS(S) COS(T) ) IS  LEFT  IN  MPAC  AND  32D, 


0708 

15,3430 

47135 

0 

RRNB  SLOAD 

RTB 

0709 

REF 

16  LAST  296 

15,3431 

00423 

1 

TANS 

07091 

REF 

10  LAST  _35.5  . 

15,3432 

33457 

L 

CDJLnGIC  ^ 

0710 

15,3433 

41401 

1 

SETPO 

PUSH 

TRUNNION  ANGLE 

TO  0 

0711 

15,3434 

00001 

0 

0 

6712 

15,3435 

57556 

SiAl 

DCDMd 

0713 

15,3436 

14043 

0 

STDDL 

34D 

y component 

071A 

15l3437 

41546- 

0 

COS 

PUSH 

.5  COS  (I)  TO  O 

0715 

15,3440 

47135 

0 

SLOAD 

RTB 

0716 

ref 

17  LAST  359 

15,3441 

00424 

0 

TANG  +1 

0717 

REF 

11  LAST  359 

15,3442 

33457 

1 

CDJLnGIC 

0718 

15,3443 

71406 

0 

=USH 

COS 

SHAFT  ANGLE  TO 

2 

0719 

15,3444 

72405 

0 

OMP 

SLl 

0720 

15,3445 

00001 

0 

0 

0721 

15,3446 

14045 

0 

5T0DL 

36D 

Z COMPONENT 

0722 

15,3447 

41356 

1 

SIN 

DMP 

0723. 

15,3450 

77752 

1 

SLl 

0724 

13,3451 

24041 

1 

STOVL 

320 

0725 

15,3452 

00041 

1 

32D 

0726 

15,3453 

77616 

0 

RV3 

633<*36A 

YUL 

System  foh  agc: 

REVISION 

0 OF  program  BURST12D  BY  NASA  2o21106-031 

DEC  7, 

1967  (MAIN)  page  360 

L 

RT3 

codes 

USER'S  OWN  PAGE 

NO.  1 S3 

OODJ_ 

15,3454 

3An< 

_15 

R0002 

LOAD  TlME2» 

TIMEl  INTO  MPAC! 

0003 

15*3_45.4_ 

0 0006 

_1 

L3ADT1ME  EXTiLND 

OOOA 

ref 

15 

LAST  SS't 

15,3455 

3 0025 

0 

DCA 

TIME? 

0005 

REF 

1 

15,3456 

1 6542 

0 

TCF 

SL0AID2 

ROOO6 

Convert  jHe 

SINGLE  1 

PRECISION  2'S  complement  NUMBeR  ARRIVING  IN 

MPAC  (SCALED  IN 

half-revolutions)  to  a 

ROOO8 

DP  : 

I'S  1 

Complement  nu*i3er  scaled  in  revoljtions. 

0009 

REF 

195 

LAST  327 

15,3457 

10  144 

1 

CDULOGIC  CCS 

MPAC 

0010 

REF 

IDO 

last  331 

15,3460 

3 7767 

0 

CAF 

ZERO 

0011 

15,3461 

1 3464 

0 

TCF 

♦ 3 

0012 

15,3462 

1 3463 

1 

VOOP 

0013 

ref 

2 

LAST  173 

1 5 1 3463 

4 7746 

1 

cs 

half 

0014  ' 

REF 

196 

LAST  360 

15 ,3464 

54  145 

0 

TS 

MPAC  +1 

0015 

REF 

IDl 

LAST  360 

15,3465 

3 7767 

0 

CAF 

ZERO 

0016 

ref 

197 

LAST  360 

15,34A6 

56  144 

0 

KCH 

MPAC 

0017 

15,3467 

0 0006 

1 

EXTEND 

0018 

REF 

3 

LAST  360 

15,3470 

7 7746 

1 

MP 

HALF 

0019 

REF  198 

LAST  360 

15,3471 

20  145 

0 

DAS 

MPAC 

OO2O 

REF 

2 

LAST  360 

15,3472 

1 6544 

0 

TCF 

SL0An2  +2 

C(A)  = +0. 

R0O2I 

Read  jmu  cdjs  into  i 

MPAC  AS  A 

i vector.  ESPpCIALLT 

' usffUL  in  connection  with  smnd. 

LTC. 

0023 

15,3473 

0 0004 

0 

READCDJS  INHINT 

0024 

REF 

9 

LAST  338 

15,3474 

3 0033 

1 

CA 

COJY 

IN  ORDER  Y Z X 

0025 

REF 

199 

last  360 

15,3475 

54  144 

1 

TS 

MPAC 

0026 

REF 

7 

last  223 

15,3476 

3 0034 

0 

CA 

CDJZ 

0027 

REF 

2D0 

LAST  360 

15,3477 

54  147 

1 

TS 

MPAC  +3 

0028 

REF 

11 

LAST  336 

15,3500 

3 0032 

0 

CA 

CDJX 

0029 

REF 

1 

15,3501 

1 3510 

1 

TCF 

READdIPS  +6 

COMMON  COOING. 

ROO3O 

READ  the  PI^S  INTO  MPAC  WITHOUT 

Changing  them: 

0031 

15,350? 

0 0004 

0 

readptps  inhint 

0032 

ref 

4 

LAST  336 

15,3503 

3 0037 

0 

CA 

plpAx 

0033 

REF 

2D1 

LAST  360 

15,3504 

54  144 

1 

TS 

MPAC 

0034 

REF 

2 

LAST  147 

15,3505 

3 0040 

0 

CA 

PIPAY 

0035 

REF 

2D2 

LAST  360 

15,3506 

54  147 

1 

TS 

MPAC  +3 

0036 

REF 

3 

LAST  336 

15,3507 

3 0041 

1 

CA 

PIPAZ 

0037 

15,3510 

0 0003 

1 

RELINT 

0038 

REF 

2D3 

last  360 

15,3511 

54  151 

0 

TS 

MPAC  +5 

0039 

REF 

1 D2 

LAST  360 

15,3512 

3 7767 

n 

CAF 

ZERO 

OO4O 

REF 

2D4 

LAST  360 

15,3513 

54  145 

0 

TS 

MPAC  +1 

0041 

REF 

235 

LAST  360 

15,3514 

54  150 

1 

TS 

MPAC  +4 

0042 

REF 

2D6 

LAST  360 

15,3515 

54  152 

0 

TS 

MPAC  +6 

633^t36A 

YUL 

SYSTEM  FOR  AgC : 

REVISION  0 OF  PROGRAM  BURST120  BY 

NASA  2n21106-031 

DEC  7, 

1967  (MAIN) 

PAGE  36l 

L 

RT8 

03,  CODES 

USER'S  OWN  PAGE 

NO.  2 

S3 

00<*3 

REF 

36  J-AST  338  _ 

15*3616  A-„7763lO_  YECMODi C3 

...ONE  - , - - - 

REF 

1 

15,3517  1 6124  1 TCF 

NErtMnDE 

R0045  - FORCE  iP^iA'VL^iiEEMENT  IN  - MRaC:- 


0046 

REF 

6 

LAST  32^ 

15,3520 

0 7327  0 

sgnagree  tc 

tpagree 

0047 

REF 

2 

LAST  35O 

15^521 

_1  6-LZS_  0- 

- TCF  - - 

DA,NZ-l(i--  - ---  - - --  - 

R0048 

Convert 

the  dp  I'S  Complement 

ANoLE  scaled  IN 

revolutions  to  a single  precision  2's  complement  angle 

R0050  . 

scaled  in  half»rfvqljitiqns. 

0051 

REF 

1 

15,3522 

0 3552  0 

1ST02S  TC 

1T02SUB 

0052 

REF 

133 

LAST  360 

15,3523 

3 7767  0 

-CAF 

ZERO 

0053 

REF 

237 

LAST  360 

15,3524 

54  145  0 

rs 

MPAC  *1 

0054 

REF 

2 

LAST  36l 

15,3525 

1 6124  1 

TCF 

NEwMnDE 

R0055 

DO  1ST02S  OM  A Vector  of  angles; 

0056 

REF 

2 

LAST  361 

_ _L5_,35_26_ 

__  0 -3552  0 

VISTO2S  IC 

1 TO2SUB  - ANSWER-  ARRIVES  IN  A AND  MPAC. 

0057 

REF 

238 

LAST  36l 

15,3527 

52  152  0 

OXCH 

MPAC  +5 

0058 

REF 

239 

last  36 1_ 

1-5  ,353-^0 

52  145  0 

DXCH 

MPAC 

0059 

REF 

3 

LAST  36l 

15,3531 

0 3552  0 

TC 

1T02<;UB 

0060 

, REF 

210 

LAST  36l 

15,3532 

54  146  0 

TS 

MPAC  .2 

0061 

REF 

211 

LAST  36l 

15,3533 

52  150  1 

OXCH 

MPAC  +3 

0062 

REF 

212 

LAST  36l 

15,3534 

52  145  0 

OXCH 

MPAC 

0063 

REF 

last  36l 

15,3535 

0 3552  0 

TC 

1T02aUB 

0064 

REF 

213 

LAST  36l 

15  »3536 

54  145  0 

TS 

MPAC  ♦! 

0065 

REF 

214 

LAST  36l 

15,3537 

3 0151  1 

CA 

MPAC  *5 

0066 

REF 

215 

LAST  36l 

15,3540 

54  144  1 

TS 

MPAC 

0067 

REF 

37 

LAST-  361 

_ 15,3541 

3 7763  1 

I=M0DE  CAF 

ONE  MODE  IS  TP. 

0068 

REF 

3 

LAST  36l 

15,3542 

1 6124  1 

fCF 

NE^)MnOE 

R0069 

V1ST02S 

FOR  2 COMPONENT  VECTOR 

USED  BY  7R. 

OO7O 

REF 

5 

last  36l 

15,3543 

0 3552  0 

2V1ST02S  TC 

1T025UB 

0071 

ref 

216 

LAST  361 

15,3544 

52  150  1 

OXCH 

MPAC  *3 

0072 

ref 

217 

LAST  361 

15,3545 

52  145  0 

OXCH 

MPAC 

0073 

REF 

6 

LAST  361 

15,3546 

0 3552  0 

TC 

1T32SUB 

0074 

REF 

LAST  333 

15,3547 

54  001  1 

TS 

l 

0075 

ref 

218 

LAST  361 

15,3550 

3 0147  0 

CA 

MPAC  *3 

0076 

REF 

3 

LAST  360 

15,3551 

1 6542  0 

TCF 

SL0An2 

R0077 

subroutine  TO’  DO  DOUBLING  AND 

1*5  TO  2'S  CONVERSION: 

0078 

ref 

219 

LAST  361 

15,3552 

52  14-5  0 

1T02SU3  OXCH 

MPAC  final  MPAC  ♦!  UNSPECIFIED, 

0079 

15,3553 

20  001  1 

ODOJ3L 

YUL 

system  for  AGCi 

REVISION 

0 OF  PROGRAM 

BURSI123  BY 

NASA  2021106-031 

DEC  7,  1967  (MAIN) 

PAGE  362 

L 

RTB 

03, 

CODES 

USER'S  OWN  page  no.  3 

S3 

0080 

REF 

135 

LAST 

358 

L5_taS5A 

10  000  0 

CCS  - 

A _ _ 

0081 

REF 

38 

LAST 

35l 

15,3555 

6 7763  1 

AD 

ONE 

0082 

15,3556 

1 3560  0 

rcF 

♦ 2 

0083 

15,3557 

A 0000  0 

_:qm 

THIS  WA.S  REVERSE  OF  MSU.  _ 

008^ 

REF 

220 

last 

36l 

15,3560 

5A  lAA  1 

TS 

MPAC 

AND  SKIP  ON  OVERFLOW. 

0085 

REF 

159 

LAST 

32Y 

15^3561 

0 O00_2,^0. . , 

rc 

3 . 

■ 0086 

REF 

196 

LAST 

36Z 

15,3562 

50  000  1 

INDEX 

A 

OVERFLOW  UNCORRECT  AND  IN  MSU. 

QOBI^ 

ref 

1 

15,3563 

3 77AA  1 

c6F 

LIMITS  . 

0088 

ref 

221 

LAST 

362 

1 5 ♦ 3564 

26  lAA  1 

ADS 

MPAC 

0089 

REF 

160 

LAST 

362 

15,3565 

0 0002  0 

rc 

3 

633<i36A  YUL  SYSTEM  FqR  AGC:  REVISION  0 oF  PROGRAM  BURST12D  BY  NASA  2n2110fc-031 


DEC  7,  1967  (Main)  PaGE  363 


RTB  D3'  codes 


USER'S  OI«N  PACE  NO,  4 


S3 


0091 

REF 

1 

15  »3566 

3 3601 

0 

ncRCDJs  :af 

LDCTHETA 

0092 

REF 

15 

LAST 

25V 

15,3567 

54  120 

0 

TS 

BUF 

PLACE  ADRESITHETA)  IN  BUF. 

0093 

REF 

222 

last 

36? 

_L5j3570_ 

3JU  X44 

0 

. . - :a£,__ 

MPAC 

increment  in  is  COMPL.. 

0094 

REF 

2 

LAST 

20S 

15,3571 

0 3602 

0 

TC 

cdjinc 

0095 

JREF 

16 

LAST 

363 

15,3572 

24  X2  Q 

1 

..  .1-NCR._ 



0096 

REF 

223 

LAST 

363 

15,3573 

30  147 

0 

CAE 

MPAC  *3 

0097 

REF 

3 

LAST 

363 

15,3574 

0 3602 

0 

TC 

Cdjinc 

0098 

REF 

17 

LAST 

363 

15,3575 

24  120 

1 

INCR 

BJF 

0099 

REF 

224 

LAST 

363 

15,3576 

30  151 

1 

CAE 

MPAC  +5 

0100 

REF 

4 

LAiT 

3_63 

_L5j3577_ 

0 3602 

0 

. . . r.c. 

. XDJINC_ 

0101 

REF 

1 

15,3600 

1 3516 

1 

rcF 

VECMODE 

0102 

REF 

7 

LAST 

347 

15,3601 

00400 

0 

ldctheta  ADRES 

THETaD 

P0103 

THf. 

FOLLOWING'  routine  INCReMfNTS  IN  25  CQMPLfMfNt  tHf  RfUISteR 

whose  address  is  in  BUF  BY  tHe  ,S  CQMPL. 

P0105 

QUANTITY 

' FOUND  IN 

TEM(2.  this 

MAY  Be  USeD 

TO  increment  I 

Desired  imu  and  optics  cdu  angles  or  any  other  2S  cdmpl. 

R0107 

( + 0 

JVEDUAL  TO  -0) 

QUANTITY. 

MAY  BE  CALLEU  BY  BANCCALL/S^JCALI  . 

0108 

REF 

3 

LAST 

20 

15,3602 

54  132 

0 

C3UINC  rs 

TEMz 

IS  COMPL. QUANT.  ARRIVES  IN  ACC.  STORE  IT 

0109 

REF 

18 

LAST 

363 

15,3603 

50  120 

1 

INDEX 

BUF 

0110 

15,3604 

10  000 

0 

CCS 

. .0..  . . 

CHANGE  25  COMPL.  ANGLEUN  BUFUslTD  IS 

0111 

REF 

39 

LAST 

362 

15,3605 

6 7763 

1 

AD 

ONE 

0112 

15,3606 

1 3612 

0 

rcF 

♦ 4 

0113 

ref 

90 

LAST 

363 

15,3607 

6 7763 

I 

AD 

ONE 

0114 

REF 

91 

LAST 

363 

15,3610 

6 7763 

1 

AD 

DNE 

overflow  here  if  2S  COMPL.  IS  130  DEG. 

0115 

15,3611 

4 0000 

0 

COM 

0116 

REF 

4 

LAST 

363 

15,3612 

6 0132 

1 

AD 

TEM2 

ADD  IN  INCREMENT.  WILL  OVERFLOW  IF  RE- 

C0117 

SULT  MOVES  from  2ND  TO  3D  QUAD. (OR  BACK) 

0118 

REF 

197 

LAST 

362 

15,3613 

10  000 

0 

CCS 

A 

BACK  TO  PS  COMPL. 

0119 

REF 

92 

last 

363 

15,3614 

■ 6 7763 

1 

AD 

DNE 

0120 

15,3615 

1 3617 

0 

tcf 

+ 2 

012L 

15.3616 

4 0000 

0 

roM 

0122 

REF 

5 

LAST 

363 

15,3617 

54  132 

0 

IS 

TEM2 

STORE  14BIT  QUANTITY  WITH  PRESENT  SIGN 

0123 

15,3620 

1 3624 

0 

ICF 

0124 

REF 

198 

LAST 

363 

15,3621 

50  000 

1 

INDEX 

A 

overflow  means  correct  14BIT  VATUE, WRONG 

C0125 

SIGN. 

0126 

REF 

2 

LAST 

362 

15,3622 

3 7744 

1 

CAF 

limits 

FIX  IT, BY  ADDING  IN  37777  OR  40000 

0127 

REF 

6 

LAST 

363 

15,3623 

6 0132 

1 

AD 

TEM? 

0128 

REF 

19 

LAST 

363 

15,3624 

50  120 

1 

INDEX 

BJF 

0129 

15,3625 

54  000 

0 

rs 

0 

STORE  NEW  ANGLE  IN  2S  COMPLEMENT. 

0130 

REF 

161 

last 

362 

15,3626 

0 0002 

0 

TC 

3 

633‘>36A  YUL  system  for  AgC:  REVISION  o OF  PROGRAM  BURST12D  BY  NASA  2021106-031 


DEC  7i  1967  (MAIN)  PAGE  36A 


L RTB  ORi  codes  USER'S  OWN  PAGE  NO.  5 S3 


Pom 

RTS. 

TORQJf  GYROS. 

.EXCEPT  For  THEL_CALL 

TO  imjstall.  fcadr 

OF  commands  arrives  in  Xl. 

0133 

013A 

REF 

_ ref 

1 

1 

15*3627 
15*3630 

50  110  1 PDLSEIMU 
3 00A6  0 

INDEX 

'A 

FlXLOC 

_!Q 

address  of  gyro  commands  SHoULO  Be 

0135 

REF 

26 

LAST 

32T 

1513631 

0 5206  0 

TC 

BANXCALL 

0136 

REF 

2 

LAST 

206 

15.3632 

26362  1 

CAOR 

IMJPlJLSE 

0137 

REF 

3 

LAST 

361 

15,3633 

JL  6i  ?5  0. 

rcF 

DANZIG  _ 

633if36A  YUL  SYSTEM  FOR  *GC;  REVISION  0 OF  PROGRAM  BURST12D  BY  NASA  202110fc-03l 


DEC  7,  1967  (MAIN)  PAGE  365 


L 

RTB 

03 

CODES 

USER'S  OWN  PAGE  NO.  6 

S3 

P0138 

- THE- 

.FOLLOWLYA  ROUTINE  IS  US£D_ 

-O.NLY  .JN  T-ESJ.lNG-JJdE-.ii.ll- 

0139 

REF 

12 

LAST 

222 

15 

3634 

0 5701 

1 

RRSIM  TC 

FIXDfLAY 

CUAO 

15 

3635 

0006? 

-Q- 

5EC 

50 

OKI 

REF 

16 

LAST 

186 

15 

3636 

3 7762 

0 

RRSIM2  CAF 

BIT2 

SEE  IF  RR  ECTR  enabled. 

0K2 

15 

3637 

.0  .0006 

1 

. . . - . E.XTEND 

0K3 

15 

3640 

02  012 

0 

RAND 

12 

OKA 

15 

3641 

0 0006 

1 

EXTEND 

OKS 

ref 

1 

15 

3642 

1 3634 

1 

3ZF 

0K6 

REF 

7 

LAST 

363 

15 

3643 

3 0132 

1 

CA 

TEM? 

SAVE  EXEC  TEMPS  SINCE  IN  RUPT. 

0K7 

REf 

34 

LAST 

219 

15 

3644 

-54  -070 

1 

- rs 

.RU-P.TRE.G1 

0K8 

ref 

1 

15 

3645 

3 3705 

0 

CAF 

LOPTY 

0K9 

REF 

20 

LAST 

363 

15 

3646 

56  120 

1 

KCH 

BJF 

0150. 

REF 

30 

last 

219 

15 

3647 

54  071 

0 

TS 

RJPTREG£- 

0151 

REF 

6 

LAST 

176 

15 

3650 

3 0361 

0 

CA 

lastycmd 

ECTR. 

0152 

15 

3651 

6 0000 

1 

DOUBLE 

_ . 015.3- 

15 

3652 

0 0006 

1 

EXTEND 

015A 

REF 

1 

15 

3653 

7 3706 

1 

MP 

RRSImG 

0155 

REF 

5 

LAST 

363 

15 

3654 

0 3602 

0 

TC 

CDJlNC 

0156 

ref 

21 

LA.ST 

365 

15 

3655 

24  120 

1 

INCR 

BJF 

0157 

REF 

8 

LAST 

296 

15 

3656 

3 0035 

1 

CA 

opty 

SHAFT  CMD  IS  DIVIDED  BY  THE  ABS 

VALUE  OF 

0158 

15 

3657 

0 0006 

1 

EXTEND 

THE  COS  OF  THE  TRUNNION  ANGLE. 

0159 

15 

3660 

20  007 

1 

MSJ  7 

TO  IS  COMPLEMENT. 

0160 

REF 

3 

LAST 

136 

15 

3661 

0 5354 

0 

IC 

SPC35 

0161 

15 

3662 

0 0006 

1 

EXTEND 

SPCOS  NOW  GIVES  COS  SCALED  AT  1 

Ik 

0162 

ref 

28 

LAST 

281 

15 

3663 

7 7746 

1 

MP 

BIT14 

(A  DAP  GROUP  FIX) 

# 

0163 

ref 

199 

LAST 

363 

15 

3664 

10  000 

0 

CCS 

A 

016A 

15 

3665 

1 3670 

1 

TCF 

+ 3 

0165 

15 

3666 

1 3670 

1 

TCF 

+ 2 

0166 

15 

3667 

1 3670 

1 

TCF 

♦ 1 

0167 

REF 

93 

LAST 

363 

15 

3670 

6 7763 

1 

AD 

ONE 

0168 

REF’ 

56 

LAST 

338 

15 

3671 

54  061 

1 

TS 

ITEMPI 

0169 

REF 

5 

LAST 

173 

15 

3672 

3 0362 

0 

CA 

lastxcmd 

shaft  rate  Depends  on  trunnion. 

0170 

15 

3673 

0 0006  1 

PXTEND 

0171 

REF 

2 

LAST 

365 

15 

3674 

7 3706 

1 

MP 

RRSIMG 

0172 

15 

3675 

0 0006 

1 

EXTEND 

0173 

ref 

57 

LAST 

365 

15 

3676 

10  061 

1 

5V 

ITEMPI 

0174 

REF 

6 

LAST 

365 

15 

3677 

0 3602 

0 

TC 

roJiNC 

0175 

REF 

35 

LAST 

365 

15 

3700 

3 0070 

0 

CA 

RJPTREGl 

0176 

REF 

i 

LAST 

365 

15 

3701 

54  132 

0 

TS 

TEM? 

0177 

REF 

31 

last 

365 

15 

3702 

3 0071 

1 

CA 

RJPTREG2 

0178 

REF 

22 

LAST 

365 

15 

3703 

54  120 

0 

TS 

BJF 

. 0179 

REF 

L 

LAST 

365 

15 

3704 

1 3634 

1 

TCF 

RRSTm 

0180 

REF 

9 

LAST 

365 

15 

3705 

00035 

1 

LOPTY  ADRES 

OPTY 

OlBl 

15 

3706 

27755 

0 

rrsimg  dec 

t592a9 

ROlSlOl  START  CODING  FOR  MODJLt  3 REMA<E.  AUGUST  l967**)t5T ART  C00IN3  FOR  MODULE  3 REMAKEt  AUGUST  1967**»*****»»»»»»*»*** 
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L 

RTB 

D3i 

CODES 

USER'S  OWN  PAGE  NO,  7 S3 

018103 

REF 

3 

LAST 

.330 

E7._ 

-£BANK= 

TwniirNT 

01810A 

REF 

A 

LAST 

366 

15*3707 

55'A03 

0 

15INSRT 

rs 

DNCOUCNT 

018105 

REF 

1 

15,3710 

3 5632 

0 

CA 

EBANK6 

018107 

REF 

17 

LAST 

332 

15,3711 

56  003 

1 

KCH 

EBANK 

018109 

REF 

76 

last 

361 

15.3712 

5A  OQL 

1 _ 

. rs 

! 

01811 

REF 

1 

E6 

EBAN<= 

RGIMTIMR 

018111 

REF 

1 

15,3713 

A 3723 

0 

:s 

GMBLFllTS 

018113 

15,371a 

0 0006 

1 

EXTEND 

018115 

15.3JJ5 

.03.  012 

1 

aIAND 

.12 . . . 

018117 

REF 

1 

15,3716 

3 77A5 

0 

CA 

NEGMAX 

018119 

REF 

2 

LAST 

366 

15,371L  _ 

55'75A 

1 

IS 

.RGIMUMR.  ..  . 

018121 

REF 

2 

LAST 

56 

15,3720 

55'753 

0 

rs 

3GIMTIMR 

018123 

REF 

18 

LAST 

366 

L5,3J21 

22  003 

1 

^xCH 

EBANic 

018125 

REF 

3 

LAST 

339 

15,3722 

1 2365 

1 

TCF 

ONCOUSGO 

018127 

_L5a3723 

07A00 

1 

gmblbits 

OCT 

lAOO 

0182 

FOR 

15,372a 

37777 

1 

C5KSUM15 

OCT 

37777 

. R018202 

(UtENO  CODING 

MODJLE  3 REMA<E,  AUGUST 

l967Att*»»END  COOING  FOR  MODULE  3 REMAKE,  AUGUST  1967*****»**i,« »*),»■»»»** 

633^36A 

YUL 

system 

for  AgC:  revision  0 OF  program 

BURST12D  8Y  NASA  2n21106-031 

DEC  7. 

1967  (MAIN) 

PAGE  367 

L 

0001 

LEM 

FlISHT 

control  system  test 

flA.2736 

?AN|iY  a 

USER'S  OWN  PAGE 

NO.  1 

S3 

0002 

REF 

1 

EA 

FBAN<=  JETStEP 

R0003 

LEM  FCS  TEST  ENTRY  Ay|U  INITIALIZATION  J03, 

Roooa 

R0006 

Rood? 

this  job  Initializes  the  erasable  tables  for 
waitlist  control. 

(11  RCS  JFT  SET  TASK 

the  FCS  TEST  AND  PUTS  THE  FOLLOWING  PROGRAMS  UNDeR 

Roods 

R0009 

Rooio 

(2)  engine  on  - OFF  TASK 

(3)  Descent  engine  gimbal  trim  task 

_lAT_DESC£NJ_EN(jlK£_TbRDITLE.JASK 

Rooii 

(5)  interface  channel  look  TASKi 

0012 

REf 

12 

LAST 

321 

06.2736 

0 

4644 

0 

FcSSTART 

TC 

SO  nothing  Disrupts  the  load. 

0013 

ref 

1 

716.2737 

3 

3012 

1 

CAP 

JSIFPADR  _ . . 

-THE  START,  OF,  THE  LIST. 

OOIA 

REF 

2D0 

LAST 

365 

06.2740 

1C 

1 000 

0 

FCS3 

CCS 

A 

0015 

REF 

225 

LAST 

363 

06.2741 

54 

■ 146 

0 

TS 

MPAC  +2 

0016  _ 

ref 

1 

06,2742 

3 

3015 

JO 

f;s2 

CAF 

VD4N01K 

DISPLAY  PRESENT  CONTENTS  IN  R2. 

. 0017 

ref 

26 

LAST 

322 

06,2743 

0 

4657 

1 

TC 

NVSBwAIT 

0018 

REF 

226 

LAST 

367 

06,2744 

24 

• 146 

1 

INCR 

MPAC  +2 

0019 

REF 

1 

06,2745 

3 

3013 

0 

CAF 

V21Nn2K 

0020 

REF 

27 

LAST 

367 

06,2746 

0 

4657 

1 

TC 

NVS3wAlT 

IN  CASE  IT,S  BUSY  BUT  IT  SHOULON.T 

be. 

0021 

REF 

21 

LAST 

322 

06,2747 

0 

4475 

0 

TC 

ENDIDLE 

while  loading. 

0022 

06,2750 

0 

2753 

1 

TC 

+ 3 

V34E.  TERMINATE  LOAD  OF  THIS  LIST 

A0023 

SECTION,  GO  TO  NEW  SECTION  OR  TO  TEST. 

002A 

06,2751 

0 

2752 

0 

TC 

+ 1 

V33E.  present  CONTENTS  OK,  PROCEED 

TO 

AQ025. 

NEXT  LOCATION  IN  LIST. 

0026 

REF 

1 

06,2752 

0 

2742 

1 

TC 

FCS2 

0027 

REF 

1 

06,2753 

3 

3014 

1 

CAF 

V21N30K 

0028 

REF 

28 

last 

367 

. 06,2754 

0 

4657 

1 

TC 

NVSBuAIT 

0029 

REF 

22 

last 

367 

06,2755 

0 

4475 

0 

TC 

ENDIDLE 

0030 

REF 

8 

last 

314 

06,2756 

0 

5566 

1 

TC 

EJFREE 

0031 

REF 

L 

06,2757 

0 

2762 

n 

TC 

FCSTpSTI 

PROCEED  IQ  TEST.  

0032 

REF 

23 

LAST 

301 

06,2760 

3C 

1 337 

0 

CAE 

DSPTFMl 

NEW  ADDRESS. 

0033 

REF 

1 

06,2761 

0 

2740 

0 

TC 

FCS3 

0034 

REF 

1 

06,2762 

3 

3016 

0 

FCSTESTl 

CAF 

V47< 

0035 

REF 

29 

LAST 

367 

06,2763 

0 

4657 

1 

TC 

NVSBwAIT 

OUR  VERB  IN  THl  LIGHTS. 

0036 

06,2764 

0 

0004 

0 

FCSTEST 

INHINT 

Q037 

REF 

_4I 

_LASI_ 

331 

06,2765 

3 

7762 

0 

CAF 

Two 

20M5. 

0038 

REF 

34 

last 

324 

06,2766 

0 

5663 

1 

TC 

WAlTl  1ST 

0039 

REF 

2 

LAST 

367 

E4 

EBAN<= 

JETSTEP 

0040 

06,2767 

03023 

0 

2CADR 

JETSTART 

C0040 

ref 

1 

06,2770 

14064 

0 

0041 

REF 

26 

LAST 

310 

06,2771 

3 

7763 

1 

CAF 

BITI 

lOMS. 

0042 

REF 

35 

LAST 

367 

06,2772 

0 

5663 

1 

TC 

WAITI  1ST 

0043 

REF 

3 

LAST 

367 

E4 

EBAN<= 

JETSTEP 

i 
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0044 

06.2773 

03156  0 

7CADR 

ENGStART 

COOAA 

ref 

1 

06.277A 

1A06A  0 

OOA5 

ref 

15 

LAST 

333 

06,2775 

3 6311  1 

CAF 

THREE 

30MS. 

00A6 

ref 

36 

last_ 

367 

06,27J6 

0_56.63_L 

JC  _ 

WAiTLISL_, 

00A7 

ref 

A 

LAST 

367 

EA 

EBAN<= 

jetstep 

00A8 

06,2777 

03253  0 

2CADR 

trimtop 

cooab 

rEf 

1 

06,3000 

1A06A  0 

OOA9 

REF 

8 

LAST 

321 

06,3001 

3 7761  0 

CAF 

FOUR 

AOMS. 

0050 

REF 

37 

last 

368 

06,3002 

0 5663  1 

rc 

WAITl  1ST 

0051 

REF 

5 

LAST 

368 

_ _ EA_ 

eban<= 

JETSTEP 

0052 

06,3003 

03373  0 

2CA0R 

THRSTART 

COO52 

REF 

1 

06,300a 

1A06A  0 

0053 

REF 

8 

LAST 

333 

06,3005 

3 2766  1 

CAF 

^five 

50MS. 

OO5A 

REF 

38 

LAST 

368 

06,3006 

0 5663  1 

rc 

WAITLIST 

0055 

REF 

6 

LAST 

368 

EA 

eban<= 

jetstep 

0056 

06j30J)7 

, 03A61  1 

_ 2CA_DR 

LOOCIO-P  _ . 

C0056 

ref 

1 

06,3010 

1A06A  0 

0057 

REF 

9 

LAST 

367 

06,3011 

0 5566  1 

TC 

EJFRpE 

NOW  they  start. 

0058 

REF 

7 

LAST 

368 

06*3012 

02007  1 

JSTEPAOR 

ecadr 

jetstep 

0059 

06,3013 

02102  0 

Y21N02< 

OCT 

02102 

0060 

06.3O1A 

02130  1 

\/21N30< 

OCT 

02130 

0061 

06,3015 

OOAOl  1 

YOaNOK 

OCT 

OOAOl 

. 0062 

06,3016 

0A700  1 

YA7K 

OCT 

0a7OO 

( 


6334,36A  yUL  SySTEM  FOR  *gC;  REVISION  0 OF  RROgRA'1  bURSTIZO  6Y  NASA  2n211O6-03l 


DEC  7*  1967  (MAIN)  PAGE  369 
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P0063  -LEM-  FCS  T.E5-T RCS  JET5ET  TASK 

ROO6A  THiIS  JOB  ISSUES  A PROFILE  OF  JET  ON-OFF  SIGNALS  AS  DETERMINED  BY  THE  CONSTANTS  IN  A SET  OF  SIX  REGISTERS. 

ROO66  THe  six  registers  are,  (1)  NTIMeS,  the  number  of  times  a particular  step  will  be  performed.  (2)  NEXTTiMr,  the 

R0O68  time  between  steps,  a maximum  of  2 minutes.  (3)_JeT0NTM.  the  TIMf  to  turn  the  jets  on.  scaled  for  T3.  (a)  JE-T. 

R0070  OFFTM,  THE  TIME  AFTERi  ONTM  TO  TURN  THE  JETS  OFF,  (5)  XJETS,  THE  PARTICULAR  X JETS  TO  Be  TURNED  ON  AND  OFF 

R0072  DURING'  EACH  REPEAT  Or  A STEP,  AND  (6)  YZJETS,,  TH=  T AND  Z JETS  TO  BE  TURNED  ON  AND  OFF  DURING  eACH  REPEAT  OF  A 

Ro07A  step.  XJETS  AND  YZJETS  MUST  BF  IN  THF  SAMe  FORMAT  AS  CHANNELS  5 ANDi,_R_£SPECTl-VEUY,  THeRL  _ARe  EI<GHt  SeTS  OF 
R0076  these  six  REGISTERS. 

ROO77  THE  register  JETSTEP  IS  USED  TO  INDEX  THE  8 SETS  OF  REGISTERS.  THE  ALLOWABLE  VALUES  OF  JETSTEP  ARE  *0  THRU  7 

ROO79  THiIS  JOB  will  be  ENTERED  BUT  IMMePLATELY  ENDED  IF  THE  INITIAL  VALUES  OF  JETSTEP  AND  NTIMES  ARE  *0. 


0001 

ref 

8 

LAST 

368 

D6.3017 

ll'A07  1 

NEXTSET 

CCS 

JETSTEP 

IT  MAY  be  zero. 

0002 

D6.3020 

0 3022  1 

rc 

+ 2 

NOPE 

0003 

REF 

25 

LAST 

325 

06,3021 

0 5727  0 

TC 

TAS<OWER 

IT  IS  SO  WE  ARE  done  WITH  THIS  rASK, 

OO0A 

REF 

9 

LAST 

369 

06,3022 

55'A07  1 

TS 

JETSTEP 

0085 

rEf 

10 

LAST 

36'H 

06,3023 

-5-l'A07  0 

JETSTA7T 

nDx 

JETSTEP 

enter  here. 

0086 

REF 

1 

06.3O2A 

ll'AlO  1 

CCS 

NT  IMfS 

SEE  IF  THIS  STEP  IS  FINISHED. 

0007 

06,3025 

0 3027  1 

rc 

+ 2 

NO 

0088' 

REF 

1 

_ 06.3-026_ 

0 3017  X 

rc 

NEXTSET 

YES 

0089 

REF 

11 

LAST 

369 

06,3027 

51'A07  0 

NDX 

JETSTEP 

0090 

REF 

1 

06*3030 

31'A20  0 

CAE 

Nexttime 

MUST  BE  scaled  FOR  T3.  REMEMBER  TO  BIAS 

A009I 

THIS  FOR  ON  TIME. 

0092 

ref 

39 

LAST 

368 

06,3031 

0 5663  1 

rc 

WAITLIST 

0093 

REF 

12 

LAST 

369 

EA 

EBAN<5 

JETSTEP 

OO9A 

06.3032 

030A6  0 

2CADR 

JTDP 

COO9A 

REF 

1 

06,3033 

1A06A  0 

0095 

REF 

26 

LAST 

369 

06,3O3A 

0 5727  0 

rc 

TAS<nVER 

OO96 

REF 

IDA 

LAST 

361 

06..3O35 

3 7767  0 

JETOFF 

CAF 

ZERO 

0097 

06,3036 

0 0006  1 

extend 

0098 

06,3037 

01  005  0 

WRITE 

5 

0099 

06,30AO 

0 0006  1 

EXTEND 

0100 

06,30A1 

01  006  0 

WRITE 

6 

0101 

ref 

13 

LAST 

36V 

06.30A2 

5HA07  0 

NDX 

JETS_iEP 

0102 

REF 

2 

LAST 

36V 

06,30A3 

ll'AlO  1 

CCS 

NTIMES 

0103 

REF 

lA 

LAST 

3&V 

06*30AA 

51'A07  0 

ndx 

JETSTEP 

OlOA 

REf 

3 

last 

36V 

06,30A5 

55'AIO  1 

IS 

NTIMES 

ONE  less  time. 

0105 

REF 

15 

LAST 

36V 

06.3OA6 

51*A07  0 

JTOP 

ndx 

JETSTEP 

0106 

REF 

A 

LAST 

369 

06,3OA7 

ll'AlO  1 

CCS 

NT  IMPS 

FOR  LOOPING. 

0107 

06*3050 

0 3057  0 

rc 

+ ? 

0108 

REf 

2 

lAst 

36V 

06,3051 

0 3017  1 

TC 

NEXTsET 

0109 

REF 

16 

LAST 

369 

06,3052 

51»A07  0 

NDX 

JETSTEP 

0110 

REF 

- 1- 

06,3053 

31'A30  1 

CAE 

JETONTM 

SCALED  FOR  T3.  TIME  FOR  JETS  DN. i - - - - 

0111 

REF 

AO 

LAST 

369 

06*305A 

0 5663  1 

TC 

WAITI  1ST 

0112 

REf 

17 

last 

369 

EA 

eban<= 

JETSTEP 

0113 

06*3055 

03060  1 

2CADR 

JETON 

C0113 

ref 

1 

06,3056 

1A06A  0 
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OllA 

REF 

27 

last. 

369 

_3j6*3.06J 

J)--5727-  CL 

tc 

TASXnYER 

0115 

REF 

18 

LAST 

369 

06*3060 

51*407  0 

JETON 

v(DX 

jetstep 

0116 

ref 

1 

O6*306i 

31*440  0 

CAE. 

XJ.ETS 

_ MUsJ - BE  IN . channel  5 . F ORMAT . 

0117 

REF 

1 

06*3062 

55*401  1 

TS 

XJBJF 

0118 

REF 

19 

LAST 

370 

06*3063 

51*407  0 

mdx 

JETSTEP 

0119 

REF 

1 

06*3064 

_31*45XI  1 

CAE. 

Y.2JET5  

MUST  be  in  channel  6 FORMAT. 

0120 

REf 

1 

06*3065 

55*402  1 

TS 

YZJ3UF 

0121 

D6 » 3066 

0 0006  1 

jfailcc 

EXTEND 

this  routine  examines  each  JETFaIL  BIT 

0122 

_ 06,JO67 

.0ilJ)32_J3 

READ 

32 

AND  IF  A FAILURE  IS  INDICATED  HE  CORRES 

0123 

06*3070 

4 0000  0 

COM 

PONDING  commands  ARE  MASKED  OUT  . 

012A 

REF 

1 

06*3071 

55*403  0 

TS 

JFBJf 

SAVE  32  REINVERTED, 

0125 

REF 

8 

LAST 

327 

06*3072 

3 77i).5.  1- 

CAF 

Seven 

01'26 

REf 

1 

06*3073 

55*404  1 

JF3 

TS 

fcntr 

0127 

ref 

2 

LAST 

37O 

06,3074 

31*403  1 

CAE 

JFBJF 

0128 

REF 

Z 

LAST 

370 

06*3075 

51*404  0 

lOx  _ 

FCNTr 

0129 

REF 

11 

LAST 

190 

06*3076 

7 7754  1 

MAS< 

BITS 

0130 

REf 

231 

last 

367 

06*3077 

10  000  0 

CCS 

A 

0131 

REF 

1 

06*3100 

0 3117  0 

TC 

JFAIL 

0132 

REF 

3 

LAST 

37O 

06,3101 

11*404  1 

jfaili 

CCS 

FCNTR 

0133 

REF 

1 

06*3102 

0 3073  0 

rc 

JF3 

013A 

REf. 

2 

1 AsT 

370 

06*3103 

31*401  0 

rAE 

XJBJF 

0135 

06*3104 

0 0006  1 

EXTEND 

0136 

06*3105 

01  005  0 

WRITE 

5 

XJETS  GO  ON. 

0137 

REF 

2 

LAST 

37.0.  _ 

06*3106 

31*402  0 

CAE 

YZJ3l)F 

0138 

06*3107 

0 0006  1 

EXTEND 

0139 

06*3110 

01  006  0 

write 

6 

YZJETS  GO  ON. 

QIAQ  _ 

REF 

. 20 

LAST 

370 

06,3111 

51*407  0 

NDX 

JETStEP 

OUl 

REF 

1 

06*3112 

31*460  1 

CAE 

JETOFFTM 

JET  OFF  TIME  SCALED  FOR  T3, 

0U2 

REF 

41 

LAST 

369 

06*3113 

0 5663  1 

rc 

WAITI  1ST 

0143 

REf 

21 

1 AST 

370 

E4 

eban<= 

JETSTEP 

014A 

06,3114 

03035  1 

2CADR 

JETOFF 

C014A 

ref 

1 

06*3115 

14064  0 

01A5 

REF 

28 

LAST 

370 

06*3116 

0 5727  0 

TC 

TASXnVER 

0146 

REF 

4 

LAST 

370 

06*3117 

51*404  0 

jfail 

WDX 

FCNTR 

0147 

REf 

1 

06*3120 

4 3142  1 

CS 

XJETMAaK 

0148 

REF 

3 

LAST 

37O 

06*3121 

7 1401  1 

MASX 

XJBJF 

0149 

REF 

4 

LAST 

370 

06,3122 

55*401  1 

IS 

XJBJF 

OI5O 

REF 

5 

LAST 

37O 

06*3123 

51*404  0 

WDX 

FCNTR 

0151 

REf 

1 

06*3124 

4 3132  0 

CS 

yzjetmsk 

nl52 

REF 

3 

LAST 

370 

06*3125 

7 1402  1 

MAS< 

Y2J3UF 

0153 

ref 

4 

LAST 

370 

06*3126 

55*402  1 

TS 

Y2J3IIF 

0154 

REF 

32 

LAST 

347 

06*3127 

0 4755  1 

TC 

alarm 

0155 

06*3130 

01410  0 

DCT 

01410 

temporary  jet  fail  Alarm  cOde. 

0156 

REF 

1 

06,3131 

0 3101  1 

TC 

JFAILI 
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0157 

3j!l*3X32 

. OOOIQ 

0 

Y2JETMS/C 

3CT  _ 

..  00.010  _ 

JET 

11 

0158 

36,3133 

00020 

0 

3CT 

00020 

JET 

12 

0159 

36,3134 

00004 

0 

OCT 

OOOOa 

JET 

15 

0160 

. . _ 3Ai3135 

00200^ 

.0 

DC  I 

00200  

JET 

16 

0161 

36,3136 

00001 

0 

3CT 

OOOOl 

JET 

7 

0162 

36,3137 

00002 

0 

3CT 

0000? 

JET 

3 

0163 

36,3140 00040 

Q 

. D .CT  . 

_0  00.40  . 

JELT 

8 

016A 

36,3141 

00100 

0 

DCT 

OOlOO 

JET 

4 

0165 

_ _ 36,3J.42_ 

_ 00040_ 

0 

XJETMASC 

3CT 

0004O 

JET 

10 

0166 

36,3143 

00020 

0 

DCT 

0002O 

JET 

9 

0167 

36,3144 

00100 

0 

3CT 

OOlOO 

JET 

13 

0168 

36,3145 

00200 

0 

3CT 

00200 

JET 

14 

0169 

36,3146 

00010 

0 

3CT 

0001  0 

JET 

6 

0170. 

36,3147 

00001 

0 

DCT 

OOOOl 

jet 

1 

0171 

_ _ 06,3450 

00004 

0 

DCT 

00004  . - 

JET 

5 

0172 

36,3151 

00002 

0 

DCT 

00002 

JET 

2 
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POITB  FCS  TEST ENGINE  3N  - OFF  TASK 

Ro17a  this  task  turns  the  lem  asCent  or  Descent  engine  dn  and  off  according  tothe  constants  stored  in  the  fiv^  sets  of 

R0I76  registers,  (D  CYLTHeS,  WHICH  CONTAINS  tHe  NUMBeRiOF  TIMES  A PART  I CULARSTEP  WILL  Be  RePeATED,  (2)  NeXTCYLT, 

Rons  WHICHi  CONTAINS  THE  TIME  BETWEEN  STEPS  SCALED  FOR  T3.  (31  ONtIMe.  WHICH  CONTAINS  THE  TIMf  TO  J URN  THF  ENGINf  ON 
Roieo  WHICH  ALSO  determines  the  length  of  time  the  ENGIME  will  Be  off  WITHIN  A series  of  on;off  cycles,  (a)  OFFtIME, 
R0182  WHICHi  contains  THE  NUMBER  OF  2 MINUTES  BEFORE  TH=  ENGINE  WIiL  Be  TURNED  OFF,  AND  (5)  OFFTIMeR,  WHICH 
R 0 1 8 A _C_0  N I AIN  S_T  Hf  RESIDUAL  TIME  BEFORE  THE  ENGlN  E_W.IL  L _B£_  LU  RNeD  OFF.  OFFTIME  AND  OFFTIMeR  DETERMINE  THf  LENGTH 
R0I86  OF  TIME  THe  engine  WIuL  Be  ON  IN  ANY  ONE  OYCLE.  t’heRE  ARE  THREE  SfTS  OF  THeSe  REGISTERS. 

R0188  THE  engstep  Register  is  used  as  an  inDex  to  pic<  up  a particular  set  of  the  above  5 Registers,  this  tas< 

R0190  _ _W1LL_  3E  ENTERED  BUT  IMMEDIATELY  ENDED  IF  ENGSTEP  AND  CYLTIMes  = *0.  THE  ALLOWABLE  VALUES  OF  ENQSTER  ARE  .n. 

R0192  1 AND  2. 


0193 

019A 

REF 

1 

36*3152 

06,3153 

11'470 
0 3155 

1 

0 

NXtONOFF 

:cs 

TC 

ENGSTEP 

♦ 2 

0195 

REF 

29 

LAST 

370 

06,3154 

0 5727 

0 

tc 

TAS<nvER 

EXIT  here  when  step 

AND  CYL  ARE  +0. 

0196 

REF 

2 

LAST 

372 

06,3155 

55'470 

1 

TS 

ENGSTEP 

ONE  LESS. 

0197 

REF 

3 

LAST 

372 

36,3156 

51*470 

0 

engstart 

ndx 

engstep 

ENTER  here. 

0198 

REF 

1 

36.3157 

11*471 

0 

CCS 

CYLTIMES 

NUM  OF  EACH  ON/OFF 

Set 

0199 

36,3160 

0 3162 

1 

Tc 

+ 2 

0200 

REF 

1 

06,3161 

0 3152 

1 

TC 

NxTDNOFF 

NO  MORE  OF  THIS  SET 

0201 

REF 

4 

LAST 

372 

06,3162 

51*470 

0 

ndx 

ENGSTEP 

0202 

REF 

1 

06,3163 

31*474 

1 

CAE 

NEXTCYLT 

START  OF  NEXT  CYCLE, 

0203 

ref 

42 

LAST 

370 

06*3164 

0 5663 

1 

TC 

WAITlIST 

020A 

ref 

5 

last 

372 

E4 

EBAN< 

= ENGSTEP 

0205 

06,3165 

03206 

0 

2CADR 

ENG3NTM 

C0205 

ref 

1 

06,3166 

14064 

0 

0206 

REF 

30 

LAST 

372 

36,3167 

0 5727 

0 

TC 

TASCOVER 

0207 

REF 

3 

LAST 

303 

06*3170 

4 5210 

0 

ENGRESET 

cs 

PR  1330 

BITS  13  AND  14. 

0208 

06,3171 

0 0006 

1 

extend 

, 0^09 

06.3172 

02  Oil 

0 

RAND 

11 

0210 

REF 

29 

last 

365 

36,3173 

6 7746 

0 

AD 

BITU 

0211 

36,3174 

0 0006 

1 

EXTEND 

0212 

36,3175 

01  Oil 

0 

WRITE 

11 

ENG  ON  = 0,  ENG  OFF 

= 1. 

0213 

REF 

6 

LAST 

372 

36,3176 

51*470 

0 

NDX 

ENGSTEP 

021A 

REF 

2 

LAST 

372 

36*3177 

11*471 

0 

CCS 

cylttmes 

0215 

ref 

202 

lAst 

370 

36,3200 

10  000 

0 

CCS 

A 

0216 

36,3201 

0 3203 

0 

TC 

+ 2 

0217 

REF 

2 

LAST 

372 

36,3202 

0 3152 

1 

TC 

nxtdnoff 

WAS  ONE. 

0218 

REF 

?4 

LAST 

365 

36,3203 

6 7763 

1 

AD 

ONE 

WAS  more  than  one. 

0219 

REF 

7 

LAST 

372 

36,3204 

51*470 

0 

ndx 

ENGSTEP 

0220 

REF 

3 

LAST 

372 

06,3205 

55*471 

0 

TS 

CYLTIMES 

0221 

REF 

8 

LAST 

372 

36,3206 

51*470 

0 

EnGOnTM 

ndx 

EmGstEP 

0222 

REF 

1 

36,3207 

31*502 

1 

CAE 

DFFTtME 

0223 

REF 

1 

36,3210 

55*406 

0 

TS 

DFFTMBUF 

0224 

REF 

9 

LAST 

■372 

36,3211 

51*470 

0 

NDX 

ENGSTEP 
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0225 

REF 

1 

_ 36t3?12 ^ 

31*477- 1 

CAE  - _ 

-DNT-IME  - 

0226 

REF 

43 

LAST 

372 

06*3213 

0 5663  1 

rc 

WAITLIST 

0227 

REF 

10 

last 

372 

E4 

eban<= 

ENGsTEP 

0228 

„,0.t*32l4 

, 03217  0 

. 2CAD_R, 

ENGSET 

C0228 

ref 

1 

06.3215 

14064  0 

0229 

REF 

31 

LAST 

372 

06,3216 

0 5727  0 

rc 

TASCOVER 

0230 

ref 

4 

LAST 

372 

06,3217 

4 5210  0 

E'lGSET 

cs 

PRI030 

0231 

06,3220 

0 0006  1 

EXTEND 

0232 

. ,06,3221 

02  -OIL  0 

EAND 

11 

0233 

ref 

17 

LAST 

216 

06,3222 

6 7747  1 

AD 

BITI3 

0234 

06,3223 

0 0006  1 

EXTEND 

0235 

, 06 ,3224 

01  on  0 

4RITE 

11 

ENG  ON  = It  ENG  OFF  = 0. 

0236 

ref 

2 

LAST 

372 

06,3225 

11*406  0 

EMGRST 

CCS 

offtmbuf 

0237 

ref 

1 

06,3226 

0 3235  0 

rc 

LTIMFON 

AT  least  ^MIN.  before  ENGINE  OF?. 

0238 

ref 

11 

last 

373 

06,3227 

51*470  0 

NDX 

ENGSTEP-, 

0239 

ref 

1 

06,3230 

31*505  0 

CAE 

DFFTiMER 

LESS  THAN  2MIN.  TO  ENGINE  OFF, 

02a0 

REF 

44 

last 

373 

06,3231 

0 5663  1 

rc 

WAITLIST 

0241 

REF 

12 

LAST 

373 

E4 

-BAN<= 

ENGSTFP 

0242 

06,3232 

03170  1 

2CADR 

ENGRfSET 

C0242 

ref 

1 

06,3233 

14064  0 

0243 

REF 

32 

LAST  J313 

- 06,3234 

0 5727  0 

rc 

TASCOVER 

0244 

REF 

3 

LAST 

373 

06,3235 

11*406  0 

LTIMEON 

CCS 

OFFTMBUF 

IS  THERE  ANY  MORE, 

0^4&  . 

06,3236 

0 3240  1 

;r 

♦ z 

YES. 

0246 

REF 

1 

06,3237 

0 3225  1 

rc 

ENGRST 

NO, 

0247 

REF 

4 

LAST 

373 

06,3240 

55*406  0 

rs 

offtmbuf 

ONE  LESS, 

0248 

_ ref_ 

1 

06.3241 

3 3246  1 

CAF 

2MIN 

0249 

REf 

45 

last 

373 

06,3242 

0 5663  1 

rc 

WAITi  1ST 

0250 

REF 

13 

LAST 

373 

E4 

eban<= 

ENGSTEP 

0251 

06.3243 

03235  0 

2CADR 

LTIMEON 

C0251 

REF 

2 

LAST 

373 

06,3244 

14064  0 

0252 

ref 

33 

LAST 

373 

. 06,3245 

0 5727  0 

rc 

TASCOVER 

3EC 


0253 


D6.32A6  27340  0 2M.IN 


12000 
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_PD25ii__ 

Ro255 

R0257 

R0259 

R0261 
R0262 
_RQ2iA 
R0265 
R0267 
RO260 
R0270 
Ro271 
R0273 
R02  75 
R0277 
R0278 


LEM  FC6  TEST TRIM  TASK 

this  program  issues  a Profile  of  pitch  ano  roll  trim  commands  to  tHe  lem  descent  engine  gimbal  in  accoroancewith 
tHe  yalue  s in  the  trtmsteP  Register  and  the  12  sets  of  5 registers  called  numtimeS,  stepdlyt,  tRIMont,  trimofft 
and  TRTMIND_.  TRIMSTeP  is  used  to  pick  up  a particular  SfI  of  the  5 registers  and  has  allowable  values  from  to 


values  from  to  TO 


through  til  decimal,  the  5 registers  in  each  Set  are  defined  as  follows 

(1)  numtimes  determines  the  number  of  times  tre  Command  in  trimind  will  be  issued, 

_ OCT  37777  ARE  PERMITTED. 

(2)  stepdlyt  Determines  the  time  between  the  start  of  a step  and  tHe  beginning  of  trimont.  stepdlyi  must  be 
formatted  for  T3,  its  maximum  value  is  2 minutes, 

(3)  trimont  DeteR'MiINes  the  time  Between  the  end  of  stepoi  yt  or  trimofft  and  the  time  the  trim  comma-jds  ar^ 
issued.  it  must  be  formatted  For  T3. 

(A)  trimofft  Determines  the  length  of  time  th^  trim  command  will  be  on,  formatted  for  T3. 

(5)  TRIMIND  DETERiMiINES  THE  PITCH  AND  ROLL  COMMAND  TO  BE  ISSUED,  THe  F0RMAT_  ISj  BI_T9  = l = t PITCH  COMMAND, 

BIT10S1=-PITCH,  BIT11S1=  tROLL,  BIT12=1=  -ROLL,  A 6lT=0  INDICATES  NO  CoMMAN5,  ANY  COMBINATION  OF  COMMANDS  IS 

permitted. 

THI_S  task  will  Be  entered  but  immediately  ended  if  tRIFLSTEP  and  NUMTJMeS  = to. 


0280 

ref 

1 

36,3297 

11*510  0 

NExTTR IM 

CCS 

TRlvicTEp 

0281 

36,3250 

0 3252  1 

TC 

♦2 

0282 

ref 

39 

LAST 

3_I3  _ 

06,3251 

0 5727  0 

TC 

TASCnVER 

EXIT  HERE, 

0283 

REF 

2 

LAST 

379 

36,3252 

55*510  0 

rs 

TRIMSTEP 

LESS  ONE, 

0289 

■ REF 

3 

LAST 

379 

06,3253 

51*510  1 

TRlMTOP 

siP)( 

trimstep 

EjwTEr  HE_REt 

0285 

ref 

1 

36,3259 

11*511  1 

CCS 

numtimes 

0286 

36,3255 

0 3257  1 

TC 

♦2 

02.B7  _ 

_^bef 

_i 

36,3256 

0 3297  0 

TC 

nexttrim 

0288 

ref 

9 

LAST 

379 

06,3257 

51*510  1 

ndx 

TRlMsTEP 

0289 

REF 

1 

36*3260 

31*525  1 

CAE 

STEPoLYT 

0290 

REf 

96 

1 AST 

373 

36,3261 

0 5663  1 

TC 

iWAlTl  1ST 

0291 

REF 

5 

LAST 

379 

E9 

eban<= 

TRIMaTEP 

0292 

36,3262 

03300  1 

2CADR 

TRIMSET 

C0292 

REF 

1 

36,3263 

19069  0 

0293 

REF 

35 

LAST 

379 

36,3269 

0 5727  0 

TC 

TASCnVER 

_ 0299 

REF 

1 

36*3265 

9 3369  1 

TRIMOFF 

cs 

TBIMMASK 

0295 

36,3266 

0 0006  1 

extend 

0296 

36,3267 

03  012  1 

WAND 

12 

TRIM  GOES  OFF. 

0297 

REF 

6 

LAST 

379 

36,3270 

51*510  1 

NJMSTEP 

NDX 

TRI MaTEP 

0298 

REF 

2 

LAST 

379 

36*3271 

11*511  1 

CCS 

NUMTIMES 

0299 

REf 

2D3 

last 

372 

36,3272 

10  000  0 

CCS 

A 

0300 

36,3273 

0 3275  1 

TC 

♦ 2 

0301 

REF 

2 

last 

379 

36,3279 

0 3297  0 

TC 

nexttrim 

WAS  ONE. 

0302 

REF 

95 

LAST 

372 

36,3275 

6 7763  1 

AD 

ONE 

0303 

REF 

7 

LAST 

379 

06,3276 

51*510  1 

NDX 

TRIMaTEP 

0309 

REF 

3 

LAST 

379 

36,3277 

55*511  1 

rs 

numtimes 

0305 

REF 

8 

LAST 

379 

36*3300 

51*510  1 

TRIMSET 

nDx 

TRIM.ATEP 

0306 

ref 

1 

36,3301 

31*591  0 

CAE 

trimont 

0307 

REF 

97 

LAST 

379 

06,3302 

0 5663  1 

TC 

WAITI  1ST 
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0308 

REF 

9 

LAST 

374  . 

. E4 

-SBANX= 

TRlMsT-EP 

0309 

06,3303 

03306  1 

2CADR 

TRIMON 

C0309 

REF 

1 

06,3304 

14064  0 

0310 

REF 

36 

LAST 

374  _ 

06,3305 

0 5727  0 

_ TC 

TASjCnVER 

0311 

REF 

1 

06*3306 

3 3363  1 

T^IMON 

CAF 

BI TS9 , 10 

CHECK  PITCH  AND  ROLL  TRIM  FAIL  3ITS. 

0312 

-06,3307 

. 0 0006  1 

extend 

0313 

06,3310 

06  032  0 

2X0R 

32 

0314 

ref 

2 

LAST 

375 

06,3311 

7 3363  0 

MAS< 

BITSo,10 

0315 

06.3312 

D 0006  I 

rXTFNO 

0316 

REF 

1 

06,3313 

1 3321  0 

3ZF 

TRIMONl 

0317 

REF 

1 

06,3314 

3 5656  1 

CAF 

PR  I 03  5 

FAIL  IS  ON.  FLASH  FAIL  CODE  (OI4OO)  AND 

0318 

REF 

15 

LAST 

324 

-0.6i.33i6 

_0.  55-05  1 

IC_ 

NOVAC 

idle  until  Someone  resets  it,  t-rminates 

0319 

REF 

22 

LAST 

370 

E4 

EBAN<= 

jetstep 

0320 

06,3316 

03334  0 

2CADR 

PERFORM 

THE  TASK,  OR  DECIDES  TO  PROCEED  WITH  IT. 

C03E0 

rEF 

1 

06,3317 

14064  0 

0321 

REF 

37 

LAST 

375 

06,3320 

0 5727  0 

rc 

TAS<nVER 

0322 

REF 

10 

last. 

375 

06,3321 

51*510  1 

. t^imoni 

NDX  _ 

ISiMSTEP 

0323 

ref 

1 

06,3322 

31*571  0 

CAE 

trimtnd 

0324 

REF 

2 

LAST 

374 

06,3323 

7 3364  1 

MA5< 

TRIMMASK 

SAFETY  PLAY 

0325' 

06,3324 

0 0006  1 

EXTEND 

0326 

06,3325 

05  012  1 

WOR 

12 

TRIM  STARTS. 

0327 

REF 

11 

LAST 

375 

06,3326 

51*510  1 

NDX 

TRIMSTEP 

0328 

REF 

1 

3b j 3321 

31* 555  _0 

. CAE 

LR.I'IOFF.T. 

0329 

REF 

48 

LAST 

374 

06*3330 

0 5663  1 

TC 

wAITTIST 

0330 

REf 

12 

last 

375 

E4 

rBAN<= 

TRIviuTEP 

0331 

06,3331 

03265  0 

2CADR 

TRIMOFF 

C0331 

REF 

1 

06,3332 

14064  0 

0332 

ref 

38 

LAST 

375 

06,3333 

0 5727  0 

TC 

TAS<OVER 

0333 

REF 

13 

LAST 

367 

06*3334 

0 4644  0 

PERFORM 

TC 

GRA3WAIT 

KEY  RELEASE  MAY  COME  ON. 

0334 

REf 

1 

06,3335 

3 3363  1 

CAF 

trimcode 

01400 

0335 

REF 

24 

LAST 

3&T 

06,3336 

54  337  1 

TS 

dsptfmi 

0336 

REF 

1 

06,3337 

3 3365  1 

CAF 

V01N25K 

0337 

REF 

30 

LAST 

367 

06,3340 

0 4657  1 

TC 

NvSSwAIT 

0338 

REF 

_ ,Jl_ 

06,3341 

3 3366  1 

_CAF 

V50<, 

PLEASE  PERFORM,  . . ._  _ 

0339 

REF 

31 

LAST 

375 

06,3342 

0 4657  1 

TC 

NVSSWAIT 

0340 

REF 

6 

LAST 

283 

06,3343 

0 4622  0 

TC 

FLASnON 

ANY  RESPONSE  TURNS  IT  OFF. 

0341 

REF 

23 

LAST 

367 

06,3344 

0 4475  0 

tC 

ENDIOLE 

WAIT  FOR  SOMEONE  TO  DO  SOMETHIN j. 

0342 

REF 

10 

LAST 

368 

06,3345 

0 5566  1 

TC 

EJFREE 

V34E.  TERMINATE  THE  TASK. 

0343 

REF 

1 

06,3346 

0 3355  1 

TC 

TRl 

V33E.  PROCEED  WITH  THE  FAIL  ON. 

0344 

06,3347 

0 0004  0 

INHINT 

ENTER.  THE  FAIL  HAS  BEEN  RESET. 

0345 

REF 

17 

LAST 

365 

06,3350 

3 7762  0 

CAF 

BI  T2 

20MS. 

0346 

ref 

49 

last 

375 

06,3351 

0 5663  1 

TC 

WAIT!  1ST 

0347 

REF 

23 

LAST 

375 

E4 

-BAN<= 

JETSTEP 

0348 

06,3352 

03306  1 

2CADR 

TRIMON 

CHECK  AGAIN  TO  BE  SURE.  THEN  PROCEED.. 

C0348 

ref 

2 

LAST 

375 

06,3353 

14064  0 

0349 

REF 

11 

LAST 

375 

06,3354 

0 5566  1 

TC 

EJFRfE 
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0350 

.3Ai3.355_  _ 

_0  QOOA  0 

.INRlviT 

__PRQCEED._W1TH._ThE  EA1L.  _ . 

0351 

ref 

18  LAST 

375 

36,3356 

3 7762  0 

CAF  31T2 

20MS. 

0352 

REF 

50  LAST 

375 

36,3357 

0 5663  1 

TC  ^jAITi  1ST 

0353 

REF 

2A  LAST 

375 

E4 

-BAN^s  .JFT.StFP 

035A 

36,3360 

03321  1 

2CADR  TRIvinNl 

BYPASS  THE  RECHECK. 

C035A 

REF 

2 LAST 

375 

36,3361 

I4O6A  0 

0355 

REF 

12  last 

375 

36,3362 

0 5566. 1 

TC  EJJFREE 

0356 

36,3363 

01400  1 

BITS9,10 

3CT  01400 

0357 

ref 

3 last 

375  __ 

__06l,3_363 

TRIMC03E 

EQJ_AlS  BITS9,1Q 

0358 

36,336A 

07400  1 

TR1MMAS< 

3CT  OTAOn 

0359 

36,3365 

00125  1 

V01N25< 

3CT  00125 

0360 

3 6_i_3  3_66_  _ 

_ 05000  1 

Y50K 

3CT_  _ .05000 
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P0361  LEa_ECS^TE5T THROTTLE  TASK 

R0362  this  program  ISSUES  A PROFILE  OF  THROTTLE  COMMANDS  TO  THE  LeM  DESCENT  ENGINE.  THe  PROFILe  IS  DETERMINED  BY 

Ro36a  the  yalues  in  THe  th^tstep  register  and  tHe  6 sets  of  Registers,  5 peR  set,  called  dotimes,  delay,  thritime, 

R0366  THCOMM.I  AND  LHCOMMa^  THEL  THRISTELP^R£GIST£R  VALUE  IS  USED  TO  IiJD£X_THE  6 SETS  0F_  5 REGISTERS  AND  HAS  ALLOWABLE 

R0368  values  of  tO  THROUGH  *5.  THE  5 REGISTERS  PER  SET  ARE  DEFINED  AS  FOLLOWS 

R0369  (1)  dotimes  DETERMINES  THe  NUMBER  OF  TIMeS  tH-  THROTTLE  WILL  BE  eXeRCISeD  AS  PeR  THe  VALUeS  OF  THRitIMe, 

R0371  THCOMMI  AND  THC0MM2  3F'  THE  CURRENT  STEP.  IT  HAS  ALLDWAB_LE  VALUES,  OF  ♦0_T_HRiIUGH  37777  OCT. 

R0373  (2)  DELAY  DETERMINES  THE  TIME  BETWEEN  THE  START  OF  A STEP  AND  THE  Be  GINNING  oF  THRITIMe.  ITIS  CALLED  ONLY 

R0375  once  =ER  STEP,I.E.,  REPEATS  OF  IHE  SAME  THCOMMi  AND  THC0MM2  START  AT  THRITIMe.  DeUAY  MUST  BE  FORMATTED  FOR  T3 
R0377  AND  HENCE  HAS_A  MAXI  MJMVALUE  _0F  2 MINUTES,  , 

R0378  (3)  THRITIME  DETERMINES  THE  TIME  BETWEEN  tHE  END  OF  OeLAy  OR  tHe  END  OF  THC0MM2  AND  THE  START  OF 

R0380  THCOMMIl.  IT  MUST  BE  FORMATTED  FOR  T3. 

R0381  THCOMMI  ANI^  15_)  THC0MM2  DETERMINE  THE  NUM3E,R  DF  TjHRJST  INCREASE  OR  DECREASE  PULSES  TOBe  ISSUED  AT  A 

R03b3  3.2<?^S  rate.  THE  RANGE  OF  POSSIBLE  VALUES  OF  EITHER  IS  FROM  POSMAX  (OCT  37777)  TO  NEGMAX  (OCT  AOOOO)  ALTHOUGH 

R03b5  the  actual  THROTTLE  RANGE  IS  FROM  OCT  6116  TO  OCT  71661  (♦*-  3150  DEC). 

Ro3b6  this  task  will  be_entered  BUr  immediately  ended  if  the  I nttial  values  of  thrtsteP  and  Dotimes  are 


0388 

rEf 

1 

06,3367 

11*605 

1 

nExTTHRT  CCS 

ThRTsTEP 

0389 

06,3370 

0 3372 

1 

TC 

♦ 2 

0390 

REF 

39 

LAST 

37S 

06,3371 

0 5727 

0 

TC 

TASXnVER 

EXIT  HERE, 

0391 

REF 

2 

LAST 

37T 

06,3372 

55*605 

1 

rs 

THRTSTEP 

0392 

rEf 

3 

LAST 

377 

06,3373 

51*605 

0 

THrSTArT  \)DX 

THrTsTEP 

EnTEr  here,  . , _ 

0393 

REF 

1 

06,3376 

11*606 

1 

CCS 

DOTIMES 

number  of  times  commands  1 AND  2 DONE. 

0396 

06,3375 

0 3377 

1 

rc 

+ 2 

0395 

REF 

1 

06.3376 

0 3367 

0 

TC 

NEXTTHRT 

0396 

REF 

6 

LAST 

377 

06,3377 

51*605 

0 

NDX 

THRTSTEP 

0397 

REF 

1 

06*3600 

31*616 

0 

CAE 

delay 

TIME  between  steps.  BIAS  FOR  HRlTIME. 

A0398 

MUST  BE  Scaled  for  T3, 

0399 

REF 

51 

LAST 

376 

06,3601 

0 5663 

1 

TC 

WAITI  1ST 

0600 

REF 

5 

LAST 

377 

E6 

FBAN<= 

THRTSTEP 

0601 

' 06,3602 

03625 

1 

2CADR 

THROTONl 

C0601 

REF 

1 

06,3603 

16066 

0 

0602 

REF 

60 

LAST 

377 

06,3606 

0 5727 

0 

TC 

TASXOVER 

0603 

REF 

6 

LAST 

377 

06*3605 

51*605 

0 

THR2C0MM  NDX 

THRTsTEP 

0606 

ref 

1 

D6  *3406 

31*636 

0 

CAE 

ThC0MM2 

SAME  REMARKS  As  FDR  ThCOMMI. 

0605 

REF 

1 

06,3607 

0 3663 

1 

TC 

THROtON 

0606 

REF 

27 

LAST 

367 

06,3610 

6 7763 

1 

AD 

BITl 

lOMS  IN  CASE  OF  NO  THC0MM2, 

0607 

REF 

52 

LAST 

377 

06,3611 

0 5663 

1 

TC 

wAlTl  1ST 

0608 

REF 

7 

LAST 

377 

E6 

-BAN<= 

THRTSTFP 

0609 

06,3612 

03615 

1 

2CADR 

CKDOTIME 

C0609 

REF 

1 

06.3613 

16066 

0 

0610 

REF 

-61 

LAST 

377 

06,3616 

0 5727 

0 

TC 

TASXnVFR 

0611 

REF 

8 

LAST 

377 

06.3615 

51*605 

0 

CKDOTIME  NDX 

THRTSTEP 

0612 

ref 

2. 

LAS-T 

377 

06,3616 

11*606 

1 

rr<; 

OOTIMFs 

0613 

REF 

206 

LAST 

376 

06,3617 

10  000 

0 

CCS 

A 
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OAIA 

06.3420 

0 3422  Q 



_j*2 

OA15 

REF 

2 

LAST 

377 

06,3421 

0 3367  0 

TC 

NEXTTHRT 

WAS  ONE. 

0A16 

REF 

96 

LAST 

37A 

06,3422 

6 7763  1 

AD 

ONE 

0A17 

REF 

9 

LAST 

377 

06,3423 

51 '605.  0 

\1DX_.  .. 

TJiTSTEP„  . 

0A18 

REF 

3 

LAST 

377 

06,3424 

55*606  1 

rs 

OOTIMES 

OAl9 

REF 

10 

LAST 

378 

06,3425 

51*605  0 

throtoni 

ndx 

THRTaTEP 

0A2O 

REf 

1 

06  1.3426 

31*622  0 

;AE 

THRITIME 

tIme  between  dotimes.  Scaled  _f3R  ts. 

OA21 

REF 

53 

LAST 

377 

06,3427 

0 5663  1 

TC 

WAITI 1ST 

OA22 

REF 

11 

LAST 

378 

E4 

£BAN<= 

THRTSTEP 

0423 

06,3430 

03433  0 

2CADR 

THRICOMM 

C0A23 

ref 

1 

06,3431 

14064  0 

0A2A 

REF 

42 

LAST 

377 

06,3432 

0 5727  0 

TC 

TASYOVER 

0425 

REF 

12 

LAST 

378 

06,3433 

51*605  0 

thricomm 

NDX 

THRTSTEP 

0426 

REF 

1 

06,3434 

31*630  0 

CAE 

ThCOMMI 

SHOULD  BE  NO  LARGER  ThAN  31500EC. 

0427 

REF 

2 

LAST 

377 

06,3435 

0 3443  1 

TC 

THROTON 

0428 

REF 

1 

36  f 3436 

6 3460  0 

AD 

250MS 

SO  ACE  CAN  SAMPLE. 

0429 

REF 

54 

LAST 

378 

06,3437 

0 5663  1 

TC 

WAITI  1ST 

0430 

REF  13 

LAST 

378 

E4 

EBAN<= 

THRTSTEP 

O43I 

06,3440 

03405  0 

2CAOR 

THR2C0MM 

C0431 

REF 

1 

06,3441 

14064  0 

0432 

REF 

43 

LAST 

378 

06,3442 

0 5727  0 

TC 

TASXOVER 

0433 

REF 

2 

last 

88 

06,3443 

54  055  0 

T^ROTON 

T5 

THRUST 

throttle  output  counter. 

0434 

REf, 

1 

36 ♦ 3444 

55*405  0 

TS 

Thbjf 

SAVE  FOR  BZMF. 

0435 

REF 

23 

LAST 

25l 

06,3445 

3 7760  1 

:af 

BIT4 

0436 

36  f 3446 

0 0006  1 

EXTEND 

0437 

06,3447 

05  014  1 

WOR 

14 

ENABLE  thrust  DRIVE.  COMMAND  STARTS  NOW 

0438 

REF 

2 

LAST 

378 

06,3450 

31*405  1 

CAE 

THBJp 

0439 

06,3451 

0 0006  1 

EXTEND 

0440 

06,3452 

6 3454  1 

3ZMF 

,2 

0441 

06,3453 

4 0000  0 

COM 

0442 

06,3454 

4 0000  0 

COM 

0443 

06,3455 

0 0006  1 

EXTEND 

0444 

-REF 

30 

LAST 

311 

06,3456 

7 7752  1 

MP 

BiTin 

SCALES  FOR  T3, 

0445 

REF 

162 

LAST 

363 

06,3457 

0 0002  0 

TC 

3 

0446 

06  ,'3460 

00031  0 

25OMS 

3CT 

00031 
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P0AA7  LEM  f:s  test  intesfa:£_ldok  jasic. _ _ _ _ _ _ 

R0AA8  THUS  program  KEE^B  a running  history  DF  the  SiATE  of  all  tHe  bits  in  input  channels  30*  31*  32  AND  33. 

Roaso  it  does  thIs  by  detecting  a change  of  an  Input  bit  fRqm  an  initiai  one  state  to  a zero  _siftiE_QB,  fROm_ avllnitjau 

RoA52  zero  to  a one.  THe  HISTORY  IS  MAINTAINED  IN  TWO  BUFFER  REGISTERS  FOR  EACH  CHANNEL,  ONe  FOR  STORING  0N£  TO  ZERO 

R0A5A  changes  (30BUF1,  +1,  *2,  AND  +3)  AND  ONE  FOR  ZERO  TO  ONE  CHANGES  (3OBUF0,  +1  +2  AND  +3).  THE  OPERATOR  MUST 

RoA56  load  the  initial  STATFB  OF  THf  INPUT  CHANNfLS  I_NT 0^  THplR  RfSpfCtIVf  BUFFfR  RfGIStfRS  BtFORf  this  program  is  1N- 

R0A58  ITIATED. 

RoA59  TOi  allow  this  PROGRAM  TO  RUN  C(QUItLOOK)  MJSt  Be  SeT  GREATER  THAN  +0  BeFORE  IT  IS  STARTED.  IF  tHE  OPERATOR 

R0A6I  does  mot  PeSIRE_JHIS  =Ro_GRAM  to  run  He  should  Set  C{OJITLOOO=  + o before  starting  the  fcs  test,  after  this  task 

R0A63  is  RJMNING  THE  OPERATOR  CAN  STOP  IT  BY  SETTING  UOUITLOOO  s +0. 

ROA6A  MOi  DISPLAYS  OF  eUHeR  THe  BUFFER  REGISTERS  OR  CHANNELS  ARE  INCORPORATED  INTO  THIS  PROGRAM.  THIS  WAS  OONe  TO 

R0A66  ALLOW  THe  TfST  OPERATOR  MONITORING  FLEXIBILITY.  FOR  REAL  TIME  MONITORING  IT  IS  SUGGeSje_D  THAT  THe  BUFF£R 
R0A68  registers  Be  displayed  with  the  MONITOR  VERBS  (u  THROUGH  15).  ON  tHE  OTHeR  HAND,  THE  OPERATOR  MAY  eLECT  TO 

ROA7O  PERFORM  NO  REAL  TIME  MONITORING  UNTIL  tHe  TEST  IS  COMPLETED,  WHEN  THE  BUFFER  REGISTERS  WOULD  Be  CALLED  -OR 

ROATZ  display  (VERB  01)  AND  RECORDED. 

RoA73  THiIS  program  jS  PRIMARILY  INTENDED  FOR  INTERFACE  MONITORtNG  DURING  tHe  LeM  VIBRATION  TEST  AT  BeTHPAGE,  N.Y., 

R0A75  although  it  may  also  Be  useful  DURING  vehical  Level  emi  tests. 


0476 

REF 

1 

06,3461 

11*654 

0 

lookto= 

CCS 

OJITLOOK 

IS  THIS  TASK  WANTED. 

0477 

06,3462 

0 3464 

1 

TC 

♦2 

YES. 

0478 

_ref 

44 

1 AST 

378 

06,3463 

0 5727 

0 

J ASCOT/ ER_ 

NO. 

0479 

REF 

16 

LAST 

368 

D6 ♦ 3 A64 

3 6311 

1 

CAF 

THREF 

START  SCAN  OF  CHANNELS, 

0480 

REF 

1 

06,3465 

55*655 

1 

LOOKLOOP 

TS 

CHCNTR 

3,  2,  1*  0. 

0481 

REF 

2 

LAST 

379 

06,3466 

51*655 

0 

NDK 

ChCntR 

Oa82 

REF 

1 

06*3467 

31*644 

0 

CAE 

303JF1 

0483 

06,3470 

0 0006 

1 

EXTEND 

0484 

REF 

3 

LAST 

379 

06,3471 

5 1655 

0 

NDX 

CHCNTR 

0485 

06,3472 

02  030 

0 

RAND 

30 

DETECTS  CHANGES  FROM  1 TO  0. 

0486 

REF 

4 

LAST 

379 

06,3473 

51*655 

0 

NDX 

CHCNTR 

0487 

REF 

2 

LAST 

379 

D6 « 3^74 

57*644 

0 

XCH 

30BJF1 

STORE  NEW  ZEROS. 

0488 

ref 

5 

last 

379 

06,3475 

51*655 

0 

NDX 

CHCNTR 

0489 

ref 

1 

06,3476 

31*650 

0 

CAE 

30BJF0 

0490 

06,3477 

0 0006 

1 

EXTEND 

0491 

REF 

6 

LAST 

379 

0'6,3500 

5 1655 

0 

NDX 

CHCNTR 

0492 

06,3501 

04  030 

0 

RDR 

30 

DETECTS  CHANGES  FROM  0 TO  1 . 

0493 

ref 

7 

last 

379 

06,3502 

51*655 

0 

NDX 

CHCNTB 

0494 

REF 

2 

LAST 

379 

06*3503 

57*650 

0 

XCH 

30BJF0 

STORE  NEW  ONES. 

0495 

ref 

8 

last 

379 

06,3504 

11*655 

1 

CCS 

CHCNTR 

IS  THIS  Scan  dome. 

0496 

REF 

_ 1 

06,3505 

0_3465 

0 

TC 

LDiCLOOP 

NO. 

0497 

REF 

4 

LAST 

310 

06,3506 

3 4570 

1 

CAF 

Ten 

YES.  lOOMS  RECALL. 

0498 

REF 

55 

LAST 

378 

06,3507 

0 5663 

1 

rc 

WAlTi'lST 

0499 

REF 

z 

LAST 

379 

E4 

FBAN<= 

OUITI  OOK 

0500 

06,3510 

03461 

1 

2CADR 

looktop 

C0500 

REF 

2 

LAST 

368 

06,3511 

14064 

0 

0501 

REF 

45 

LAST 

379 

06,3512 

0 5727 

0 

TC 

TASKOVER 
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-—0001.  U-tZQOO 3AN< LA. 


0002 

ref 

15 

LAST 

350 

E5 

eban<. 

XSM 

0003 

ref 

97 

last 

378 

14 

.2000 

3 7763 

1 

AOTNbIMJ 

:Af 

ONE 

AOT-NB-IMU  fine  AlIONmENT  TEST 

OOOA 

REF 

1 

lA 

.2001 

55»512 

1 

JS 

EROPtN 

...  TEST  capability  ... 

0005 

REF 

27 

LAST 

364 

14 

.2002 

0 5206 

0 

re 

BAN<rALL 

0006 

REF 

2 

LAST 

203 

14 

*2.003„ 

--26000  0 

CAOR 

IMJZfRO 

IMU  ZERO  encoder  mode 

0007 

REF 

7 

last 

358 

14 

.2004 

0 6112 

0 

TC 

INTPrET 

0008 

14 

.2005 

77624 

1 

:all 

0009 

REF 

1 

14 

,2006 

-30553 

1 

LATA7CHK 

TO  LOAD  azimuth  (SM)  AND  LATITUDE 

0010 

14 

.2007 

77624 

1 

CALL 

0011 

REF 

1 

14 

.2010 

30325 

0 

MA<FXSMD 

TO  SET  UP  A STABLE  MEMBER  DESIRED  MATRIX 

J0Q12. 

14 

.2011 

4>5014 

0 

SET 

Cali 

0013 

REF 

1 

14 

.2012 

00065 

1 

COAROFIN 

FOR  COARSE  OR  FINE  ALIGN  MARKS 

0014 

REF 

1 

14 

.2013 

30407 

1 

ERTHrVSE 

TO  calculate  earth  rate  vector 

. 0015 

14 

.2014 

77776 

1 

FXIT 

0016 

REF 

1 

14 

.2015 

3 3700 

0 

PDSL0A3 

CAF 

V24N:t0E 

Rl  OOOOX  enter  position  1.2.  OR  3 

0017 

ref 

32 

lAst. 

378 

14 

.2016 

0 4657 

1 

TC 

NV-SawAIT 

R2  00000  enter  00001  FOR  OPTION 

0018 

REF 

24 

LAST 

375 

14 

.2017 

0 A-475 

0 

re 

ENOIDLE 

0019 

REF 

1 

14 

.2020 

1 2770 

1 

rcF 

ENOTFST 

0020 

14 

.2021 

1 2015 

0 

rcF 

-4 

0021 

REF 

25 

LAST 

375 

14 

.2022 

56  337 

0 

XCH 

dsptfmi 

DO  NOT  USE  POSITION  3 WITH  NAV  3ASE  AT 

0022 

REF 

1 

14 

.2023 

55*544 

1 

rs 

POSItON 

zero  degree  tilt  angle.  (GIMBAII  LOCK) 

0023 

rEf 

26 

LAsT 

380 

14 

.2024 

10  340 

1 

CCS 

DsPTeMI  +1 

0024 

REF 

1 

14 

.2025 

1 3003 

0 

rcF 

LEMLAB 

SPECIAL  LAB  TEST  TO  BYPASS  MARKS 

0025 

REF 

1 

14 

.2026 

0 2621 

0 

TC 

POSNJUMP 

set  up  STABLE  MEMBER  DESIRED  COORDINATES 

0026 

■ REF 

1 

14 

.2027 

0 2524 

0 

re 

OPTOATA 

TARGETS  1,2  AZIMUTH  AND  ELEVATION 

0027 

REF 

1 

14 

.2030 

0 2135 

1 

re 

findmavb 

COARSE  ALIGN  MARKS 

0028 

REF 

28 

LAST 

38° 

14 

.2031 

0 5206 

0 

re 

BANXCALL 

0029 

ref 

5 

LAsT 

206 

14 

.2032 

26751 

0 

CAoR 

imjstall 

INSURE  IMUZERO  COMPLETION 

0030 

REF 

2 

LAST 

380 

14 

.2033 

1 2770 

1 

rcF 

ENOTEST 

0031 

REF 

1 

14 

.2034 

0 2247 

1 

re 

PJTPOSX 

TO  COARSE  ALIGN  STABLE  MEMBER 

0032 

REF 

1 

14 

.2035 

0 2762 

0 

rc 

GMLCKCHK 

CHECK  FOR  GIMBAL  LOCK  BEFORE  Fl\IE  ALIGN 

0033 

ref 

1 

14 

.2036 

0 2752 

0 

re 

OGCZFRO 

FOR  earth  rate  compensation 

0034 

REF 

29 

LAST 

380 

14 

.2037 

0 5206 

0 

rC 

BANXCALL 

0035 

REF 

2 

LAST 

206 

14 

.2040 

26252 

0 

CAOR 

imjftne 

FINE  ALIGN  MODE 

0036 

REF 

30 

LAST 

380 

14 

.2041 

0 5206 

0 

re 

BAN<rALL 

0037 

REF 

6 

LAST 

380 

14 

.2042 

26751 

0 

CAOR 

IMJSTALL 
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0052 
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0055 

0056 

0057 

0058 

0059 

0060 
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IMJ  performance  TESTS  1 


USER'S  Own  page  no. 


S3  E6 


REF 

2 

LAST 

380 

14 

.20AA 

0 2135 

1 

TC 

FINOnAVB 

FINE  ALIGN  MARKS 

REF 

9 

LAST 

327 

14 

»20A5 

0 472A 

1 

TC 

FREEDSP 

FREE  DISPLAY  SYSTEM 

REF 

X 

14 

.iO 47i 0 7763  1 

TC_  . 

._SMDCALC  . _ 

TO  FINE  .ALLGiN  STABLE  MEMBER. 

REF 

31 

LAST 

3B0 

lA 

t20A7 

0 5206 

0 

e^final 

TC 

BAN<fALL 

LAST  EARTH  RATE  SHOT 

REF 

1 

14 

.2050- 

3042  A. 

0 

CADR 

EARTXR 

REF 

2 

LAST 

380 

14 

.2051 

11'512 

1 

CCS 

EROPtN 

IF  DESIRED  TO  COMPENSATE  CONTINUALLY 

REF 

1 

14 

.2052 

1 2065 

1 

TCF 

MONSTART 

CHANGE  BY  V21  N02  E XXXXX  E 00000  E 

REE 

A 

lA 

.2053 

1 ^0A7 

1 

.tCF 

ERFINAL 

REF 

4 

LAST 

38l 

lA 

.205A 

1 2770 

1 

TCF 

ENDTfST 

REF 

3 

LAST 

3Bl 

lA 

.2055 

55*512 

1 

IS 

EROPTN 

lA 

.2n56 

0 0004 

0 

INHINT 

REF 

1 

lA 

.2057 

3 56AA 

1 

CAF 

PR  I 021 

PRIORITY  1 higher  THAN  SXTNBIMJ 

REF 

10 

LAST 

325 

lA 

.2060 

0 5516 

0 

TC 

finovac 

REF 

16 

LAST 

380 

E5 

EBAN<= 

JCSM 

lA 

.2061 

O3IO5 

0 

2CADR 

RDR37511 

REF 

1 

lA 

.2062 

30065 

1 

1 A 

0 0003 

1 

RFLINT 

REF 

2 

LAST 

38l 

lA 

.206A 

0 20A7 

0 

TC 

ERFINAL 

REF 

3 

last  226 

LA 

.2065 

0 5026 

0 

M3NSTART 

rc 

finetime 

TIME  AT  INITIAi  MISALIGNMENT 

ref 

227 

LAST 

367 

lA 

.2066 

52  1A5 

0 

3XCH 

MPAC 

lA 

.2067 

0 0003 

1 

RELINT 

ref 

135. 

LAST 

lA 

.2070 

3 7767 

0 

,CAF  _ 

ZEROi 

ZERO  PIPA  COUNTERS 

REF 

5 

LAST 

360 

lA 

.2071 

5A  037 

1 

IS 

PlPAi 

REF 

3 

LAST 

360 

lA 

.2072 

5A  OAO 

1 

IS 

PIPAY 

REF 

4 

LAST 

360 

lA 

.2073 

5A  OAl 

0 

TS 

PIPAZ 

ref 

1 

lA 

.207A 

55'551 

0 

IS 

storepl 

REF 

1 

lA 

.2075 

55*537 

0 

IS 

NDXCTR 

REf 

1 

lA 

.2076 

0 2A77 

1 

rc 

storrslt 

STORE  T(INITIAl)  ANo  PIPAI  = 0 

lA 

.2077 

0 OOOA 

0 

INHINT 

REF 

1 

lA 

.2100 

3 3711 

0 

CAF 

60SEr 

INSURE  PIPAI  VARIES  IN  ONE  DIRECTION 

REF 

56 

LAST 

379 

lA 

.2101 

0 5663 

1 

IC 

WAITLIST 

REF 

17 

LAST 

381 

E5 

£BAN<= 

XSM 

lA 

.2102 

02106 

1 

7CADR 

PiPl 

REF 

1 

lA 

.2103 

30065 

1 

REF 

1 

lA 

.210A 

3 213A 

0 

CAF 

PIP2A0R 

REF 

6 

LAST 

307 

lA 

.2105 

0 5545 

0 

rc 

JOBSLEEP 

REF 

2 

LAST 

38l 

lA 

.2106 

3 2134 

0 

PIPl 

CAF 

PIPZADR 

re_f_ 

6 1 At;T  309 

lA 

.2107 

0 5551 

0 

TC 

JOBWAKE 

REF 

^^6 

LAST 

379 

lA 

.2110 

0 5727 

0 

rc 

TAS<nVER 

REF 

_i 

lA 

.2111 

31*542 

0 

PIP2 

CAE 

PIPNDX 

REf 

1 

lA 

.2112 

55*541 

1 

TS 

pipindex 

PO5I  PIPAY  P0S2  PIPAX  ?0S3  PIPAX 
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1A,2A06 

00000  1 
30356  1 
77616  0 

RVQ 

0 

tari 
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0266 

1A.2407 

6634'5 

0 

FRTHR\/SF 

OLOAO 

PDDI 

0267 

REF 

LAST 

357 

14,2910 

33105 

0 

ZEROnP 

PD24  = (SIN  -COS  0) (OMEG/MS) 

0268 

REF 

1 

14,2411 

02511 

0 

latitude 

02A9 

14,2412 

57546 

1 

ros 

DCOMP 

0270 

14,2413 

73525 

1 

5DDL 

SIN 

0271 

REF 

2 

LAST 

389 

14,2414 

02511 

0 

latitude 

EARTH  RATE  = .1504  ARCSEC  / 10  MSEC 

0272 

14l2415 

74266 

0 

Y_DEF  ^ 

YXSC. 

- 1.618  gyro  pulses  s 1 ARCSEC 

0273 

ref 

1 

14,2416 

31725 

0 

OMEG/MS 

OMEG/MS  s .243...  GYRO  PULSES  / 10  MSEC 

027A 

REF 

1 

14,2417 

02514 

0 

store 

ERv/ECTOR 

0275 

14,2420 

77634 

0 

RT6 

0276 

REF 

1 

14,2421 

33454 

1 

LOAOTIME 

0277 

REF 

2 

LAST 

383. 

. J4,_2422_ 

02565 

0 

STORE 

TMARk 

TIME  FOR  GYRO  DRIFT  - PIPA  SCAL-  FACTOR 

0278 

14,2423 

77616 

0 

RiVQ 

0279 

REF 

5 

LAST 

289 

14,2424 

0 5235 

0 

EARTHR 

tc 

MAcECADR 

CALCULATES  AND  COMPENSATES  EARTH  RATE 

0280' 

REF 

1 

14,2425 

55*547 

1 

IS 

3PLACES 

0281 

REF 

5 

LAST 

327 

14*2426 

0 4133 

1 

rc 

CHECxMM 

TEST  FOR  MAJOR  MODE  4 

02813 

14,2427 

00004 

0 

DCT 

4 

IS  prelAunch  Over  ? 

02815 

REF 

1 

14,^430 

1 2440 

1 

TCF 

J.ETPLJJM  ...  ... 

NO 

02817 

14,2431 

0 0004 

0 

INHINT 

YES, 

0282 

REF 

28 

LAST 

377 

14,2432 

3 7763 

1 

CA 

3IT1 

SET  UP  MP2TASK  NOW 

02823 

REF 

. 58 

LAST 

382 

14,2433 

0 5663 

1 

TC 

WAITLIST 

02825 

REF 

7 

LAST 

69 

E3 

EBAN<= 

TGRR* 

02827 

14,2434 

02003 

0 

2CADR 

MP2TASK 

C02827 

ref 

1 

14,2435 

56063 

1 

02828 

REF 

1 

14,2436 

3 2476 

0 

CA 

3.27CADR 

SET  UP  RETURN  TO  BYPASS  PRELAUNCH 

02829 

ref 

2 

LAST 

389 

14,2437 

55'547 

1 

rs 

3PLACES 

0283 

14,2440 

0 0006 

1 

oETPLTlM 

extend 

GET  current  time 

02833 

REF 

16 

LAST 

36^ 

14,2441 

3 0025 

0 

3CA 

TIME? 

02835 

REF 

228 

last 

38l 

14,2442 

52  145 

0 

DXCH 

MPAC 

028351 

14,2443 

0 0006 

1 

EXTEND 

028352 

REF 

229 

LAST 

389 

14,2444 

3 0145 

1 

DCA 

MPAC 

02836 

REF 

1 

14,2445 

53*562 

0 

3XCH 

TEMPtIME 

STORF  IN  TFMPTIMF  BEFORF  RFLINT 

02837 

14,2446 

0 0003 

1 

RELINT 

028374 

REF 

138 

LAST 

383 

14, 2A4i_ 

3 7767 

0 

CAF 

ZER3 

DECLARE  DP  MODE.  . . . 

028376 

REF 

1 

14,2450 

54  153 

1 

rs 

MODE 

02838 

REF 

13 

LAST 

387 

14,2451 

0 6112 

0 

rc 

INTPrET 

0285 

14,2452 

54725 

0 

OSJ 

SL 

0286 

REF 

3 

LAST 

389 

14,2453 

02565 

0 

TMARK 

T(PRES)  - T(PREV)  5 DT  SCALE3  10  MSEC 

0287 

14,2454 

20212 

1 

9D 

2 TO  21ST  POWER  = 1 REVOLUTION 

0288 

14,2455 

64361 

1 

/XSC 

MX(/ 

0289 

REF 

2 

LAST 

389 

14,2456 

02514 

0 

ERVErTOR 

VT  = (SIN  -COS  0) (OMEG/MS) (DT) 
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0290 

REF 

25  LAST 

387 

1.9,2957  _ 

_0290I  0 . 

XS_M  . {.XSM).(VT)  = EABIH  RATE  COMPENSATION 

0291 

19,2960 

77655  1 

yad 

0292 

ref 

1 

19,2961 

02772  1 

ERCOMP 

0293 

ref 

2 LAST 

39O 

„19,2_9tt2 

16772  1.  _ 

_ S.LDD.L.. 

ERiOMP...  . . . . 

0299 

REF 

2 LAST 

389 

19,2963 

02562  1 

TEMPTIME 

0295 

REF 

9 LAST 

389 

19,2969 

02565  0 

STORE 

TMARK  T(PREVIOUS) 

0296 

0297 


REF  3 LAST  390 


1A.2A65 

1A.2A66 


A7170 

02771 


AXT.l  RT3 
ECAOR  ERCOMP 


TO  PUT  OUT  gyro  TORUUING  PULSES 


0299 

0300 

REF 

95 

last:  3.07 

19.2970 

19.2971 

77776  1 
0 5206  0. 

EXIT 

rc  . 

bankcall 

0301 

ref 

9 

LAsT  386 

19,2972 

26751  0 

CAdR 

IMJ5TALL 

WAIT  FOR  pulses  TO  GET  OUT 

0302 

REF 

9 

LAST  386 

19,2973 

1 2770  1 

TCF 

ENDTEST 

0303 

REF 

3 

LAST  389 

19,2979 

_3_1.'_597.  0 

CAE  _ _ 

OPLACES 

0309 

ref 

12 

LAST  307 

19,2975 

1 5230  1 

TCF 

BANKUUMP 

03095 

REF 

2 

LAST..  66. 

i9,X9:?6 

72651.0 

3.27CAOR  ..cadr 

R£D3i.2.Z  - 

0305 

0306 

ref 

11  LAST 

386 

19,2977 

19,2500 

0 0006 
23*596 

1 

1 

STORRSLT  EXTEND 
3XCH 

QPLArE 

0307 

REF 

19  last 

389 

19,2501 

0 6112 

0 

TC 

InTPRET 

DP  Time  in  mpac  scaled  .312(5)  msec 

0308 

19,2502 

59390 

1 

LXC,1 

SL 

0309 

REF 

2 LAST 

3Bl 

19,2503 

02537 

1 

NDXCtR 

0310 

19,2509 

20209 

0 

3 

0311 

19,2505 

97005 

1 

3MP 

RTB 

0312 

ref 

I 

19,2506 

31723 

0 

SCALFTR 

0313 

REF 

2 LAST 

226 

19,2507 

33520 

0 

SGNAGREE 

0319 

REF 

29  last 

4 ^ 

19,2510 

06571 

1 

STORE 

GEN?L,1 

STORE  DP  time 

03  L5 

19,,2511 

77776 

1 

EXIT 

0316 

REF 

2 LAST 

381 

19,2512 

57*551 

1 

XCH 

STOREPL 

CONTAINS  C(PIPAl) 

0317 

REf 

3 last 

39O 

19,2513 

51*537 

1 

index 

NoXCtR 

0318 

REF 

30  LAST 

39O 

19,2519 

55*572 

1 

TS 

GENPL  +2 

STORE  PIPA  counter  READING 

0319 

REF 

9 LAST 

390 

19,2515 

9 1537 

0 

CS 

NDXCTR 

0320 

REF 

1 

19,2516 

6 3707 

1 

AD 

72DEr 

0321 

19,2517 

0 0006 

1 

EXTEND 

0322 

REF 

1 

19,2520 

6 3196 

1 

3ZMF 

MISAI  IGN 

TO  CALCULATE  MISALIGNMENT 

0323 

REF 

17  LAST 

379 

19,2521 

3 6311 

1 

:af 

THREE 

0329 

REF 

5 LAST 

39O 

19,2522 

27*537 

0 

ADS 

NDXCtR 

0325 

REF 

12  LAST 

39O 

19,2523 

0 1596 

1 

rc 

OPLACE 

0326  1A.252A  0 0006  1 O^TDATA  EXTEND 

0327  REF  13  L^sT  39°  19,2525  23*596  1 3XCH  DPLArE 


0328  REF  29  LAST  389 


:af 


CALLS  FOR  AZIMUTH  AND  ELEVATION  OF 
TARGET  1,  Then  target  2 


19,2526  3 7763  1 


BlTl 


AZIMUTH  CLOCKWISE  FROM  NORTH  TD  TARGET 


633«,36A 

yul 

SYSTEM  FOR  AGC: 

REVISION 

0 OF  program  BURST12D  SY 

NASA  202110fe-03l 

DEC  7,  1967  (MAIN)  PAGE  39l 

L 

IMJ 

performance  test 

5 1 

U5Er*S  own  page  no.  12  S3  E5 

0329 

_l4_i2ii27 

_ 22_  007  0 _ 

_ . 2L  _ _ 

Ei.E_VAILQN_  measured -FR0M_  HORIZONTAL 

0330 

REF 

1 

14,2530 

23'550  0 

lxch 

RON 

0331 

REF 

29 

LAST 

383 

14*2531 

54  341  0 

rs 

OSPTfMI  *2 

0332 

ref 

1 

14,2532 

__3  J675  0- 

_ _ V05Ns0£__ 

DISP4. AY.  TARGET  NUMBER  IN  R3 

0333 

REF 

35 

LAST 

383 

14,2533 

0 4657  1 

fc 

NVS3WAIT 

0334 

REF 

2 

LAST 

39l 

14,2534 

51*550  0 

index 

RON 

0335 

REF 

3- 

LAST 

38  7_ 

J.4  *2535 53 ' 55A 

DXCH 

TAZELL 

0336 

ref 

30 

last 

39l 

14,2536 

52  340  1 

DXCH 

OSPTEMl 

0337 

rEf 

1 

14,2537 

0 2577  -D 

TC 

CHECxLD.  . 

Rl  ♦-  XXX. XX  AZIMUTH  IN  DEGREES  _ _ 

0338 

14,2540 

00661  0 

3CT 

00661 

R2  ♦-  XX. XXX  ELEVATION  IN  DEGREES 

0339 

REF 

10 

LAST 

39O 

14*2541 

1 2770  1 

rCF 

ENDTEST 

R3  OOOOX  target  number  1 DR  2 

0340 

REF 

31 

LAST 

39I 

14*2542 

52  340  1 

DXCH 

DSPTfMi 

TAZELl  TARGET  1 AZIMUTH 

0341 

ref 

3 

1 AST 

39I 

14,2543 

51*550  0 

INqEx 

Ron 

0342 

REF 

4 

LAST 

39I 

14,2544 

531554  0 

_ ^ „ DXCH 

TAZEi'l 

TA7ELI  +2  TARGET  2 A7IMUTH 

0343 

REF 

4 

last 

39I 

14,2545 

11*550  1 

CCS 

RON 

0344 

14*2546 

1 2552  0 

TCF 

♦ 4 

0345 

REf 

44 

lAsI 

384 

14,2547 

3 7762  0 

O^TRnRIN  CAp 

- 

SPECIAL  ENTRY  FOR  RdR37511 

0346 

REF 

77 

last 

366 

14,2550 

54  001  1 

75 

L 

0347 

REF 

2 

LAST 

380 

14,2551 

1 2530  1 

tcf 

OPTDaTA  ,a 

MPAC  1ST  PASS  s 0 2ND  PASS  = 2 

0348 

REF 

14 

LAST 

39O 

14,2552 

0 1546  1 

TC  _ 

3PLACE 
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03A9 

„ J4i255_3 

6^545. 

1 

latazch<  oload 

Si-2 _ 

CALLS  FOR  AZIMUTH  (SM)  AND  LATITUDE 

0350 

REF 

3 

LAST 

389 

14,2554 

02511 

0 

TATItUDE 

0351 

REF 

32 

LAST 

39l 

14,2555 

14341 

1 

STOOL 

DSPTfMI  +1 

0352 

REF 

3 

LAST 

38? 

14,2556 

02507 

1 

AZIMUTH 

...NOT  really... 

0353 

14,2557 

77434 

1 

RTB 

EXIT 

035A 

REf 

1 

14,2560 

33522 

1 

1ST  02  s 

fraction  of  revolution  to  2s  complement 

0355 

REF 

230 

LAST 

389 

14,2561 

56  144 

0 

XCH 

MPAC 

AZIMUTH  MUST  BE  135  DEGREES  Rl  = *13500 

0356 

REF 

33 

LAST 

39“; 

14.2562 

54  337 

1 

IS  , 

dsptfml 

FOR  SXT-NB-IMU  FINE  ALIGNMENT  TEST 

0357 

REF 

2 

LAST 

39l 

14,2563 

0 2577 

0 

TC 

CHECvLD 

Rl  +-  XXX. XX  AZIMUTH  IN  DEGREES  (SM) 

0358 

14,2564 

00661 

0 

OCT 

00661 

R2  ♦-  XX. XXX  LATITUDE  IN  DEsREES 

0359 

REF 

11 

LAST 

39l 

14,2565 

1 UlO 

1 

ICF 

ENOTEST 

R3  NOT  USED 

0360 

REF 

15 

LAST 

39O 

14,2566 

0 6112 

0 

TC 

INTPRET 

0361 

__  14,_2_5^7 

__  47135 

0 

SLOAO 

_ RT3  

0362 

REF 

3A 

LAST 

392 

14,2570 

00340 

0 

OSPTfMI 

0363 

REF 

13 

LAST 

387 

14,2571 

33457 

1 

COJLOGIC 

BACK  TO  fraction  OF  REVOLUTION 

036A, 

ref 

4 

LAST 

392 

14.2572 

O250JZ 

1 

- 5J0RE_ 

AZIMUTH 

0365 

14,2573 

60535 

1 

SLOAD 

SR2 

0366 

rEf 

35 

LAST 

392 

14,2_5I4 

00341 

1 

OSPTcMl  +1 

0367 

REF 

4 

LAST 

392 

14,2575 

02511 

0 

STORE 

latitude 

0368 

14,2576 

77616 

0 

Rva 

0369  __ 

14.2577 

0 0006 

1 

CHECKLD  EXTEND 

0370 

REF 

1 

14,2600 

23*545 

1 

dxch 

dplac 

0371 

REF 

2 LAST 

392 

14,2601 

51*545 

1 

INDEX 

aPLAC 

0372 

REf 

236 

LAsT 

383 

14,2602 

3 0000 

1 

:A 

A 

0373 

REF 

4 

last 

307 

14,2603 

0 4444 

1 

TC 

NVSJR 

0374 

REF 

1 

14,2604 

1 2616 

0 

TCF 

CHECKLDl 

0375 

REF 

7 

LAST 

375 

14,2605 

0 4622 

0 

TC 

FLASHON 

0376 

REF 

25 

LAST 

380 

14,2606 

0 4475 

0 

rc 

ENDIDLE 

CHANGE 

Rl  V21  N61  E 

♦-  XXX. XX  E 

0377 

14,2607 

1 2612 

1 

TCF 

+ 3 

CHANGE 

R2  V22  N6l  E 

♦-  XX. XXX  E 

0378 

14,2610 

1 2614 

1 

TCF 

+ 4 

VERIFY 

lThen  proceed 

WITH  verb  33  ENTER 

0379 

ref 

3 

last 

392 

14,2611 

1 2601 

0 

TCF 

Checked  +2 

0380 

REF 

3 

LAST 

392 

14,2612 

51*545 

1 

INDEX 

3PLAC 

0381 

14,2613 

0 0001 

0 

TC 

1 

0382 

RtF 

4 

last 

392 

14,2614 

51*545 

1 

INDEX 

aPLAr 

0383 

14,2615 

0 0002 

0 

TC 

2 

0384 

REF 

1 

14 » 26 16 

3 2620 

1 

CHECKLDl  CAF 

CHECKLD2 

0385 

ref 

3 

last 

307 

14,2617 

0 4654 

1 

TC 

NVSJRUSY 

0386 

REF 

4 

LAST 

392 

14,2620 

30601 

0 

CHECKLD2  CAOR 

CHECi^LD  +2 
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5 1 

USER'S  OWN  page  no.  14 

S3  E5 

0387 

L4j262L_ 

0 JDQQt 

1 P3SNJJMP 

-EXTEND- 

£0SLTIQN5 -FOR  SXTNBLMU-  _ 

0388 

REF 

15 

LAST  39l 

IA.2622 

23*546 

1 

3XCH 

3PLACE 

0389 

rEf 

2 

LAsT  3B0, 

.1,4.2623 

51 *544 

0 

l-NO£iL 

pus-iton 

0390 

14.2624 

1 2625 

0 

rcF 

,-1 

0391 

ref 

12 

LAST  392 

14.2625 

1 2770 

1 

rcF 

ENOTEST 

0392 

REF 

1 

- 1^iZ626 

_ 1 2633_ 

1 

rcf 

PO-Sl  - 

0393 

ref 

1 

14,2627 

1 2640 

0 

rcF 

P0S2 

039A 

REf 

1 

14,2630 

1 2656 

1 

rcF 

P0S3 

0395 

REF 

1 

__L4j^631 

1_2677 

1 

rCF 

P054 

0396 

ref 

1 

14,2632 

1 2731 

1 

rcF 

P0S5 

■ 0397 
0398 

REF 

ref 

99 

3 

LAST  383 
LAST  -382  - 

14,2633 
- -1-4,2634 

3 7763  1 P3S1 
55*542  1 

:af 

TS 

ONE 

PlP-Nnx 

XSM  = V 

YSM  = 

SW  ZSM  = SE 

0399 

REF 

45 

LAST  391 

14,2635 

3 7762  0 

:af 

TWO 

0400 

REF 

4 

last  393 

14,2636 

55*543  0 

ts 

PIPNDX  +1 

MONITOR 

PIPAY  AND 

PIPAZ 

0401 

REF 

16 

LAST  -353  - 

14,2637 

0 1546  1 - - 

rC- 

SPLArF 

0402 

REf 

16  lAsT 

392 

14,2640 

0 6112 

0 P3s2 

IC 

INTprET  XSM  = sE  YSM  = 

SW  ZSM  = -v/ 

0403 

14,2641 

57575 

1 

VLOAO 

VCOMP 

0404 

REF 

26  LAST 

390 

14,2642 

02401 

0 

XSM 

0405 

14,2643 

77715 

1 

9DVL 

0406 

REF 

3 LAST 

351 

14,2644 

02415 

0 

ZSM 

0407 

REF 

27  LAST 

393 

14.2645 

26401 

0 

STOVL 

XSM 

0408 

14,2646 

77626 

0 

STADR 

0409 

REF 

4 LAST 

393 

14,2647 

75362 

1 

STORE 

ZSM 

0410 

14,2650 

77776 

1 

EXIT 

0411  - 

REF 

1D9  LAST 

389 

14,2651 

3 7767 

0 

CAF 

ZERO 

0412 

ref 

5 LAST 

393 

.14,2652 

55*542 

1 

TS 

PlPNoX 

0413 

ref 

130  LAST 

393 

14,2653 

3 7763 

1 

CAF 

ONE 

0414 

ref 

6 last 

393 

14,2654 

55*543 

0 

TS 

PlPNnX  +1  MONITOR  PiPAX  AND 

PIPAY 

0415 

REF 

17  LAST 

393 

14,2655 

0 1546 

1 

TC 

OPLArE 

0416 

ref 

17 

LAsT 

393 

14,2656 

0 6112 

0 p0s3 

TC 

INTPRET 

XSM  = SE 

YSM  = V 

ZSM  = SW  . . 

0417 

14,2657 

63375 

0 

VLOAO 

PDVL 

0418 

REF 

28 

LAST 

393 

14,2660 

02401 

0 

XSM 

0419- 

REF 

- 6- 

last 

385 

14.2661 

02407 

0 

YSM 

0420 

14,2662 

77715 

1 

5DVL 

0421 

REF 

5 

LAST 

393 

14,2663 

02415 

0 

ZSM 

0422 

REF 

29 

LAST 

393 

14,2664 

26401 

0 

STOVL 

XSM 

0A23  IA.2665  77626  0 STADR 

OA2A  REF 6 LA.9T  393 IA.2666  S1362  1 aTOVL  ZsM 
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0425 

14.2667 

77626 

0 

STADR 

0426 

REF  7 LAST  393 

14,2670 

75370 

1 

store 

YSM 

0427 

14,2671 

77776 

1 

EXIT 

0428 

REF  110  LAST  393 

14.2672 

3 7767 

0 

CAF 

ZERO' 

0429 

REF  7 LAST  393 

14,2673 

55*542 

1 

rs 

pipmdx 

0430 

REF  46  last  393 

14,2674 

3 7762 

0 

CAF 

Two 

0431 

RE^  8 last  3.9 a . 

14,2675 

55.' 54.3. 

0 

rs 

.PXE11SX-+1--  .MONITOR  PIPAX  ANq  PIP.A2  . ..  _....... 

0432 

REF  18  LAST  393 

14,2676 

0 1546 

1 

rc 

OPLACE 

0433 

ref 

15 

LAsT 

322 

14 

,2677 

3 7757 

0 PO54 

:af 

3IT5 

OPTION  TO  align  $M  TO  SPECIFIER  ANGLES 

0434 

REF 

3 

last  384 

14,2700 

_6  0JL1.0. 

1 

AD 

FIXLnC 

0435 

REF 

4 

LAST 

394 

14 

,2701 

50  110 

1 

INDEX 

FiXLnC 

0436 

REF 

11 

LAST 

384 

14 

,2702 

54  050 

0 

T5 

Si 

BASE  ADDRESS  GIMBAL  ANGLES 

0437 

REF- 

1 

14 

,2703 

3 3701 

1 

CAF 

V25N?2E 

Rl  ♦-  XXX. XX  OUTER  GIMBAL  ANGLF 

0438 

REF 

36 

last 

39l 

14 

,2704 

0 4657 

1 

rc 

NVSBWAIT 

R2  ♦-  XXX. XX  INNER  GIMBAL  ANGLE 

0439 

REF 

26 

LAST 

392 

14 

,2705 

0 4475 

0 

rc 

ENDIOLE 

R3  ♦-  XXX. XX  MIDDLE  GIMBAL  ANGLE 

0440 

REF 

13 

LAST 

.S_93 

14 

,2706 

.1.2770. 

1.  

rcF 

ENDTESI 

0441 

14 

,2707 

1 2703 

0 

rcF 

-4 

0442 

REF 

8 

LAST 

363 

14 

,2710 

3 0400 

0 

CA 

THETAD 

SET  UP  Angles  for  smnb 

0443 

REF 

5 

LAST 

394 

14 

,2711 

50  110 

1 

INDEX 

FlXLnC 

0444 

14 

,2712 

54  024 

0 

TS 

24 

0445 

REF 

. 9 

LAST 

394 

14 

,2713 

3 0401 

1 

CA 

THETaD  .1 

0446 

REF 

6 

LAST 

394 

14 

,2714 

50  110 

1 

INDEX 

FlXLOC 

0447 

14 

,2715 

54  020 

1 

rs 

20 

0448 

REF 

10 

LAST 

394 

14 

,2716 

3 0402 

1 

CA 

THETAD  +2 

0449 

ref 

7 

LAST 

394 

14 

.2717 

50  110 

1 

INDEX 

FIXlIOC 

0450 

14 

,2720 

54  022 

0 

TS 

22 

0451 

REF 

Ifl 

LAST 

393 

14 

.2721 

0 6112 

0 

TC 

INTPRET 

0452 

14 

,2722 

45034 

1 

RTB 

CALL 

0453 

REF 

1 

14 

,2723 

33031 

0 

TRAN.SPSE 

EARTH  REF  WRT  NAV  BASE 

0454 

REF 

1 

14 

,2724 

33043 

0 

SMD/FREF 

STABLE  MEMBER  DESIRED  WRT  EARTH'  REF 

0455 

14 

.2725 

1T7634 

0 

RTB 

0456 

REF 

2 

LAST 

394 

14 

,2726 

33031 

0 

TRANSPSE 

BACK  TO  NAV  BASE  WRT  TO  EARTH  R£F 

0457 

14 

,2727 

77776 

1 

EXIT 

0458 

REF 

19 

LAST 

394 

l4 

,2730 

0 1546 

1 

rc 

DPLACE 

633i,36A  YUL  SYSTEM  FOR  AGC:  REVISION  0 OF  PROGRAM  BURST123  BY  NASA  2n21106-031 
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L 

IMJ 

performance 

TESTS  1 

USER’S  OWN  PAOE  NO.  16  S3  E5 

0^59 

REF 

20 

LAST 

394 

^ „ 14,2731 

3 aS46_ 

a P.355 

TA 

OPLACE  

OPIlDN  TO  ALIGN  SM  TO  ANY  ORIENTATION 

0A50 

REF 

3 

LAST 

390 

14.2732 

55'551 

0 

rs 

STORFPL 

WRT  EARTH  REFERENCE  FRAME 

0461 

ref 

3 

LAS-T 

39 1 

14,27.33 

0 .2524 

_a 

rc 

OPTOATA 

load  YSM  And  zsm.  azimuth  And  El-vation 

0462 

REF 

19 

LAST 

394 

14,2734 

0 6112 

0 

TC 

INTPRET 

0463 

14,2735 

77624 

A 

call 

0464 

REF 

2 

LAST 

384 

14,2736 

30350 

1 

TAS/EREF 

CALC  YSM  AND  ZSM  WRT  EARTH  REF.  FRAME 

0465 

14,2737 

41575 

0 

VLOAO 

PUSH 

0466 

14.2740 

nnn07 

0 

6D 

0467 

ref 

8 

LAST 

394 

14,2741 

02407 

0 

store 

YSM 

0468 

14,2742 

76435 

1 

vxv 

V5L1 

0469 

. 14.2743 

0JD015. 

0 

120 

0470 

REF 

30 

LAST 

393 

14,2744 

02401 

0 

store 

XSM 

XSM  = (YSM)  X (ZSM) 

0471 

14,2745 

76435 

1 

■ vxv 

VSLl 

0472 

14,2746 

77626 

5TADR 

0473 

REF 

7 

LAST 

393 

14,2747 

75362 

1 

store 

ZSM 

ZSM  = (XSM)  X (YSM) 

0474 

14,2750 

77776 

1 

EXIT 

OA75  REF  A LAST  39P 


lAt2751  0 1551  1 


TC 


STORrPL 
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L 

0A76 

IMJ 

Performance 

TESTS  1 

. J.Aj_2.752 

0 0006 

1 

OoCZERO 

-XT£,\IO 

USERtS  OWN  PAGE  NO.  17 
ZERO  earth  RATE  TORQUING  ANGLES 

S3  E5 

0A77 

REF 

21 

LAST  395 

14,2753 

23*546 

1 

3XCH 

OPLArE 

OWi 

ref 

20 

last  - 3_95 

14i215_4_ 

0 _6112 

0 

rc 

aNl?u£’L-  - 

0A79 

14,2755 

77775 

1 

(/LOAD 

OAeO 

REF 

5 

last  389 

14,2756 

33105 

0 

ZEROnP 

VECTOR  IN  THIS  CASE 

OAbI 

ref 

A 

LAST  39O 

14,2757 

02772 

1 

STORE 

ERCOMP 

0A82 

14,2760 

77776 

1 

EXIT 

0A83 

REF 

22 

LAST  396 

14,2761 

0 1546 

1 

rc 

OPLACE 

04b4 

0485 

REF 

ref 

23 

45 

LAST 

LAST 

322 

333 

14,2762 

_14,_2J63 

3 

7_ 

7756 

0326_ 

1 

1 

gmlc<ch<  caf 

MAS< 

3176 

DSPTaB_ 

check  for  GIMBAL  lock  (M<jA  greater  70) 

0486 

14,2764 

0 

0006 

1 

EXTEND 

0487 

19.2765 

1 

2767 

1 

3ZF 

+ 2 

0488 

REF 

14 

LAST 

394 

14,2766 

1 

2770 

1 

TCF 

ENDTfST 

0489 

REF 

154 

LAST 

38A 

14,2767 

0 

0002 

0 

TC 

0 

0490 

REF 

7 

LAST 

138 

14,2770 

3 7754 

0 ENDTEST 

:a 

IMJSfFLG 

BITS 

0491 

REF 

4 

LAST 

177 

19,2771 

6 7755 

1 

AD 

RRJSEFLG 

BIT7 

0492 

REF 

237 

LAST 

392 

19,2772 

4 0000 

0 

cs 

A 

0493 

19,2773 

0 0004 

0 

INHINT 

0494 

REF 

29 

last 

383 

14,2774 

7 0074 

0 

MAS< 

STATF 

0495 

REF 

30 

LAST 

396 

14,2775 

54  074 

0 

TS 

STATE 

0496 

REF 

8 

LAST 

327 

14,2776 

0 4117 

1 

rc 

NEWMODEX 

0497 

19,2777 

00000 

1 

OCT 

00000 

0498 

REF 

46 

LAST 

390 

19,3000 

0 5206 

0 

TC 

3AN<CALL 

0499 

REF 

3 

LAST 

383 

19,3001 

27046 

0 

CADR 

VKREl  EAS 

release  mark  system 

0500 

REF 

13 

LAST 

376 

19,3002 

0 5566 

1 

TC 

EJFREE 

533<t36A  YUL  SYSTEM  FOR  AQC:  REVISION  0 OF  PROOKAM  BURST12D  BY  NASA  202110h-03l 


DEC  7,  1967  (MAIN)  PASE  397 


L iMj  Performance  tests  i 


USER'S  OWN  PACE  NO.  16  S3  E5 


0502 

14,3004 

57575  1 

i/LOAO 

V/COVIP 

_ 

0503 

REF 

2 

LAST 

350 

14,3005 

33101  1 

YJNIT 

0504 

REF 

2 

LAST 

346 

14,3006 

02437  0 

STORE 

ZNB 

XNB  MATRIX  USED  IN  CALC6A 

0505 

REF 

31 

LAST 

385 

14,3007 

26461  0 

5T0VL 

STARaD  +12D 

STARAD  Matrix  used  in  axisgen  k smdcalc 

0506 

REF 

2 

LAST 

,3S0  ___ 

. L4,3_0LQ 33103  0 - 

XJNIT  . . „ 

0507 

REF 

LAST 

346 

14,3011 

02423  0 

STORE 

XNB 

"XNB*  *1  0 0*  *V* 

0508 

ref 

32 

LAST 

39_L 

14.3012 

^6445,0 

sTO.v'l 

STARAD, 

Ik  H H ik  Ik  Ik 

0509 

ref 

2 

LAST 

350 

14,3013 

33077  1 

ZJNIT 

*YNB»  = *0  0 1*  *S» 

0510 

ref 

2 

LAST 

346 

14,3014 

02431  0 

store 

YN3 

* 

0511 

REF 

33_ 

LAST 

3_9T  _ 

14,3015 

02453  1 

store 

STARaD  +6 

*ZNB*  40  -1  04  4E4 

0512 

14,3016 

77776  1 

EXIT 

0513 

ref 

3 

LAST 

393 

14,3017 

4 1544  1 

:s 

POSIJON 

0514 

ref 

18 

LAsT 

390 

14,3020 

6 6311  1 

AD  . 

Three 

0515  • 

14,3021 

0 0006  1 

EXTEND 

0516  . 

14,3022 

1 3024  0 

3ZF 

♦ 2 

0517 

ref 

1 

14,3023 

1 3037  1 

rcF 

LEMLABl 

0518 

REF 

22 

LAS.T 

397 

14,3024 

0 6112  0 

rc 

INTPRET 

0519 

14,3025 

57575  1 

YLOAO 

v/COMP 

0520 

REF 

5 

LAST 

397 

14,3026 

02423  0 

XNB 

0521 

14,3027 

77715  1 

=DYL 

4XNB4  40  -1  04  4V4 

0522 

ref 

3 

LAST 

397 

14,3030 

02437  0 

ZNB 

ik  * Ik  ik  n * 

0523 

ref 

6 

LAST 

397 

14,3031 

02423  0 

STORE 

XNB 

4YNB4  =40  0 l4  4S4 

0524 

ref 

34 

LAST 

397 

14,3032 

26445  0 

STOVL 

STARaD 

Ik  Ik  Ik  Ik  Ik  ik 

052  5 

14,3033 

77626  0 

STADR 

4ZNB4  4-1  0 04  4 4 

0526 

ref 

4 

LAST 

397 

14,3034 

75340  1 

STORE 

ZNB 

0527 

REF 

35 

LAST 

397 

14,3035 

02461  0 

STORE 

STARaD  +12D 

0528 

14,3036 

77776  1 

EXIT 

0529 

REF 

47. 

LAST 

396 

14,3037 

0 5206  0 LEMLABl 

rc 

BANZCALL 

0530 

ref 

10 

LAsT 

390 

14,3040 

26751  0 

:adr 

IMJ5TALL 

INSURE  IMUZERO  COMPLETION 

0531 

ref 

15 

LAST 

396 

14,3041 

1 2770  1 

TCF 

ENOTEST 

0532 

REF 

2 

LAST 

380 

14,3042 

0 2621  0 

TC 

POSNJUMP 

SET  UP  stable  member  DESIRED  COORDINATES 

0533 

REF 

10 

LAST 

3Bl 

14,3043 

0 A72A  1 

TC 

FREEDSP 

FREE  DISPLAY  SYSTEM 

0534 

REF 

2 

LAST 

380 

14,3044 

0 2247  1 

rc 

PUTPOSX 

TO  coarse  ALIGN  STABLE  MEMBER 

0535 

ref 

2 

last 

3fiO 

14,3045 

0 2762  0 

TC 

GMLCKCHK 

0536 

REF 

46 

LAST 

397 

14,3046 

0 5206  0 

rc 

BAN<rALL 

0537 

REF 

3 

LAST 

380 

14,3047 

26252  0 

;aor 

IMJFINE 

FINE  ALIGN  MODE 

0538 

REF 

49 

LAST 

397 

14,3050 

0 5206  0 

rc 

BANZrALL 

0539 

REF 

11 

LAST 

397 

14,3051 

26751  0 

CAOR 

IMJSTALL 

0540 

REF 

16 

LAST 

397 

14,3052 

1 2770  1 

rCF 

ENDTEST 
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L 

IMJ 

performance  ' 

TESTS  1 

USER'S  OWN  PACE  NO.  19  S3  E5 

D5AI 

REF 

12  .LAST 

36° 

..J.9j.3_033... 

_3.  0032 

0 

TA 

CD.JX  . 

05A2 

REF 

8 last 

399 

19,3059 

50  110 

1 

index 

FiXLnC 

05A3 

19,3055 

59  029 

0 

IS 

29 

05AA 

ref 

10  LAST 

36° 

. J 9, 3 0.5 6. 

3 0033 

1 

..:.A  . .. 

CDOY . 

05A5 

REF 

9 LAST 

398 

19,3057 

50  110 

1 

index 

FIXLnC 

05A6 

19,3060 

59  020 

1 

TS 

20 

0597 

REF 

_ e. LAST 

360 

.19.306L 

3 0039 

.0 

. :a 

C.OJZ 

0598 

REF 

10  LAST 

39H 

19,3062 

50  110 

1 

INDEX 

FiXLnC 

0599 

19,3063 

59  022 

0 

TS 

22 

0550 

REF 

16  LAST 

399 

19,3069 

3 7757 

0 

CAF 

BIT5 

0551 

REF 

11  LAST 

398 

19,3065 

6 0110 

1 

AD 

FIXLOC 

. 0552 

REF 

12  LAST 

398 

19,3066 

_5_Q  110 

1 

INDEX 

FIXLOC 

0553 

REF 

12  LAST 

399 

19,3067 

59  050 

0 

TS 

5l 

0559 

REF 

2 LAST 

38l 

19,3.0.70 

0.2263 

1 

tc 

SMOCaLC 

TO  FINE  ALIGN  stable  MEMBLR 

0555 

REF 

23  last 

997 

19,3071 

0 6112 

0 

TC 

INTPRET 

IF  earth  rate  compensation  desired 

0556 

19,3072 

77639 

0 

R.TB 

0557 

REF 

2 LAST 

389 

19,3073 

33959 

1 

lIOAOTlME 

0558 

ref 

5 LAST 

39O 

19,3079 

02565 

0 

STORE 

TMARK 

053.9  _ 

19,3075 

77776 

1 

EXIT 

0560 

REF 

9 LAST 

38l 

19,3076 

9 1512 

1 

CS 

EROPtN 

0561 

97  1 A<;T 

399 

19,3077 

6 7762 

0 

Ad 

TrtD 

0562 

19,3100 

0 0006 

1 

EXTEND 

0563 

19,3101 

1 3103 

1 

3ZF 

+ 2 

056A 

REF 

3 last 

381 

19*3102 

1 2051 

0 

TCF 

ERFImAL  +2 

0565 

REF 

50  last 

397 

19,3103 

0 5206 

0 

TC 

BAN<rALL 

0566 

REF 

1 

19,3109 

97236 

0 

CADR 

samodrtn 

RETURN  TO  SEMI-AUfOMAfiC  MODINo  TfST 

633936A 

YUL 

SYSTEM  FOR  AGC: 

REVISION 

0 OF  PROGRAM  BURST120  BY  NASA  2021106-031 

DEC  7»  1967  (MAIN)  PAGE  399 

L 

IMJ 

Performance  tests  i 

USER'S  OWN  page  NO.  20  S3  E5 

0567 

REF 

1 

19,3105 

3 37  L7 

RORT?*;!!  CAF 

_aOR.R£T_N_.  . . 

..rendezvous  radar  and  antenna  traccing. 

0568 

REF 

23  LAST 

396 

19,3106 

55*596 

0 

rs 

3PLACE 

TO  RETURN  FROM  OPTOATA 

0569 

REF 

51  last 

_3R8  _ 

a9j3i07- 

0 5^0A 

0 . 

rc 

BANCrALL 

0570 

REF 

2 LAST 

203 

19,3110 

20250 

1 

CAOR 

RRZERO 

0571 

REF 

52  LAST 

3R9 

19,3iU 

0 5206 

rc. 

.BA'KCALL 

0572 

REF 

2 LAST 

207 

19,3112 

22760 

0 

CAOR 

AJRLnKON 

OPERATOR  DECISION  TO  LOCK  ON  OR  NOT 

0573 

REF 

1. 

_L9a3J.L3_ 

A 2597 

1 

R3R1  rCF 

OPTRriRlN 

CALL  FOR  AZIMUlH  AND  ELEVATION 

0579 

REF 

53  LAST 

399 

19,3119 

0 5206 

0 

rc 

BA\l<rALL 

0575 

ref 

3_  LASX. 

203 

19,3115 

26795 

0 

:aor 

RAOSTALL 

0576 

REF 

51  LAST 

329 

19,3116 

1 5567 

1 

rcF 

ENODfJOB 

0577 

ref 

29  last 

398 

19,3U7 

0 6112 

0 

TC 

INTPrET  ..  _ 

0578 

19,3120 

77170 

1 

AXT.l 

AXT  ,2 

SET  UP  XI  and  X2  for  TAR/EREF 

0579 

19,3121 

00000 

1 

0 

0580 

19,3122 

00006 

1 . 

6 

0581 

19,3123 

77629 

1 

CALL 

0582 

REF 

3 LAST 

395 

19,3129 

30353 

1 

TAR/fREF  +3 

line-of-sight  wrt  earth  ref  frame 

0583 

19,3125 

.69375 

1 

VLOAO 

MXV 

0589 

19,3126 

00015 

0 

12D 

LINE-OF-SIGHT  WRT  EARTH  REF  FRAME 

0585 

REF 

31  LAST 

395 

19,3127 

02901 

0 

XSM 

TO  stable  member  present  frame 

0586 

19,3130 

77772 

0 

VSLl 

05  87, 

REF 

9 LAST 

183 

19,3131 

39915 

0 

STCALL 

RRTArGET 

0588 

REF 

1 

19,3132 

20307 

1 

RROESSM 

0589 

REF 

1 

19,3133 

1 3190 

0 

rcF 

37511ALM 

0590 

REF 

59  LAST 

399 

19,3139 

0 5206 

0 

rc 

BAN<rALL 

0591 

REF 

9 LAST 

399 

19,3135 

26795 

0 

CAOR 

RAOStALL 

0592 

REF 

52  LAST 

399 

19,3136 

1 5567 

1 

TCF 

ENDOFJOB 

0593 

REF 

53  LAST 

399 

19,3137 

1 5567 

1 

TCF 

ENOOfJOB 

0599 

ref  33  LAST  37° 

19,3190 

0 4755  1 

37511ALM  rC 

ALARM 

0595 

19,3191 

00529  1 

.3CT 

529 

0596  REF  59  LAST  399  14,3192  1 5567  1 ' fCF  ENOOFJOB 


0597  REF  111  LAST  399  19,3193  9 7767  1 R3RINIT  ZS  ZERO 

0598  REF  5 LAST  398  19,3199  55<512  1 TS  ERORTN 

0599  REF  2 LAST  210  19,3195  1 2002  0 TCF  AQTMrIMU  *2 


633<,36A  YUL  system  FOK  «GC:  revision  0 OF  program  BURST12D  BY  NASA  2021106-031 


DEC  7,  1967  (MAIN)  PAGE  AOO 


L IMJ  performance  tests  1 USER'S  OWN  PAGE  NO.  21  S3  E5 


0600 

RFF 

lA 

LAST 

JX5 

_l4t3J_46 0.  464„4 

0 MISALIGN 

. lC  _ 

GRA3WAIJ.  _ 

DISPLAY  SYSIELM  WAS  FREED 

0601 

REF 

112 

LAST 

399 

14,3147 

3 7767 

0 

CAF 

2ER0 

0602 

REF 

6 

LAST 

390 

14,3150 

55*537 

0 

rs 

NDXCTR 

Ofe03 

REF 

7 

LAST 

AOO 

14.3151 

51*537 

1 B3BB 

INDEX 

NDXCtR 

060A 

REF 

31 

LAsT 

390 

14,3152 

4 1674 

1 

CS 

GENPL  +68D 

0605 

REF 

8 

LAST 

400 

14,3153 

51*537 

1 

INDEX 

NDXCTR 

0606 

REF 

3? 

LAST 

400 

14,3154 

27*702 

1 

ADS 

GENPL  +74D 

0607 

REF 

1 

14,3155 

3 3705 

0 

CAF 

63DEC 

0608 

ref 

9 

LAsT 

400 

14,3156 

6 1537 

1 

Ad 

Ndxctr 

0609 

REF 

2_09 

LAST 

396 

14,3157 

10  000 

0 

CCS 

A 

0610 

REF 

19 

LAST 

39T 

14,3160 

4 6311 

0 

CS 

THREE 

0611 

REF 

10 

LAST 

400 

14,3161 

27*537 

0 

ADS 

NDXCTR 

06_1? 

ref 

1 

14,3162 

1 3151 

0 

ICF 

BBB3 

0613 

REF 

11 

LAST 

400 

14,3163 

55*537 

0 

TS 

NDXCTR 

0614- 

REF 

25 

LAST 

399 

14,3164 

0 6112 

0 

cccc  tc 

INTPRET 

0615 

14,3165 

70750 

1 

-XA,1 

OLOAD*  . . 

0616 

ref 

12 

LAST 

400 

14,3166 

02537 

1 

NDXCTR 

0617 

REF 

33 

LAST 

400 

14,3167 

02701 

0 

GENPL  +72D,1 

0618 

14,3170 

77625 

0 

osu 

0619 

REF 

34 

LAST 

400 

14,3171 

02571 

0 

GENPL 

0620 

REF 

35 

LAST 

400 

14,3172 

06701 

1 

STORE 

GENPL  +72D,1 

0621 

14,3173 

77776 

1 

EXIT 

0622  . 

REF 

13 

LAST 

400 

14,3174 

4 1537 

0 

CS 

NDXCtR 

0623 

REF 

1 

14,3175 

6 3706 

0 

AD 

690EC 

0624 

REF 

209 

LAST 

400 

14,3176 

10  000 

0 

CCS 

A 

0625 

REF 

20 

last 

400 

14,3177 

3 6311 

1 

CAF 

THRFF 

0626 

REF 

14 

LAST 

400 

14,3200 

27*537 

0 

ADS 

NDXCTR 

0627 

REF 

1 

14.3201 

1 3164 

0 

TCF 

CCCC 

0628 

REF 

5 

LAST 

39l 

14,3202 

55*550 

1 

rs 

RJN 

0629 

REF 

21 

LAST 

400 

14,3203 

3 6311 

1 

CAF 

ThREf 

0630 

REF 

15 

LAST 

400 

14,3204 

55*537 

0 

TS 

NDXCtR 

0631 

rEF 

26 

LAST 

o 

a 

14,3205 

0 6112 

0 

DDDD 

TC 

I NT  PrET 

0632 

14,3206 

77775 

1 

vload 

0633 

REF 

6 

LAST 

396 

14.3207 

33105 

0 

ZEROnP 

0634 

14,3210 

00031 

0 

store 

24D 

0635 

14,3211 

00037 

0 

STORE 

300 

0636 

14,3212 

77735 

0 

SLOAD 

0637 

ref 

1 

14,3213 

31703 

1 

llDEr 

0638 

14,3214 

00041 

1 

STORE 

320 

0639 

14,3215 

77776 

1 

EXIT 

0640 

ref 

27 

LAST 

o 

o 

14,3216 

0 6112 

0 

DDDDl 

TC 

INTPdET 

0641 

14,3217 

70750 

1 

LXA,1 

OLOAn** 

0642 

R^F 

16 

LAST 

“40T5 

14,3220 

02537 

1 

NDXCtR 
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L 

IMJ 

performance  ' 

TESTS  1 

USER'S  Own  page  no.  22  S3  E5 

06A3 

ref 

36  LAST  aOO 

_ 027-0-1 

0 

.SE-NRL  *72D«J. - - - 

06A4 

14,3222 

41423 

1 

3SJ» 

PUSH 

06A5 

ref 

37  LAST  401 

14,3223 

02673 

1 

3£N?|  +66D 1 1 

06A6 

14,3224 

42742 

J2 

SRI 

DAD  8 

06A7 

REF 

38  last  401 

14,3225 

02673 

1 

GENPI  +66D,1 

06A8 

REF 

39  LAST  401 

14,3226 

06701 

1 

STORE 

GENPl  +72D,1 

06A9 

14,3227 

43312 

0 

SL2 

DAD 

0650 

14,3230 

00031 

0 

240 

065  L 

14.3231 

20031 

_1 

„ STODLt  24D  _ _ 

0652 

ref 

40  LAST  401 

14,3232 

02701 

0 

GENPI  +72D,1 

0653 

14,3233 

63412 

0 

SL4 

DSD 

065A 

14,3234 

77615 

0 

3AD 

0655 

14,3235 

00033 

1 

26D 

0656 

14,3236 

00033 

1 

STORE 

260 

0657 

14,3237 

77776 

JL 

EXIT 

0658 

ref 

6 LAST  400 

14,3240 

31 '550 

0 

CAE 

RUN 

0659 

ref 

17  last  4OO 

14*3241 

6 1537 

1 

AD 

NDXC^R 

0660 

14,3242 

4 0000 

0 

'DM 

0661 

ref 

2 LAST  400 

14,3243 

6 3705 

0 

AD 

63DEC 

0662 

REF 

210  LAST  400 

14,3244 

10  000 

0 

CCS 

A 

0663 

REF 

9 LAST  273 

14,3245 

3 6306  1 

CAF 

Six 

066A 

REF 

18  LAST  401 

14,3246 

27'537 

0 

ADS 

NDXCtR 

0665 

.REF 

1 

14,3247 

1 3216 

0 

TCF 

DDOD1 

0666 

ref 

7 lAsT  401 

14,3250 

6 1550 

0 

AD 

Run 

0667 

REF 

19  LAST  401 

14,3251 

55»537 

0 

T5 

NDXCtR 

0668 

rEf 

28  last 

400 

14,3252 

0 6112 

0 EEEE 

rc 

INTPRET 

0669 

14,3253 

66740 

1 

.XC,1 

SLOAnt 

0670 

REF 

20  last 

401 

14,3254 

02537 

1 

NDXCTR 

0671 

ref  - 

41  LAST 

401 

14,3255 

02604 

1 

GENPI  +110,1 

0672 

14,3256 

00043 

0 

store 

34D 

0673 

14,3257 

77745 

1 

dload 

0674 

14,3260 

54206 

1 

push 

SL 

0675 

14,3261 

20211 

1 

8D 

0676 

14,3262 

43265 

1 

3D0V 

DAD 

0677 

14,3263 

00043 

0 

34D 

0678 

14,3264 

00035 

1 

26J? 

0679 

14,3265 

14035 

1 

stool 

28D 

0680 

14,3266 

55261 

1 

SL 

BODY 

0661 

14,3267 

20207 

0 

6 

0682 

14,3270 

00043 

0 

340 

0683 

14,3271 

42523 

0 

PD0L8 

SL4 

0684 

REF 

42  last 

401 

14,3272 

02602 

1 

GENPi"  +9D,1  - - - - - - 

0685 

14,3273 

77605 

1 

DMP 

0666 

14,3274 

77615 

0 

DAO 

0667 

14,3275 

00037 

0 

30D 

0668 

14,3276 

00037 

0 

STORE 

30D 
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L 

0689 

IMJ 

performance  tests  1 

IAl3277 

7.7776. 

L 

-XJ.T 

USER'S  Own  page  no.  23 

S3  E5 

0690 

REF 

21 

LAST  AOl 

14,3300 

4 1537 

0 

:s 

NDXCTR 

0691 

ref 

1 

14,3301 

6 3704 

1 

AD 

60DEC 

0692 

ref 

8 

LAST  AOl 

_ _14_,i302 

6 1550 

0 

AD. 

RUN 

0693 

REF 

211 

LAST  AOl 

14,3303 

10  000 

0 

CCS 

A 

069A 

REF 

10 

LAST  AOl 

14,3304 

3 6306 

1 

CAF 

SIX 

■0695 

REF 

22 

LAST  A02 

14i3303 

2.7*5.37 

0 

ADS 

NDXCtR 

0696 

REF 

1 

14,3306 

1 3252 

0 

TCF 

FEEE 

0697 

REF 

29  LAST 

40l 

14,3307 

0 6112 

0 

TC 

INTPrET 

0698 

14,3310 

41345 

0 

DLOAD 

DMP 

0699 

14,3311 

00031 

0 

240 

0700 

14,3312 

00037 

0 

30D 

070L 

14,3313 

41325 

0 

3DDL 

DMP 

0702 

14,3314 

00033 

1 

260 

0703 

14,3315 

00035 

1 

28D 

0704 

14,3316 

77625 

0 

DSU 

0705 

14,3317 

63525 

0 

3DDL 

DSO 

0706 

14,3320 

00031 

0 

240 

..  Q101_. 

14,3321 

65342 

1 

SRI 

PDDL 

0708 

14,3322 

00041 

1 

320 

0709 

14,3323 

41261 

1 

SL 

DMP 

0710 

14,3324 

20212 

1 

11 

0711 

14,3325 

00033 

1 

260 

0712 

14,3326 

55225 

1 

DSJ 

BODY 

0713 

14,3327 

54205 

1 

DMP 

SL 

0714 

REF 

1 

14,3330 

31716 

0 

<<<< 

0715 

14,3331 

20204 

0 

3 

0716 

REF 

9 LAST 

300 

14,3332 

00343 

0 

store 

0SPTFM2 

0717 

14,3333 

77776 

1 

EXIT 

0718 

REF 

_4__UM1. 

39T 

14,3334 

3 1544  0 

;a 

P3.51T0N 

0719 

REf 

10  lAst 

402 

14,3335 

54  344 

0 

TS 

DSPTFM2  *2 

0720 

REF 

1 

14,3336 

3 3677 

1 

CAF 

V06MA6E  

0721 

ref 

37  LAST 

394 

14,3337 

0 4657 

1 

TC 

NVSaWAIT 

0722 

REF 

8 LAST 

392 

14,3340 

0 4622 

0 

TC 

FLASHON 

0723 

REF 

27  LAST 

394 

14,3341 

0 4475 

0 

TC 

ENOIDLE 

0724 

REF 

17  last 

397 

14,3342 

1 2770 

1 

TCF 

ENOTFST 

0725 

REF 

22  LAST 

400 

14,3343 

3 6311 

1 

CAF 

THREE 

0726 

REF 

9 last 

402 

14,3344 

55*550 

1 

TS 

RUN 

0727 

REF 

113  LAST 

0 

G 

14,3345 

3 7767 

0 

CAf 

ZERO 

0728 

ref 

1 

14,3346 

1 3204 

0 

TCF 

DODO  -1 
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L 

iMj  Performance  tests  i 

USER'S 

OWN 

page 

NO,  24 

S3  E5 

R0729 

THIS  REVISION  AtFLECTi  changes  AS  OF  _ __  _ 

R0730 

R0731 

R0733 

1/31/66 

ENGIN:  ON/OFF  NOW  IN  CHANNEL  ELeVeN.  THE  BITS  FDR  EACH  CHANNEL  GfT  TURNED  ON  ALL  AT 
(ENT-R:IS  pushed^  then  they  ALL  Go  OUT  AND  tHE  NEXT  CHANLNeLIS  BITS  ARE  TURNED  ON, 

0 

n 

m 

. they  stay 

Dm  until 

R0735 

R0736 

R0737 

channel  5 BITS  1-8 
channel  6 BITS  1-8 
CHANNEL  11  BITS  13.1<f 

R0738 

R0739 

R07AI. 

channel  12  BITS  9-14 

FOLLOWING  THE  CHANNEL!  12  TESTS  ENTER  IS  PRESSED. 
GOEE  in  location  (COJiNTER)  55. 

CHANNEL  12  IS  SET  TO  ZERO  AND 

the 

NEXT 

TEST  Begun. 

LDW9 

R07A2 
R07A3  ■ 
R07AA 

increase  throttle  rate  descent  engine 

(ENTER!:  NOW  CAJSeS  TH-  CONTENTS  OF  55  TO  3e  MADE 

decrease  THROTTLf  rate  dfscent  fngine 

NESAtIVE 

R07A5 

R07A6 

Ro7A7 

THe  N-XT  (ENTER!  ZeRDS  THe  REGISTER  AND  SENDS  A PJLSe  TRAIN  (HeRf  ALTERN 
ZEROS  FOR  CLARITY)  TD'  THE  ALTITUDE  METER, 

THf  NrXT  (FNTFR!  WILL  ADVANCE  THf  TFST  TD  THf  ALTITUDf  RATF  MFTfR  TfST. 

R07A8  THe  NeXT  (ENTER  ( WILU  TERMINATE  THE  TEST. 


0749 

REf 

15 

LAST 

315 

14,3347 

3 7743 

0 

SAuTOIfS 

CA 

PDSi^ax 

0750 

REF 

1 

14,3350 

53*376 

0 

TS 

N.aBITS  ..  . . 

0751 

REF 

114 

LAST 

40Z 

14,3351 

3 7767 

0 

CA 

ZERO 

0752 

REF 

1 

14,3352 

55*577 

1 

TS 

chan 

0753 

REF 

1 

14,3353 

55*575 

0 

TS 

TEMP 

0754 

ref 

1 

14,3354 

0 3356 

1 

TC 

OIND. 

0755 

ref 

2 

LAST 

403 

14,3355 

25*577 

0 

BACKl 

INCR 

CHAN 

0756 

REF 

3 

LAST 

A03 

14,3356 

51*577 

0 

DINO 

INDEX 

CHAN 

0757 

ref 

1 

14,3357 

3 3361 

0 

CA 

SAJTfOCS 

0758 

REF 

3 

LAST 

199 

14,3360 

1 5212 

1 

TCF 

SwCAi'L 

0759 

REF 

1 

14,3361 

31375 

1 

SAUTLOCS 

CADR 

CHAN5D 

0760 

REF 

1 

14,3362 

31413 

0 

CAOR 

CHAN6D 

0761 

REF 

1 

14,3363 

31421 

1 

CADR 

CHAN) ID 

0762 

REF 

1 

14,3364 

31433 

1 

CADR 

CHAN12D 

0763 

REF 

1 

14,3365 

31445 

0 

CAOR 

ptitrde 

0764 

REF 

1 

14,3366 

31472 

1 

CADR 

PTDTRDE 

0765 

REF 

1 

14,3367 

31547 

0 

CAOR 

ALTMfT 

0766 

REF 

1 

14,3370 

31574 

0 

CAOR 

altrmet 

0767 

REF 

18 

LAST 

40Z 

14,3371 

30770 

1 

CADR 

ENOTEST 

0768 

REF 

2 

LAST 

403 

14,3372 

31477 

1 

throtadd 

CADR 

PTDTrDE  +5 

0769 

REF 

2 

LAST 

403 

14,3373 

31552 

1 

METERADD 

CADR 

ALTMET  *3 

0770 

REF 

2 

LAST 

403 

14,3374 

31577 

0 

mrateadd 

CAOR 

altrmet  *3 

0771 

REF 

9 

LAST 

368 

14,3375 

3 7766 

1 

CHAN5D 

CA 

FIVE 

0772 

REF 

36 

LAST 

392 

14,3376 

54  337 

1 

rs 

OSPTEMl 

0773 

REF 

7 

LAST 

332 

14,3377 

3 4564 

1 

2ENTRY 

CA 

LOWR 

0774 

REF 

37 

LAST 

403 

14,3400 

54  340 

1 

TS 

DSPTEMl  +l 

0775 

14,3401 

0 0006 

1 

EXTEND 

0776 

REF 

2 

LAST 

403 

14,3402 

5 1575 

1 

INDEX 

TEMP 

0777 

14,3403 

01  005 

0 

WRITE 

5 

CHANNEL  6 RETURNS  HERE 
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L 

IMJ 

performance 

TESTS  1 

USER*S  OWN  page  no. 

25  S3  E5 

0778 

REF 

1 

lA 

3A0A 

3-  3666_ 

1 

3EMTRY 

ZA 

CHH.12  return  here 

TO  USE  THE  OI SPLAY 

0779 

REF 

38 

LAST 

AOZ 

lA 

3A05 

0 4657 

1 

TC 

NVSBwAIT 

0780 

REF 

1 

lA 

3406 

3 3673 

0 

4ENTRY 

:af 

aaitfr 

WAITER  IS  03300 

0781 

REF 

39 

LAST 

AOA 

lA 

3407 

0 4657 

1 

TC 

NVSBwAIT 

0782 

REF 

28 

LAST 

A02 

lA 

3410 

0 4475 

0 

TC 

ENDIDLE 

0783 

REF 

19 

LAST 

A03 

lA 

3411 

0 2770 

0 

TC 

ENDTfST 

a?  BA 

REF 

1 

lA 

3412 

0 3355 

1 

TC 

3AC<1 

0785 

REF 

3 

LAST 

A03 

lA 

3413 

25*575 

1 

CAAN6D 

INCR 

Temp 

0786 

ref 

LAST 

A03 

lA 

3414 

24  337 

0 

INCR 

asPJ-EMl.  - 

0787 

REF 

115 

LAST 

403 

lA 

3415 

3 7767 

0 

CAF 

ZERO 

0788 

lA 

34 1 6 

0 0006 

1 

EXTEND 

0789 

1 A. 34 17 

. 01  005 

0 

?(R  J TE 

5 . 

GET  RID  OF  channel  5 

BITS 

0790 

REF 

1 

14 

3420 

0 3377 

1 

TC 

ZENTbY 

0791 

REF 

1 

14 

3421 

3 4530 

0 

C^AN11D 

:a- 

DCTll 

0792 

REF 

39 

last 

40A 

14 

3422 

54  337 

1 

TS  _ 

DSPTEMl 

0793  ■ 

ref 

1 

14 

3423 

3 5210 

1 

:a 

Sir  13-14 

079A 

REF 

AO 

LAST 

AOA 

14 

3424 

54  340 

1 

rs 

DSPTEMl  +1 

0795 

14 

3425 

0 0006 

1 

EXTEND 

0796 

lA 

3426 

05  Oil 

1 

/<0R 

1 1 

Wor  is  non  exclusive 

OR 

0797 

REF 

116 

LAST 

40A 

lA 

3427 

3 7767 

0 

CAF 

ZERO 

0798 

lA 

3430 

0 0006 

1 

EXTEND 

0799 

lA 

3A31 

01  006 

0 

/JRITE 

6 

0800 

REF 

1 

lA 

3432 

0 3404 

1 

rc 

3ENT5Y 

0801 

REE 

1 

lA 

3433 

3 4570 

1 

CHAN12D 

CA 

DCT12 

0802 

REF 

Al 

LAST 

AOA 

lA 

3434 

54  337 

1 

TS 

OSPTFMl 

0803 

REF 

2 

last 

AOA 

lA 

3435 

4 5210 

0 

C5 

3IT13-14 

OBOA 

lA 

3436 

0 0006 

1 

EXTEND 

0805 

lA 

3437 

03  Oil 

1 

/JAND 

11 

0806 

REF 

1 

lA 

3440 

3 3671 

1 

CA 

CH12bITS 

0807 

REF 

A2 

LAST 

40A 

lA 

3441 

54  340 

1 

TS 

DSPTfMI  +1 

0808 

lA 

3442 

0 0006 

1 

EXTEND 

0809 

lA 

3443 

05  012 

1 

iYOR 

12 

0810 

ref 

2 

LAST 

AOA 

lA 

3444 

0 3A04 

1 

IC 

3ENTRY 

0811 

REF 

2 

LAST 

AOA 

lA 

34A5 

A 3671 

0 

PTITRDE 

cs 

CH12RITS 

0812 

lA 

3446 

0 0006 

1 

EXTEND 

0813 

lA 

3447 

03  012 

1 

a/AND 

12 

081A 

ref 

117 

LAST 

AOA 

lA 

3450 

3 7767 

0 

CA 

ZERO 

0815 

REF 

LAST 

AOA 

lA 

3451 

5A  337 

1 

rs 

DSPTfMI 

0816 

ref 

AA 

LAST 

AOA 

lA 

3452 

5A  3A0 

1 

TS 

DSPTFMI  +1 

0817 

REF 

A 

LAST 

AOA 

lA 

3453 

551575 

0 

rs 

TEMP 

0818 

REF 

30 

LAST 

390 

lA 

3454 

3 7763 

1 

CA 

Bin 

0819 

REF 

2 

LAST 

403 

lA 

3455 

55*576 

0 

TS 

NOBITS 

0820 

lA 

3456 

0 0004 

0 

PIT 

INHiNT 

0821 

ref 

59 

last 

389 

lA 

3457 

0 5663 

1 

TC 

wAITlIST 

08215 

REF 

32 

last 

399 

E5 

EBAN<= 

XSM 

0822 

14 

3460 

03503 

1 

2CADR 

THROTASK 

C0822 

ref 

1 

lA 

3461 

30065 

1 

0823 

lA 

3462 

0 0003 

1 

RELINT 

082A 

REF 

2 

LAST 

40A 

lA 

3463 

3 3673 

0 

CA 

WAITER 
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L IMJ  performance  TESTS  1 USER'S  OwN  pACE  NO.  26  S3  E5 


yjoca 

0826 

REF 

29 

LAST 

AOA 

14 

.3465 

0 ^475  0 

rc 

ENDIDLE 

" " ■ " ■ ■ 

0827 

REF 

20 

LAST 

AOA 

14 

.3466 

0 2770  0 

TC 

ENDTEST 

0828 

REF 

118 

LAST 

AOA 

14 

.3467 

3 J767  0 

3L30  . 

0829 

REF 

3 

LAST 

aoa 

14 

.3470 

55*576  0 

TS 

nosits 

0830 

REF 

2 

LAST 

AOA 

14 

.3471 

0 3355  1 

rc 

bacci 

0831 

ref 

119 

LAST 

405 

14 

.3472 

3 7767  0 

ptdtrde 

CA 

ZERO 

■ 0832 

ref 

3 

LAST 

378 

14 

.3473 

54  055  0 

rs 

THRUST 

0833 

S.EF 

1 

19 

.3474 

3 3372  1 

:a 

THROTADD 

083A 

REF 

1 

19 

.3475 

55*574  1 

TS 

tempadd 

0835 

REF 

8 

LAST 

38ii 

19 

.3476 

0 5545  0 

rc 

JOBSLEEP 

THIS  INHIBITS  THE 

NEXT  TASK  UNTIL 

R0836 

current 

TAS<  HAS  BEfN  completed 

0837 

• REF 

16 

LAST 

403 

19 

.3477 

3 7743  0 

CA 

posmax 

0838 

REF 

5 

LAST 

40A 

19 

.3500 

55*575  0 

TS 

TEMP 

0839 

REF 

26 

LAST 

338 

19 

.3501 

3 7755  1 

CA 

BIT7 

OSAO 

ref 

1 

19 

.3502 

0 3456  0 

TC 

PIT 

08A1 

REF 

A 

LAST 

405 

19 

.3503 

11*576  0 

throtasa 

CCS 

NOBItS 

IS  THIS  TASK  Still 

RED 

08A2_ 

19 

.3504 

0 3511  1 

TC 

YES 

08A3 

REF 

2 

LAST 

405 

19 

.3505 

3 1574  0 

CA 

TEMPaDD 

NO 

08AA 

REF 

5 

LAST 

405 

19 

.3506 

55*576  0 

TS 

NOBITS 

08A5 

REF 

7 

last 

3 6l_ 

19 

.3507 

0 5551  0 

IC 

JOBWAKE 

08A6 

REF 

A7 

LAST 

381 

19 

.3510 

0 5727  0 

TC 

TAS<nVER 

08A7 

REF 

6 

LAST 

405 

19 

.3511 

11*575  0 

CCS 

TEMP 

08a8 

REF 

1 

19 

*3.512 

0 3525  0 

rc 

SOMETIME 

08A9 

ref 

8 

last 

303 

19 

.3513 

3 4563  0 

CA 

LOWl  1 

0850 

REF 

A 

LAST 

i,05 

19 

.3514 

54  055  0 

ALWAYS 

rs 

THRUST 

0651 

REF 

2A 

last 

378 

19 

.3515 

3 7760  1 

CA 

B1T4 

0852 

19 

.3516 

0 0006  1 

EXTEND 

A SMERZH  FIX. 

0853 

19 

.3517 

05  014  1 

WOR 

14 

085A 

ref 

2A 

LAST 

396 

19 

.3520 

3 7756  1 

CA 

BIT6 

320  MS, DELAY 

0855 

REF 

'50 

LAST 

404 

19 

.3521 

0 5663  1 

rc 

WAITI  1ST 

08555 

REF 

33 

LAST 

409 

E5 

eban<= 

XSM 

0856 

19 

.3522 

03503.  1 

2CADR 

THROTASK 

C0856 

ref 

2 

LAST 

409 

19 

.3523 

30065  1 

0857 

REF 

A8 

LAST 

405 

19 

.3524 

0 5727  0 

rc 

TASXOVER 

0858 

REF 

9 

LAST 

405 

19 

.3525 

4 4563  1 

sometime 

:s 

LOWll 

0859 

REF 

1 

19 

.3526 

0 3514  1 

rc 

ALWAYS 

0860 

REF 

6 

LAST 

405 

19 

.3527 

11*576  0 

AwTAS< 

CCS 

NOBITS 

IS  TASK  still  red 

0861 

19 

.3530 

P.  3535.  1 

TC 

♦ 5 

0862 

REF 

3 

LAST 

405 

19 

.3531 

3 1574  0 

CA 

TEMPADD 

NO 

0863 

REF 

7 

LAST 

405 

19 

.3532 

55*576  0 

rs 

NOBITS 

ENABLES  NEXT  TASK 

086A 

REF 

8 

LAST 

405 

19 

.3533 

0 5551  0 

TC 

UOBWAKE 

0865 

REF 

A9 

LAST 

405 

19 

.3534 

0 5727  0 

TC 

TASCnVER 

0866 

REF 

1 

19 

.3535 

3 3667  0 

CA 

ALBlTS 

ACTUAL  TASK  STARTS 

HERE 

0667 

REF 

2 

LAST 

109 

19 

.3536 

54  060  0 

TS 

ALTM 

0868 

REF 

16 

LAST 

289 

19 

.3537 

3 7761  0 

CA 

BIT3 

0869 

19 

.3540 

0 0006  1 

EXTEND 

0870 

19 

.3541 

05  014  1 

a/OR 

14 

0871 

REF 

25 

LAST 

405 

19 

.3542 

3 7756  1 

CA 

BIT6 

320  MS.  DELAY 
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0872 

REF 

6l 

LAST 

A05 

j3543 

0 5663_ 

1 

_ IC 

aiAITi'IST  _ _ 

08725 

REF 

3A 

LAST 

A05 

E5 

cBAN<= 

XSM 

0873 

14 

*35AA 

03527 

1 

2CADR 

ALT  ASK 

Co  67  3 

JlEt_ 

1 

lA 

.3545 

30065 

1 

087A 

REF 

50 

LAST 

405 

lA 

.3546 

0 5727 

0 

TC 

TASKnVER 

0875 

REF 

1 

lA 

.3547 

3 3373 

0 

ALTMET 

:a 

METERADD 

0876 

REF 

A 

LAST 

405 

lA 

j_3550 

3i>>5JA 

1 

TS 

tempadd„  . . . 

0877 

REF 

9 

LAST 

405 

lA 

.3551 

0 5545 

0 

TC 

JOSSLEEP 

0878 

REF 

120 

LAST 

405 

lA 

.3552 

3 7767 

0 

:a 

ZeR0‘ 

0879 

REF 

7 

LAST 

405 

lA 

.3553 

0 

TS 

TEMP 

0880 

REF 

25 

LAST 

405 

lA 

.3554 

4 7760 

0 

:s 

8IT4 

0881 

lA 

.3555 

0 0006 

1 

EXTEND 

0882 

lA 

.3556 

03  014 

1 

(JAND 

14 

0883 

lA 

.3557 

0 0004 

0 

INHINT 

08BA 

ref 

131 

LAST 

393 

lA 

.3560 

3 7763 

1 

:a 

ONE 

0885 

REF 

62 

LAST 

406 

lA 

.3561 

0 5663 

1 

TC 

/JAlTi’lST 

08855 

REF 

35 

last 

406 

E5 

EBAN<= 

XSM 

0866 

lA 

.3562 

03527 

1 

2CADR 

ALTAsK 

C0866 

REF 

2 

LAST 

406 

lA 

.3563 

30065 

1 

0887 

lA 

.3564 

0 0003 

1 

RELINT 

0868 

REF 

3 

LAST 

404 

lA 

.3565 

3 3673 

0 

EA 

NAITFR 

0889 

REF 

Vl 

LAST 

405 

lA 

,3566 

0 4657 

1 

rc 

NVSSwAIT 

0890 

ref 

30 

LAST 

405 

lA 

.3567 

0 4475 

0 

TC 

ENOIDLE 

0891 

REF 

21 

LAST 

405 

lA 

.3570 

0 2770 

0 

rc 

ENDTEST 

0892 

REF 

121 

LAST 

406 

lA 

.3571 

3 7767 

0 

CA 

ZEROi 

0893 

ref 

8 

LAST 

405 

lA 

.3572 

55*576 

0 

TS 

N03ITS 

089A  ■ 

ref 

3 

LAST 

405 

lA 

'3573 

0 3355 

1 

rc 

BAC<1 

0895 

REF 

1 

lA 

,3574 

3 3374 

1 

ALTRMET 

CA 

MRATfADD 

0896 

REF 

5 

LAST 

406 

lA 

,3575 

55*574 

1 

TS 

tempadd 

0897 

REF 

10 

LAST 

406 

lA 

.3576 

0 55A5 

0 

TC 

JOBSLEEP 

0898 

REF 

132 

LAST 

406 

lA 

,3577 

3 7763 

1 

EA 

ONE 

0899 

REF 

8 

LAST 

406 

lA 

,3600 

55*575 

0 

TS 

TEMP 

TEMP  KILL  BE  INDEXED  TO  ACQUIRE  BIT2  INS 

C09iJO 

TEAO  OF  BITS 

0901 

REF 

19 

last 

376 

lA 

.3601 

3 7762 

0 

EA 

BIT2 

0902 

lA 

,3602 

0 0006 

1 

EXTEND 

0903 

lA 

,3603 

05  014 

1 

iJOR 

14 

090A 

REF 

3 

LAST 

“403 

lA 

.3604 

0 3557 

0 

rc 

ALTMcT  *8D 
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P0905  rHF  apt  ANGLf  CH-CKING  PROGRAM  PRoYIDfS  A SIMPLF  VFRIFlrATION  OF  THF  ACCURACY  OF  THf  APT.  _TH^ID£^4  IS  J0_ 

Ro9o7  compute  the  angle  Between  two  lines  of  sisht  as  indicated  sy  the  aot.  which  is  what  this  program  does, 

R0909  INDeP-NDeNT  KNOWLEDGE  OF  THE  INCLUDED  ANGLE  PROVIDES  A COMPARISON  AND  THUS  A MEASURE  OF  THe  AOT  ACCURACY. 

R0911  the  ISS  need  N>T  B£^  (DN  TO  RUN  THIS  PROGRAM. 


0912 

ref 

30 

LAST 

A02 

1A.3605 

0 6112  0 AOTANGCK 

TC 

I NT PbET 

0913 

1A.3606 

77A1A  0 

SET 

Exit 

IN  CASE  THE  ISS  IS  OFF. 

091A 

REF 

6 

LAST 

305 

IAj3,60X 

._LUD0,65  1 

COAPnFIN 

0915 

REF 

3 

LAST 

381 

IA.3610 

0 2135  1 

TC 

FINDNAVB 

FOR  LOSl  AND  L0S2, 

0916 

REF 

31 

LAST 

AOT 

1A,3611 

0 6112  0 

rc 

INTPRET 

0917 

1A,361Z 

A7375  0 

VLOAD 

VXV 

0918 

REF 

2 

LAST 

383 

1A.3613 

02601  1 

LOSI 

0919 

REF 

2 

LAST 

3BA 

1A.361A 

02607  1 

L0S2 

0920 

IA.3615 

.776A6_D. 

ABVAL 

0921 

REF 

12 

LAST 

357 

1 4 ♦ 36 1 6 

2A023  0 

STOVL 

SINTH 

SINTH  = ABVAL  (VXV  ). 

0922 

REF 

3 

LAST 

AOT 

IA.3617 

02601  1 

LDSl 

0923 

1A.3620 

776A1  1 

DOT 

092A 

REF 

3 

LAST 

A07 

1A.3621 

02607  1 

LDS2 

0925 

REF 

10 

last 

357 

1A.3622 

3A021  0 

STCALL 

COSTw 

COSTH  = V.V 

0926, 

REF 

8 

LAST 

357 

IA.3623 

32A76  0 

AHCTRIG 

0927 

IA.362A 

7763A  0 

RTB 

0928 

REF 

2 

LAST 

39Z 

IA.3625 

33522  1 

1STD?S 

DP  IS  COMP  TO  SP  2S  COMP. 

0929 

REF 

6 

LAST 

3A2 

1^*3626 

00025  0 

STORE 

THETA 

0930 

IA.3627 

77776  1 

EXIT 

0931 

ref 

1 

IA.3630 

3 3720  1 

CAF 

THETAADR 

093?  _ 

REF 

i3 

LAST 

398 

IA.3631 

6 0110  1 

AD 

FIXLOC 

0933 

REF 

231 

LAST 

39Z 

IA.3632 

5A  1A6  0 

rs 

MPAC  +2 

093A 

REF 

1 

IA.3633 

3 3676  0 

CAF 

V06NO3E 

XXX. XX  DEGREES  IN  Rl. 

0935 

REF 

LAST 

A06 

1A.363A 

0 A657  1 

TC 

NVSBWAIT 

0936 

ref 

22 

LAST 

A06 

IA.3635 

1 2770  1 

rcF 

ENDTfST 
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0937_ E3 EBAN-<=  UOO 


0938 

14,3636 

0 0004 

0 

ZEROERAS 

iNHINT 

PR06RAN  BY  MUNTZ  TO  ZERO  ERASEA3LE 

09381 

REF 

122 

last 

406 

14,3637 

3 7767 

0 

:af 

ZERO 

09382 

ref 

2 

LAST 

96 

14,3640 

54  026. 

1. 

TS____  . 

T_iM£^  

0939 

REF 

1 

14,3641 

3 3665 

1 

CAF 

0CT27 

0940 

REF 

19 

LAST 

366 

14,3642 

54  003 

0 

TS 

EBANk 

D941 

14,3643 

22  007 

0 

ZEROLP 



0942 

ref 

212 

LAST 

40Z 

14,3644 

50  000 

1 

INDEX 

A 

0943 

14,3645 

23*401 

0 

lXCH 

I4OI 

0944 

REF 

48 

last 

398 

14,3646 

6 .7^62. 

0_ 

AD 

TwO 

0945 

REf 

20 

last 

408 

14,3647 

26  003 

0 

4DS 

EbANi^ 

0946 

ref 

8 

last 

403 

14,3650 

7 4564 

0 

MAS< 

L0W8 

0947 

REF 

213_ 

LAST 

408 

14,3651 

10  000 

0 

CCS 

A 

0948 

REF 

1 

14,3652 

1 3643 

1 

TCF 

ZERO!  P 

0949 

REF 

21 

last 

408 

14,3653 

10  003 

0 

CCS 

ebank 

09_50 

REF 

1 

14,3654 

1 3657 

1 

TCF 

ZEROLPl 

0951 

REF 

32 

last 

323 

14,3655 

0 5225 

1 

rc 

POSTJUMP 

0952 

REF 

2 

LAST 

253 

14,3656 

02000 

0 

CAOR 

SLftPl 

0953 

14,3657 

0 0003 

1 

ZEROLPl 

RELINT 

09531 

REF 

123 

last 

4OB 

14,3660 

3 7767 

0 

CAF 

Zero 

keep  T4RUPT  GOING,  BUT  NOT  CYCLING, 

09532 

REF 

5 

LAST 

108 

14,3661 

54  347 

0 

rs 

DsRJdTSW 

095A 

14,3662 

0 0004 

0 

INHINT 

0955 

REF 

103 

LAST 

406 

14^3663 

4 7763 

0 

CS 

ONE 

0956 

REF 

2 

LAST 

408 

14,3664 

1 3643 

1 

TCF 

ZEROLP 

09565 

14,3665 

00027 

1 

3CT27 

OCT 

27 

633436a 

yul 

SYSTEM  FOR  AGC! 

revision 

0 OF  Program  burstizd  by 

NASA  2021106-031 

DEC  7, 

1967  (Main) 

Page 

409 

L 

IMJ 

Performance  TtSTS  i 

USLR'S  OWN  PAGE 

NO.  30 

S3 

E3 

0958 

ref 

8 LAST  386 

_ L5  .. 

EBAN-C 

= OGC  ---  - 

0960 

0961 

0962 

16.3666 

14.3667 
14,3670 

00430  0 
52525  1 
70707  0 

V34N303 

ALBITS 

THRSBITS 

DCT 

OCT 

OCT 

0043O 

52525 

70707 

0963 

0964 

0965 

REF 

REF 

5 LAST  37'Y 
1 

14,3671 

4570 
4530 
37400  1 

0CT12 

OCTll 

CH12BITS 

OCT 

TEN 

NINE 

37400 

0966 

0967 

14.3672 

14.3673 

00130  0 
03300  1 

V31N300 

(YAITER 

OCT 

OCT 

00130 

03300 

0968 

14,3674 

00130 

0 

V01N30E 

OCT 

00130 

FOR  FINDNAVB 

0969 

14,3675 

00530 

1 

V05N30E 

OCT 

00530 

FOR  OPTDATA 

0970 

14,3676 

00603 

1 

V06N03E 

OCT 

00603 

0971 

14,3677 

00666 

1 

V06N66E 

OCT 

00666 

0972 

14,3700 

02430 

1 

V24N30E 

OCT 

02430  ^ 

FOR  POSITION  Load 

0973 

14,3701 

02522 

0 

V25N22E 

OCT 

02527 

FOR  P0S4 

0974 

. 14.3707 

00013 

0 

IIDEC 

OEC 

1 1 

0975 

14,3703 

00021 

1 

17DEC 

OEC 

17 

0976 

14,3704 

00074 

1 

60DEC 

OEC 

60 

0977 

14,3705 

00077 

1 

63DEC 

OEC 

63 

0978 

14,3706 

00105 

0 

69DEC 

OEC 

69 

FOR  MISALIGN 

0979 

14,3707 

00110 

1 

72DEC 

OEC 

72 

FOR  STORRSLT 

0980 

14,3710 

05670 

0 

30SEC 

OEC 

3000 

3000  X 10  MSEC 

0981 

14,3711 

13560 

0 

60SEC 

OEC 

6000 

6000  X 10  MSEC 

0982 

ref 

9 

last 

409 

14,3712 

01500 

0 

05CADR 

ADRES 

DoC 

FOR  ZEROING 

0983 

ref 

43 

lAst 

401 

14,3713 

01570 

1 

3ENPLA31 

ADPEs 

SENPf 

0984 

REF 

44 

last 

40V 

14,3714 

02570 

1 

5ENPLA3R 

ECADR 

oENPl 

FOR  P0S4 

0985 

14,3715 

00322 

1 

<<KK 

2DEC 

210.39  B-14 

1230  B-14  for  CSM 

C0985 

14,3716 

14366 

1 

0986 

REF 

1 

14,3717 

03114 

0 

RDRRETN 

ADRES 

RDRl  +1 

FOR  RDR37511 

0987 

REF 

7 

LAST 

40/ 

14,3720 

00024 

1 

thetaadr 

ECAOR 

theta 

0988 

REF 

36 

last 

406 

14,3721 

01400 

1 

XSMAORX 

ADRES 

XSM 

FOR  MAKEXSMD 

0989 

14,3722 

24365 

1 

5CALFTR 

2DEC 

.64 

FOR  STORRSLT 

C0989 

14,3723 

30244 

0 

0990 

14,3724 

07623 

1 

OMEg/MS 

2DEC 

.24359048 

gyro  PULSES  / 10  MSEC 

C0990 

14,3725 

26552 

1 
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P099l 

the 

followimo'  Routine  Reads 

T> 

\S 

’f> 

(E  CLOCK  and  scalar  (Channels  a 

AND  A)  INJIO  A AND  L,  INSURING  tHAi  tHe 

R0993 

09Q6 

data 

was  not 

IN  ■ 

TRANSITION  WHEN  IT  W/ 
501 

read, 

3L0C< 

02 

0995 

5026 

0 0006 

0 

FINETIME  INHiNT 

Returns  with  interrupt  inhibited. 

0996 

5027 

0 0006 

1 

EXTEND 

0997 

REF 

1 

5030 

00  006 

0 

. . read 

LDSCaLAR 

0998 

ref 

78 

last 

391 

5031 

56  001 

1 

TS 

L 

0999 

5032 

0 0006 

EXTEND 

SEE  IF  2 readings  AGREE.  IF  NOT.  READ 

1000 

REF 

2 

LAST 

610 

5033 

06  006 

0 

RXOR 

LOSCaLAR 

loscalar  again. 

1001 

5036 

0 0006 

1 

EXTEND 

L0.Q2_ 

5035 

1 5061 

P 

3ZF 

♦ ^ __  _ 

1003 

5036 

0 0006 

1 

EXTEND 

IF  CLOCK  rippled  BEFORE,  IT  WONT  NOW. 

lOOA 

REp 

3 

last 

610 

5037 

00  006 

0 

..._read 

1 OSrAl  AR 

1005 

REF 

79 

LAST 

610 

5060 

56  001 

1 

TS 

L 

1006 

REF 

17 

last 

605 

5061 

6.  7763 

1 

*6  C5 

POSMaX 

IF  Low  PART  CONTAINS  SOMETHING  .ESS  THAN 

1007 

REF 

30 

LAST 

610 

5062 

6 0001 

0 

AD 

L 

posmax,  the  high  part  can  Be  Read  safely 

1008 

5063 

0 0006 

1 

EXTEND 

1009 

REF 

6 

LAST 

381 

5066 

1 5027 

0 

3ZF 

FI  NET  I Me 

TRY  AGAIN  - CONDITION  WILL  DISA^PfAR. 

1010 

5065 

0 0006 

1 

EXTEND 

_ 1011 

REF 

1 

5066 

00  003 

1 

READ 

hiscalar 

1012 

REF 

165 

last 

396 

5067 

0 0002 

0 

IC 

0 

lOlA 

REF 

Z 

LAST 

389 

14»3726 

SETLOC  0ME3/MS  ♦? 

1015 

REf 

55 

last 

399 

16,3726 

0 5206 

0 

REDYTORK  Tc 

bankcall 

1016 

REF 

12 

LAST 

397 

16,3727 

26751 

0 

CADR 

IMJSTALL 

1017 

REF 

23 

LAST 

607 

16.3730 

1 2770 

1 

rcF 

ENDTEST 

1018 

REF 

2 

LAST 

380 

16,3731 

0 2752 

0 

TC 

OGCZfRO 

1019 

REF 

32 

LAST 

607 

16,3732 

0 6112 

0 

TC 

INTPRET 

1020 

16,3733 

77626 

1 

CALL 

1021 

REF 

2 

LAST 

380 

16,3736 

30607 

1 

ERTHrVSE 

SETS  UP  EARTHRATE  ANGLES  AND  TIME 

1022 

16,3735 

77776 

1 

EXIT 

1023 

REF 

1 

16,3736 

3 1617 

0 

CA 

DPTNdEG 

INITIALIZE  CDUnDX  FOR  PULSE  CATCHING 

1026 

REF 

3 

LAST 

267 

16,3737 

6 5336 

1 

AD 

NEG2 

C(K)  WAS  4 2 1 NOW  CIA)  IS  2 0 .1 

1025 

RlF 

1 

16,3760 

55'616 

0 

TS 

gytdretq 

C(K)  = 2, 0,-1  FOR  X,Y,Z. 

1026 

16,3761 

0 0006 

1 

EXTEND 

1027 

16,3762 

1 3765 

0 

3ZF 

♦ 3 

1028 

REF 

69 

LAST 

608 

16,3763 

3 7762 

0 

CAF 

TwD 

1029 

16,3766 

0 3766 

1 

TC 

♦ 2 

1030 

ref 

136 

LAST 

608 

16,3765 

3 7763 

1 

CAF 

DNE 

1031 

REF 

1 

16,3766 

55*672 

1 

IS 

CDJNnX 

C(K)  = 1 FOR  Y,  2 FOR  Z CDU  SELECT 

1032 

ref 

56 

LAST 

610 

16,3767 

0 5206 

0 

IC 

AAN<rALL 

1033 

REF 

1 

16,3750 

50551 

0 

CADR 

ENA3I  E 

1036 

16,3751 

37777 

1 

CHKSUMU  DCT 

37T77 
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OJOOL 24.2000 3AN< 2Jt_ 


0002 

REF 

37 

LAST 

40'=' 

E5 

EBAN<= 

XSM 

00021 

ref 

124 

last 

408 

24 

.2000 

3 7767  0 

IMUTEST  cA 

ZERO' 

drift  and  Scale  factor  test 

00022 

ref 

1 

24 

.200_L 

5S'5J6_  0 

TS 

DRJFtJ 

00023 

ref 

1 

24 

,2002 

55*742  0 

TS 

GEDCOMPS 

0002A 

REF 

1 

24 

,2003 

3 3714  0 

:af 

ISECX 

00025 

ref 

1 

_ 24 

.2004 

55Y744  0 

TS 

ISECXT 

0003 

ref 

33 

LAST 

410 

24 

,2005 

0 6112  0 

TC 

I ntpret 

DOOA 

24 

,2006 

77624  1 

CALL 

0005 

REF 

2 

LAST 

380 

24 

,2007 

30553  1 

LATA7CHK 

0006 

24 

,2nl0 

77776  1 

EXIT 

0009 

ref 

105 

LAST 

4l0  ^ 

24 

,2011. 

3 7763  1 

CA 

ONE 

0010 

REF 

5 

LAST 

402 

24 

,2012 

55*544  1 

TS 

POSITON 

0011 

REF 

11 

LAST  40_2_ 

24 

.2013 

54  344  0 

_ TS 

0SPTEM2  *5 

00111 

REF 

106 

last 

411 

24 

,2014 

3 7763  1 

oEOIMUTT  CA 

ONE 

COMPASS  COMES  IN  HERE 

0012 

REF 

11 

LAST 

39A 

24 

,2015 

54  400  1 

TS 

thetao 

0013 

REF 

12 

LAST 

411 

24 

,2016 

54  401  0 

TS 

THETaD  +1 

0014 

REF 

13 

LAST 

411 

24 

,2017 

54  402  0 

TS 

THETaD  *2 

0015 

REF 

57 

LAST 

410 

24 

,2020 

0 5206  0 

TC 

BANKCALL 

0016 

REF 

3 

LAST 

38° 

24 

,2021 

26000  0 

CADR 

IMJZERO 

0017 

REF 

58 

LAST 

411 

24 

,2022 

0 5206  0 

TC 

3AN<rALL 

0018 

REF 

13 

LAST 

410 

24 

,2023 

26751  0 

CADR 

IMJSTALL 

' 0019 

REF 

__  L 

24 

,2024 

1 2250  0 

TCF 

ENDTESTl 

0020 

REF 

125 

LAST 

411 

24 

,2025 

3 7767  0 

IMUBACK  CA 

ZERO 

0021 

REF 

12 

LAST 

411 

24 

,2026 

54  343  1 

TS 

DSPTFM2  +1 

0022 

REF 

23 

LAST 

402 

24 

.2027 

55*537  0 

TS 

NOXCTR 

0023 

REF 

1 

24 

,2030 

55*574  1 

TS 

TOROnDX 

0024 

REF 

2 

LAST 

411 

24 

,2031 

55*575  0 

TS 

TOROmDX  +1 

0026 

ref 

L 

24 

.2032 

3 3644  1 

;af 

TESTTIME 

0028 

REF 

13 

LAST 

411 

24 

,2033 

54  342  0 

TS 

0SPTEM2 

0029 

REF 

59 

LAST 

411 

24 

,2034 

0 5206  0 

TC 

BANKCALL 

ISS  RETURNS  IN  COARSE  ALIGN  MOD;  TO 

0030 

REF 

3 

LAST 

385 

24 

,2035 

26065  0 

CADR 

IMJCOARS 

ENABLE  operator  TO  DECIDE  WHAT  TO  DO 

R0031 

ABOUT  GIMBAL 

LOCK 

00311 

REF 

2 

LAST 

411 

24 

,2036 

11*742  0 

CCS 

GEOCOMPS 

00312 

24 

,2037 

0 2042  0 

TC 

♦ 3 

0032 

REf 

1 

24 

,2040 

0 3576  0 

TC 

ShOWI  d 

0033 

REF 

1 

24 

,2041 

0 3605  1 

rc 

SHOW 

0034 

REF 

60 

LAST 

411 

24,2042 

0 5206 

0 

TC 

RANXrAI  1 

0035 

REF 

14 

LAST 

411 

24,2043 

26751 

0 

CADR 

IMJSTALL 

0036 

REF 

2 

LAST 

411 

24,2044 

0 2250 

1 

TC 

ENDTESTl 

0037 

REF 

1 

24,2045 

0 3353 

1 

TC 

NBPDSPL 

0038 

REF 

1 

24,2046 

0 3104 

1 

rc 

POSGMBL 
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0039 

REF 

1 

24.2047 

0 2112 

0 

JC  . __ 

PIPACHK  _ 

IF  MGA  IS  60DEG+  prog  WILL  STAY  IN  COARS 

COOAO 

ALIGN  AND  MEASURE  VERTICAL  PIPA  RATE 

0041 

REF 

1 

24.2050 

0 3133 

0 

rc 

FALNF 

0042 

REF 

LAST 

411 

24.2051 

0 52Q6 

0 

rc 

BANKCA.Ll 

0043 

REF 

15 

LAST 

411 

24.2052 

26751 

0 

:adr 

IMJStALL 

0044 

REF 

3 

LAST 

411 

24.2053 

1 2250 

0 

rcF 

ENDTrSTl 

00442 

REF 

3 

LAST 

411 

24.2054 

11^42. 

0 

CCS 

GEOCnMPS 

. 00443 

REF 

1 

24.2055 

0 2076 

1 

rc 

JUMPi  OAD 

0045 

REF 

3A 

LAST 

411 

24.2056 

0 6112 

0 

GUESS 

tc 

INTPRET 

CALCULATE  -COS  LATITUDE  AND  SIN  LATITUDE 

00^46 

24,2057 

71545 

0 

OLOAD 

COS 

FOR  ESTIMATE 

0047 

REF 

5 

LAST 

392 

24,2060 

02511 

0 

LATITUDE 

0048 

24,2061 

72476 

1 

OCOMP 

SLl 

00_49 

REF 

1 

24,2062 

16573 

1 

5IQDL 

WAN3T  _ _ 

OO5O 

ref 

6 

LAST 

A12 

24,2063 

02511 

0 

latitude 

0051 

24.2064 

72556 

1 

SIN 

SLl 

0052 

REF 

1 

24,2065 

26571 

0 

STOYL 

WANGn 

LOAD  transition  MATRIX  INTO  ERASABLE 

00521 

REF 

1 

24,2066 

11716 

1 

seorred 

00522 

REF 

1 

24,2067 

26721 

1 

STOVL 

TRANSMl 

00523 

ref 

J. 

24,2070 

11724 

0 

georgec 

OO524 

REF 

2 

LAST 

412 

24,2071 

26727 

1 

STOYL 

TRANSMl  +6 

00525 

ref 

1 

24,2072 

11732 

1 

GEORgEB 

00526 

REF 

3 

LAST 

412 

24,2073 

02735 

1 

STORE 

TRANSMl  +120 

0053 

24,2074 

77776 

1 

■XIT 

005301 

24,2075 

0 2077 

0 

rc 

*2 

00531 

REF 

11 

LAST 

39T 

24,2076 

0 4724 

1 

JJMPLOAD 

tc 

freedsp 

free  display  if  in  gyrocompass 

00532 

REF 

1 

24,2077 

0 3621 

1 

rc 

LQAOr.TSM 

005A 

REF 

62 

LAST 

412 

24,2100 

0 5206 

0 

rc 

3AN<CALL 

0055 

REF 

1 

24,2101 

72014 

1 

CAOR 

ESTImS 

0075 

ret 

10 

□Tst 

327 

24,2102 

0 A161 

0 

torque 

rC 

PHASCHNG 

filter  Returns  aPter  torque  and  eR  set  . 

0076 

24,2103 

00005 

1 

OCT 

00005 

0081 

REF 

126 

LAST 

411 

24,2104 

3 7767 

0 

CA 

2ER0' 

0082 

REF 

14 

LAST 

4ll 

24,2105 

54  342 

0 

TS 

DSPTFM2 

0083 

REF 

1 

24,2106 

3 1640 

1 

CA 

ORIFtI 

0084 

REF 

15 

LAST 

412 

24,2107 

54  343 

1 

rs 

DSPTEM2  +1 

0085 

REF 

6 

LAST 

411 

24,2110 

5H544 

0 

INDEX 

POSItON 

0086 

REF 

1 

24,2111 

55*551 

0 

rs 

SOJThDR  -1 

0087 

REF 

2 

last 

411 

24,2112 

0 3605 

1 

rc 

SHOW 

0088 

REF 

24 

LAST 

411 

24,2113 

51*537 

1 

PIPACHC 

INDEX 

NDxCTR 

TORQUE  Platform  to  correct  ley-ling  err 

0089 

24,2114 

0 2115 

0 

TC 

f 1 

IN  preparation  TO  MEASURING  VERTICAL 

OO9O 

REF 

53 

LAST 

412 

24,2115 

0 5206 

0 

rc 

BAN<CALL 

PIPA  OUTPUT  PULSE  RATE 

OO9I 

ref 

3 

LAST 

38A 

24,2116 

30424 

0 

CADR 

EARTHR 

0092 

REF 

1 

24,2117 

3 3647 

1 

CA 

DEC17 

ALLOW  PIP  counter  TO  OVERFLOW  17  TIMES 

0093 

REF 

1 

24,2120 

55*632 

0 

TS 

OATApL  +4 

0094 

REF 

32 

LAST 

383 

24,2121 

3 7752 

0 

CA 

31T10 

IN  THE  ALLOTED  TIME  INTERVAL 

0095 

ref 

1 

24,2122 

55*527 

1 

TS 

LENGTHOT 

0096 

REF 

107 

LAST 

411 

24,2123 

3 7763 

1 

CA 

ONE 

0097 

REF 

1 

24,2124 

55*673 

0 

TS 

Resjltct 

0098 

REF 

127 

L”SFf 

Al2 

24,2125 

3 7767 

0 

CA 

ZERO' 

ZERO  PIPA  counter  INITIALLY 
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0099 

ref 

3 

LAST 

182 

24^2126 

_5J.U4X_0„ 

PiPIwDZX-  - 

0100 

REF 

6 

LAST 

38l 

24.2127 

54  037 

1 

rs 

pipa; 

0101 

REF 

2 

LAST 

A12 

24.2130 

55*626 

0 

IS 

DATApL 

0102 

REF 

1 

_ _ 24.2131 

J_366L 

0 . 

;a_ 

DEC56 

_ LOOP  56  times  5.12  SEC  "ACH._  EACH  INCR. 

0103 

REF 

1 

24.2132 

0 3214 

0 

TC 

WAITi  OOP 

WILL  Also  correct  earth  rate 

OlOA 

24.2133 

0 0004 

0 

INHINT 

0105 

ref 

1 

24.2134 

0 2776 

0 

_ TC 

_CKE.CICQ 

0106 

24.2135 

0 0003 

1 

RELINT 

0107 

REF 

1 

24.2136 

0 3072 

1 

TC 

DATALD 

0108 

REF 

10 

LAST 

A03 

, _ 24,2137 

^JZ76£l 

1 

CA 

FLV_E 

0109 

REF 

2 

LAST 

A12 

24.2140 

55'673 

0 

TS 

RESJI  TCT 

0110 

REF 

25 

LAST 

412 

24.2141 

51*537 

1 

INDEX 

NDXCTR 

0111 

24.2142 

0 2143 

0 

TC 

«1 

0112 

REF 

SA 

LAST 

412 

24.2143 

0 5206 

0 

rC 

BAN<rALL 

0113 

REF 

LAST 

412 

24.2144 

30424 

0 

CADR 

EARTHR 

OllA 

REF 

1 

24.2145 

11*676 

0 

CCS  _ 

CO_J_NTPL_ 

0115 

REF 

1 

24.2146 

0 3236 

0 

TC 

WAITLP2 

0116 

REF 

3 

LAST 

413 

24.2147 

11*627 

1 

CCS 

DATAPL  +1 

OIU 

24.2150 

0 2154 

0 

TC 

♦ 4 

0118 

REF 

11 

LAST 

285 

24.2151 

0 4736 

1 

TC 

CCSHOLE 

0119 

REF 

A 

LAST 

413 

24.2152 

4 1632 

0 

CS 

DATAPL  +4 

0120 

REF 

5 

LAST 

413 

24.2153 

55*632 

0 

TS 

DATAPL  +4 

0121 

24.2154 

0 0006 

1 

EXTEND 

0122 

ref 

6 

LAST 

413 

24.2155 

4 1627 

1 

DCS 

DATAPL 

0123 

REF 

7 

LAST 

413 

24,2156 

21*633 

1 

DAS 

DATAPL  +4 

012A 

REF 

35 

LAST 

412 

24,2157 

0 6112 

0 

TC 

INTPRET 

0U5  _ 

24,2160 

45345 

1 

dloao 

DSU 

0126 

ref 

8 

LAST 

413 

24,2161 

02635 

0 

DATaPL  *6 

0127 

REF 

9 

LAST 

413 

24,2162 

02631 

1 

DATApL  +2 

0128 

24,2163 

56325 

0 

=DDL 

DDV 

0129 

ref 

10 

LAST 

413 

24,2164 

02633 

0 

DATApL  *4 

0130 

24,2165 

41325 

0 

3DDL 

DMP 

0131 

REF 

1 

24,2166 

11651 

0 

DEC5R5 

DEC585  has  been  REDEFINED  FOR  LEM 

0132 

24,2167 

77634 

0 

RTB 

0133 

REF 

3 

LAST 

39O 

24,2170 

33520 

0 

SGNAr.REE 

013A 

REF 

16 

LAST 

412 

24.2171 

00343 

0 

store 

DSPTFM2 

0135 

24,2172 

77776 

1 

EXIT 

0136 

REF 

3 

LAST 

412 

24,2173 

0 3605 

1 

TC 

SHOW 

0137 

REF 

1 

24,2174 

3 3642 

1 

VERTDRFT  CA 

3990OEC 

3900  SECONDS  FOR  VERTICAL  DRIFT 

0138 

REF 

2 

LAST 

412 

24,2175 

55*527 

1 

TS 

LEN3TH0T 

01381 

REF 

65 

LAST 

413 

24.2176 

0 5206 

0 

TC 

BANXCALL 

THIS  WILL  CORRECT  FOR  EARTH  RATE  DURING 

01382 

ree 

5 JAST 

413 

24,2177 

30424 

0 

,-ADR 

EARTHR 

TIME  Spent  in  show  above** 

01383 

REF 

13 

LAST 

398 

24,2200 

3 0032 

0 

CA 

CDJX 

STOORE  AXIS  FOR  LAB  CALC  OF  DRIFT 

0138A 

REF 

1 

24,2201 

55*530 

1 

TS 

LOSVEC 

0139 

ref 

7 

last 

412 

24.2202 

51*544  0 

INDEX 

POSITQN 

OlAO 

REf 

2 

last 

412 

24,2203 

4 1550 

1 

cs 

SOJThdR  »2 

OUl 

REF 

2 

LAST 

411 

24,2204 

55*576 

0 

TS 

ORIFTT 

OlAlOl 

REF 

2 

LAST 

412 

24,2205 

0 3621 

1 

TC 

LJAdGTSM 

01A2 

REF 

128 

last 

412 

24,2206 

3 7767 

0 

CA 

Zero 

ALLOW  ONLY  SOUlH  GYRO  EARTH  RATE  COMPENS 
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0143 

REF 

38 

last 

4L1 

IhjtZZOT 

53 '4-00 

-0 

LS 

- -XS-VL  ^ - - - „ 

0144 

REF 

39 

LAST 

414 

24,2210 

55'401 

1 

rs 

XSM  *1 

0145 

REF 

40 

LAST 

4lA 

24,2211 

55  * 

1 

TS 

XSM  *4 

0146 

REF 

41 

LAsT 

414 

24,2212 

55'405 

0 

- rs 

XSM  *5  - - 

0147 

REF 

9 

LAST 

395 

24,2213 

55'406 

0 

rs 

YSM 

0148 

ref 

10 

LAST 

414 

24,2214 

55*407 

1 

TS 

YSM  +1 

0149 

REF 

li 

LAST 

414 

24,221i 

53*4^12 

0 

rs  _ - 

- YSM  *4  _ - - .- 

0150 

ref 

12 

LAST 

414 

24,2216 

55*413 

1 

rs 

YSM  *5 

0151 

REF 

8 

LAST 

395 

24,2217 

55*414 

0 

rs 

2SM 

0152 

REF 

.9 

LAST 

414 

24,2220 

35-'4l5 

1 

rs 

ZSM  +1 

0153 

ref 

10 

LAST 

414 

24,2221 

55'420 

1 

rs 

ZSM  *4 

0154 

REf 

11 

last 

414 

24,2222 

55*421 

0 

rs 

ZSM  *5 

0155 

ref 

18 

LAST 

4l0 

24,2223 

3 7743 

0 

GJESSl 

:af 

POSMAX 

0156 

REF 

3 

LAST 

411 

24,2224 

55'574 

1 

rs 

rORDNUX 

0157 

REF 

4 

LAST 

414 

24,2225 

55'575 

0 

rs 

T0R3NDX  +1 

0 15-8  , 

R^_ 

__S6 

LAST 

413 

24.2226 

0 5206 

0 

rc 

RANYrAl  1 

0159 

REF 

2 

LAST 

4lZ 

24,2227 

72014 

1 

CAOR 

ESriMS 

0160 

REF 

11 

LAST 

412 

24,2230 

0 4161 

0 

yalmis 

rc 

phaschng 

0161 

24,2231 

00005 

1 

3cr 

00-0-05  . . 

0170 

REF 

1 

24,2232 

3 1636 

0 

:a 

ORIFTO 

0171 

REF 

17 

LAST 

413 

24,2233 

54  343 

1 

rs 

0SPrPM2  *1 

01711 

REF 

14 

LAST 

413 

24,2234 

3 -0032 

0 

CA 

CDJX  STORE  DC  ANGLE  FOR  LAb  CALC  oF  JRIFTih* 

01715 

REF 

2 

LAST 

413 

24,2235 

55'531 

0 

rs 

LOSYFC  +1 

0172 

REF 

129 

last 

413 

24,2236 

3 7767 

0 

:a 

ZERO- 

0173 

REp 

18 

last 

414 

24,2237 

54  342 

0. 

TS 

0SPTFM2 

0174 

REF 

4 

LAST 

413 

24,2240 

0 3605 

1 

rc 

SHOW 

0175 

REF 

108 

LAST 

412 

24,2241 

3 7763  1 

FINISH 

'A 

ONE 

0176 

REF 

8 

LAST 

413 

24,2242 

6 1544  0 

AD 

POSItON 

0177 

REF 

19 

LAST 

414 

24,2243 

54  344  0 

IS 

DSPTEM2  *? 

0178 

ref 

50 

LAST 

410 

24,2244 

3 7762  0 

:a 

Two 

0179 

REF 

24 

LAST 

399 

24,2245 

55*546  0 

rs 

OPLACE 

01 80 

REF 

57 

LAST 

414 

24,2246 

0 5206  0 

rc 

BANXCALL 

0181 

REF 

2 

LAST 

210 

24,2247 

22342  1 

:aor 

TSELFCT  -6 

0182 

REF 

58 

LAST 

414 

24,2250 

0 5206  0 

enotesti 

rc 

BANCCALL 

0183 

REF 

24 

LAST 

410 

24,2251 

30770  1 

CAOR 

ENOTfST 
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REF 

1 

_ 24 

,2252. 

.3  3652 

0 _ 

D.^.CHIC  . . 

rAF 

.QELYnFJ  . 

.AUTOMATIC  TEST  .FOR  SYSTEM  OPERAtIDN 

24 

,2253 

0 0006 

1 

EXTEND 

24 

,2254 

02  030 

0 

RAND 

30 

CHECK  TO  SEE  IF  IMU  IS  ON 

REF 

Zi^ 

east 

408 

24,2255 

Ifl  000. 

0. 

CCS 

A 

REF 

1 

24 

,2256 

0 2444 

1 

TC 

alarms 

REF 

1 

24 

,2257 

3 3645 

0 

CAF 

VI6N7OS 

REF 

43_ 

last_ 

40T 

0_  4657 

1 

TC  . 

NV.S3W4J..T  . 

REF 

12 

LAST 

412 

24 

,2261 

0 4724 

1 

TC 

FREEOSP 

REF 

69 

LAST 

414  . 

24 

,2Z62^ 

0 5206 

0 

TC 

3AN<CALL 

REF 

4 

LAST 

411 

24 

,2263 

26000 

0 

CADR 

IMJ2FR0 

REF 

70 

last 

24 

,2264 

0 5206 

0 

TC 

BANCCALL 

REF 

16 

LAST 

412 

24 

*_2_2.6.5.. 

26751 

0 

CADR 

IMJSTALL 

REF 

4 

LAST 

412 

24 

,2266 

1 2250 

0 

TCF 

ENDTESTl 

REF 

12 

LAST 

37O 

24 

,2267 

3 7754 

0 

CA 

BITS 

zero  all  eRaseable  used  in  test 

REF 

2 

LAST 

387 

24 

,2270 

55'777 

0 

TS 

ZERDNDX 

REF 

1 

24 

,2271 

3 3655 

1 

CA 

3ENPLAD 

ref 

2 

1 AST 

387 

24 

.2272 

0 3245 

1 

Tr 

ZERO'TNG 

REF 

2 

LAST 

411 

24 

,2273 

0 3353 

1 

TC 

NBP3SPL 

align  angle  computation 

REF 

2 

LAST 

411 

24 

,2274 

0 3104 

1 

TC 

PqSSmBL 

COARSE  ALIGN  THOSE  GIMBALS  NOW 

ref 

2 

LAST 

210 

24 

,2275 

1 2252 

1 

TCF 

DPCHk 

REF 

2 

LAST 

412 

24 

,2276 

0 3133 

0 

TC 

FALNf 

FINK  ALIGN  PLATFORM  BY  TORQUING  GYROS 

REF 

7I 

LAST 

415 

24 

.2277 

0 5206 

0 

TC 

BANCCALL 

REF 

17 

last 

415 

24 

,2300 

26751 

0 

cadr 

imjstall 

REF 

5 

LAST 

Wl5 

24 

,2301 

1 2250 

0 

TCF 

ENDTESTl 

REF 

51 

LAST 

414 

24 

,2302 

3 7762 

0 

CA 

TwD 

REF 

2 

LAST 

410 

24 

,2303 

55'672 

1 

cduchec< 

TS 

COJNnX 

THIS  LOOP  checks  FOR  NO  ERROR  3-TWEEN 

- REF 

3 

LAST 

415 

24 

,2304 

51*672 

0 

INDEX 

CDJNDX 

DESIRED  CDU  ANGLES  AND  THE  ACTUAL  ANGLES 

REF 

14 

last 

411 

2,4 

• 2305 

4 O4OO 

1 

CS 

THETAD 

ref 

4 

LAST. 

415> 

24 

,2306 

51>672 

0 

INdEx_ 

Cdjnox 

REF 

15 

LAST 

414 

24 

,2307 

6 0032 

0 

AD 

CDJX 

REF 

5 

last 

395 

24 

,2310 

55'551 

0 

TS 

STDRFPL 

REF 

6 

LAST 

415 

24 

,2311 

11*551 

0 

CCS 

STORFPL 

ref 

1 

24 

,2312 

0 2320 

1 

TC 

ERR  mask 

REF 

1 

24 

,2313 

0 2315 

1 

TC 

NOERR 

REF 

2 

LAST 

415 

24 

,2314 

0 2320 

1 

TC 

ERRMASK 

REF 

5 

LAST 

415 

24 

,2315 

11*672 

1 

NDERR 

CCS 

CDJNDX 

REF 

1 

24 

*2316 

0 2303 

0 

TC 

CDJCHECK 

REf 

1 

24 

,2317 

0 2324 

0 

TC 

1 OAotc 

REF 

1 

24 

,2320 

7 3660 

0 

errmasc 

MAS< 

LDwFnUR 

ALLOW  FIVE  bit  ERRORS 

REF 

215 

LAST 

415 

24 

,2321 

10  000 

0 

CCS 

A 

REF 

2 

LAST 

415 

24 

,2322 

0 7444 

1 

TC 

alarms 

REF 

2 

LAST 

415 

24 

,2323 

0 2315 

1 

TC 

NOERR 

REF 

139 

last 

414 

24 

,2324 

3 7763 

1 

L3ADIC 

CA 

ONE 

REF 

3 

LAST 

413 

24 

,2325 

55*673 

0 

TS 

RESJt'TCT 

REF 

no 

last 

415 

24 

,2326 

4 7763 

0 

CS 

3NE 
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0229 

REF 

1 

24,2327 

55*670 

0 _ 

L5  . _ 

MA.S<.R£5  _ . 

SETS  UP  Ail MUTH  J\NP.  VERTICAL  VECTORS  FOR 

0230 

REF 

130 

LAST 

414 

24 

.2330 

3 7767 

0 

:a 

ZERO 

0231 

ref 

7 

LAST 

413 

24 

,2331 

54  037 

J_ 

_1S 

PIPAy 

0232 

REF 

4 

last 

38l 

24 

,2332 

54  040 

1 

TS 

PIPAY 

0233 

REF 

5 

last 

38l 

24 

,2333 

54  041 

0 

TS 

PIPA7 

0234 

REF 

21 

last 

285 

24 

,2334 

3 7751 

0 

:a 

BITll 

■ 0235 

REf 

3 

LAST 

413 

24 

,2335 

55*527 

1 

IS 

lensthot 

VECTOR  IN  PIpA  COUNTERS 

0236 

ref 

1 1 L 

last 

415 

24 

,23.36. 

._3...7.7.63 

1 

CA 

DME 

0237 

REF 

2 

LAST 

413 

24 

,2337 

0 3214 

0 

TC 

^(AITI  OOP 

0238 

REF 

2 

LAST 

413 

24 

,2340 

11,676 

0 

CCS 

COJNTPL 

0239 

REF 

2 

LAST 

413 

24 

,2341 

0 3236 

0 

IS 

_WA.ULP_2 

0240 

REF 

2 

LAST 

413 

24 

,2342 

3 3661 

0 

CA 

DEC56 

0241 

■ref 

3 

LAST 

416 

24 

,2343 

0 3214 

0 

TC 

WAITLOOP 

0242 

REF 

52 

LAST 

415 

24 

,2344 

3 7762 

0 

OPCHKl 

CA  . 

Two..  . 

0243 

REF 

4 

LAST 

413 

24 

,2345 

55*541 

1 

0?CH<2 

rs 

PlPlwDEX 

0244 

24 

,2346 

0 0004 

0 

INHINT 

0245 

ref 

2 last 

413 

24 

,2347 

0 2776 

0 

TC 

CHErwG 

0246 

24 

,2350 

0 0003 

1 

RELINT 

0247 

REF 

131 

LAST 

416 

24 

,2351 

3 7767 

0 

CA 

ZERO 

024a 

REF 

5 

LAST 

416 

24 

,2352 

J1*54L0 

INDEX 

PIPINDEX 

0249 

REF 

8 

LAST 

416 

24 

,2353 

54  037 

1 

TS 

PIPAX 

0250 

REf 

2 

last 

413 

24 

,2354 

0 3072 

1 

TC 

DATAlD 

load  pIpA  data  and  time  in  DATA3L 

0251 

REF 

4 

LAST 

415 

24 

,2355 

57*673 

1 

XCH 

RESJLTCT 

0252 

REF 

9 

LAST 

368 

24 

,2356 

6 7761 

0 

AD 

FOUR 

0253 

REF 

5 

LAST 

416 

24 

,2357 

55*673 

0 

TS 

RESJLTCT 

0254 

REF 

6 

LAST 

416 

24 

.2360 

11,541 

1 

CCS 

PIPINDEX 

0255  ■ 

ref 

1 

24 

,2361 

0 2345 

1 

TC 

DPCHK2 

0256 

REF 

10 

LAST 

416 

24 

,2362 

4 7761 

1 

READOUT 

cs 

four 

0257 

REF 

6 

last 

416 

24 

,2363 

6 1673 

1 

AD 

RESJI  TCT 

0258 

REF 

7 

last 

416 

24 

,2364 

55*673 

0 

IS 

RESJi’TCT 

0259 

24 

,2365 

22  007 

0 

EL 

0260 

REF 

8 

last 

416 

24 

,2366' 

51*673 

1 

INDEX 

RESJI  TCT 

0261 

REF 

11 

LAST 

413 

24 

,2367 

3 1626 

1 

CA 

DATAPL 

0262 

ref 

216 

last 

415 

24 

,2370 

22  000 

1 

uXCH 

A 

0263 

REF 

9 

LAST 

416 

24 

,2371 

51*673 

1 

INDEX 

RESJI  TCT 

0264 

REF 

45 

LAST 

409 

24 

,2372 

21*572 

1 

DAS 

3ENPL  +1 

0265 

REF 

10 

LAST 

416 

24 

,2373 

3 1673 

1 

CA 

RESJLTCT 

0266 

ref 

2 

LAST 

416 

24 

,2374 

7 1670 

0 

viASK 

MASCdEG 

0267 

REF 

217 

LAST 

416 

24 

,2375 

10  000 

0 

CCS 

A 

0268 

REF 

1 

24 

,2376 

0 2362 

1 

TC 

READnUT 

0269 

REF 

6 

LAST 

409 

24 

,2377 

3 4570 

1 

CA 

TEN 

0270 

REF 

23 

LAST 

402 

24 

,2400 

6 6311 

1 

AD 

three 

0271 

REF 

11 

last 

416 

24 

,2401 

55*673 

0 

rs 

RESJLTCT 

0272 

REF 

218 

LAST 

416 

24 

,2402 

4 0000 

0 

cs 

A 

0273 

REF 

3 

LAST 

“41? 

24 

,2403 

55*670 

0 

TS 

MAS<REG 

0274 

REF 

3 

LAST 

416 

24 

,2404 

11*676 

0 

CCS 

COJNTPL 

02/5 

ref 

3 

LAST 

4 1 6 

24 

,2405 

0 3236 

0 

TC 

WAITLP2 

0276 

ref 

1 

24 

,2406 

0 3257 

1 

TC 

COMPUT 
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0277 

REF 

1 

L4j23l07 

3 3646 

0 

RADCK  . 

:a 

..  V-I6N4OS. 

0278 

REF 

44 

LAST 

415 

24,2410 

0 4657 

1 

rc 

NVSSWAIT 

operator  will  check  radar  Status. in  lab. 

0279 

REF 

9 

LAST 

402 

24,2411 

0 4622 

0 

rc 

FLASHON 

SET  radar  off  then  PUT  RESOLVER  STANDARD 

02a0 

REF 

31 

last 

406 

24,2.412 

- 0 .4^75 

0 

LC  _ 

..  EMOIOLE.  . 

ON  TRUNNION  AND  SET  TO  ,45  DlG. SHAFT  wIL 

0281 

REF 

6 

LAST 

415 

24,2413 

0 2250 

1 

TC 

ENDTfSTI 

0282 

24,24l4 

0 2415 

0 

rc 

♦ 1 

AFTER  SETTING  RES  STANDARD  00  A V33 

0283 

REF 

132 

LAST 

416 

.24.i2A15^ 

3 nb~L 

0 

CA 

ZLR3  _ . 

028A 

REF 

18 

LAST 

359 

24,2416 

54  423 

0 

TS 

TANS  +1 

0285 

REF 

1 

24,2417 

3 3662 

0 

CA 

45DEr, 

0286 

REf 

1 9 

last 

417 

24,2420 

54  422 

1 

IS.. 

TANS' 

0287 

REF 

72 

LAST 

415 

24,2421 

0 5206 

0 

DRlVRAO 

tC 

3aN<CALL 

IN  SC  WHEN  RAD  PRESENT  DO  V33  RIGHT  AWAY 

0288 

REF 

3 

LAST 

399 

24,2422 

20250 

1 

CAOR 

RRZERO 

LGC  WILL  ATTEMPT  TO  DRIVE  45  OES  TRJNN. 

0289 

REF 

73 

LAST 

417 

24^2423 

0 5206 

0 

TC  . 

BAN<rALL 

TO  match  standard,  after  zeroins  CDUS 

0290 

REF 

5 

LAST 

399 

24,2424 

26745 

0 

CADR 

RADSTALL 

0291 

REF 

7 

LAST 

417 

24,2425 

0 2250 

1 

TC 

ENDTfSTI 

0292 

REF 

7^ 

LAST 

4lJ_ 

24,2426 

0 5206 

0 

rc  . 

BAN<CALL 

0293 

REF 

2 

LAST 

207 

24,2427 

20364 

1 

CAOR 

RRDESNB 

0295 

ref 

75 

LAST 

417  _ 

24,2430 

0 5206 

0 

TC  . 

M.N.CnALI 

0296 

REF 

6 

LAST 

417 

24,2431 

26745 

0 

CADR 

RADSTALL 

IF  COU  FAILS  TO  AGREE  WITH  COMMAND  TO 

0297 

REF 

3 

LAST 

415 

24,2432 

0 2444 

1 

rc 

alarms 

1 DEG  GET  ALARM  HERE 

0298 

REF 

10 

LAST 

417 

24,2433 

0 4622 

0 

rc 

FLASHON 

operator  WILL  CHECK  STATUS  OF  RADAR 

0299 

REF 

32 

LAST 

417 

24,2434 

0 4475 

0 

rc 

ENOIDLE 

IN  S/C  DO  V33  TO  CONTINUE  WITH  SHAFT 

0300 

REF 

8 

LAST 

41.7 

24,2435 

0 2250 

1 

TC 

ENDTESTL 

TEST 

0301 

24,2436 

0 2437 

0 

TC 

♦ 1 

IN  LAB  TURN  RADAR  OFF  CHANGE  RES  STANDAR 

0302 

REF 

133 

LAST 

417 

24,2437 

3 7767 

0 

CA 

ZERO 

TO  SHAFT  AND  SeT  FOR  -450EG. 

0303 

REF 

20 

LAST 

417 

24,2440 

54  422 

1 

TS 

TANS 

then  do  a V33  IF  WANT  TO  REPEAT  CHtCK 

0304 

REF 

2 

LAST 

417 

24,2441 

4 3662 

1 

CS 

450FG 

DO  A V34  TO  TERMINATE 

0305 

REF 

21 

LAST 

417 

24,2442 

54  423 

0 

rs 

TANS  +1 

0306 

REF 

1 

24,2443 

0 2421 

1 

TC 

ORiv/RAD 

0307 

REF- 

156 

LAST 

410 

2**, 2444 

56  002 

0 

alarms 

kCh 

3 

0308 

REF 

25 

LAST 

414 

24,2445 

55'546 

0 

TS 

3PLACE 

0309 

REF 

34 

LAST 

399 

24,2446 

0 4755 

1 

rc 

alarm 

0310 

24,2447 

01411 

1 

3CT 

1411 

0311 

ref 

26 

LAST 

417 

24,2450 

0 1546 

1 

TC 

3PLACE 
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L 
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0312 

REF 

36 

LAST 

613^ 

__26,_2j65L 

0 _6J.1.2 

0 

GYRSFTST 

TC 

J.NlPRiLL.  

START  ADRESS  FOR  IRIG  SF  TEST 

0313 

26,2652 

77626 

1 

CALL 

0316 

REF 

3 

LAST 

611 

26,2653 

30553 

1 

Catazchk 

LOAD  AZ  AND  LAT 

0315 

26,_2j656 

77776. 

1 

E)(1I„ 

0316 

REF 

1 

26,2655 

3 3635 

1 

TESTCALL 

CAF 

Y21N30E 

0317 

REF 

65 

last 

61T 

24  f 2456 

0 6657 

1 

TC 

NvSSwAIT 

LOAD  + OR  - 1 FOR  + OR  - X TEST  (,00001) 

0318 

REF 

33 

LAST 

61T 

26,2657 

0.  6675 

0 

TC 

ENDIOLE 

LOAD  t OR  - 2 TOR  ♦ OR  _ Y TEST 

0319 

REF 

9 

LAST 

61/ 

26,2660 

1 2250 

0 

TCF 

ENDTESTl 

LOAD  ♦ OR  - 3 FOR  ♦ OR  - Z TEST 

0320 

REF 

1 

26,2661 

0 2655 

1 

TC 

TESTCALL 

0321 

REF 

65 

LAST 

60A 

26,2662 

_5.6  337_  0 

kch 

dsptfmi 

0322 

REF 

1 

26,2663 

55*616 

1 

TS 

CALCoIR 

03221 

26*2666 

0 0006 

1 

EXTEND 

THIS  ROUTINE  LOOKS  AT  THE  SIZE  OF  THE 

03222 

ref 

1 

26,2665 

6 2672 

1 

3ZMF 

NEislZ  _ . ^ . 

entry  made  BY  The  OPERATOR,  IF  ^E  olo  NO 

03223 

REF 

2 

LAST 

153 

26,2666 

7 5360 

1 

SlzLOOC 

MAS< 

NEG3 

T ENTER  TEST  NO  THAT  IS  W/I  PERMISSIBLE 

03226 

26,2667 

0 0006 

1 

EXTEND 

RANGE-  he  will  BE  ASKED  TO  LOAD  AGAIN. 

0322.5 

REF 

..  i 

26,2670 

1 2676 

0 

3ZF 

oJDFNTRY 

THIS  IS  CONSIDERED  NECESSARY  BECAUSE 

03226 

REF 

2 

LAST 

618 

26,2671 

0 2655 

1 

TC 

TESTCALL 

OF  FOLLOWING  INDEXED  TC  WHICH  COULD 

03227 

..  _ 26,2_6:/2_ 

6_.0000 

0 

NEGSIZ 

COM 

send  the  computer  OFF  INTO  THE  BOONDOCKS 

03228 

ref 

1 

26,2673 

0 2666 

1 

TC 

sizlook 

TO  play  with  itself  if  The  operator 

03229 

REF 

2 

LAST 

618 

26,2676 

3 1616 

0 

GJDENTRY 

CA 

CALCoIR 

MAKES  ABAD  ENTRYx»»»x* 

0323 

REF 

LAST 

616 

26,2675 

6 7761 

0 

AD 

FOJ:! 

0326 

REF 

219 

LAST 

616 

26,2676 

50  000 

1 

INDEX 

A 

0325 

26,2677 

0 2500 

0 

TC 

♦ 1 

0326 

REF 

3 

LAST 

618 

26,2500 

0 2655 

1 

TC 

TESTCALL 

0327 

26,2501 

0 2507 

1 

TC 

♦ 6 

C(A)=+00001  for  -Z 

0328 

26,2502 

0 2506 

0 

rc 

♦ 6 

C(A)=+00002  FOR  -Y 

0329  • 

26,2503 

0 2505 

0 

TC 

♦ 2 

C(A)=,00003  FOR  -X 

0330 

26,2506 

0 2500 

0 

rc 

-6 

C (A) = + 00006  ERROR 

0331 

26,2505 

0 2510 

1 

TC 

+ 3 

C(A)=+00005  FOR  +X 

0332 

26,2506 

0 2516 

0 

TC 

*.6 

0333 

26,2507 

0 2517 

0 

TC 

♦ 10 

0336 

REF 

12 

LAST 

618 

26,2510 

3 7761 

0 

CAF 

FOJR 

0335 

REF 

‘9 

LAST 

61A 

26,2511 

55*566 

1 

TS 

POSItON 

6 IS  FOR  A.L.  POSN  6 USED  FOR  X SF  TEST 

0336 

26,2512 

■ 0 2521 

0 

rc 

*7 

0337 

26,2513 

0 2521 

0 

rc 

♦6 

0338 

ref 

53 

LAST 

616 

26,2516 

3 7762 

0 

CAF 

TWO 

0339 

REF 

10 

LAST 

TaTT 

26,2515 

55*566 

1 

T5 

POSITON 

+ 2 IS  A.I..  POS  2 used  for  Y SF  IEST 

0360 

26,2516 

0 2521 

0 

rc 

+ 3 

0361 

ref 

112 

last 

616 

26,2517 

3 7763 

1 

CAF 

ONE 

0362 

REF 

11 

LAST 

618 

26,2520 

55*566 

1 

rs 

POSITON 

♦1  IS  A.L.  POS  1 USED  FOR  Z SF  TEST 

0363 

ref 

2- 

LAST 

610 

26,2521 

55*617 

1 

rs 

OPTNREG 

C(K)  = (6,2,1)  FOR  X,Y,Z 

0366 

ref 

1 

26,2522 

55*621 

1 

TS 

SAVE  *1 

0365 

rEf“ 

13 

last 

6lb 

26,2523 

0 6726 

1 

rc 

FREEnSP 

0366 

REF 

1 36 

LAST 

617 

26,2526 

3 7767 

0 

CAF 

ZERO 

0367 

REF 

1 

26,2525 

55*536 

1 

rs 

NBPOs 

SET  UP  NB  COORD  TO  Z NORTH,  X 

0368 

REF 

2 

LAST 

618 

26,2526 

55*622 

1 

TS 

SAVE  +2 

INITIALIZE  FOR  EARTHR  DESIGNATE  USAGE 

0369 

REF 

1 

26*2527 

55*563 

1 

rs 

testno 

initialize  for  test  abort  routine 

0350 

ref 

1 

26,2530 

55*615 

0 

TS 

CDJFI.AG 

ZEROS  FOR  STRTWAcH  USE 

0351 

REF 

1 

26,2531 

3 3637 

0 

CAF 

SFCONST 
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performance  TES 

TS  2 

USER*S  OWN  page  no.  9 S3  E5 

0352 

REF 

1 

24,25  3_2 

_55<  623,i  _ 

. _ _ 

SFCDnST1_^. 

. . ._F0R  DIVISION  DURING  CALCSF.E 

0353 

REF 

76 

LAST 

417 

24,2533 

0 5206 

0 

TC 

BANCCALL 

035A 

REF 

5 

LAST 

415 

24,2534 

26000 

0 

CADR 

IMJZERO_ 

0355 

REF 

77 

LAST 

419 

24,2535 

0 5206 

0 

TC 

BAN<rALL 

0356 

REF 

18 

LAST 

415 

24,2536 

26751 

0 

CADR 

imjstall 

0357 

REF 

_10 

last 

Ai  e _ _ 

_24,2i3_7. 

_1_^225_0 

0 

_ rcF  . 

ENlOTcSXI  . , 

0358 

ref 

3 

LAST 

415 

24,2540 

0 3353 

1 

TC 

NBPOSPL 

0359 

REF 

3 

last 

415 

24,2541 

0 310if 

1 

TC 

POSomBL 

0360 

ref 

11 

LAST 

419 

_ 24»25j42_ 

I 2250 

0 

_ TCF 

ENDTESTl 

0361 

REF 

3 

LAST 

415 

24,2543 

0 3133 

0 

TC 

FALNF 

0362 

REF 

78 

LAST 

419 

24,2544 

0 5206 

0 

TC 

3AN<fALL 

0363 

ref 

1 

_ 24l2^4S 

_ 3172& 

0 

CADR . 

REDYTORK 

03&A. 

REF 

3 

LAST 

413 

24,2546 

55*552 

0 

WAITFIVE  TS 

SOJTHDR 

0365 

REF 

26 

last 

405 

24*2547 

3 7756 

1 

CAF 

3IT6 

THIS  SECTION  CALLS  FOR  2-32  MSEC  WAITS 

0366 

ref 

1 

J 4. 25 50 

0 2563 

0 

TC 

DlRFrTN  -3 

0367 

REF 

27 

LAST 

419 

24,2551 

3 7756 

1 

ENABLE  CAF 

Bl  T6 

0368 

24,2552 

0 0006 

1 

EXTEND 

enable  gyro  TORQUING  LOOP  BY  TURNING 

0369 

REF 

1 

24,2553 

05  014 

1 

NOR 

L4C 

ON  CAL  MODULE  RELAY 

0370 

24,2554 

0 0004 

0 

INHINT 

0371 

REF 

54 

LAST 

418 

24,2555 

4 7762 

1 

CS 

Two 

SETS  UP  exec  SWITCH  SO  IMUPULSE  WILL 

0372  ' 

REF 

17 

last 

311 

24,2556 

7 0366 

0 

MAS< 

IM00fS33 

NOT  TURN  OFF  GYRO  TORQ  ENABLE  RELAY 

0373 

REF 

55 

LAST 

419 

24,2557 

6 7762 

0 

AD 

Two 

0374 

REF 

16 

LAST 

419 

24,2560 

59  366 

0 

?S 

1M0DFS33 

0375 

REF 

56 

LAST 

419 

24,2561 

3 7762 

0 

CAF 

TwO 

0376 

REF 

LAST 

419 

24,2562 

55*552 

0 

TS 

sojthdr 

0377 

REF 

if 

LAST 

416 

24,2563 

55*527 

1 

TS 

LEN3TH0T 

20  MSEC  delay  FOR  GYRO  LOOP  STABILIZAT. 

0378 

REF 

113 

LAST 

418 

24,2564 

3 7763 

1 

CA 

ONE 

0379 

REF 

4 

LAST 

416 

24,2565 

0 3214 

0 

TC 

WAI  Tl  OOP 

0380 

REF 

4 

LAST 

416 

24,2566 

11*676 

0 

CCS 

CQJNTPL 

0381 

REF 

4 

LAST 

416 

24,2567 

0 3236 

0 

TC 

WAITI.P2 

0382 

REF 

79 

LAST 

419 

24,2.570 

0 5206 

0 

DIRECTN  tC 

BANCCALL 

TORQUING  ROUTINE  IN  IMU  PERFORMANCE 

0383 

REF 

1 

24,2571 

96520 

1 

CADR 

silver 

bank  3 

0384 

REF 

5 

LAST 

419 

24,2572 

11*552 

0 

CCS 

SOJTHDR 

A ONE  first  time  THROUGH,  THEN  ZERO 

0385 

REF 

1 

24,2573 

0 2596 

1 

TC 

wAITFIVE 

0386 

REF 

2 

LAST 

418 

24,2574 

11*615 

0 

STRTWACH  CCS 

CDJFLAG 

RETURNS  HERE  VIA  QPLACE  FROM  SILVER 

0367 

REF 

1 

24,2575 

0 2656 

0 

TC 

CDJZnTST 

BEEN  CAUGHT  AND  CDU  THROUGH  ZERO  IS 

0368 

REF 

3 

LAST 

418 

24,2576 

11*621 

1 

CCS 

SAVE  ♦! 

0389 

REF 

1 

24,2577 

0 26l6 

1 

TC 

LO0<rDUP  -9 

0390 

ref 

2 

last 

419 

24,2600 

0 2622 

0 

TC 

loo<cdup 

0391 

REF 

135 

LAST 

418 

24,2601 

3 7767 

0 

CORRECT  CAF 

ZERO 

0392 

REF 

10 

LAST 

153 

24,2602 

59  356 

0 

TS 

LoYRn 

releases  gyros  for  IMUPULSe  US4GE 

0393 

REF 

30 

LAST 

419 

24,2603 

0 5206 

0 

TC 

BANCCALL 

EARTHRATE  CORRECTION  TO  GYROS  NDT  EAST 

0394 

REF 

8 

LAST 

413 

24,2604 

30429 

0 

CADR 

EARTHR 

OR  WEST 

0395 

REF 

114 

LAST 

419 

24,2605 

3 7763 

1 

CAF 

ONE 

0396 

REF 

11 

last 

419 

24,2606 

59  356 

0 

TS 

LGYRn 

reserves  gyros  for  S.F.  test  TORQUING 

0397 

REF 

if 

LAST 

419 

24,2607 

55*622 

1 

TS 

SAVE  +2 

INITIALIZES  TO  INSURE  5.6  DEG  0-  TORQ) 

0398 

REF 

2 

LAST 

418 

24*2610 

27*563 

1 

ADS 

TESTNO 

INCR  the  burst  counter,  WHICH  U USED  TO 
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USER'S  OWN  PAOE  NO.  10 


S3  Eb 


0399 

rff 

3 

LAST 

41? 

24 

,2611 

4 _1563 

1 

rs 

T-LSJnLL-  - --- 

. COUNT  -The_nO-.  qf-  Times  the  gyro  coujiter- 

OAOO 

REF 

11 

LAST 

413 

24 

,2612 

7 7766 

0 

MAS< 

five 

IS  LOADED.  IF  A TENTH  LOAD  IS  R-QJESTED 

OAOl 

24 

,2613 

0 0006 

1 

EXTEND 

THE  SFE  IS  TOO  LARGE  TO  BE  MEANINGFULL 

OA02 

REF 

1 

24 

,2614 

1 2765 

0 

3ZF 

STOPtEST 

OR  THE  CDU,S  ARE  NOT  WORKING, 

0403 

REF 

2 

LAST 

419 

24 

,261b 

0 2570 

1 

TC 

DIRECTN 

0404 

REF 

136 

last 

419 

14j26l16 

3 7-7-67 

0 

:af 

Zero 

zeros  CDU  REG  WHICH  WILL  BE  USED  TO 

040b 

REF 

5 

LAST 

419 

24 

,2617 

55*621 

1 

TS 

SA\/F  +1 

0406 

REF 

6 

last 

415 

24 

,2620 

51*672 

0 

INDEX 

COJNnX 

measure  angle. 

0407 

ref 

16 

last 

4L5_ 

24 

,2621 

032  1. 

„ - . --  TS  _ 

CdJx 

0408 

24 

,2622 

0 0004 

0 

L3OKC0JP  INHINT 

0409 

REF 

17 

LAST 

398 

24 

.2623 

3 7757 

0 

CAF 

31Tb 

04LO 

REF 

1 

24 

,2624 

55*624 

1 

STILLODC  TS 

timer 

0411 

REF 

7 

LAST 

420 

24 

»262S 

51*672 

0 

INDEX 

CDJNDX 

LOOKS  FOR  first  CDU  PULSE  AFTER  TORDJING 

0412 

ref 

17 

last 

420 

24 

,2626 

10  032 

1 

CCS 

cdJx 

STARTS 

0413 

REF 

1 

24 

,2627 

0 2641 

0 

TC 

OJTPl  US 

HERE  IS  PLUS  PULSE 

0414 

REF 

1 

24 

,2630 

0 2633 

0 

TC 

TIMEWACH 

041b 

REF 

4 

LAST 

417 

24 

,2631 

0 2444 

1 

TC 

ALARMS 

TTELL  operator  FIRST  CDU  PULSE  WAS  MlSSD 

_ 0416 

REF 

2A 

.2632 

0 2652 

1 

TC 

OUTNEG 

HERE  IS  MINUS  PULSE 

0417 

REF 

2 

LAST 

420 

24 

,2633 

11*624 

1 

TIMEWACH  CCS 

timer 

WATCHES  time  IN  INHlNT  SO  COPS  WILL  NOT 

0418 

REF 

1 

24 

,2634 

0 2624 

0 

TC 

STILLOOK 

CATCH  US 

0419 

24 

,263b 

0 0003 

1 

RElINT 

0420 

REF 

3 

LAST 

224 

24 

,2636 

10  067 

1 

CCS 

NEWJnB 

0421 

REF 

2 

LAST 

224 

24 

,2637 

0 5532 

0 

TC 

CHANGl 

0422 

REF 

3' 

LAST 

419 

24 

,2640 

0 2622 

0 

TC 

LOOCCDUP 

KEEP  WATCHING  IF  THE  PULSE  IS  NOT  HERE 

0423 

REF 

. L 

24 

'2641 

4 3636  0 

dUtPLUS  cs 

DESAnGLe 

-2047  CDU  PULSES  ADDED  TO  CDU  R?G  SO 

0424 

ref 

8 

LAsT 

420 

24 

,2642 

51*672 

0 

index 

CdJNDX 

ZERO  CROSSOVER  CAN  BE  DETECTED 

042b 

REF 

18 

LAST 

420 

24 

,2643 

54  032 

1 

TS 

CDJX 

0426 

REF 

lib 

LAST 

419 

24 

,2644 

3 7763 

1 

LDADFLAG  CAF 

ONE 

0427 

REF 

3 

last 

419 

24 

,264b 

55*615 

0 

TS 

CDJFl  AG 

0428 

REF 

1 

24 

,2646 

3 0047 

1 

CA 

GYROCTR 

GYRO  TORQ  CMOS  LEFT  OUT  OF  FiRSr  5.625 

0429 

REp 

6 

1 AST 

420 

24 

,2647 

55*620 

0 

TS 

SAYE 

DEG  COMMANDED  WHEN  cDU  PUlSE  ARRIyED 

0430 

24 

,'2650 

0 0003 

1 

RELINT 

0431 

REF 

2 

LAST 

419 

24 

,2651 

0 2656 

0 

TC 

COJZOTST 

0432 

REF 

2 

LAST 

420 

24 

*2652 

3 3636 

1 

djtneg  ca 

DESANGLE 

0433 

ref 

9 

lAst 

420 

24 

,2653 

51*672 

0 

index 

CDJNDX 

0434 

REF 

19 

LAST 

420 

24 

,2654 

54  032 

1 

TS 

CDJX 

043b 

REF 

1 

24 

,2655 

0 2644 

0 

IC 

loadflag 

0436 

REF 

10 

LAST 

420 

24 

,2656 

51*672 

0 

CDUZ0T5T  INDEX 

CDJNDX 

0437 

REF 

20 

LAST 

420 

24 

*2657 

10  032 

1 

CCS 

COUx 

0438 

24 

,2660 

0 2664 

1 

IC 

0439 

REF 

1 

24 

,2661 

0 2701 

0 

TC 

endwatch 

0440 

24 

,2662 

0 2664 

1 

TC 

+ 2 

0441 

REF 

2 

LAST 

420 

24 

,2663 

0 2701 

0 

TC 

endwatch 

0442 

REF 

33 

LAST 

412 

24 

,2664 

3 7752 

0 

CAF 

Bl  T 10 

RAND  WITH  BIT  10  TO  SEE  IF  STlLu  TORO. 

0AA3 


2A 


266b  0 0006  1 


EXTEND 
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0444 

REF 

2 

LAST 

4-1^ 

-0-2-017, 

ja_ 

lAMD  - 

0AA5 

REF 

220 

last 

418 

24.2667 

10  000 

0 

CCS 

A 

0AA6 

24,2670 

0 2676 

1 

TC 

♦ 6 

0AA7 

REF 

7 

LAST 

42° 

24,2671 

11’622 

1 

CCS 

SAYE  +2 

SEE  IF  2.8DEG  OR  5.6  DEG  SINCE  LAST 

0AA8 

24,2672 

0 2674 

0 

TC 

EEARTHR  use,  if  2.8  DEG,  DO  2.8  MORE 

0449 

ref 

1 

24,2613_ 

0 2601 

1 

ic 

caR-RPcL  

T-Hen_-gq  to  correct 

0450 

REF 

8 

LAST 

421 

24,2674 

55’622 

1 

TS 

SAVE  +2 

0451 

REF 

3 

LAST 

420 

24,2675 

0 2570 

1 

TC 

OIRECTN 

0452 

REF 

4 

LAST 

420 

24,2676-  - 

LQ  067- 

-1- 

CCS 

NE^JQB 

0453 

ref 

3 

LAST 

420 

24,2677 

0 5532 

0 

TC 

CHANGl 

0454 

ref 

3 

LAST 

420 

24,2700 

0 2656 

0 

TC 

CDUZOTST 

0455 

24,2701 

0 0004 

0 

ENDWATCH 

■ INHINT 

WWILL  STOR  GYRUCTR  AT  END  OF  20t,B  CDU 

0456 

REf 

137 

LAST 

420 

24,2702 

3 7767 

0 

caf 

ZERO 

pulses  and  stop  torq  by  zeroiNo  requests 

0457 

ref 

12 

LAST 

419 

24^2703 

54  356 

0 

TS 

LGYRo 

release  gyros  for  others  usage 

04575 

REF 

5 

LAST 

216 

24,2704 

6 7770 

0 

AD 

NEGo 

prevent  +0  IN  OUTPUT  COUNTER 

0458 

REF 

2 

LAST 

420 

24,2705 

56  047 

1 

XCH 

GYROCTR 

0459 

REF 

9 

LAST 

421 

24^2706 

55*621 

1 

TS 

SAVE-  +1 

AND  STOPS  TORQUING  BY  ZEROING  TORO 

0460 

ref 

57 

LAST 

419 

24,2707 

4 7762 

1 

CS 

TwO 

0461 

REf 

19 

last 

419 

24,2710 

7 0366 

0 

v)AS< 

1MDofS33 

THIS  turns  Off  exec  SwITcH  so  the  gyro 

0462 

REF 

20 

LAST 

421 

- . 24 1.27^1 

54  366 

0 

TS 

IMOOFS33 

TORQ,  ENABLE  RfLAY  CAN  BF  TURNFO  OFF, 

0463 

24,2712 

0 0003 

1 

RELINT 

0464 

REF 

10 

last 

421 

24,2713 

3 1620 

1 

calcsfe 

CA 

SAVE 

GYROCTR  at  TEST  START 

0465.- 

24,2714 

0 0006 

1 

EXTEND 

0466 

ref 

11 

LAST 

421 

24,2715 

61'621 

0 

5U 

SAVE  +1 

GYROCTR  AT  TEST  END 

0467 

ref 

12 

LAST 

421 

24,27l6 

55*622 

1 

TS 

SAVE  +2 

0468 

2A,2717 

0 0006 

-JL. 

EXTENO 

0469 

REF 

1 

24,2720 

6 2737 

0 

3zMF 

ARITu 

SEE  IF  IT  IS  NEG  OR  ZERO, IF  NE3.SFE  IS  ♦ 

0470 

REF 

1 

24,2721 

7 3640 

1 

MA5< 

SIZCHK 

0471 

24,2722 

0 0006 

1 

EXTEND 

THIS  ROUTINE  TESTS  SAVE- (SAVE*1 ) TO  SEE 

0472 

REF 

1 

24,2723 

1 2731 

1 

3ZF 

negsfe 

IF  THE  RESULT  IS  WITHIN  PERMISSIBLE  SIZE 

0473 

REF 

13 

LAST 

421 

24,2724 

4 1622 

1 

CS 

SAVE  ,2 

AND  DETERMINES  POLARITY  OF  SFE  JSING  THE 

0474 

REF 

2 

LAST 

421 

24,2725 

7 3640 

1 

*1AS< 

SIZChK 

PRESENCE  OR  ABSENCE  OF  BITS  12,13.14. 

0475 

24,2726 

0 0006 

1 

EXTEND 

IF  bits  are  present  in  POSITIVE  SAVE  *2 

0476 

REF 

1 

24,2727 

1 2733 

0 

3ZF 

POSSFE 

then  the  SFE  must  BE  POS.  IF  DI-FeRENCE 

0477 

REF 

2 

LAST 

420 

24,2730 

0 2765 

1 

TC 

STOPTEST 

IS  GREATER  THAN  2047  PULSES  FROM  THE 

0478 

REF 

14 

LAST 

42I 

24,2731 

31*622 

0 

NEGSFE 

CAE 

SAVE  +2 

IDEAL  NO  OF  PULSES,  THE  SFE  EXCEEDS 

0479 

REF 

2 

last 

421 

24,2732 

0 2737 

0 

TC 

ARITm 

15600  PPM,  THE  TEST  IS  NOT  VALID  AND 

R0460 

therefore  aborts 

AND  TURNS  ON 

PROGRAM  ALARM 

0481 

REF 

19 

last 

414 

24,2733 

3 7743 

0 

POSSFE 

caf 

posmax 

POS  sfe  definition  f irig  sf  in  Sec  of 

0482 

24,2734 

0 0006 

1 

EXTEND 

ARC  PER  PULSE  IS  GREATER  THAN 

0483 

REF 

15 

LAST 

421 

24,2735 

61*622 

0 

SU 

SAVE  *2 

.61798095703125  SEC  OF  ARC/  PU’SE 

0484 

REF 

3 

LAST 

421 

24.2736 

0 2740 

0 

TC 

ARITh  +1 

0485 

24,2737 

4 0000 

0 

ARITH 

COM 

0486 

24,2740 

22  007 

0 

EL 

0487 

24,2741 

0 0006  1 

PXTEND 

0488 

REF 

2 

LAST 

419 

24,2742 

11*623 

0 

OV 

SFCONSTI 
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0489 

REF 

20 

LAST 

414 

24.2743 

5-4-  342 

0 

L3ADIT 

rs 

DSPTFM2  - - 

0A90 

REF 

1 

24,2744 

0 2745 

0 

TC 

DATADSP 

0A9l 

REF 

2 

LAST 

314 

_ 24.27-45 

-0.  4632- 

-L 

DATADS? 

-TC-  - 

-GaA30SP  - 

0492 

REF 

2 

LAST 

306 

24,2746 

0 4637 

1 

TC 

PREoBSY 

0493 

REF 

3 

LAST 

418 

24,2747 

3 1614 

0 

:a 

CALCDIR 

0494 

REF 

21 

LAST  422 

24,27-50 

-54-  344- 

0 

TS 

0SPJE^M2  +2 

DISPLAYS  TEST  NO  JUST  PERFORMED 

0495 

REF 

1 

24,2751 

3 3643 

0 

:af 

YB06N66 

R3  = TEST  NO  JUST  PERFORMED 

0496 

REF 

46 

LAST 

418 

24,2752 

0 4657 

1 

TC 

NVSSWAIT 

0457 

REF 

1 1 

LAST 

417 

24,2753 

0 4622 

0 

T-C 

-ELASHON- 

0498 

REF 

34 

last 

418 

24,2754 

0 4475 

0 

TC 

ENDlnLE 

TO  END  TEST  DO  V34E 

0499 

24,2755 

0 2757 

0 

TC 

+ 2 

0500 

REF 

4 

last 

418 

24,2756 

- 0—245.5 

1 

TC 

testcall 

TO  CONTINUE  TEST  DO  V33E 

0501 

REF 

3l 

LAST 

419 

24,2757 

0 5206 

0 

TC 

BANCCALL 

0502 

REF 

6 

LAST 

419 

24,2760 

26000 

0 

cadr 

IMJZERO 

0503 

REF 

82 

LAST 

422 

24,2761 

0 5206 

0 

TC 

BANCCALL 

0504 

REF 

19 

LAST 

419 

24,2762 

26751 

0 

CADR 

imjstall 

0505 

REF 

12 

LAST 

419 

24,2763 

1 2250 

0 

TCF 

ENOTfSTi 

0506 

REF 

13 

LAST 

422 

24,2764 

1 2250 

0 

TCF 

ENDTESTl 

0507 

REF 

33 

LAST 

422 

24,2765 

0 5206 

0 

STOPTEST 

TC 

BANCrALL 

0508 

REF 

7 

LAST 

422 

24,2766 

26000 

0 

CADR 

IMJZERO 

0509 

REF 

34 

last 

422 

24,2767 

0 5206 

0 

tc 

BANCCALL 

CORRECT  CDUCtRS  AND  TURN  ON  PR35  ALARM 

0510 

REF 

20 

LAST 

422 

24,2770 

26751 

0 

CADR 

IMJSTALL 

TO  TELL  operator  LAST  CDU  PULSE  WAS 

0511 

REF 

14 

last 

422 

24,2771 

1 2250 

0 

TCF 

ENDTfSTi 

missed  or  GYRO  TORO  LOOP  WAY  OJT  DF 

0512 

REF 

138 

LAST 

421 

24,2772 

3 7767 

0 

CAF 

zero 

ALLOWABLE  LIMITS 

05122 

REF 

13 

LAST 

421 

24,2773 

54  356 

0 

TS 

LoYRn 

«»»»  RELEASE  GYROS  FOR  OTHERS  JSASE)t»*»» 

05126 

REF 

5 

LAST 

420 

24,2774 

0 2444 

1 

TC 

ALARMS 

0513 

REF 

15 

LAST 

422 

24,2775 

1 2250 

0 

TCF 

ENDTESTl 
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0514 

24 

.2776 

0-0-006- 

-1- 

-CHE-CKJo-  . 

EXTEND 

0515 

REF 

27 

LAST 

417 

24 

.2777 

23'546 

1 

3XCH 

DPLAfE 

0516 

24 

.3000 

0 0003 

1 

CHECKGi 

RELINT 

0517 

ref 

5 

1 Ac.T 

421 

24 

.3001 

10  067 

1 

res 

NEWJOB 

0518 

REF 

4 

LAST 

421 

24 

.3002 

0 5532 

0 

TC 

Changi 

0519 

24 

.3003 

0 0004 

0 

INHINT 

0520 

ref 

139 

last  A2Z 

24.3004 

3 -7767- 

0 

CAF 

-ZE-3.0-.  - 

0521 

REF 

7 

LAST 

416 

24 

.3005 

51 '541 

0 

index 

pipindex 

0522 

ref 

9 

LAST 

416 

24 

.3006 

56  037 

0 

kch 

PIPAX 

0523 

ref 

7 

last 

415 

24 

a1007_ 

5^5'551 

0 

TS 

STDRFP-6 

0524 

REF 

8 

LAST 

423 

24 

.3010 

11'551 

0 

CCS 

STDRfPL 

0525 

REF 

1 

24 

.3011 

0 3015 

0 

TC 

CHECKP 

0526 

ref 

1 

_ _24LA3_0i_2_ 

0 3070 

0- 

T-C 

REST-OREA- 

0527 

REF 

1 

24 

.3013 

0 3030 

1 

TC 

CHECKM 

0528 

REF 

2 

LAST 

423 

24 

.3014 

0 3070 

0 

TC 

RESTnREA 

0529 

REF 

28 

LAST 

419 

24 

.3015 

3 7756 

1 

cmeckp 

CAF 

B1-T6-  _ - 

0530 

REF 

1 

24 

.3016 

55'540 

0 

TS 

PIPANO 

0531 

REF 

8 

LAST 

423 

24 

.3017 

5l'54l 

0 

INDEX 

PIPINDEX 

0532 

ree. 

10  L ASt_ 

423 

24 

.3020 

10  037 

L- 

ZeS 

PIPAx 

0533 

REF 

1 

24 

.3021 

0 3043 

0 

TC 

CHECKG3 

053A 

24 

,3022 

0 3025 

0 

TC 

♦ 3 

0535 

REF 

3 

last 

423 

24 

,3023 

0 3070 

0 

IC 

RESTOREA 

0536 

24 

,3024 

0 3025 

0 

TC 

♦ 1 

0537 

REF 

2 

LAST 

423 

24 

.3025 

11 '540 

0 

CCS 

PIPANO 

0538 

ref 

2 

LAST 

423 

24 

,3026 

0 3016 

0 

TC 

CHECxP  +1 

0539 

REF 

4 

LAST 

423 

24 

.3027 

0 3070 

0 

TC 

RESTOREA 

0540 

REF 

29 

LAST 

423 

24 

.3030 

3 7756 

1 

checkm 

CAF 

BIT& 

05A1. 

REF 

3 

LAST 

423 

24 

,3031 

55'540 

0 

rs 

PIPANO 

O542 

ref 

9 

LAST 

423 

24 

.3032 

51'54l 

0 

INDEX 

PIPINDEX 

0543 

ref 

11 

last 

423 

24 

.3033 

10  037 

1 

CCS 

PIPAX 

0544 

REF 

_5_ 

LAST 

423 

24 

,3034 

0 3070 

0 

TC 

RESTOREA 

0545 

24 

.3035 

0 3040 

0 

TC 

♦ 3 

0546 

ref 

2 

LAST 

423 

24 

,3036 

0 3043 

0 

TC 

CHECKG3 

0547 

24 

.3037 

0 3040  0 

TC 

♦ 1 

0548 

REF 

4 

LAST 

423 

24 

,3040' 

11 '540 

0 

CCS 

PIPANO 

0549 

REF 

2 

LAST 

423 

24 

,3041 

0 3031 

0 

TC 

CHECxM  +1 

0550 

REF 

6 LAST  423 

24 

,3042 

0 3070 

0 

LC 

RESTOREA 

0551 

REF 

5 

LAST 

410 

24 

.3043 

0 5026 

0 

CHECKG3 

TC 

finetime 

0552 

REF 

23E 

LAST 

4Q_T. 

24 

.3044 

52  145 

0 

3XCH 

mpac 

0553 

ref 

26 

LAsT 

406 

24 

.3045' 

3 7760 

1 

CAF 

31T4 

0559 

REF 

6 

LAST 

423 

24 

,3046 

55'540 

0 

CHECKG5 

TS 

PIPAnO 

0555 

REF 

10 

LAST 

423 

24 

.3047 

51'541 

0 

INDEX 

pipindex 

0556 

REF 

12 

last 

423 

24 

.3050 

10  037 

1 

CCS 

PIPAX 

0557 

24 

,3051 

0 3055 

1 

TC 

0558 

REF 

_1 

LAST 

423 

24 

,3052 

0 3070 

0 

TC 

RESTOREA 

0559 

24 

,3053 

0 3055 

1 

TC 

♦ 2 

0560 

REF 

8 

LAST 

423 

24 

,3054 

0 3070 

0 

TC 

RESTnREA 

0561 

REF 

6 

last 

423 

24 

.3055 

11*540 

0 

CCS 

PIPANO 

0562 

REF 

1 

24 

.3056 

0 3046 

0 

TC 

CHECKG5 

PAP  _.P_ULSe  catching  JiOJJTINE 

RECORDS  TIME  AT  OCCURRENCE  OF  A DrLTA  V 
KEEPS  content  OF  PIPA  REG  INTACT 


LOOKS  FOR  one  MORE  PLUS  PULSE 


LOOKS  FOR  one  MORE  MINUS  PULSE 


time  IN  DOUBLE  PRECISION  LEFT  I '1  MPAC 


633436A 

YUL 

SYSTEM  FOR  *GC ; 

REVISION 

0 OF  PROGRAM  BURST123  BY 

NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  A2A 

L 

IMJ 

performance  TES 

T5  2 

USER'S  Own  page  no.  lA  S3  E5 

05&3 

REF 

1 _ _ 

2_Ajl3032. 

0 J062  0 

NREAD 

.TC 

_ RESmRE.  _ 

056A 

REF 

9 LAST  A23 

2A,3060 

55«551  0 

rs 

5T0REPL 

0565 

REF 

28  last  A23 

2A,3061 

0 15A6  1 

rc 

OPLACE 

0566 

REF 

10  LAST  A2A 

2A.3062 

57'551  1 

RESTORE 

<CH 

STDRfPL 

A WILL  CONTAIN  PREVIOUS  PIPA  CNyR  CONTFw 

0567 

REF 

11  last  A23 

2A*3063 

51'5A1  0 

INOEX 

PIPINDEX 

STORePL  will  CONTAIN  ZERO 

0568 

ref 

13  lAsT  A23 

2A,306A 

6 0037  0 

Ao 

PIPAv 

0569 

REF 

12  LAST  A2A 

2Ai3063 

_5L'5AL  0 

INOEX 

.PjLPIND.EX_ 

0570 

REF 

lA  LAST  a2A 

2A,3066 

5A  037  1 

rs 

PiPAy 

0571 

ref 

167  LAST  A17 

2A.3067 

0 0002  0 

TC 

0 

yUL  SySTEM  FOR  AqC:  REVISION  0 OF  pROoRAvi  BURST123  SY  NASA  2n21106-031 


DEC  7,  1967  (MAIN)  pAQE  925 


L IMJ  PERFORMANCE  TESTS  2 


U5ER*S  OWN  PACE  NO.  15  S3  E5 


0572 

REF  2 

LAST 

92A__ 

29.3070 

- 0 L3Q62 

_0- 

_a£siO-S-EA_^xc 

-JlLStDRE-  - 

0573 

REF  1 

2A.3071 

0 3000 

1 

rc 

CHECxCSl 

057A 

REF  11 

LAST 

92A 

29,3072 

3 1551 

1 

datald  ca 

SI DPEPL 

0575 

REF  12 

LAST 

916 

2Av3073 

_ 51*673 

1 

index 

__RESJI_TCT 

0576 

ref  12 

LAST 

916 

29,3079 

55*626 

0 

T5 

DAI APL 

0577 

REF  233 

LAST 

923 

29,3075 

3 0199 

0 

CA 

MPAC 

0578 

ref  13 

LAST 

925 

29,3076 

_ 5 1 *673 

1 

1ND.EX 

RESJI  TCT 

0579 

REF  13 

LAST 

925 

29,3077 

55*627 

1 

rs 

DATApL  ♦! 

0580 

REF  239 

LAST 

925 

29,3100 

3 0195 

1 

CA 

MPAC  +1 

0581 

REF  19 

LAST 

925 

_ 29,J1QL 

_ 51*673 

1 

INDEX 

RtSJl  TCT 

0582 

REF  19 

LAST 

925 

29,3102 

55*630 

1 

ts 

DATApL  +2 

0583 

REF  lb8 

LAST 

929 

29.3103 

0 0002 

0 

TC 

D 

0589 

29,3109 

0 0006 

1 

PDSGMBL 

extend 

coarse  aligning  subroutine 

0585 

REF 

29 

LAST 

929 

29,3105 

23*596 

1 

3XC_H 

OPLACE 

0586 

REF 

37 

LAST 

918 

29,3106 

0 6112 

0 

TC 

InTpret 

0587 

29,3107 

77629 

1 

CALL 

0588 

REF 

2 

LAST 

385 

29,3110 

32655 

0 

calcga 

0589 

29,3111 

77776 

1 

EXIT 

0590 

REF 

35 

LAST 

922 

29,3112 

0 5206 

0 

rc 

BANXCALL 

0591 

ref 

LAST 

911 

29,3113 

26065 

0 

CADR 

IMJCOARS 

0592 

REF 

10 

LAST 

315 

29.3L19 

3 0075 

0 

CA 

flagwrdi 

0593 

REF 

13 

LAST 

915 

29,3115 

7 7759 

1 

MAS< 

B1  r8 

0599 

REF 

221 

LAST 

92l 

29,3116 

10  000 

0 

CCS 

A 

L +1,  otherwise  to  L *2. 

0595 

REF 

1 

29,3117 

0 3122 

0 

TC 

LOC< 

0596 

REF 

30 

LAST 

925 

29,3120 

25*596 

1 

incr 

OPLACE 

0597 

29,3121 

0 3129 

0 

rc 

♦3 

0598 

.ree 

58 

1 AST 

921 

29,3122 

3 7762 

0 

LOCK 

CA 

TWO 

0599 

REF 

26 

LAST 

913 

2“*,. 3123 

55*537 

0 

rs 

NDXCTR 

05991 

REF 

5 

LAST 

102 

29,3129 

0 6067 

0 

TC 

FLA31DWN 

059912 

29,3125 

00200 

0 

OCT 

200 

0600 

REF 

36 

LAST 

926 

29,3126 

0 5206 

0 

rc 

banxcall 

0601 

REF 

21 

LAST 

922 

29,3127 

26751 

0 

CADR 

imjstall 

0602 

REF 

16 

LAST 

922 

29,3130 

1 2250 

0 

rcF 

ENDTfSTi 

0603 

REF 

31 

LAST 

925 

29,3131 

0 1596 

1 

rc 

OPLACE 

0609 

29,3132 

00901 

1 

gmlocxcx 

ocr 

00901 

633<,36A  yUL  SySTEM  kOR  ^Qc'-  ^'iVISION  0 Op  PROGRAv)  bURSflZO  BY  NASA  2n211Oft-031 


DEC  7.  1967  (MAIN)  pAGE  <t26 


iMu  Performance  tests  2 


USER'S  own  page  no.  16 


S3  E5 


0607 

REF 

32 

LAST 

A25 

24 

.3134 

23*546 

1 

3XCH 

3PLACE 

between  desired  sm  orientation  with  RESP 

0608 

REF 

37 

LAST 

A25 

2A 

.3135 

0 5206 

0 

rc 

BAN<rALL 

TO  NBASE  AND  ACTUAL 

0609 

REF 

8 

LAST 

A22 

. _ 2A 

.3136 

.26000 

0 . 

. CAD.R  ... 

I.M.J.2ER0.  . _ 

0610 

REF 

38 

LAST 

A26 

24 

,3137 

0 5206 

0 

rc 

BAN<CALL 

0611 

REF 

22 

LAST 

A25 

2A 

,3140 

26751 

0 

CAOR 

IMJSrALL 

0612 

REF 

17 

last 

_A2& 

1 2Z50 

0 

rcF 

EJ)lOrESTX  ... 

0613 

REF 

39 

LAST 

^,26 

24 

,3142 

0 5206 

0 

TC 

BAN<CALL 

061A 

REF 

A 

LAST 

397 

24 

,3143 

26252 

0 

CAOR 

IMJFINE 

0615 

REF 

JO 

LAST 

426 

14 

,3144 

0.  5206 

0 

rc  . 

BAN<CALL 

0616 

REF 

23 

LAST 

426 

24 

,3145 

26751 

0 

CAOR 

imjstall 

0617 

REF 

18 

LAST 

426 

24 

,3146 

1 2250 

0 

rcF 

ENOrESTl 

0618 

REF 

21 

LAST 

420 

^ 24*3147 

3 0032 

0 falnei 

CA 

CDJX 

0619 

REF 

lA 

LAST 

407 

24 

,3150 

50  110 

1 

index 

FIXLnC 

0620 

24 

.3151 

54  024 

0 

rs 

24 

0621 

REF 

11 

LAST 

398 

24 

,3 1 52_ 

3 0033 

1 

CA 

COJY 

0622 

REF 

15 

LAST 

426 

24 

,3153 

50  110 

1 

index 

FIXLnC 

0623 

24 

,3154 

54  020 

1 

rs 

20 

062A 

ref 

LAST 

398 

24 

.3155 

3 0034 

0 

CA 

CDJZ 

, 

0625 

REF 

16 

LAST 

426 

24 

.3156 

50  110 

1 

INDEX 

FlxCnC 

0626 

24 

.3157 

54  022 

0 

rs 

22 

0627 

REF 

18 

LAST 

420 

24 

.3160 

3 7757 

0 

CA 

BITS 

0628 

REF 

17 

LAST 

426 

24 

,3161 

6 0110 

1 

AD 

FIXLOC 

0629 

REF 

18 

LAST 

426 

24 

.3162 

50  110 

1 

INDEX 

FIXLOC 

0630 

REF 

A3 

LAST 

398 

24 

.3163 

54  050 

0 

rs 

51 

0631 

REF 

38 

last 

425 

24 

,3164 

0 6112 

0 

rc 

INTPRET 

0632 

24 

.3165 

64375 

1 

yldao 

MXY 

0633 

ref 

A2 

LAST 

41A 

24 

,3166 

02401 

0 

XSM 

063A 

REF 

36 

LAST 

397 

24 

,3167 

02445 

0 

SI AjaD 

0635 

24 

,3170 

77772 

0 

YSLl 

0636 

24 

.3171 

34041 

0 

5TCALL 

320 

0637 

REF 

7 

LAST 

385 

24 

.3172 

32555 

0 

NBSM 

0638  - 

REF 

15 

LAST 

3B5 

24 

.3173 

26423 

0 

STO\/L 

XDC 

0639 

REF 

13 

LAST 

4lA 

24 

.3174 

02407 

0 

YSM 

06A0 

24 

.3175 

76521 

0 

MXV 

\/SLl 

06A1 

ref 

37 

LAST 

426 

24 

,3176 

02445 

0 

S7  ARflD 

06A2 

24 

,3177 

34041 

0 

STCALL 

32D 

06^t3 

REF 

8 

LAST 

426 

24 

,3200 

32555 

0 

NBSM 

06AA 

REF 

5 

LAST 

385 

24 

,3201 

26431 

0 

5T0VL 

YDC 

06A5 

REF 

16 

last 

426 

24 

.3202 

02423 

0 

XOC 

06A6 

24 

,3203 

76435 

1 

YXY 

\/SLl 

06A7 

REF 

6 

LAST 

426 

24 

,3204 

02431 

0 

YOC 

06<t8 

REF 

A 

LAST 

385 

24 

,3205 

36437 

1 

STCALL 

ZOC 

06A9 

RtF 

2 

LAST 

■385~ 

24 

.3206 

32425 

0 

CALCr.TA 

0650 

24 

.3207 

77776 

1 

EXIT 

0651 

ref 

1 

24 

.3210 

3 3657 

0 

CA 

DGCPr 

0652 

REF 

9l 

LAST 

426 

24 

.3211 

0 5206 

0 

rc 

BANCCALL 

0653 

ref 

3 

LAST 

36A 

24 

.3212 

26362 

1 

CAOR 

IMJPiiLSE 

065A 

REF 

33 

LAST 

426 

24 

.3213 

0 1546 

1 

rc 

3PLACE 

YUL 

system  FOR  «GC: 

REVISION 

0 OF  PROGRAM  BURST120  BY  NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  927 

L 

IMJ 

Performance  tests  2 

USER*S  OWN  PAGE  NO.  17  S3  E5 

0655 

__  29.J2I9_ 

0 0006 

1_ 

_.WAItLQOP  EXTEND.. 

LOOPS  IN  X sfc  increments  for  n iM3fr  of 

0656 

REF 

5 

last 

392 

29,3215 

23*595 

1 

3XCH 

OPLAC 

0657 

REF 

5 

last 

919 

29,3216 

55*676 

0 

rs 

cojntpl 

number  put  into  LENGTHOT 

0658 

ref 

6 

last 

92 T ___ 

_i9,3217 

, U * _676 

0 

aaitlpi  ccs_ 

CajNTPL 

0659 

29,3220 

0 3229 

0 

TC 

♦ 9 

0660 

REF 

6 

LAST 

927 

29,3221 

0 1595 

1 

tC 

OPLAr 

0661 

29,3222 

0 3229 

0 

TC 

+ ? 

0662 

REF 

1 

29,3223 

0 3216 

1 

TC 

NAITLPl  -1 

0663 

29,3229 

0 0009 

0 

INHINT 

0664 

REF 

5 

LAST 

91?  _ 

-26ni225 

- 31*527 

0 

CAL- 

LENoTHOT 

0665 

REF 

63 

LAST 

906 

29,3226 

0 5663 

1 

IC 

NAITI  1ST 

06655 

REF 

93 

LAST 

926 

E5 

EBAN<= 

XSM 

0666 

. 29,3227 

03292 

0 

2CADR 

NAITI  P3 

C0666 

REF 

1 

29,3230 

50065 

1 

0667 

29,3231 

0 0003 

1 

relint 

0668 

REF 

7 

LAST 

92  r 

29,3232 

11*676 

0 

CCS 

COJNTPL 

0669 

REF 

7 

LAST 

927 

29,3233 

0 1595 

1 

TC 

OPLAC 

0670 

ref 

8 

LAST 

927 

29,3239 

0 1595 

1 

TC 

OPLAC 

0671  ^ 

2Ar3235 

1 3236 

1 

NOOP 

0672 

REF 

8 

last 

927 

29,3236 

55*676 

0 

YJAITLP2  TS 

cojntpl 

ENTER  HERE  AFTER  DOING  CALLING  J03 

0673 

REF 

1 

29,3237 

3 3291 

0 

CAF 

ntlpcadr 

0679 

REF 

U 

LAST 

906 

29,3290 

0 5595 

0 

TC 

J03SLEEP 

0675 

REF 

2 

LAST 

92  7 

29,3291 

51217 

1 

NTLPCAOR  CAOR 

NAI TLPl 

0676 

REF 

2 

LAST 

927 

29,3292 

3 3291 

0 

NAITLP3  CAF 

XTLPrADR 

0677 

REF 

9 

LAST 

905 

29,3293 

0 5551 

0 

TC 

JOBa/AKE 

0678 

REF 

51 

LAST 

906 

29,3299 

0 5727 

0 

TC 

TAS<OVER 

0679 

REF 

31 

LAST 

910 

29,3295 

59  001 

1 

ZEROINj 

IS 

L 

0680 

29,3296 

1 3250 

1 

TCF 

+ 2 

0681 

REF 

3 

LAST 

915 

29,3297 

55*777 

0 

2EROIN31 

rS 

ZEROnDX 

0682 

REF 

190 

LAST 

923 

29,3250 

3 7767 

0 

CAF 

ZERO 

0683 

REF 

32 

LAST 

927 

29,3251 

50  001 

0 

INDEX 

L 

0689 

29,3252 

59  000 

0 

TS 

0 

0685 

ref 

33 

LAST 

927 

29.3253 

29  001 

0 

INCR 

L 

0686 

REF 

9 

LAST 

927 

29,3259 

11*777 

0 

CCS 

ZEROnDX 

0687 

REF 

1 

29,3255 

1 3297  1 

LCF 

2ER0LNGi 

0688 

ref 

159 

last 

925 

29,3256 

0 0002 

0 

TC 

0 

0689 

REF 

39 

LAST 

926 

29,3257 

0 6112 

0 

C3MPUT 

TC 

INTPRET 

CALCULATE  LENGTH  OF  GRAVITY  VECTOR  AS 

0690 

29,3260 

77170 

1 

AXJlil 

AXT,2 

MEASURED  BY  ACCELEROMETERS 

0691 

29,3261 

00026 

0 

22D 

0692 

29,3262 

00012 

1 

100 

0693 

29,3263 

77731 

1 

SSP 

0699 

REF 

19 

LAST 

926 

29,3269 

00051 

0 

Si 

0695 

29,3265 

00009 

0 

9 

0696 

29,3266 

77731 

1 

SSP 

0697 

ref 

13 

LAST 

387 

29,3267 

00052 

0 

S2 

633i(36A  YUL  SYSTEM  FOR  AGC!  REVISION  0 OF  PROGRAM  BURST12D  BY  NASA  2n211Ofe-031 


DEC  7»  1967  (MAIN)  PAGE  A28 


IMJ  performance  TESTS  2 


USER'S  OWN  PAGE  NO,  18 


S3  E5 


0699 

24,3271 

44743 

1 

LOPDELDP 

3L0A04 

DSJ» 

0700 

REF 

15 

LAST  425 

24,3272 

75120 

0 

DATAdL  +240,2 

0701 

REF 

16 

LAST  428 

24,3273 

. Q2jf>57 

1 

DATAPL  +240,1 

0702 

24,3274 

41323 

0 

3DDL» 

DMP 

0703 

REF 

^6 

LAST  416 

24,3275 

75156 

1 

GENPL  +240,2 

070A 

REF 

2 

LAST  413 

24,3276 

11651 

0 

OECSftS  - - 

0705 

24,3277 

77671 

1 

DDV 

0706 

24,3300 

55504 

0 

rix,2 

YDEF 

0J07 

ref 

1 

24.3301 

51306 

0 

NEXT 

0708 

24,3302 

47046 

0 

abyal 

RT3 

0709 

REF 

4 

LAST  413 

24,3303 

33520 

0 

SGNAr,REE 

0710 

REF 

22 

LAST  422 

24.3304_ 

34343 

1 

stcall 

DSPTEM2 

0711 

ref 

1 

24,3305 

51310 

1 

<OOJ 

0712 

24,3306 

60006 

1 

NEXT 

5USH 

lIX,i 

0713 

REF 

1 

, .2,4,3307 

51271 

1 

lopdelop 

0,71  A 

24,3310 

mib 

1 

ODU 

EXIT 

0715 

REF 

15 

LAST  400 

24,3311 

0 4644 

0 

rc 

GRA3WAIT 

0716 

REF 

5 

LAST  41A_ 

,.24j3312,. 

„0„  3605 

1 

TC  _ _ . 

-SHO_W  , _ . 

0717 

REF 

40 

LAST  427 

24,3313 

0 6112 

0 

TC 

INTPRET 

0718 

24,3314 

41535 

1 

sloao 

PJSM 

0719 

REF 

17 

LAST  428 

24,3315 

02630 

0 

DATApL  +1 

0720 

24,3316 

41535 

1 

sloao 

PUSH 

0721 

REF 

18 

LAST  428 

24,3317 

02634 

1 

DATAPL  +5 

0722 

24,3320 

55535 

1 

SLOAD 

YOEF 

0723 

REF 

19 

LAST  428 

24,3321 

02640 

1 

DATAPL  +11 

072A 

24,3322 

76456 

1 

UNIT 

YSLl 

0725 

24,3323 

77606 

1 

3USH 

0726 

24,3324 

41535 

1 

SLOAD 

PUSH 

0727 

REF 

20 

LAST  428 

24,3325 

02644 

0 

(\dL  +15 

0728 

24,3326 

41535 

1 

SLOAO 

PUSH 

0729 

ref 

21 

LAST  428 

24,3327 

02650 

0 

DATAPL  +21 

0730 

24,3330 

55535 

1 

SLOAO 

YOEF 

0731 

REF 

22 

LAST  428 

24,3331 

02654 

1 

DATAPL  +25 

0732  ‘ 

24,3332 

76456 

1 

UNIT 

YSLl 

0733 

24,3333 

45325 

1 

3D0L 

OSJ 

073A 

ref 

23 

last  428 

24,3334 

02655 

0 

DATApL  +26 

0735 

REF 

24 

LAST  428 

24,3335 

02641 

0 

OATAPL  +12 

0736 

24,3336 

77612 

1 

5L4 

0737 

24,3337 

77652 

0 

SL3 

0738 

REF 

6 

LAST  427 

24,3340 

26530 

0 

5T0YL 

LENoTHOT 

0739 

24,3341 

51435 

1 

YXY 

ABYAl 

07A0 

24,3342 

56205 

0 

DMP 

ODY 

0741 

ref 

1 

24.3343 

11654 

0 

ERJNtTS 

0742 

REF 

7 

LAST  428 

24,3344 

02530 

0 

LENGTHOT 

0743 

24,3345 

77634 

0 

R(TB 

0744 

REF 

5 

LAST  428 

24,3346 

33520 

0 

SGNAGREE 

0745 

REF 

23 

LAST  428 

24,3347 

00343 

0 

store 

0SPTEM2 

0746 

24,3350 

77776 

1 

EXIT 

0747 

REF 

6 

LAST  428 

24,3351 

0 3605 

1 

rc 

SHOW 
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079B 

0799 

_ a. 

29,3353 

0 0006 

-L- 

1 

N3P0SPL 

T^r 

extend 

SETS  UP  AZIMUTH  AND  VERTICAL  VECTORS 

FOR 

0750 

REF 

39 

LAST 

926 

29,3359 

23*596 

1 

3XCH 

DPLACE 

AXISGEN, RESULTS  TO  BE  USED  IN  CALCGA 

TO 

O75I 

, ref 

91 

last 

928 

i9L,3355 

Q^_6ll2__0_ 

TC 

JNXPRET 

0752 

29,3356 

59160 

1 

AXC,1 

XSJ,1 

AZIMUTH  IN  NB  cOORDS 

0753 

REF 

1 

29,3357 

51670 

1 

5CN3A2 

075A 

ref 

2 

LAST 

9L8_ 

_ 29ti36.0^ 

0.2536_ 

0 

NB.POS  _ 

0755 

29,3361 

77773 

1 

i/LOAO* 

0756 

29,3362 

00001 

0 

0,1 

0757 

REF 

36 

LAST 

926 

i9,3363 

02995 

0 

STORE 

STARiD  . - 

0758 

29,3369 

59160 

1 

AXC,1 

XSJ,i 

VERTICAL  IN  NB  COORDS 

0759 

REf  _ 

1 

29j_3365 

__  _5170i 

0 

SCN3VER 

0760 

REF 

3 

LAST 

929 

29,3366 

02536 

0 

NBPOS 

0761 

29,3367 

77773 

1 

VLOAO** 

0762 

29,3370 

00001 

n 

n.  1 

0763 

REF 

39 

LAST 

929 

29,3371 

16953 

1 

STOOL 

STARaD  +6 

0769 

REF 

1 

29,3372 

33300 

1 

SCN2FR0S 

0765 

29,3373 

14007 

0 

STOOL 

60 

0766 

REF 

5 

LAST 

392 

29,3379 

02507 

1 

A2IMiiTH 

0767 

29,3375 

57596 

1 

COS 

DCOMP 

0768 

29,3376 

19011 

1 

STOOL 

80 

0769 

REF 

6 

LAST 

929 

29,3377 

02507 

1 

AZIMUTH 

0770 

29,3900 

77756 

0 

SIN 

0771 

. J9i390l 

00013 

0 

STORE 

100 

VERTICAL  IN  CER 

0772 

29,3902 

77775 

1 

VLOAD 

0773 

REF 

2 

LAST 

929 

29,3903 

II7O3 

0 

SCN3V/ER 

077A 

29,3909 

39015 

1 

STCALL 

120 

0775 

REF 

2 

LAST 

389 

29,3905 

32791 

1 

axisgen 

0776 

29,3906 

77776 

1 

EXIT 

0777 

REF 

2 

LAST 

9lZ 

29,3907 

3 3697 

1 

selposn 

CA 

DEC17 

0778 

ref 

5 

LAST 

92T 

29,3910 

55*777 

0 

TS 

ZERONOX 

0779 

REF 

1 

29,3911 

3 3667 

0 

CA 

XSMADR 

0780 

REF 

3 

LAST 

915 

29,3912 

0 3295 

1 

TC 

ZEROING 

0781 

REF 

12 

LAST 

918 

29,3913 

51*599 

0 

INDEX 

positon 

0782 

29,3919 

0 3915 

1 

TC 

♦ 1 

0783 

REF 

1 

29,3915 

0 3533 

1 

TC 

OPCHkPOS 

OPCHk  will  put  ZERO  IN  POSITON 

078A 

REF 

1 

29,3916 

0 3931 

1 

TC 

POSNl 

0785 

REF 

1 

29,3917 

0 3990 

1 

TC 

posnp 

0786 

REF 

1 

29,3920 

0 3995 

1 

TC 

P0SN3 

0787 

REF 

1 

29,3921 

0 3957 

1 

TC 

P05N4 

0788 

REF 

1 

29,3922 

0 3967 

1 

TC 

P0SN5 

0789 

REF 

1 

29,3923 

0 3977 

0 

TC 

P0SN6 

0790 

REF 

1 

29,3929 

0 3507 

0 

TC 

POSNt 

0791 

REF 

1 

29,3925 

0 3522 

1 

TC 

P0SN8 

0792 

ref 

1 

29,3926 

0 3551 

0 

TC 

P0SN9 

0793 

REF 

1 

29,3927 

0 3562 

0 

TC 

PQSNlO 

0794 

REF 

1 

29,3930 

0 3573 

0 

TC 

POSNl  1 

COMPASS  POSITION 
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L 

IMJ 

performance  tests  2 

USER'S 

OWN  page  nO.  20 

S3  E5 

R0795 

(XXX 

.XX  MERU) 

AND  A 

vertical 

test  BY 

DV  (XXX. XX  M=RU)  PATH  PnSITinN 

TELL 

R0796 

HOW 

THE  DISPLAYS  ARE 

Related 

TO  TTHe 

DRIFT  coefficients  BEING  MEASURED, 

R0797 

note 

that  IT 

IS  ILLE 

5AL  TO  RUN  VERTICAL  IN  POS 

6 $ 4 f 

OR  2 WITHOUT  FIRST 

R0798 

runnimg  horizontal  0?l  POS  5»: 

ij  aRi,„  ■ 

this  is  Be,CAJ5E 

IHt  H0RI7  drift 

CALC 

R0799 

in  1 

,3,  OR  5 

IS  used 

AS  east 

DRIFFFT 

For  verti 

CAL  TEST.  THIS  IS  DONE 

BY 

Ro800 

the 

machine  automati 

CALLY  EXCEPT  FOR 

Vertical 

Position  6 wHirH  thf 

R0801 

operator  must 

■ DO,  (S 

EE  POSITION  6 BFLOW) 

0802 

REF 

5 LAST 

387 

2A,3A31 

3 77A6 

0 POSNI 

CA 

HALF 

X UP,  Y 

SOUTH,  Z EAST 

0803 

ref 

AA  LAST 

a27 

2A,3a32 

55'AOO 

o 

TS 

XSM 

080<, 

REF 

lA  last 

A26 

2A,3A33 

3S'A1Q 

1 

TS 

VSN,  +2 

NBDY  = 

DH 

0805 

REf 

12  last 

AlA 

2A,3a3A 

55' A20 

I 

TS 

2Sv|  4.4 

0806 

REF 

lAl  LAST 

A27 

2A,3a35 

3 7767 

0 NoUBGH 

CA 

ZERO 

0807, 

REF 

13  LAST 

A2A 

2A,3A36 

55'5A1 

1 

. ,TS 

PIPInDEX 

0808 

REF 

35  last 

A29 

2A,3A37 

0 15A6 

1 

TC 

. OPLACE 

0817 

REF 

6 LAST 

A30 

2A,3AA0 

A 77A6 

1 P0SN2 

cs 

HALF 

X DOWN, 

Y WEST,  Z NORTH 

08,18 

REF,,^ 

A5  LAS1_ 

A30 

2A.3AA1 

5A*a00 

0 

TS 

XSM 

0819 

REF 

15  LAST 

A30 

2A,3AA2 

55*Al2 

0 

TS 

YSM  *4 

■ NBDZ=DH 

l,NBDX-ADIAXs-DV 

0820 

REf 

13  last 

A30 

2A,3AA3 

55*Al6 

1 

IS 

ZSM  .2 

0821 

ref 

1 

2A,3AAA 

0 3A35 

0 

TC 

NGJBGH 

0832 

• rEf 

7 

LAST 

A30 

2A,3AA5 

3 77A6 

0 

P0SN3 

CA 

Half 

Z up,  Y WEST  ,X  north 

0833 

REF 

lA 

LAST 

A30 

2A,3AA6 

55»AlA 

0 

TS 

ZSM 

083A 

2A.3AA7 

A 0000 

0 

COM 

NBDX  = -DH 

0835 

REF 

A6 

LAST 

A30 

2A,3A50 

55'A02 

1 

TS 

XSM  .2 

0836 

REF 

16 

LAST 

a30 

2A,3A51 

55'Al2 

0 

TS 

YSM  +A 

0837 

REf 

59 

1 AST 

A25 

2A,3A52 

3 7762 

0 

nsflago 

rA 

Two 

0838 

REF 

lA 

last 

A30 

2A,3A53 

55'5A1 

I 

TS 

PIPInDEX 

0839 

REF 

1A2 

LAST 

A30 

2^  43454 

3 7767 

0 

NSBUGD 

CA 

ZERO 

08A0 

REF 

3 

LAST 

A13 

2A,3A55 

55*576 

0 

TS 

ORIFTT 

08aI 

REF- 

36 

LAST 

A30 

2A,3A56 

0 15A6 

1 

TC 

OPLACE 

08A5 

08A6 

REF 

ref 

8 

A7 

LAST 

LAST 

A30 

A30 

2A,3A57 

2A.3A60 

3 77A6 
55»A0A 

0 POSNA 

1 

CA 

TS 

HALF 
XSM  *A 

Z DOWN,  Y south  ,X  EAST 

08<,7 

REF 

17 

LAST 

A30 

2A ,3a61 

55'AlO 

1 

TS 

YSM  *2 

08A8 

2A,3A62 

A 0000 

0 

COM 

nbdy+sray=dh,nbdz+adiaz=dv 

08A9 

ref 

. 15 

LAST 

A30 

2A,3A63 

55,  AlA 

0 

TS 

ZSM 

0850 

REF 

SO 

LAST 

A30 

24  4 3464 

3 7762 

0 

CA 

TWO 

0851 

REF 

15 

LAST 

A30 

2A,3A65 

55*5A1 

1 

TS 

PIPTnDEX 

0852 

REF 

37 

LAST 

A30 

2A,3A66 

0 15A6 

1 

TC 

OPLACE 

:A 


0855  ' REf  9 lAsT  A30 


EA,3<,67  3 77A6  0 PDsN5 


half 


Y UP,  Z north,  X WEST 
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S3 

E5 

0856 

ref 

18 

LAST  A30  _ 2Ai3^AM  5J3JA06  0 

tS-YL . 

0857 

0858 

0859 

REF 

REF 

^8 

I6 

2A.3A71  A 0000  0 
LAST  A30  2‘*,3A72  55'AOA  1 

last  A30 LA_i3AZ3  55»4l6  1 _ 

COM 

IS 

^ ^ TS, 

XSM  *4 

2SM  t2 

NBDZ-SRAZ=DH 

0860 

0861 

0862 

ref 

REF 

ref 

116 

16 

1 

last  A20  2At3A74  3 7763  1 

LAST  A30  2A,3A75  55*541  1 

2 4 I6_  _CL  3454^  .1  _ 

CA 
rs 
rc  _ 

ONE 

PIPINDEX 

nsbjgd  _ 

R0866 

R0867 


TO  RJM  Position  6 vertical  after  pip  test  pos  6 is  displayed  the  operatr 

MUST  CALCULATE  FROM  ^OSN  ^,5  -NbOZ-ADSRAZ  (XXX.XX)  MERJ.  ^JHE'J  P 


R0869 

data 

XXX.XX  meRU  as 

calculated  must  Be 

entered 

INTO  1 

DRIFTT.  TE  Verb  21 

R0870 

enter  noun  01 

. enter 

uOCATION 

OF  DRIFTT 

ENTER  ♦ 

(DR  - 

) xxxxx  enter 

0871 

REF 

10 

LAST 

43O 

24,3477 

3 7746 

0 

P0SN6 

CA 

HALF 

Y DOWN,  Z EAST,  X SOUTH 

0872 

ref 

49 

LAST 

431 

24,3500 

55.402 

1 

rs 

XSM  *2 

0873 

REF 

17 

LAST 

43I 

24,3501 

5b  * 420 

1 

TS 

ZSM  +4 

0874 

24,3552 

4 0000 

0 

COM 

NBDX  .ADSRAX  = DH,  NBDY  -ADIAY  = 

-DV 

0875 

REF 

19 

LAST 

431 

24,3503 

55*406 

0 

TS 

YSM 

0876 

REF 

117 

LAST 

431 

24,3504 

3 7763 

1 

CA 

DNE 

__  0877 

REF 

__17 

LAST 

431 

24,3505 

55*541  1 

TS 

PIPImDEX 

0878 

REF 

38 

LAST 

430 

24,3506 

0 1546 

1 

TC 

DPLACE 

0883 

ref 

11 

LAST 

431 

24,3507 

4 7746 

1 

P0sN7 

CS 

half 

Z UP-EAST,Y  UP-WEST, X NORTH. THU  pDsITON 

088A 

REF 

..50 

LAST 

431 

24,3510 

55*402 

1 

TS 

XSM  .2 

0885 

REF 

1 

24,3511 

3 3663 

1 

CA 

RODTl /2 

0886 

REF 

20 

LAST 

431 

24,3512 

55*406 

0 

TS 

YSM 

NBDX  - .707  ADSRAX  s -DH 

0887 

ref 

18 

LAST 

431 

24,3513 

55*414 

0 

TS 

ZSM 

08  88 

REF 

19 

LAST 

43I 

24,'35l4 

55*420 

1 

TS 

ZSM  *4 

0889 

24,3515 

4 0000 

0 

COM 

O89O 

REF 

21 

LAST 

431 

24,3516 

55*412 

0 

TS 

YSM  +4 

0891 

REF 

6 

LAST 

425 

24,3517 

0 6067 

0 

GEORGES 

rc 

FLAGl OWN 

UNSET  GIMBAL  LOCK  FLAG 

0892 

24,3520 

00200 

0 

DCT 

200 

0893 

ref 

2 

LAST 

431 

24,3521 

0 3454 

1 

rc 

NSBJGD 

0907 

ref 

12 

LAST 

43I 

24,3522 

3 7746 

0 

PDSN8 

CA 

HALF 

Z UP-SOUTH.Y  up-north, X EAST. THIS 

POSITm 

0908 

ref 

51 

LAST 

431 

24,3523 

55 • 404 

1 

TS 

XSM  .4 

0909 

REF 

2 

LAST 

431 

24,3524 

3 3663 

1 

CA 

R00T1 /2 

.707 (-NBDZ-NBDY)  + . 5 ( ADI AZ-ADI AY) 

0910 

REF 

22 

LAST 

431 

24,3525 

55*406 

0 

TS 

YSM 

*.5(ADSRAY  ♦AD5RAZ)=DH 

0911 

REF 

20 

LAST 

431 

24.3526 

55'4l6 

1 

TS 

ZSM  *2 

0912 

_ REF  _ 

21 

1 AST 

431 

24,3527 

55*414 

0 

TS 

ZSM 

0913 

24,3530 

4 0000 

0 

COM 

0914 

REF 

23 

LAST 

43I 

24,3531 

55*410 

1 

TS 

YSM  .2 

0915 

REF 

3 

LAST 

431 

24,3532 

0 3454 

1 

rc 

NSBJGD 
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0922 

REF 

L 

24,3533 

3 3664 

_Q O^CH<P0S 

:a 

ROOnSQ 

0G=+45DEG,IG=-45DEG.MG=+45DEG. 

0923 

REF 

52 

LAST  431 

24,3534 

55*400 

0 

rs 

XSM 

092A 

REF 

2A 

LAST  431 

24.3535 

55'4l0 

1 

ts 

YSM  +2 

0925 

REE^ 

?5 

1 AST  43Z 

2A,3536 

55'412 

0 



YSM  *4 

0926 

ref 

22 

LAST  43I 

24,3537 

55*414 

0 

TS 

ZSM 

0927 

REF 

3 

LAST  43I 

24,3540 

3 3663 

1 

:a 

ROOTl /2 

0928 

REF 

76 

LAST  432 

24,3541 

55*406 

0 

TS 

YSM 

0929- 

REF 

1 

24,3542 

3 3666 

1 

CA 

RDOTaSQ 

0930 

REF 

53 

LAST  43Z 

24,3543 

55»402 

1 

TS 

XSM  +2 

0931 

ref 

73 

LAST  43Z 

24,3544 

55*420 

1 

TS 

ZSM  .4 

0932 

ref 

1 

24,3545 

4 3665 

0 

cs 

R00T2SQ 

0933 

REF 

5A 

LAST  432 

24,3546 

55*404 

1 

TS 

XSM  +4 

093A 

ref 

2A 

LAST  432 

24,3_547 

5_5*4i6 

1 

TS  _ 

ZSM  _+2 

0935 

REF 

39 

LAST  43I 

24,3550 

0 1546 

1 

TC 

OPLACE 

0936 

REF 

13 

la^tl  431 

24,3551 

3 7746 

0 P0SN9 

CA 

HALF 

JC  UPCAST, Y UP  WESt,Z  SOUTH. THIS  POSITON 

0937 

REF 

25 

LAST  43i^ 

24,3552 

55*4l6 

1 

TS. 

ZSM  +2 

0938 

REF 

4 

last  432 

24,3553 

3 3663 

1 

CA 

ROOTl /2 

-NBDZ  +.707  SRAZ  sDH 

0939  • 

REF 

55 

LAST  432 

24,3554 

55*400 

0 

TS 

XSM 

09a0 

REF 

56 

LAST  a32 

24,3555 

55*404 

1 

IS 

XSM  +4 

09A1 

REf 

27 

last  432 

24,3556 

55*406 

0 

TS 

YSM 

09(k2 

24,3557 

4 0000 

0 

roM 

09A3 

ref 

28 

LAST  43Z 

24,3560 

55*412 

0 

TS 

YSM  +4 

09AA 

REF 

4 

last  431 

24,3561 

0 3454 

1 

TC 

NS3Jr,D 

0955 

ree 

14 

LAST 

432 

24,3562 

3 7746 

0 EOSNlO 

CA„ 

Half 

X UP  N0RTH*Y  UP  SOUTil,!  EaST.THjS-POSITN 

0956 

ref 

26 

LAST 

432 

24,3563 

55*420 

1 

TS 

ZSM  +4 

0957 

REF 

5 

LAST 

432 

24,3564 

3 3663 

1 

CA 

ROOTl/2 

.707(NBDY  -NBDX)  +.5(ADIAY  -A3IAX) 

0958 

ref 

57 

LAST 

432 

24,3565 

55*400 

0 

TS 

XSM 

♦,5(ADSRAX)  = DH 

0959 

ref 

29 

last 

432 

24*3566 

55*406 

0 

TS 

YSM 

0960 

ref 

30 

last 

432 

24,3567 

55*410 

1 

IS 

YSM  *2 

0961 

24,3570 

4 0000 

0 

COM 

0962 

ref 

58 

last 

432 

24,3571 

55*402 

1 

TS 

XSM  +2 

0963 

REF- 

5 

LAST 

432 

24,3572 

0 3454 

1 

TC 

Nsajc.D 

0964 

ref 

92 

LAST 

A26 

24,3573 

0 5206 

0 P3SN11 

TC 

banxcall 

Compass  position 

0965 

ref 

1 

24,3574 

73044 

0 

CADR 

LOAOxSM 

0966 

REF 

40 

LAST 

432 

24,3575 

0 1546 

1 

TC 

OPLArE 

0970 

REF 

24 

LAST 

428 

24,3576 

3 0342 

1 .SHDWl  0 

CA 

D4PTFM2 

0971 

REF 

8 

LAST 

428 

24,3577 

55*527 

1 

TS 

LEN3TH0T 

0972 

ref 

25 

LAST 

432 

24,3600 

3 0343 

0 

CA 

0SPTFM2  +1 

0973 

REF 

4 

last 

429 

24,3601 

55*536 

1 

TS 

NBPOS 

0974 

REF 

26 

LAST 

T32 

24,3602 

3 0344 

1 

CA 

0SPTEM2  +2 

633436*  YUL  SYSTEM  FOR  *GC:  REVISION  0 OF  PROGRAM  BURSTIZO  BY  NASA  2021106-031  DEC  7,  1967  (MAIN)  PAGE  433 


L IMU  performance  TESTS  2 USER’S  OWN  PAGE  NO.  23  S3  E5 


0975 

ref 

U last  4.29 

24.3603 

5Sf544 

_ J-S 

POSITQN  _ ....  . . _ ..... 

0976 

ref 

170  LAST  427 

24,3604 

0 0002 

0 

IC 

2 

0977 

0978 

24.360‘5 

0 0006 

1 

SHOW 

FXTFNO 

ref 

41  last  432 

24,3606 

23'546 

1 

3XCH 

OPLArE 

0979 

ref 

14  LAST  433 

24,3607 

3 1544 

0 

SMOWl 

:a 

POSI TON 

0980 

ref 

27  last  4.3.^ 

24,3610 

344 

0 

T5_ 

. DS£J£.M2._4..2  ..  

0981 

REF 

2 LAST  422 

24,3611 

3 3643 

0 

:a 

VB06N66 

0962 

REF 

47  LAST  422 

24,3612 

0 4657 

1 

re 

NvSBwAIT 

0983 

ref 

12  LAST  422 

24,3613 

0 4622 

0 

. 1<L 

flashon 

098A 

REF 

35  LAST  422 

24,3614 

0 4475 

0 

TC 

ENDInLE 

0985 

REF 

1 

24,3615 

0 2241 

1 

TC 

FINISH 

0986  ■ 

REF 

42  last  433 

24,3616 

0 1546. 

1 

. re. 

3PLACE 

0987 

ref 

2 LAST  411 

24,3617 

0 3576 

0 

re 

SHOWLO 

0988 

REF 

1 

24,3620 

1 3607 

I 

TCF 

SHOWl 

098801 

.24,3621 

0 0006 

1 

LDADGTSM..  .extend 

. ..  . . this  loads  xsm  into  GeOMATRX 

098802 

REF 

43 

LAST 

433 

24,3622 

23*546 

1 

3xeH 

OPLArE 

098803, 

REF 

42 

LAST 

429 

24,3623 

0 6112 

0 

re 

INTPRET 

098804 

24,3624 

77775 

1 

i/LOAD 

098805 

ref 

59 

LAST 

432 

24,3625 

02401 

0 

XSM 

098806 

ref 

1 

24,3626 

26750 

1 

STOVL 

oEOMtRX 

09B807 

.ref 

31 

LAST 

43Z 

24,3627 

02407 

0 

YSM 

098808 

ref 

2 

LAST 

433 

24,3630 

26756 

1 

STOVL 

SEOMtRX  +6 

098809 

ref 

27 

LAST 

432 

24,3631 

02415 

0 

ZSM 

09881 

ref 

3 

LAST 

433 

24,3632 

02764 

0 

STORE 

GEOMTRX  *12D 

■ 098811 

24,3633 

77776 

1 

EXIT 

098812 

ref 

44 

LAST 

433 

24,3634 

0 1546 

1 

re 

OPLACE 
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L 

IMJ 

Performance  tests  2 

USER'S  OWN  PAGE  NO.  24  S3  E5 

0989 

0014 

- 14C^  - - 

EQUALS, 

0990 

24,3635 

02130 

1 

Y21N30E 

OCT 

02l3n 

0991 

24 1 3636 

04000 

0 

DESAN(3LE 

OEC 

2048 

0992 

„ 24,^3_637_ 

04143 

0 

_ ^FC0N3T 

OEC 

.13107,  _ , _ 

0993 

24,3640 

34000 

0 

SIZCHK 

OCT 

34000 

0994 

24,3641 

00264 

1 

180DEC 

OEC 

180 

0995 

24,3642 

07626 

1 

399ODEC 

OE_C  _ 

3,99  0 - - 

0996 

24,3643 

00666 

1 

Y306N65 

OCT 

00656 

0997 

24,3644 

01130 

1 

TESTTIME 

OEC 

600 

0998 

24,3645 

01620 

1 

Y16N20S 

OCT 

01620 

0999 

24,3646 

01640 

1 

Y16N40S 

OCT 

01640 

1000 

24,3647 

00021 

1 

DECW 

OEC 

17 

1001 

24,3650 

06200 

0 

0EC585 

2DEC 

3200  B+14 

ClOOl 

24,3651 

00000 

1 

1002 

24,3652 

00400 

0 

DELYOFF 

OCT 

0040n 

1003 

24,3653 

00024 

1 

erunits 

2DEC 

342844  B-28 

C1003 

24,3654 

35474 

0 

1004 

REF 

7 last  429  24,3655 

01506 

0 

GENPLAD 

3ENADR 

AZIMUTH 

1005 

ref 

1 24,3656 

02521 

0 

QYRODPL 

ecadr 

3YR0D 

1006 

REF 

10  LAST  409  24,3657 

02500 

0 

03CPL 

ecadr 

33C 

1007 

24,3660 

77760 

0 

LDWFOOR 

OCT 

77760 

1008 

24,3661 

00070 

0 

0EC56 

OEC 

56 

1009 

24,3662 

10000 

0 

45DEG 

OCT 

loooo 

1010 

24 « 3663 

13241 

1 

RDOTl/2 

OEC 

.353853 

1011 

24,3664 

10000 

0 

R30T1S3 

OEC 

•250O00 

1012 

24,3665 

15520 

1 

ROOT2S3 

OEC 

.425776 

1013 

24,3666 

02260 

1 

R30T3S3 

OEC 

.073223 

1014 

ref 

60  LAST  433  24,3667 

01400 

1 

XSMADR 

3ENA0R 

X5M 

1018 

24,3670 

00000 

1 

SCNBAZ 

2DEC 

0 

C1018 

24,3671 

00000 

1 

1019 

24,3672 

00000 

1 

2DEC 

0 

C1019 

24,3673 

00000 

1 

1020 

24,3674 

20000 

0 

labnbaz 

2DEC 

.5 

C1020 

24,3675 

00000 

1' 

1021 

24,3676 

00000 

1 

2DEC 

0 

C1021 

24,3677 

00000 

1 

1022 

24,3700 

00000 

1 

2DEC 

0 

C1022 

24,3701 

00000 

1 

1023 

24,3702 

20000 

0 

SCNBVER 

2DEC 

.5 

C1023 

24,3703 

00000 

1 

1024 

24,3704 

00000 

1 

2DEC 

0 

C1024 

24,3705 

00000 

1 

1025 

24,3706 

00000 

1 

LABNBYER 

2DEC 

0 

C1025 

24,3707 

00000 

1 

1026 

24,3710 

00000 

1 

2D£C 

0 

C1026 

24,3711 

00000 

1 

1027  2A,3Y12  57777  1 

C1027  24,3713  77777  0 


2DEC 


5 
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L 

IQZTX 

IMJ 

performance 

TESTS  2 

24.3714 

Oni  44 

0 

1 SECX 

tec 

1 QQ 

USER'S  OWN  page  no.  25  S3  E5 

10272 

24,3715 

17127 

0 

3E0RGED 

2DEC 

.47408845 

C10272 

24,3716 

16705 

1 

10273 

24,3717 

07314 

0 

7DEC 

.23175864 

C10273 

24,3720 

36223 

1 

10274 

24,3721 

04521 

0 

2DEC 

.14561689 

C10274 

^24^3722 

31140 

0 

10275 

24,3723 

75755 

1 

3E0RGEC 

2DEC 

-.06360691 

CI0275 

24,3724 

73521 

0 

10276 

24,3725 

72476 

1 

2DEC 

-.16806746 

C10276 

24,3726 

54176 

0 

10277 

24,3727 

0^,771 

1 

2DEC 

,15582939 

C152J7 

24,3730 

03365 

1 

10278 

24,3731 

75644 

0 

otORGE3 

2DEC 

-.06806784 

C10278 

24,3732 

70661 

1 

■ 10279 

24,3733 

47762 

1 

2DEC 

-.75079894 

C10279 

24,3734 

75077 

0 

102791 

24,3735 

70023 

1 

2DEC 

-.24878704 

C102791 

24,3736 

73740 

0 

1030 

REF 

6 LAST 

389 

24,3737 

0 5235 

0 

ddcheccg 

rc 

MA<ECADR 

1031 

REF 

4 LAST 

390 

24,3740 

55*547 

1 

TS 

3PLACES 

1032 

REF 

3 LAST_ 

416 

24,3741 

0 ?7T6  0 

rc  _ 

CHECICG 

1033 

ref 

5 lAsT 

435 

24,3742 

3 1547 

0 

CA 

3PLACES 

1034 

ref 

13  LAST 

39O 

24,3743 

0 5230 

0 

TC 

BAN<iiUMP 

633^»36A 

-< 

c 

SYSTEM  FOR  AgC: 

R'VISION 

0 OF  program  bURST12D  BT  NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  436 

L 

OOOi 

IMJ 

PERFORMANCE  TESTS  3 

2^.2520 

3AN< 

_23 

USER’S  OWN  page  NO.  i S3 

0002 

RtF 

51 

LAST 

434 

E5 

EBAN<= 

XSM 

0500 

23 

t2520 

0 0006 

1 

silver 

EXTEND 

0501 

REF 

.45_ 

LAST 

433 

23 

.2521 

23 •546 

1 

3XCH 

OPLArE 

should  be  ADDRESS  OF  STRTWACH 

0502 

REF 

LAST 

422 

23 

.2522 

Il'6l4 

1 

CCS 

calcdir 

2F  COMMAND  IS  POSITIVE  THE  MINUS  TORO 

0503 

ref. 

6 

lAst 

190 

23 

.2523 

3 7753 

1 

caf. 

31T9 

winding  Is  to  be  energized 

0504 

23 

.2524 

0 2526 

1 

TC 

+ 2 

0505 

REF 

1 

23 

.2525 

0 2530 

0 

tc 

TOR< 

COMMAND  IS  NEG  SO  USE  PLUS  WINDING 

0556. 

23 

.2526 

0 0006 

1 

EXTEND 

0507 

■REF 

3 

LAST 

421 

23 

.2527 

O 

o 

1 

(JOR 

14C 

selects  THE  MINUS  WINDING 

0508  .. 

_REF_ 

..20 

LAST 

421 

.2530 

3 7743 

JJ 

TJRK  ___ 

CAE 

POSMaX 

0509 

REF 

3 

LAST 

421 

23 

.2531 

54  047 

0 

IS 

3YR0CTR 

16383  PULSES  =2.8125  DEG  LESS  ONE  PULSE 

0510 

REF 

2 

LAST 

41 P 

.23 

*2532 

11*616 

0 

CCS  _ 

5YT0BFTQ  _ 

C(K)=  1 FOR  X.  -0  FOR  Y.  -iFOR  7.  ... 

0511 

ref 

1 

23 

.2533 

0 2537 

1 

TC 

SELECTX 

0512 

REF 

12 

LAST 

413 

23 

.2534 

0 4736 

1 

TC 

CCSHOLE 

0513 

REF 

1 

23 

.2535 

0 25470 

_ TC 

SELECT? 

0514 

REF 

1 

23 

.2536 

0 2543 

1 

TC 

SELECTY 

0515 

REF 

1 

23 

.2537 

3 2553 

0 

selectk 

CAF 

TOR<X 

BBITS  7AND  10  IN  CHANNEL  14  WILL 

0516 

23 

.2540 

0 0006 

1 

EXTEND 

select  X GYRO  AND  TURN  ON  BCSW  1/3200 

0517' 

REF 

4 

LAST 

436 

23 

.2541 

05  014 

1 

(lOR 

14C 

SSfC^LATER  BY  CHANNEL  OUTPUT  DESIGN 

0518 

REF 

LAST 

436 

23 

.2542 

0 1546 

1 

TC 

OPLArE 

0519 

REF 

1 

23 

.2543 

3 2554 

1 

5ELECTT 

caf 

TDR<Y 

BBITS  8 AND  10  TO  TORO  Y GYRO 

0520 

23 

.2544 

0 0006 

1 

EXTEND 

0521 

ref 

5 

LAST 

436 

23 

.2545 

05  014 

1 

/JOR 

14C 

0522 

REF 

47 

LAST 

436 

23 

.2546 

0 1546 

1 

TC 

OPLArE 

0523 

REF 

1 

23 

.2547 

3 2555 

0 

SELECTZ 

CAF 

TDR<Z 

BBITS  7.8AND  10  TO  TORO  Z GYRO 

0524 

23 

.2550 

0 0006 

1 

EXTEND 

0525 

REF 

6 

LAST 

436 

23 

.2551 

05  014 

1 

(JOR 

14C 

0526 

REF 

48 

LAST 

436 

23 

.2552 

0 1546 

1 

TC 

OPLArE 

0527 

23 

.2553 

01100 

1 

T3RKX 

OCT 

Ol  100 

0528 

23 

.2554 

01200 

1 

torky 

OCT 

01200 

0529 

23 

.2555 

01300 

0 

TPRKZ 

OCT 

01300 

i 
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L 

IMJ 

Performance  ' 

TESTS  3 

USER*S  OWN  PAGE  NO.  2 S3  £6 

0530 

REF 

143  LAST  430 

23j^S5S 

3 -77i>7 

_0 

SAMODC-L<L_CAf 

ZERO  . ^ . . _ . _ . _ 

0531 

REF 

4 LAST  420 

23,2557 

55*563 

1 

TS 

TESTNO 

0532 

REF 

10  LAST  402 

23,2560 

55*550 

1 

rs 

RJN 

0533 

REF 

1 

23,2561 

0 3151 

1 

re 

zeromode 

0534 

REF 

1 

23,2562 

0 3175 

1 

re 

OPRTROLY 

0535 

REF 

1 

23,2563 

0 3255 

0 

re 

COARZERO 

0536 

ref 

L _ 

23,2564 

0 3161 

1 

^ re 

zeromain 

0537 

REf 

2 lAsT  437 

23,2565 

0 3175 

1 

re 

oprtrdly 

0538 

ref 

2 LAST  437 

23j2_566 

0 3151 

re 

ZEROMODE 

0539 

ref 

144  LAST  437 

23,2567 

3 7767 

0 

:af 

ZERO 

O54O  . 

REf 

1 

23,2570 

0 3103 

0 

re 

rHETftDLD 

0541 

ref 

1 

23,2571 

3 3332 

0 

CAF 

45ANG 

0542 

ref 

2 LAST  437 

_ 23,2572 

0 3103 

J!_ 

tc 

THETADLD 

0543 

REF 

1 

23,2573 

0 3271 

0 

re 

fnzerofn 

0544 

ref 

1 

23,2574 

3 3334 

0 

CAF 

90ANG 

0545 

REf 

3 LAST  437 

23,2575 

0 3103 

0 

re 

THETADLD 

0546 

REF 

1 

23,2576 

3 3335 

1 

CAF 

l35AwG 

0547 

REF 

4 LAST  437 

23,2577 

0 3103 

0 

re 

THETADLD 

0548 

REF 

145  last  437 

23,2600 

3 7767 

0 

CAF 

ZERO 

0549 

REF 

5 LAST  437 

23,2601 

0 3105 

0 

re 

THETADLD  +2 

0550 

REF 

2 LAST  437 

23,2602 

0 3271 

0 

re 

Fnzerofn 

0551 

ref 

1 

23,2603 

3_  3340 

0 

CAF 

IbOAmG 

0552 

REf 

15  last  415 

23,26(54 

54  400 

1 

rs 

THETAD 

0553 

REF 

16  LAST  437 

23,2605 

5^  401 

0 

rs 

ThETaD  +1 

055A 

REF 

1 

23,2606 

3 3333 

1 

CAF 

71AMG 

0555 

REF 

6 LAST  437 

23,2607 

0 3105 

0 

re 

THETADLD  +2 

0556 

REF 

1 

23,2610 

3 3341 

1 

CAF 

225ANG 

0557 

ref 

7 LAST  437 

23,2611 

0 3103 

0 

re 

thEtadld 

0558 

REF 

146  LAST  437 

23,2612 

3 7767 

n 

CAF 

ZERO 

0559 

REF 

8 LAST  437 

23,2613 

0 3103 

0 

re 

THETADLD 

0560 

REF 

51  last  430 

23,2614 

3 7762 

0 

CAF 

Two 

0561 

REF 

11  LAST  420 

23,2615 

55*672 

1 

CHK2  rs 

CDJNDX 

0562 

ref 

i. 

23,2616 

3 3342 

1 

CAF 

170ANG 

0553 

REf 

12  LAsT  437 

23,2617 

51*672 

0 

index 

CoDNoX 
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L IMJ  performance  tests  3 USER'S  OWN  PAGE  NO.  3 S3  E5 


0554 

■ ref 

17 

EAST 

437 

23i2A2fi 

54-  400 

-1 

JS 

IdETAP  , - - - - . - 

0565 

REF 

93 

last 

432 

23,2621 

0 5206 

0 

TC 

3AN<CALL 

0566 

REF 

5 

LAST 

425 

23j2622 

- 26065 

0 

CADR 

IMJCOARS 

0567 

REF 

1 

23,2623 

3 3336 

1 

:af 

lOANr, 

0568 

REF 

1 

2 3, 2^2 4 _ 

0-3024 

L 

- rc 

COJRATE 

0569 

REF 

1 

23,2625 

3 3337 

0 

CAF 

1 6 0 AmG 

0570 

REF 

2 

LAST 

00 

23i2626 

0 3024 

1 

-T  c 

COJRATE 

0571 

• REF 

1 

23,2627 

0 3047 

i 

TC 

CALCRATE 

0572 

REF 

94 

LAST 

438 

23,2630 

0 5206 

0 

TC 

BANKCALL 

0573 

REF 

24 

LAST 

426 

23,2631 

26751 

0 

:adr 

IMJSTALL 

0574 

REF 

1 

23.2632 

1 2767 

1 

TCF 

ENDT4T03 

0575 

REF 

2 

LAST 

437 

23,2633 

0 3255 

0 

TC 

CCiArzERO 

0576 

REF 

13 

LAST 

437 

23,2634 

11*672 

1 

CCS 

COJNnX 

0577 

(REf 

1 

23,2635 

1 2615 

0 

TCF 

CH<2 

0578 

REF 

2 

LAST 

437 

23  1 2636 

4 3332 

1 

:s 

45ANG 

0579 

REF 

9 

LAST 

437 

23,2637 

0 3103 

0 

TC 

thetadld 

0560 

REF 

3 

LAST 

437 

23,2640 

0 3271 

0 

TC 

fnzerofn 

Q5fll  - 

REF 

2 

LAST 

437 

23,2641 

4 3335 

0 

CS 

135ANG 

0582 

REf 

18 

LAST 

438 

23,2642 

54  400 

1 

IS 

THETAD 

0583 

REF 

19 

last 

438 

23,2643 

5 A 40 1 

0 

IS 

THETAD  +1 

0584 

REF 

2 

LAST 

437 

23.264,4 

4 3333 

0 

CS 

71ANG 

0585 

REF 

10 

LAST 

438 

23,2645 

0 3105 

0 

TC 

THETADLD  +2 

05851 

REF 

1^7- 

LAST 

437 

23,2646 

3 7767 

0 

CAF 

ZERO  - - 

05852 

ref 

11 

LAST 

438 

23,2647 

0 3105 

0 

IC 

thetadld  +2 

0586 

REF 

4 

LAST 

438 

23,2650 

0 3271 

0 

TC 

Fnzerofn 

0587 

REF 

3 

LAST 

438 

23,2651 

0 3255 

0 

TC 

CQAR7ER0 

0588 

ref 

1 

23,2652 

0 3216 

1 

TC 

finezero 

0589 

REF 

2 

LAST 

438 

23,2653 

0 3216 

1 

TC 

F1NE7ER0 

0590 

REF 

1 

23,2654 

4 3346 

1 CHK5 

CS 

4+63ITS 

0591 

23,2655 

0 0006 

1 

extend 

0592 

23.2656 

03  012 

1 

WAND 

12 

0593 

ref 

13 

LAST 

418 

23,2657 

3 7761 

0 

CAF 

FOUR 

0594 

REF 

64 

LAST 

427 

23,2660 

0 5663 

1 

TC 

WAITi'IST 

05945 

REF 

62 

last 

436 

E5 

EBAN<= 

XSM 
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L 

IMJ 

PERFORMANCE  ' 

TESTS  3 

USER'S  OWN  page  no.  4 S3  E5 

2_3j2661 

. 02665  0 . 

2.C.A0.R.. 

ECEl  ...  

C0595 

REE 

1 

23,2662 

46065  0 

0596 

REF 

1 

23,2663 

3 3356  1 

CAF 

ECE2rADR 

0597 

ref 

12  LAST 

427 

23 

. 0.  S543_£)_ 

rc 

.JO.aSl.EEP.  ...  ..  . .... 

0598 

REF 

2 LAST 

439 

23,2665 

3 3356  1 

ecei 

:af 

ECE2CADR 

0599 

ref 

10  last. 

427 

. . . 2-3  » 2 66.6 

0 5551_Q. 

rc- 

J.QB.WAICE.  ........... 

0600 

REF 

52  LAST 

427 

23,2667 

0 5727  0 

rc 

TAS<OVER 

0601 

REF 

11  LAST 

40Z 

23,2670 

4 6306  il 

ECE2 

cs 

SIX 

0602 

ref 

5 last 

43  7 

23,2671 

6 1563  0 

ad 

rESTNO 

0603 

23,2672 

0 0006  1 

EXTEND 

0604 

23,2673 

6 2675  1 

3ZMF 

+ ? 

• 0605 

REF 

1 

23,2674 

1 2716  1 

rcF 

CH<X 

0606 

REF 

6 LAST 

439 

23,2675 

51*563  0 

INDEX  . 

TESTnO 

0607 

ref 

1 

23,2676 

3 2771  1 

:af 

erctrang 

0608 

REF 

20  LAST 

438 

23,2b77 

54  400  1 

rs 

THETAD 

0609 

REF 

21  last 

439 

23,_2700 

54  401  0 

rs 

IHETAD  +1 

0610 

REF 

22  last 

439 

23,2701 

54  402  0 

TS 

ThETAO  +2 

, 0611 

REF 

30  LAST 

423 

2 3 ,2  .702 

3 7756  1 

CAF. 

B1T6 

0612 

23,2703 

0 0006  1 

EXTEND 

0613 

23,2704 

05  012  1 

a/or 

12 

0614 

23,2705 

0 0004  0 

INHINT 

0615 

REF 

62  LAST 

43T 

23,2706 

3 7762  0 

CAF 

TwO 

0616 

REF 

65  LAST 

438 

23,2707 

0 5663  1 

TC 

WAITI  1ST 

06165 

REF 

63  LAST 

438 

E5 

eban<= 

XSM 

0617 

23,2710 

02612  0 

2CADR 

A1TCIA2 

C0617 

ref 

3 LAST 

216 

23,2711 

22065  1 

0618 

23,2712 

0 0003  1 

RE LI  NT 

0619 

ref 

3 LAST 

.437 

_ . .23,2713 

0 3175  1 

rc 

OPRTRDLY 

0620 

REF 

7 LAST 

439 

23,2714 

25'563  0 

INCR 

TESTNO 

0621 

REF 

1 

. 23,2715 

1 2654  0 

ICF 

CH<5 

0622' 

REF 

4 LAST 

438 

2.3j2716 

0 3255  0 

CHKX 

rc 

C0AR7ER0 

0623 

REF 

148  LAST 

438 

23,2717 

3 7767  0 

CAF 

ZERO 

0624 

REf 

8 LAST 

439 

23,2720 

55*563  1 

rs 

TESTmO  . . 

0625 

REF 

95  LAST 

438 

23,2721 

0 5206  0 

rc 

BANCCALL 

0626 

REF 

4 LAST 

417 

23,2722 

20250  1 

CAOR 

RRZERO 

0627 

REF 

96  LAST 

439 

23,2723 

0 5206  0 

rc 

BANCCALL 

0628 

REF 

7 LAST 

417 

23,2724 

26745  0 

CADR 

RADStALL 

0629 

REF 

2 LAST 

438 

23.2725 

1 2767  1 

TCF 

ENDTST03 
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L 

IMJ 

performance  ■ 

TESTS  3 

USER*S  OWN  page  NO.  5 S3  E5 

0630 

REF 

9 LAST  A39 

. „ 23j_2726 

51'563 

.0  . 

„CHKL6  _ 

_IND_E_)i  _ 

JES.TmQ.  - _ _____ 

0631 

REF 

1 

23.2727 

3 3000 

1 

:af 

RADErNTR 

0632 

REF 

22  LAST  417 

23.2730 

54  423 

0 

rs 

TANS  +1 

0633 

REF 

23  LAST  440 

23.2731 

54  422 

1 

TS 

TANS 

063A 

REF 

97  LAST  439 

23.2732 

0 5206 

0 

TC 

3AN<fALL 

0635 

REF 

3 LAST  4H 

23j2  )33 

_ 203_64 

1 

CADR 

RRDESNB 

0637 

REF 

98  LAST  440 

23.2734 

0 5206 

0 

TC 

BANXCALL 

. 0638 

REF 

8 LAST  439 

23.2735 

_ 2 6i45 

0 

CADR 

RADStALL 

0639 

REF 

3 LAST  439 

23.2736 

1 2767 

1 

TCF 

ENOTSTO3 

0640 

REF 

1 

23jl27L31_ 

0 3L7_0 

1 ^ 

TC 

RRDPrDLY 

0641 

REF 

10  LAST  440 

23.2740 

25*563 

0 

INCR 

TESTNO 

0642 

rEf 

14  lAsT  438 

23.2741 

4 7761 

1 

cs 

FOJ9 

0643 

REF 

11  LAST  440 

23.2742 

6 1563 

0 

AD 

TESTNO 

064A 

23.2/43 

.,_0  0006 

1 

EXT£ND. 

0645 

ref 

1 

23.2744 

6 2726 

0 

3ZMF 

CH<6 

Q6A6_. 

.ref 

149  LAST  439 

23.2745 

3 7767 

0 

CAF 

ZERO' 

0647 

ref 

12  LAST  440 

23.2746 

55*563 

1 

TS 

TESTnO 

0648 

REF 

7 LAST  300 

23.2747 

54  353 

0 

TS 

ALTRATE 

0649 

REF 

7 LAST  300 

23.2750 

54  351 

1 

TS 

ALT 

0650 

REF 

8 LAST' 440 

23.2751 

54  352 

1 

TS 

ALT  .1 

0651 

REF 

118  LAST  43l 

23.2752 

4 7763 

0 

CS 

ONE 

0652 

REF 

6 LAST  221 

23.2753 

54  350 

0 

TS 

DIDFI  G 

0653 

REF 

13  LAST  440 

23.2754 

51*563 

0 

CMK7 

INDEX 

TESTNO 

065A 

REF 

1 

23.2755 

3 3005 

1 

CAF 

RRRATFPS 

0655 

ref 

-4  lAsT  296 

23.2/56 

54  357 

1 

TS 

FORi/EL 

0656 

REF 

3 LAST  110 

23.2757 

54  360 

0 

TS 

LATv/FL 

0657 

REF 

2 LAST  440 

23.2760 

0 3170 

1 

TC 

RROPrDLY 

0658 

REF 

14  LAST  440 

23.2761 

25*563 

0 

INCR 

TESTNO 

0659 

_ REE_ 

19  LAST  426 

23.2762 

4 7757 

1 

CS 

3l  T5 

0660 

REF 

53  last  439 

23.2763 

6 7762 

0 

AD 

TrtO 

0661 

REF 

15  LAST  440 

23,2764 

6 1563 

0 

AD 

TESTNO 

0662 

23.2765 

0 0006 

} 

EXTEND 

0663 

REF 

1 

23.2766 

6 2754 

0 

3ZMF 

CH<7 

066A 

REF 

99  LAST  44O 

23.2767 

0 5206 

0 

ENDTST03 

TC 

BANXrALL 

0665 

ref 

25  LAST  414 

23.2770 

30770 

1 

:ADR 

ENDTEST 
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0666 

23.2771  - 

0301_3  0 

. £.iCI-RA.'IG-  OtI„ 

- -03013-- 

0667 

23,2772 

02660  0 

DCT 

02660 

0668 

23,2773 

010A2  0 

OCT 

0104^ 

0669 

2i,277fL  , 

_ Ofl  OQ-0  i 

3CI 

. aoaon 

0670 

23,2775 

76736  1 

OCT 

76736 

0671 

23,2776 

75120  0 

OCT 

75120 

0672  

23.2777 

74765  0 

__0C1_ 

7-4-7.6JL 

0673 

23,3000 

_ _ 0_1463 

1 

RAdEcNTR  OCT 

01463  _ 

0674  . 

23,3001 

01042 

0 

OCT 

01042 

0675 

23,3002 

00000 

1 

OCT 

OoOon 

0676 

23,3003 

76736 

1 

OCT 

76736 

0677 

23,3004 

76315 

1 

OCT 

763U 

0678 

23,3005 

00000 

1 

RRRATFRS 

DCT 

00000 

0679 

23,3006 

00001 

0 

3CT 

00001 

0680 

23,3007 

00002 

0 

3CT 

00002 

0681 

23,3010 

00004 

0 

DCT 

000D4 

0682 

23,3011 

00010 

0 

DCT 

OOOlO 

0683 

23,3012 

00020 

0 

DCT 

000?n 

0684 

23,3013 

00040 

0 

DCT 

0004O 

0685 

23,3014 

00100 

0 

DCT 

00100 

0686 

23,3015 

00200 

0 

DCT 

00200 

0687 

23,3016 

00237 

1 

DCT 

00237 

0688 

23,3017 

00400 

0 

DCT 

0040O 

0689 

23,3020 

00545 

0 

DCL 

00545 

0690 

23,3021 

00544 

1 

DCT 

00544 

0691 

23,3022 

77540 

0 

DCT 

77540 

0692 

23,3023 

77232 

1 

DCT 

77232  ^ 
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L iMj  Performance  tests  3 user's  own  page  no.  7 S3  es 


0693 

23.3024 

0 0006  1 

C3URATE EXTEND 

069A 

ref  A9  last  436 

23.3025 

23*546  1 

3XCH  OPLArE 

0695  rEF  1 _ . 23.3026  557577  1 IS^  COJUIMIF- 


0696 

REF 

6 

LAST  423 

23,3027 

10  067 

1 

CCS 

NEWJOB 

0697 

REF 

5 

LAST  423 

23,3030 

0 5532 

0_  _ 

TC  _ 

ch  a ngi.  _ . - 

0698 

REF 

2 

LAST  442 

23,3031 

4 1577 

1 

:s 

cojlimit 

0699 

REF 

14 

LAST  438 

23,3032 

51 '672 

0 

INDEX 

CDJNDX 

0700 

REF 

22 

LAST  426 

23,3033 

6 0032 

0 

AD 

CDJX 

CATCH  FIRST  PULSE 

0701 

23,3034 

0 0006 

1 

EXTEND 

0702 

REF 

3 

LAST  438 

23,3035 

6 3027 

1 

3ZMF 

COJRaTE  +3 

LOOK  AGAIN 

0703 

REF 

15 

LAST  442 

23,3036 

51*672 

0 

INDEX 

COJNDX 

0704 

REF 

23 

LAST  442 

23,3037 

30  032 

0 

rAE  ■ 

CDJX 

0705 

REF 

1 

23,3040 

57*575 

1 

kch 

COJRfADF 

CDU  FINAL  READING 

0706 

REF 

1 

23,3041 

57*576 

1 

XCH 

COJREADI 

CDU  INITIAL  READING 

0707 

REF 

6 

last  423 

23,3042 

. 0 5026 

0 

rc 

finetime 

0708 

REF 

1 

23,3043 

53*573 

0 

OXCH 

CDJTIMEF 

DP  FINAL  time 

0709 

REF 

1 

23,3044 

53*571 

1 

DXCH 

CDJTIMEI 

DP  INITIAL  READING 

0710 

23,3045 

0 0003 

1 

RELINT 

0711 

REf 

50 

lA<^T  442 

23,3046 

0 1546 

1 

rc 

DPLAcE 

0712 

23,3047 

0 0006 

1 

CAl crate  EXTEmO 

0713 

REF 

51 

LAST 

442 

23,3050 

23*546 

1 

3XCH 

JPLACE 

0714 

REF 

2 

LAST 

442 

23,3051 

53*576 

0 

OXCJI 

CDJRFADF 

0715 

23.3052 

0 0006 

1 

EXTEND 

0716 

REf 

34 

lAst 

427 

23,3053 

20  001 

1 

MsU 

L 

0717 

REF 

1 

23,3054 

55*677 

1 

T5 

CDJAnG 

0718 

ref 

43 

LAST 

433 

23,3055 

0 6112 

0 

rc 

INTPrET 

0719 

23,3056 

45345 

1 

3L0A0 

DSJ 

0720 

REF 

2 

LAST 

442 

23,3057 

02573 

1 

CDJTiMEF 

0721 

REF 

- 2 

LAST 

442 

23,3060 

02571 

0 

CDJTIMEI 

0722 

23,3061 

67206 

1 

3USH 

SLOAD 

0723 

REF 

2 

LAST 

442 

23.3062 

02700 

1 

COJANG 

0724 

23,3063 

56261 

1 

SR 

DDV 

0725 

23,3064 

20617 

0 

14D 

0726 

23.3065 

47005 

1 

OMP 

RT8 

0727 

ref 

1 

23,3066 

07362 

1 

DEG/sEC 

0728 

REF 

6 

LAST 

428 

23,3067 

33520 

0 

SGNAGREE 

0729 

REF 

28 

LAST 

433 

23,3070 

00343 

0 

STORE 

0SPTEM2 
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0730  _ 7ZrTf>_]^ -EJOI _ _ 


0731 

ref 

1 

23.3072 

3 3353 

1 ratedsp 

CAF 

Y06NW6X 

0732 

ref 

48 

LAST 

433 

. 2.3,3073 

0__4657_ 

1 

- TC- 

---NVSBWAIT  ..... 

0733 

REF 

13 

LAST 

433 

23,3074 

0 4622 

0 

TC 

FLAShON 

0734 

REF 

36 

LAST 

433 

23,3075 

0 4475 

0 

TC 

ENOInLE 

0735 

REF 

LAST 

440 

23.3076 

J.  2767. 

1 . 

TCF 

ENDTST03  . . 

0736 

23,3077 

1 3101 

0 

TCF 

♦ 2 

0737 

REF 

1 

23,3100 

1 3072 

0 

rCF 

RATEdSP 

0738 

REF 

11 

LAST 

437 

23,3101 

25'550 

0 

INCR 

RUN 

0739 

REF 

52 

LAST 

442 

23,3102 

0 1546 

1 

TC 

OPLArE 

633'.36A  YUL  system  FOR  AGC:  REVISION  0 OF  PROGRAM  bURSTl23  BY  NASA  2n2U06-031 


DEC  7t  1967  (MAIN)  PAGE  949 


L IMJ  performance  tests  3 
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0790 

REF 

23 

LAST 

93? 

„__23j_3_ia3 

59^900.. 

1 

I HE  TAD  LD_  LS 

THETAD 

0791 

ref 

29 

LAST 

999 

23,3109 

59  901 

0 

rs 

ThETAD  +1 

0792 

REF 

25 

LAST 

999 

23,3105 

59  902 

0 

rs 

THETAD  *2 

0793 

23,3106 

0 0006 

1 

EXTEND 

0799 

ref 

53 

LAST 

993 

23,3107 

23*596 

1 

DXCH 

DPLACE 

0795 

ref 

9 

LAST 

370 

23,3110 

3 7765 

1 

:af 

seven 

0796 

REF 

12 

LAST 

925 

23,3111 

55*551 

0 

THLDl  rs 

STDREPL 

0797 

REF 

no 

LAST 

990 

23,3112 

0 5206 

0 

rc 

BAN<CALL 

0798 

REF 

6 

LAST 

938 

23,3113 

26065 

0 

CADR 

IMJCOARS 

0799 

REF 

ni 

LAST 

999 

23,3119 

0.  5206 

0 

TC 

BAN<rALL 

0750 

REF 

25 

LAST 

938 

23,3115 

26751 

0 

CADR 

IMJSTALL 

0751 

REF 

5 

LAST 

993 

23,3116 

1 2767 

1 

TCF 

• ENDTST03 

0752 

REF 

13 

LAST 

999 

23,3117 

11*551 

0 

CCS 

STDREPL 

0753 

REF 

1 

23*3120 

0 3111 

0 

TC 

THLDl 

0759 

REF 

9 

LAST 

939 

23,3121 

6 3175 

1 

TC 

DPRT^DLY 

. . . 0755 

REF 

_ 59  JLMJ 

999 

23,3122 

0 1596_ 

1 

TC 

DPLACE  _ 

-VL2P__ 

0757 

REF 

55 

LAST 

999 

23,3129 

__W__UUUCL_1_ 

23*596  1 

r l I'tC.HI.OlM  * X 1 

3XCH 

DPLArE 

0758 

rEF  132 

1 AST 

999 

23,3125 

0 5206  0 

rc 

BAN<CALI. 

0759 

REF 

5 

LAST 

926 

23,3126 

26252  0 

CADR 

IMJFINE 

0760 

ref  133 

LAST 

999 

23,3127 

0 5206  0 

TC 

3AN<CALL 

0761 

REF 

26 

LAST 

999 

23,3130 

26751  0 

CADR 

IMJSTALL 

0762 

REF 

6 

LAST 

999 

23,3131 

' 1 2767  1 

TCF 

ENDTST03 

. _ Q763__ 

REF 

5S 

LAST 

999 

23,3132 

0 1596  1 

TC 

DPLACE 
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U TbH 
0765 

REF 

57 

LAST  AAA 

23,3134 

23»5A6 

1 

3XCH 

OPLACE 

0766 

-REF 

X 

23.3135 

3 33AA 

CM 

OCTAO 

0767 

REF 

235 

LAST  A25 

23,3136 

5A  1A6 

0 

T5 

MPAC  +2 

0768 

REF 

1 

2A.3137 

3 33A7 

1 

CAF 

VOlNlOX 

0769 

REF 

R9 

LAST  AA3 

2_3j3lAC)_ 

_£LA657 

1_. 

. _ rc 

NVSawALT_.  . . . . . 

0770 

REF 

U 

LAST  AA3 

23,31A1 

0 A622 

0 

TC 

FLASHON 

0771 

REF 

37 

LAST  AA3 

23.31A2 

0 AA75 

0 

TC 

ENDlnLE 

0772 

ref 

7 

LAST.  AAjA 

23.31A3 

1 2767 

1 

TCF 

EN0T5T03 

0773 

23.31AA 

1 31A6 

0 

rcF 

+ 2 

077A 

ref 

1 

23.31A5 

1 3135 

1 

rcF 

CH300SPY  +2 

0775 

REF 

LAST  28A 

23,3lA6 

0 A626 

1 

TC 

FLASHOFF 

0776 

REF 

12 

LAST  Aa3 

23,31A7 

25'550 

0 

INCR 

RUN 

0777 

REF 

58 

LAST  AA5 

23,3150 

0 15A6 

1 

rc 

OPLArF 

0778 

23,3151 

0_7IQ06_1  7£8OM0aE; 

- vTFMT 

0779 

REF  59 

LAST 

AA5 

23,3152 

23'5A6 

1 

OXCH 

3PLACE 

0780 

ref  lOA 

LAST 

aaa 

_ 23j_3a53 

. 0 5206- 

-0 - 

TC 

aAN<rALI 

0781 

REp  9 

last 

A26 

23.315A 

26000 

0 

CAOR 

IMJZERO 

0782 

ref  105 

LAST 

AA5 

23,3155 

0 5206 

0 

rc 

BANCCALL 

0783 

REF  27 

LAST 

aaa 

23,3156 

26751 

0 

CAOR 

IMJSTALL 

078A 

■ REF  8 

LAST 

AA5 

23,3157 

1 2767 

1 

TCF 

ENDTST03 

0785 

REP  . t)0 

LAST 

AA5 

23,3160 

_ 0 I5A6 

1. 

TC 

_ -3-PLACE- - -- 

0786 

REF 

2 LAST 

A3B 

23,3161 

A 33A6 

1 

ZEROMAIN  C5 

A+63TTS 

0787 

23,3162 

0 0006 

1 

EXTEND 

0788 

23,3163 

03  012 

1 

wAND 

12 

0789 

ref 

20  LAST 

AAO 

23,316A 

3 7757 

0 

CAF 

31T5 

0790 

23,3165 

0 0006 

1 

EXTEND 

079L 

23,3166 

05  012 

_L_ 

(iQE 

A2 

0 


0792  REF  171  LAST  A33 


23,3167  0 0002  0 


TC 


633<t36A  yUL  SySTEM  FqR  AGC;  REVISION  0 uF  PRqGRaM  bURSTlZO  By  NASA  2n2110fe-03l 


DEC  7*  1967  (Main)  page  aa6 


L iMj  Performance  tests  3 
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u r y ^ 
0794 

ref 

9 LAST  A2T 

4 l.a  1.  f_V.  . 

23,3171 

23*545  1 

3XCH 

OPLAr 

0795 

ref 

13  LAST  945 

_ 23.3172 

2S'550  0 __ 

. IN_CFL 

_iUN _ . . . _ , _ _ 

0796 

rEF 

1 

23,3173 

3 3352  0 

caf 

V06Ni>OX 

0797 

ref 

, 5,  LAST  999 

23.3179 

L^_01„0  _ 

TCF^ 

OPRTRDLy  +9^ 

u.r9_o__ 

0799 

ref 

10 

last' 

996 

23»3176 

_ W U.UVD 

23*545 

i 

1 

3XCH 

3PLAC 

0800 

REF 

19 

LAST 

446 

.23.3177 

25*550 

0 

INCR 

RUN 

0801 

REf 

1 

23.3200 

3 3351 

0 

caf 

V06NiOX 

0802 

REF 

50 

LAST 

995 

23,3201 

0 9657 

1 

rc 

NvSSwAIT 

0803 

REF 

1 

23,3202 

3 3359 

0 

CAF 

V3.3NOOX 

0809 

REF 

51 

LAST 

996 

23,3203 

0 9657 

1 

rc 

nvsbwait 

0805 

REF 

15 

LAST 

996 

23,3209 

3 1550 

0 

CA 

RUN 

0806 

sef 

i 

23.3205 

7 3393 

1 

vlAS< 

6L0W 

0807 

REF 

52 

LAST 

996 

23.3206 

0 9657 

1 

rc 

NVSSwAIT 

0808 

REF 

15 

LAST 

995 

23.3207 

0 9622 

0 

rc 

FLASHON 

0809 

REF 

.38 

LAST 

995 

23,3210 

0 9975 

0 

rc 

ENDIJ3LE 

0810 

REF 

9 

LAST 

995 

23.3211 

1 2767 

1 

rcF 

ENDTST03 

0811 

23.3212 

1 3219 

1 

rcF 

♦ 2 

0812 

REF 

6 

last 

996 

23.3213 

1 3200 

1 

rcF 

OPRTRDLy  +3 

0813 

REF 

5 

LAST 

995 

23,3219 

0 4626 

1 

rc 

flashoff 

0819 

REF 

11 

LAST 

446 

23,3215 

0 1595 

1 

rc 

OPLAC 

0815  ‘ 

23.3216 

0 0006 

1 

FINEZERO  EXrEND 

0816 

REp 

12 

1 AST 

996 

23,3217 

23’595 

1 

3XCH 

OPI  Ar 

0817 

REF 

106 

LAST 

995 

23,3220 

0 5206 

0 

rc 

BANCrALL 

0818 

REF 

10 

LAST 

995 

23,3221 

26000 

0 

CAOR 

IMJZfRO 

0819 

REF 

6A 

LAST 

99O 

23.3222 

3 7762 

0 

CAF 

TrtO 

0820 

REf 

6 

LAST 

39V 

23,3223 

55*512 

1 

rs 

EROptN 

0821 

-REF 

15 

LAST 

99ti 

23,3229 

3 7761 

0 

CAF 

four 

0822 

REF 

15 

LAST 

933 

23,3225 

551599 

1 

rs 

POSItON 

0823 

23,3226 

0 0009 

0 

INHINT 

0829 

REF 

39 

LAST 

920 

23,3227 

9 7752 

1 

cs 

BlTln 

0825 

REF 

31 

LAST 

396 

23,3230 

7 0079 

0 

»1A5< 

STATE 

0826 

ref 

35 

LAST 

996 

23,3231 

6 7752 

0 

AD 

BlTlO 

0827 

ref 

32 

LAST 

996 

23,3232 

59  079 

0 

rs 

Si  ATf 

0828 

23,3233 

0 0003 

1 

RELiNT 
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L 

IMJ 

performance 

TESTS  3 

USER’S  OWN  page  NO.  12 

S3  E5 

0829 

ref 

1D7 

LAST  446 

23.3234 

_ 0 5206  0 _ 

IC 

3AN<CALL 

0830 

REF 

2 

LAST  380 

23,3235 

31003  0 

:aor 

LEMLAB 

0831 

REF 

16 

LAST -42B 

_ i3,3236 

0.  4644  0 

SAMODRIN 

re 

oRASwAU  .. 

083A 

REF 

2 

LAST  437 

23,3237 

0 3161  1 

re 

ZEROMAIN 

083A05 

23,3240 

0 0004  0 

INHiNT 

083A1 

REf 

22 

[.AST  416 

23,3241 

3 7751  0 

:af 

81  r 1 1 

083A15 

REF 

S6 

LAST  4.39 

23,3242 

0 5663  1 

IC 

^AlrLIST 

083A17 

REF 

64 

LAST  439 

E5 

EBAN<= 

XSM 

08342 

23,3243 

03247  0 

2CADR 

OSPY30 

C08342 

REF 

1 

23.3244 

46065  0 

083425 

REF 

1 

23,3245 

3 3355  1 

CAF 

CH30WAKE 

08343 

REF 

13 

LAST  439 

23,3246 

0 5545  0 

re 

JOBSLEEP 

083435 

REF 

2 

LAST  447 

23,3247 

3 3355  1 

D5PY30 

:af 

CH30WAKE 

08344 

REf 

11 

lAsT  439 

23,3250 

0 5551  0 

re 

JOB/JAKE 

083445 

REF 

53 

LAST..439 

__  _23,3251 

0 5727  0 

re 

TASCOVER 

0835 

REF 

2 

LAST  445 

23,3252 

0 3133  0 

DSPYCH30 

TC 

CH30DSPY 

0836 

.REF 

3 J_A_sT  43J 

23,3253 

0 3151  1 

re 

.ZEROMODE 

0837 

REF 

13 

LAST  446 

23,3254 

0 1545  1 

re 

3PLAC 

0838 

REf 

150 

lAst 

440 

23,3255 

3 7767 

0 

COARZERO  cAF 

ZERO 

0839 

REF 

26 

LAST 

444 

23,3256 

54  400 

1 

TS 

THETAD 

0840 

REF 

27 

LAST 

447 

23,3257 

54  401 

0 

TS 

TmETAD  +1 

0841 

REF- 

28 

LAST 

447 

23,3260 

54  402 

0 

rs 

ThETAD  +2 

0842 

23,3261 

0 0006 

1 

EXTEND 

0843 

ref 

5l 

LA-ST 

445 

23,3262 

23*546 

1 

3XCH 

OPLACE 

0844 

REF 

108 

LAST 

447 

23,3263 

0 5206 

0 

re 

banxcall 

0845 

REF 

7 

LAST 

444 

23,3264 

26065 

0 

:adr 

IMJCnARS 

0846 

REF 

109 

LAST 

447 

23,3265 

0 5206 

0 

re 

BANXCALL 

0847 

REF 

28 

last 

445 

23,3266 

26751 

0 

CADR 

IMJSTALL 

08.48 

REF 

10 

LAST 

446 

23,3267 

1 2767 

1 

rcF 

ENDTST03  

0849 

REF 

62 

LAST 

447 

23,3270 

0 1546 

1 

re 

DPLACE 
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L 

IMJ 

PERFORMANCE  ' 

TESTS  3 

USER*S  own  page  no,  13  S3  E5 

0850 

j?3i3.271. 

0 0006 

1_ 

_ A'IZ.ERQ.FA 

-XTE.mD 

0851 

REF 

lA  LAST  AA7 

23.3272 

23'545 

1 

3XCH 

3PLAC 

0852 

REF 

1 _ 

23.3273 

0 3123 

1 

rc 

FLNEALGN  .. 

0653 

REF 

2A  LAST  AA2 

23,3274 

30  032 

0 

CAE 

CDJX 

085A 

ref 

3 LAST  AA2 

_ 23j3_2J_5__ 

5_5_'575 

0 

TS 

cojrfadf 

0855 

REF 

12  LAST  426 

23.3276 

30  033 

1 

CAE 

COJY 

0856 

ref 

2 last  442 

23,3277 

55*576 

0 

TS 

CDJRFADI 

0857 

ref 

10  last  426 

23.3300 

30  034 

0 

CAE 

CDJZ__  . 

0858 

ref 

3 LAST  442 

23,3301 

55*577 

1 

rs 

cdjltmit 

0859 

rEf 

4 last  447 

_23,3302 

0 3151 

1 

IC 

ZEROMODE 

0868 

REF 

4 LAST  448 

23,3303 

31*575 

1 

FZF2 

. CAE 

cdjrfadf 

0869 

23,3304 

0 0006 

1 

EXTEND 

0870 

REF 

25  LAST  448 

23,3305 

20  032 

1 

MSJ 

CDJX 

0871 

REF 

46  LAST  4ia 

23,3306 

54  337 

1 

TS 

DSPTfMI 

0872 

REF 

3 LAST  44B 

23,3307 

31*576 

1 

CAE 

CDJRfADI 

0873 

23,3310 

0 0006 

1 

EXTEND 

087A  _ 

REf 

13  last  448 

23,3311 

_20  0_3J_ 

M5J 

rDJY 

0875 

REF 

47  LAST  448 

23,3312 

54  340 

1 

TS 

DSPTfMI  +1 

0876 

REF 

4 LAST  448 

23,3313 

31*577 

0 

CAE 

cdjlimit 

0877 

23,3314 

0 0006 

1 

EXTEND 

0878 

ref 

11  last  448 

23,3315 

20  034 

1 

MSJ 

CDJZ 

0879 

REF 

48  LAST  448 

23,3316 

54  341 

0 

TS 

DSPTfMI  +2 

0880 

ref 

1 

23,3317 

3 3350 

1 

FZFDSP 

CAF 

V05N30X 

0881 

ref 

53  LAST  446 

23,3320 

0 4657 

1 

TC 

NYSBuAIT 

0882 

ref 

16  LAST  446 

23,3321 

0 4622 

0 

TC 

FLAShON 

0883 

REF 

39  LAST  446 

23,3322 

0 4475 

0 

TC 

ENOIoLE 

088A 

ref 

11  last  447 

23,3323 

1 2767 

1 

TCF 

ENDT<;T03 

0885 

23,3324 

1 3326 

1 

TCF 

+ 2 

0886 

ref 

1 

23^3325 

1 3317 

0 

TCF 

FZFDsP 

0887 

ref 

l6  LAST  446 

23,3326 

25*550 

0 

INCR 

Run 

0888 

REF 

15  last  448 

23,3327 

0 1545 

1, 

Tc 

OPLAC 
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L 

IMJ 

Performance 

TESTS  3 

23.3330 

OQ133  0 

1 ApiC) 

3CT 

oni 3^ 

USER'S  OWN  page  no.  14  &3  £5 

0890 

23*3331 

06000  1 

33.75ANG 

3CT 

0600n 

0891 

23*3332 

10000  0 

45ANG 

OCT 

lOOOO 

0892 

23.3333 

14477  0 

71AN6 

OCT 

14477 

0893 

23*3334 

20000  0 

93ANG 

3CT 

20000 

089A 

23*3335 

30000  1 

135AN6 

3CT 

30000 

0895 

23*3336 

01616  1 

lOANG 

OCT 

0Uil6 

0896 

23*3337 

34344  0 

160ANG 

OCT 

34344 

0897 

23*3340 

40000  0 

130ANG 

OCT 

40000 

0898 

J3,3J4i_ 

_ 500_00 

225ANG 

OCT  _ 

50000 

0899 

23,3342 

36162  1 

170ANG 

OCT 

36162 

0900 

23.3343 

00077  1 

6L0N 

atr 

0901 

23*3344 

00030  1 

3CT30 

OCT 

- 

■ 30 

0902 

23*3345 

00454  1 

35EC 

OEC 

300 

0903 

23.3346 

00050  1 

4>6B1TS 

3C.T 

0005O 

0904 

23,3347 

OOllO  1 

l^OlNlOX 

OCT 

OOllO 

0905 

2JB.3350 

00530  1 

VOSNBQI^ 

OCT 

00530 

0906 

23*3351 

00620  0 

V36N20X 

OCT 

00620 

0907 

23*3352 

00640  0 

Y06N40X 

OCT 

00640 

0908 

23*3353 

00666  1 

V36N66X 

OCT 

0 0 fi 

0909 

23*3354 

03300  1 

\/33N00X 

OCT 

03300 

09095 

REF 

L _ 

23*3355 

47252  1 

CH30WA<E 

:adr 

__DSPYCH30 

0910 

REp 

1 

23*3356 

46670  1 

ECE2CA3R 

CAqR 

ECE2 

0911  - 

REP 

1 

23*3357 

47303  1 

F2F2CA3R 

:aor 

FzF2 

0912 

REF 

11  LAST  43A 

23*3360 

02500  0 

33CECA3R 

• C 

OGC 

0913 

C0913 


23*3361  OOOA3  0 DEG/SEC  2DEC  57&DnO  B-28 

23*3362  OSOOO  1 
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L OPTIMJM  PRELAuNCh  ALIGNMENT  CALIBRATION  USER'S  OWN  PAGE  NO.  I S3 

ROOOOOl  program  NAMF-OPTINUM  ^RELAUNCH  ALIGNMENT  CALIBRATION 

R000002  DATE-  NOVEMBER  2 1966 

R000003  BY-  GEORGE  SChMIDT  I lI  7-U6  EXT.  126 

ROOOOOA  MOD  NO'  2 - - 

R000006  functional  descriptidn. 

Roooooe  this  .DG  SeCtIJM  consists  of  PRi-LaUNCH  alignment  and  gyro  drift  TfStS  _ 

Rooooo9  integrated  together  tD'  save  WORDS.  IT  IS  complete-T  Restart  prooffD. 

Rooooi  the  prelaunch  alignment  TeCHNIOUe  is  basically  the  same  as  in  block  1 

Rooooil  fXCfPT  that  it  Has  been  SiMPLIFIfD  in  the  sense  that  small  ANGLe_APPROX. 

R000012  have  been  used,  the  drift  tests  use  a UNIDUe  IMPLpMenTATION  of  THf 
R000013  optimum  statistical  filter.  For  a Description  see  e-1973.8oth  of  these 

Rooooia  routines  use  Standard  system  test  lfadin  RRoCEDURrS.  the  jnjtjallzajion 

Roooois  procedure  For  tHe  drift  tests  is  in  tHe  jdg  s.  tHe  initialization  Method 

R000016  FOR  gyrocompass  IS  IN  A StG  MeMU  FOR  EACH  ASSEMBLY. 

RqoooiT  this  log  Section  always  starts  by  a cadr  in  imj  peRF.  tests  •»  and  bfGINS 

Roooois  AT  ESrIMS.  tHe  pips  are  read  every  .5  SEC  IN  Co"MPaSS  AND  i SfC  IN  DRIFT 
R000019  tests,  then  in  Both  cases  relevant  computation  is  done,  the  key  erasable 

Rooooa  IS  GEOCOMPS-  0 We  are  in  a drift  test  -nonzero  we  are  in  compass. : 

P000021  tHe  gyrocompass  has  the  capability  to  align  to  any  orientation. has  the 
R000022  capability  to  be  compensated  for 

R0OOO23  component  errors, is  capable  of  optical  VERIFICATION!  CSM  ONLY).  

R000025  SUBROUTINES  CALLED 


R000027  EARTHR,  CALGTA,  OGC  zERO.ERTHRVSE.GCOMPzERO  and 
R000028  IMU  compensation 

R000629  DURING'  optical  Verification  (csm  only)  essentially  all  of  inflight  au^n 
R00003  IS  caIled  in  one  way  or  another,  see  the  listing. 

R000032  NORMA L EXIT 

R00003A  drift  tests-  lengthot  goes  to  Zero-return  to  imj  perf  testz  tontrol 

R pg  00^5  _ GYrOCOMPAsS-Grr  received  Or.G  level  exceeds  GL I FT  QFF-sTAaT  UP  MP  2 

R000036  206  I MPI  EMENTATION 

R000038  alarms 

ROOOOA  1600  overflow  IN  drift  test 

ROOOOAI  1601  bad  imp  torque  abort 

ROOOOA2  1602  . bad  oPTICS  DJRiNG  VERIFICATION-RETURN  TO  COMPASS  ' CSM  ONLY' 

ROOOOAA  OUTPUT 

R000046  drift  tests-  FLASHING'  DISPLAYS  OF  RESULT S-CONt ROLLED  IN  IMJ  peRF  TEStS  2 
Rooooat  compass-program  Mode  -ights  tell  you  what  phase  of  program  yqu  arf  in 
R0000A8  01  INITIALIZING'  THE  PLATFORM  POSITION  AND  ERASABLE 

R00007  02  GYROCOMPASSI NG 

R000071  03  DOING  OPTICAL  VERIFICATION  (CSM) 

R000072  OA  GRR  SIGNAL  RECEIVED  FINISH  UP  TORQUE  AND  TC  MP2JOB 


633A3&A 
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L 

OPTIMJM  PRELAUnCH  ALISNMENT  CALIBRATION 

USER’S 

OWN  PAGE 

NO.  2 

S3 

R000073 

206 

IMPLEMENTATION 

R000075 

DEBRIS 

R000077  all  Centrals, all  of  e3ank  xsm,and  78  dec  locations  (see  storedta 
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L OPTIMJM  PRELAU^Ch  ALIGNMENT  CALIBRATION  USER'S  OWN  PAGE  NO.  3 S3 

0001  - ..  35-I-2QL4 35 _ _ 

0003  REF  65  LAST  44T  E5  EBAN<=  XSM 


Rooo4  g schviiIdt  simpl*fied  Estimation  program  for  alignment  calibration,  the 
R0005  program  is  completely  KfSTART  profed.  data  stored  in  BAN<4.  


0010 

REF 

12 

LAsf 

414 

35.2014 

0 4161 

0 

estims 

TC 

phaschng 

... _ _ _ ..... 

0011 

35,2015 

00075 

0 

OCT 

00075 

00115 

ref 

31 

LAST 

404 

3_5,20_L6 

3_77i)3 

1 

;af 

Bill 

00116 

REF 

1 

35,2017 

0 4105 

1 

rc 

setrstrt 

SET  RESTART  FLAG 

0012 

35.2020 

0 0004 

0 

_rstgtsi 

INHINT 

comes  Here  phasei  restart 

0015 

REF 

9 

LAST 

224 

35,2021 

3 0025 

0 

CA 

TIMEl 

0016 

REF 

1 

35,2022 

55'745 

1 

IS 

oTSWTLST 

0017  • 

^REF_ 

IJJL 

LAST 

447 

35.2023 

4 7767 

cs 

ZERO 

0018 

REF 

15 

LAST 

42A 

35,2024 

54  037 

1 

rs 

PIPAX 

0019 

REF 

5 

LAST 

416 

35,2025 

54  040 

1 

TS 

PiPAv 

0020 

REF 

b 

LAST 

416 

35,2026_  _5_4_041 

0 

IS  . _ 

PlPA?  . _ 

00201 

REF 

9 

LAST 

337 

35,2027 

54  404 

0 

TS 

DELVX  +1 

00202 

REF 

2 

LAST 

337 

35,2030 

54  406 

1 

TS 

OELVY  +1 

00203 

REF 

2 

LAST 

33/ 

35.^2031 

54  410 

0 

TS 

0ELV7  +1 

0021 

35,2032 

0 0003 

1 

RELINT 

0022 

REF 

1 

35,2033 

0 2773 

0 

rc 

SETJPER 

0023 

REF 

1 

35,2034 

3 3315 

0 

:a 

77DECML 

0024 

REF 

6 

LAST 

42V 

35,2035 

55*777 

0 

rs 

ZERONDX 

0025 

REF 

1 

35,2036 

3 3316 

0 

CA 

ALXXxZ 

0026 

REF 

110 

LAST 

447 

35.2037 

0 5206 

0 

TC 

BANCCALL 

0027 

REF 

4 

LAST 

429 

35,2040 

51245 

0 

CADR 

ZEROING 

0028 

REF 

44 

LAST 

442 

35,2041 

0 6112 

0 

TC 

INTPRET 

0029 

35,2042 

77775 

1 

VLOAD 

0030 

ref 

1 

35,2043 

33310 

0 

INTVAL  *2 

0031 

REF 

1 

35,2044 

02601 

1 

STORE 

ALXlS 

0032 

35,2045 

77776 

1 

EXIT 

0033 

REF 

4 

LAST 

412 

35,2046 

11*742 

0 

CCS 

GEOCnMPS 

Geocomps  in  non  zero  if  compass 

0034 

35,2047 

0 2051 

1 

TC 

♦ 2 

0035 

REF 

1 

35,2050 

0 2720 

0 

TC 

SLEEPIE  +1 

0036 

REF 

9 

LAST 

432 

35,2051 

3 1527 

0 

CA 

lengthot 

times  five  is  the  num  of  SeC  erecting 

0037 

REF 

1 

35,2052 

55*746 

1 

TS 

ERECTIME 

003701 

ref- 

119 

last 

440 

35,2053 

3 7763 

1 

CA 

One 

003702 

ref 

3 

LAST 

335 

35,2054 

54  764 

0 

rs 

PHASpNUM 

0038 

REF 

9 

LAST 

396 

35,2055 

0 4117 

1 

rc 

newmodex 

0039 

35,2056 

00002 

0 

OCT 

02 

00391 

REF 

111 

LAST 

452 

35.2057 

0 5206 

0 

TC 

3AN<CALL 

003911 

REF 

1 

35,2060 

25606 

0 

cadr 

oCOMPZER 

zero  compensation  program  registers 

0040 

ref 

1 

35,2061 

0 2770 

0 

TC 

ANNNNNN 
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0087 

REF 

10 

LAST  45.2 

_ 35.2Q62_ 

3 nn?5  Q_ 

_ALLOQP 

CA 

-U  -lS  i . 

0088 

REF 

2 

last  452 

35,2063 

57'745  0 

<CH 

GTSWTLST 

STORE  time  to  SET  UP  NEXT  WAITLIST. 

00885 

REF 

1 

35,2064 

55*743  1 

rs 

OLDoT 

SAVE  last  read  time. 

0089 

ref 

1 

35,2065 

3 1664  1 

ALL00P3 

:A 

altim 

OO9O 

REF 

1 

35,2066 

55'716  1 

TS 

oEOSAVEO 

0091 

REF 

13 

LAST  .452  _ 

35,2067 

0.  416  L 0 

TC  __ 

PHASCHNG.  . 

0092 

35,2070 

00115  1 

OCT 

00118 

0095 

REF 

2 

LAST  453 

35,2071 

3 1716  0 

ALLOOPl 

CA 

geosaveo 

0096 

REF 

2 

LA.ST  453 

35:l20J2  _ 

S5.*664  0 

TS. 

altim 

0097 

REF 

222 

LAST  425 

35,2073 

10  000  0 

CCS 

A 

0098 

ref 

223 

last  453 

35,2074 

3 0000  1 

CA 

A 

SHOULD  never  hit  THIS  LOCATION 

0099 

REF 

1 

35^2075 

. 55*665  1 

IS  . 

ALTIMS 

0100 

REF 

224 

last  453 

35,2076 

4 0000  0 

cs 

A 

0101 

REF 

3 

LAST  453 

35,2077 

55*664  0 

TS 

altim 

01011 

REF 

16 

LAST  452 

35,2100 

3 0037  0 

CA 

PIPAX  ..  . 

01012 

REF 

10 

LAST  452 

35,2101 

54  403  1 

TS 

DELv/X 

01013 

ref 

6 

LAST  452 

35,2102 

3 0040  0 

CA 

PI  Pay 

OlOlA 

REF 

3 

LAST  452 

35,2.103 

54  405  1 

TS 

T?£Li/Y 

01015 

REF 

7 

LAST  452 

35,2104 

3 0041  1 

CA 

PIPAZ 

010151 

REF 

3 

LAST  452 

35,2105 

54  407  0 

TS 

delyz 

010152 

REF 

1 

35,2106 

3 3334  0 

CA 

SCH0CT23 

010153 

REF 

3 

LAST  327 

35,2107 

0 4246  0 

TC 

newphase 

01015A 

35,2110 

00005  1 

OCT 

00038 

010161 

REF 

152 

last  452 

35,2111 

4 17  6.7  X 

s^tcsis 

CS 

ZERO 

010162 

ref 

17 

LAST  453 

35,2112 

54  037  1 

TS 

PIPAX 

010163 

REF 

7 

LAST  453 

35,2113 

54  040  1 

TS 

PiPAY 

010164 

REF 

8 

last  453 

35,2114 

54  041  0 

IS 

PIPAZ 

0113 

REF 

5 

LAST  32A 

35,2115 

3 7746  0 

CAF 

PRI020 

0116 

REF 

11 

LAST  36l 

35,2116 

0 5516  0 

TC 

FINOVAC 

01165 

REF 

46 

LAST  452 

E5 

s-BAN<  = 

XSM 

0117 

35,2117 

02122  1 

2CADR 

ALFCt 

START  THE  UOB 

C0117  - ref  1 35,2120  72065  1 

0118  REF  5A  last  AA7  35,2121  0 5727  0 TC 


TAS<nVER 
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01 L9 

REF 

1 

i5. 

.2122 

0 300A 

ALFLt 

_IC 

StORfDTA 

STORE  DATA  IN  CASE  OF  RESTART  IN  JOB 

0120 

REF 

lA 

LAST 

A53 

35 

,2123 

0 A161 

0 

TC 

PHASrHNG 

THIS  IS  THE  JOB  DONE  EVERY  ITERATION 

0121 

35 

,212A 

00215 

1 

OCT 

00215 

OUliU 

35, 

,2125 

1 2127 

_Q_ 

TCF 

Jt2 

012102 

REF 

1 

35 

,2126 

0 3025 

0 

ALFLTl 

TC 

loaostdt 

COMeS  here  ON  RESTART 

01211 

REF 

5 

LAST 

A52 

35 

,2127 

1U7A2 

0 

CCS 

GEOCOMPS 

01212 

il. 

,2130 

Q 2132 

0 

_LC 

_A2 

01213 

REF 

1 

35 

,2131 

0 2156 

1 

TC 

NORMI  OP 

012131 

REF 

1 

35 

,2132 

0 3371 

1 

TC 

CHXCOMED 

SEE  IF  prelaunch  OVER 

0121A 

REF 

112 

LAST 

A52 

35 

,2l33 

0 5206 

0 

TC 

BAN<CALL 

compensation  if  in  compass 

01215 

ref 

1 

35 

,213A 

25222 

1 

CAOR 

1/PIPA 

0122 

REF 

3 

LAST 

A53 

35 

,2135 

A 17A5 

1 

CS 

GTS^JTLST 

SEE  IF  Measured  delv  looks  like  liftoff 

012205 

REF 

2 

LAST 

A53 

35 

,2136 

6 1JA3 

0 

AD 

0L03T 

HAS  0CCURRED_^ 

01221 

35 

,2137 

0 0006 

1 

EXTEND 

■ 012215 

35 

,21A0 

6 21A3 

0 

3ZMF 

♦ 3 

01222, 

REF 

2 

LAST  96 

35 

,21A1 

_6  77AA 

1 

AD 

NEply2 

(IF  JIMEl  OVERFLOWED) 

012225 

REF 

3 

LAST 

A5A 

35 

,21A2 

6 77AA 

1 

AD 

NEGl/2 

01223 

REF 

236 

LAST 

AA5 

35 

,21A3 

5A  1A7 

1 

rs 

MPAC  +3 

DT  STORED  NEGATIVELY 

012235 

REF 

A 5 

LAST 

A52 

35 

,21AA 

0 6112 

0 

rc 

INTPrET 

0122A 

35 

,21A5 

A2535 

1 

SLOAD 

SLa 

scale  DT  AT  2(+10)  CS.  

0122A5 

ref 

237 

LAST 

A5A 

35 

,21A6 

00150 

0 

MPAC  +3 

01225 

35 

,21A7 

51515 

1 

3DYL 

ABYAl' 

012255 

REF 

1 

35 

,2150 

OOAOA 

1 

OELY 

01226 

35 

,2151 

77671 

1 

ODV 

GET  ACC  (NEG)  IN  M/SEC  SU  SCALEO  2(A) 

012265 

35 

,2152 

50015 

0 

OAD 

3MN 

(DV  OVFLO  GIVES  DP  POSMAX) 

01227 

REF 

1 

35 

,2153 

01765 

1 

oLIFTOFF 

when  GLIFTOFF  = DP  POSMAX.  THIS  KIND  OF 

012275 

REF 

1 

35 

,215A 

73A01 

0 

GRRNOW 

LIFTOFF  DETECTION  IS  INHIBITED. 

01228 

35 

,2155 

77776 

1 

EXIT 

continue  gyrocompass  if  NO  liftoff. 

012A 

35 

,2156 

0 0006 

1 

NORMLOP 

EXTEND 

0125 

ref 

2 

last 

ASZ 

35 

,2157 

3 3306 

1 

OCA 

INTyal 

01251 

REF 

19 

LAST 

A26 

35 

,2160 

50  110 

1 

INDEX 

FIXCOC 

0126 

ref 

15 

LAST 

A27 

35 

,2161 

52  051 

1 

OXCH 

Si 

0127 

REF 

6 

LAST 

A5A 

35 

,2162 

11'7A2 

0 

CCS 

GEOCOMPS 

0128 

REF 

1 

35 

,2163 

0 2203 

1 

TC 

PALFLT 

compass 

0129 

RtF 

last 

A5A 

35 

,216A 

0 6112 

0 

TC 

INTPRET 

NO  cOMPZSS 

0131 

35 

,2165 

50135 

0 

ALCGKK 

SLOAO 

3MN 

0132 

ref 

2 

LAST 

A53 

35 

,2166 

02666 

0 

ALTIMS 

0133 

REF 

1 

35 

,2167 

7220A 

1 

ALFLT2 

nl3A 

35 

,2170 

7217A 

0 

AUCG 

AXT,2 

LXA.i 

LOADS  SLOPES  AND  TIME  CONSTANTS  AT  ROST 

0135 

35 

,2171 

OOOIA 

1 

12D 

0136 

REF 

2 

LAST 

A52 

35 

,2172 

■ 02600 

0 

ALXls 

0137 

35 

,2173 

621A3 

0 

ALKCG2 

OLOAO« 

INCR.l 

0138 

REF 

1 

35 

,217A 

33300 

1 

ALFOiy  +1AAD.1 

0139 

35 

,2175 

77775 

1 

OEC 

-2 

OlAO 

REF 

1 

35 

,2176 

12701 

1 

STORE 

ALD<  *10D,2 

OlAl 

35 

,2177 

6610A 

1 

TIX.2 

SXA,,' 

blA2 

ref 

1 

35 

,2200 

72173 

1 

AL<CG2 
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01^3 

REF 

3 

LAST 

-A5A. 

_35j-220I- 

.--0260.0- 

-0 

4LX1S- 

01A31 

35 

2202 

77776 

1 

EXIT 

01A32 

REF 

A7 

LAsT 

ASA 

35 

2203 

.0  6112 

_0 

P-AlFLT 

. TC 

-INTPRET  

OlAA 

35 

2204 

61375 

1 

ALFLT2 

y/LOAD 

YXM 

OlAS 

REF 

11 

LAST 

A53 

35 

2205 

00404 

1 

OELv/y 

01A6 

ref 

A 

LAST- 

A33  _ 

_3Ej-2E-Q6- 

.02750 

1 

-GEOMTJiX 

OUT 

35 

2207 

77772 

0 

y/SLl 

0U9 

35 

2210 

57545 

1 

3L0A0 

OCOMo 

Olso 

REF 

23B 

LAST 

A5A 

Q0.150_Q. 

MPAC  .+3  - _ _ . 

OlSl 

REF 

1 

35 

2212 

16657 

1 

STOOL 

DPIPflY 

0152 

ref 

239 

last 

A55 

35 

2213 

00152 

1 

MPAC  *5 

0153 

REF 

1 

3-5 

2.214 

02663 

0 

STORE  . 

QP-lPAZ 

OlSA 

35 

2215 

76001 

1 

setpo 

AXT.l 

Measurement  incorporation  routines. 

D155. 

35 

2216 

nnnoi  o 

0 

0156 

35 

2217 

00010 

0 

80 

0157 

35 

2220 

57535 

0 

SLOAO 

OCOMD 

0158 

REF 

7 

LAST 

AE-A 

33 

2221 

02743 

0 

JGEaCnMPS 

01581 

35 

2222 

77640 

0 

3MN 

0159 

REF 

1 

35 

2223 

72532 

0 

alwaysg 

DO  A QUICK  compass 

0160 

35 

2224 

41343 

0 

oelmlp 

OLOAO* 

OMP 

0161 

ref 

2 

LAST 

455 

35 

2225 

02667 

1 

OPIPaY  +80. 1 

0162 

REF 

1 

35 

2226 

33321 

1 

PIPASC 

0163 

35 

2227 

42661 

0 

SLR 

DAD* 

016A 

35 

2230 

21212 

0 

90 

0165 

ref 

1 

35 

2231 

02715 

0 

DELM  +80,1 

0166 

35 

2232 

64623 

1 

0SJ4 

PDOlI* 

0167 

ref 

2 

LAST 

46 

35 

2233 

02635 

0 

INTY  +80,1 

0168 

REF 

2 

LAST 

46 

35 

2234 

02655 

0 

YLAJn  +80,1 

0169_ 

35 

2235 

41223 

1 

osu» 

DMP 

0170 

ref 

2 

LAST 

46 

35 

2236 

02627 

0 

YLAJwS  +80,1 

0171 

REF 

1 

35 

2237 

33323 

0 

YELSr 

0172  __ 

35 

2240 

77732 

1 

SL2R 

0173 

35 

'2241 

454 1 5 

0 

OAD 

STAOR 

017A 

ref 

2 

LAST 

455 

35 

2242 

71062 

0 

STORE 

OELM-  +80,1 

0175 

REF 

3 

LAST 

455 

35 

2243 

06717 

0 

STORE 

DELM  +100,1 

01751 

35 

2244 

77743 

1 

OLOAO* 

0176 

REF 

3 

LAST 

455 

35 

2245 

02655 

o' 

YLAJN  +80,1 

0177 

REF 

3 

LAST 

455 

35 

2246 

06627 

1 

store 

YLAJNS  +80,1 

01771 

35 

2247 

77745 

1 

OLOAO 

0178 

REF 

3 

LAST 

454 

35 

2250 

33304 

0 

INTYAL  -2 

0179 

REF 

3 

LAST 

455 

35 

2251 

06635 

1 

STORE 

INTY  +80,1 

0180 

35 

2252 

77100 

0 

rix.i 

AXT.5 

Olsl 

REF 

1 

35 

2253 

72224 

0 

delmlp 

0182 

35 

2254 

00004 

0 

4 

0183 

35 

2255 

56743 

1 

ALILP 

OLOAO" 

OMPR* 

OlBA 

ref 

1 

35 

2256 

75170 

0 

AL<  +4,2 

0185 

ref 

2 

LAST 

45A 

35 

2257 

75104 

0 

AL02  +4.2 

0186 

REF 

2 

LAST 

455 

35 

2260 

12607 

0 

store 

AL<  *4,2 
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OiSJ 

35,2261 

77104 

1 

TIX,2 

AXT.J 

0188 

ref 

1 

35,2262 

72255 

0 

ALILP 

0189 

35,2263 

00010 

0 

80 

0_190 

35,2264 

66140 

_1 AULP, 

LXC.,.l  ■ 

0191 

REF 

1 

35,2265 

02601 

1 

CMPXl 

0192 

REF 

2 

LAST 

45t> 

35,2266 

02601 

1 

CMPXl 

01J93 

35,2267 

56743 

1 

DLOAPw 

DMPR* 

019A 

REF 

3 

LAST 

455 

35,2270 

02604 

1 

AL<  *1,1 

0195 

REF 

4 

LAST 

455 

35,2271 

75062 

1 

OELM,  *8D,? 

Ol5i> 

35,2272 

77613 

0 

0197 

REF 

4 

LAST 

455 

35,2273 

75142 

1 

INTY  +8D,2 

6198 

REF 

5 

last 

456 

35,2274 

12635 

1 

STORE 

INTY  *80,2 

01981 

35,2275 

42743 

_1 

OLOAO* 

DADX 

0199 

REF 

4 

last 

456 

35,2276 

75160 

1 

AL<  *12D,2 

0201 

REF 

3 

LAST 

455 

35,2277 

75074 

0 

ALD<  *12D,2 

0202 

REF 

5 

LAST 

456 

35,2300 

12617 

1 

STORE 

AL<  +120, 2_ 

0203 

35,2301 

42673 

0 

OMPR» 

OADw 

020A 

ref 

5 

LAST 

456 

35,2302 

75062 

1 

OELM,  +8D,2 

0205 

REF 

6 

LAST 

41^6 

35,2303 

75132 

0 

INTY  +16D.2 

0206 

REF 

7 

LAST 

456 

35,2304 

12645 

0 

store 

INTY  +l6D,2 

02061 

35,2305 

40743 

0 

OLOAO* 

OMPi, 

0207 

ref 

1 

35,2306 

33326 

0 

ALS<,  +1,1 

0209 

REF 

6 

LAST 

456 

35,2307 

75062 

1 

OELM,  +80,2 

0210 

35,2310 

42772 

0 

slir 

OAOk 

0211 

REF 

4 

LAST 

455 

35,2311 

75122 

1 

VLAJN  +80.2 

0212  ■ 

REF 

5 

LAST 

456 

35,2312 

12655 

1 

STORE 

VLAJn  +80,2 

0213 

35,2313 

76104 

0 

IIX,2 

A X T ♦ 1 

0214 

REF 

1 

35,2314 

72264 

1 

AL<LP 

0215 

35,2315 

OOOlO 

0 

80 

0216 

35*2316 

64743 

0 LOOSE 

OLOAO* 

POOL* 

0217 

REf 

2 

LAST 

46 

35,2317 

02657 

1 

ACCWn  +80,1 

0218 

REF 

6 

LAST 

456 

35,2320 

02655 

0 

VLAJN  +80,1 

0219 

35,2321 

55523 

0 

6D0L* 

VDEF 

0220 

ref 

1 

35,2322 

02665 

0 

POSNo  +80.1 

0221 

35,2323 

76521 

0 

MXV 

VSLl 

0222 

REF 

4 

LAST 

412 

35,2324 

02721 

1 

TRANSMI 

0223 

35,2325 

77745 

1 

OLOAO 

0224 

ref 

2 40 

LAST 

455 

35,2326 

00145 

1 ' 

MPAC 

0225 

REF 

2 

LAST 

456 

35,2327 

06665 

1 

STORE 

POSNU  +80,1 

02251 

35,2330 

77745 

1 

OLOAO 

0226 

ref 

2 41 

LAST 

456 

35,2331 

00150 

0 

MPAC  +3 

0227 

REF 

7 

LAST 

456 

35,2332 

06655 

1 

STORE 

VLAJn  +80,1 

02271 

35,2333 

77745 

1 

OLOAO 

0228 

REF 

242 

LAST 

456 

35,2334 

00152 

1 

MPAC  +5 

0229 

REF 

3 

LAST 

456 

35,2335 

06657 

0 

STORE 

ACCWO  +80,1 

0230 

35,2336 

77700 

0 

TIX,i 

0231 

REF 

1 

35,2337 

72316 

0 

LOOSE 

4 
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0232 

_ 35.23A0 

•46lTA_  1 _ - 

4XL,2 

Ai  T ,j . 

EVALUATE  SiNES  AND  COSINES 

0233 

35.23A1 

00006  1 

6 

02  3 A 

35.23A2 

00002  0 

2 

0235 

35..  23^a  ■ 

■ -573-Aa-  1 B.30P 

yLOADA 

DMP3 

0236 

REF 

1 

35.23AA 

02637  1 

ANGX  *2,1 

0237 

REF 

1 

35,23A5 

33331  0 

GEORr.EJ 

0238 

35 .23A6 

77722  0 

5R2R 

0239 

35.23A7 

73A06  1 

=U5H 

SIN 

02A0 

35,2350 

56172  0 

5L1R 

XAD,1 

02A1 

ref,  ^ 

2 LAST  36A 

35.2351 

QOOA6  0 

XI 

02A2 

35.2352 

10021  0 

store 

160,2 

02A3 

35,2353 

777A5  1 

OLOAO 

Q2A3& 

35,235A 

777A6  1 

COS 

02A.A 

35,2355 

10027  0 

STORE 

220,2 

COSINES 

02A5 

35,2356 

7130A  0 

TIX,2 

OLOAD 

02A6 

REF  _ 

1 

3,5  .Z357  - 

■ 723Aa_Q- 

BQQP 

02A7 

02A8 

02A9 

REF 

8 LAST 

A56 

35.2360 

35.2361 

35.2362 

00017  1 
A3312  0 
02625  1 

SL2 

IAD 

DAD 

INTY 

0250' 

0251 

0252 

REF 

9 LAST 

A57 

35,2363 

35,236A 

35,2365 

16625  1 
00015  0 
56A05^  0 

STOOL 

OMP 

INTY 

12D 

SL3R 

0253 

025A 

0255 

REf  ^ 

A ^ 

35.2366 

35.2367 
35,2370 

00025  0 
77615  0 
02631  1 

3AD 

200 

INTZ 

0256 

0257 

0258 

REF 

2 LAST 

A57 

35.2371 

35.2372 

35.2373 

16631  1 
00021  1 
57275  0 

STODL 

OMPR 

INTZ 

160 

DMPR 

0259 

35,237A 

00023  0 

180 

0260 

35,, 2375 

00017  1 

lAO 

0261 

35,2376 

77712  0 . 

5L2 

0262 

35,2377 

57325  1 

3D0L 

DMPR 

0263 

35,2A00 

00013  0 

loo 

026A 

35,2A01 

00015  0 

120 

0265 

35,2A02 

77615  o' 

OAO 

0266 

35,2A03 

77675  0 

OMPR 

0267 

REF 

2 LAST 

A12 

35,2A0A 

02573  1 

yYANGt 

0268 

35,2A05 

57325  1 

3D0L 

OMPR 

0269 

35,2a06 

00023  0 

l8D 

0270 

35,2A07 

00025  0 

200 

0271 

35.2A10 

66A05  0 

3MP 

SL2R 

0272 

REF 

2 LAST 

A12 

35,2A11 

02571  0 

WANSn 

0273 

35.2A12 

77621  1 

9DSU 

027A 

REF 

2 LAST 

aia 

35,2A13 

02637  1 

orifto 

0275 

35,2a1A 

A5A25  0 

OSJ 

Si  AOR 

0276 

REF  . 

1 

35,2A15 

61156  1 

STODL 

wplato 

0277 

35,2A16 

00021  1 

160 
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0?7fl 

35.2417 

41775  1 

IMPR 

OMP 

0279 

35.2420 

00025  0 

200 

0280 

ref 

3 

LAST  457 

35.2421 

02573  1 

(A(  ANo  T 

0281 

_ 3J.2422 

77732  .1  _ 

SL2R 

0282 

35,2423 

57325  1 

3D0L 

OMPR 

0283 

ref 

3 

LAST  457 

35,2424 

02571  0 

W ANon 

02RA 

35,2425 

00017  1 

-14.0 

0285 

35,2426 

77615  0 

iAO 

0286 

REF 

2 

LAST  412 

35,2427 

02641  0 

ORIFTI 

02h7 

35,2430 

77625  0 

3SU, 

0288 

35,2431 

57325  1 

=DDL 

OMPR 

0289 

REF 

2 

LAST  46 

35,2432 

02575  1 

^ ANot 

0290 

REF 

4 

LAST  458 

35,2433 

02573  1 

/)ANGI 

0291 

35,2434 

45415  0 

3A0 

STAOr 

0292 

ref 

1 

35,2435 

61062  1 

STOOL 

^jplati 

0293 

35,2436 

00023  0 

IbO 

029A 

35,2437 

76405  1 

OMP 

SLIR 

0295 

35,2440 

00013  0 

100 

0256 

35,2441 

57325  1 

JPDL 

OMPR 

0297 

35,2442 

00015  0 

120 

0298 

35,2443 

00021  1 

160 

0299 

35,2444 

76405  1 

OMP 

SLIR 

0300 

35,2445 

00017  1 

140 

0301 

35,2446 

77621  1 

3DSJ 

0302 

35.2447 

77675  0 

OMPR 

0303 

REF 

5 

LAST  458 

3b  *2^50 

02573  1 

^ANo'T 

030A 

35,2^,51 

57325  1 

3DDL 

OMPR 

0X0  5. 

35,2452 

00015  0 

120 

0306  ■ 

35,2453 

00025  0 

20D 

0307 

35,2454 

76405  1 

OMP 

SLIR 

0308 

REF 

4 

LAST  458 

35,2455 

02571  0 

WANIGn 

0-309 

35,2^,56 

77621  1 

3DSJ 

0310 

ref 

4 

LAST  430 

35,2457 

02577  0 

ORIF^T 

0311 

35.2460 

77615  0 

OAD 

NPLATT  NOW  IN  MPAC 

0312 

35,2461 

77606  1 

3USH 

PUSH  IT  OOWN-X  IT  BY  SANG  +2 

0313 

35,2462 

74475  1 

OMPR 

SRIR 

031A 

35,2463 

00015  0 

120 

0315 

35,2464 

57325  1 

3D0L 

OMPR 

0316 

ref 

2 

LAST  457 

35 ,2465 

02621  0 

^PLAtO 

0317 

35,2466 

00023  0 

180 

0318 

35,2467 

77615  0 

OAO 

0319 

35,2470 

77671  1 

ODV 

0320 

35,2471 

00025  0 

200 

0321 

35,2472 

57206  1 

=USH 

OMPR 

0322 

REF 

1 

35.2473 

33333  1 

GEORfiEK 

0323 

35,2474 

43261  0 

SRR 

OAO 

032A 

35,2475 

21616  0 

130 

0325 

ref 

2 

LAST  457 

35,2476 

02635  0 

ANoX 

0326 

REF 

3 

last  458 

35,2477 

16635  0 

STOOL 

ANGX 

0327 

35,2500 

43275  0 

OMPR 

OAO 

633<,3&A  YUL  system  FOR  AGC:  REVISION  0 OF  PROGRAM  BURST12D  BY  NASA  2nZ1106-031 
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L OPTIMJM  PRELAUN^H  ALIGNMENT  CALIBRATION  USER'S  OkvN  PAGE  NO.  10  S3  E5 


03ZQ 

35.2501 

00017  1 

190 

0329 

REF 

2 

LAST 

95B 

35,2502 

02715  0 

i^PLArl 

0330 

35,2503 

59275  0 

ompb 

SRR 

0331 

REF 

2 

LAST 

958 

35,25,09 

33333  1 

,GEORr,EK  . 

0332 

35,2505 

21616  0 

130 

0333 

35,2506 

77615  0 

3A0 

033^» 

REF 

1 

35,2507 

02633  0 

ANGV 

0335 

REF 

2 

LAST 

959 

35,2510 

16633  0 

STOOL 

ANGY 

0336 

35,2511 

00023  0 

180 

0337 

35,2512 

76905  ,1 

OMP 

SLIR 

MULTIPLY  X WPLATT  -SLl-  PUSH  ANO  RELOAD 

0338 

35,2513 

57325  1 

2D0L 

OMPR 

0339 

35,2519 

00015  0 

120 

O3A0 

REF 

3 

LAST 

958_ 

3l5j25L5_ 

. Q2.62^J1 

, ^)P.LAtO_., 

03A1 

35,2516 

77621  1 

■3DSJ 

03A2 

35,2517 

59275  0 

OMPR 

SRR 

03a3 

ref 

3 

last 

959  ^ _ 

, J5j25E0 

33333  1 

. GEORgEK,  

03AA 

35,2521 

21616  0 

130 

03A5 

35,2522 

77615  0 

OAO 

BEE 

35.2523 

02627  0 

ANG7 

03A7 

REF 

2 

LAST 

959 

35,2529 

02627  0 

STORE 

angz 

0398 

35,2525 

77909  1 

30VB 

EXIT 

0399 

REF, 

35.2526 

72750  0 

SOMFfRRR 

0350 

REF 

10 

LAST 

952 

35,2527 

11«527  1 

CCS 

llENGTHOT 

03501 

REF 

2 

LAST 

952 

35,2530 

0 2717  1 

rc 

SLEEPIE 

03502 

REF 

1 

35,2531 

0 2j6M_1 

TC 

SETJPERl 

0351 

35,2532 

99793 

1 

ALWAYSo  2E0A0X 

DSJX 

compass  and  erect 

0352 

REF 

3 

LAST 

955 

35,2533 

02667 

1 

OPIPAY  +8D,1 

0353 

ref 

1 

35.2539 

02655 

0 

FlLDELV  tAD.! 

0359 

35,2535 

92675 

0 

3MPR 

OAD» 

0355 

ref 

1 

35.2536 

33336 

1 

GEOCnNSl 

0356 

REF 

2 

LAST 

959 

35^2537 

02655 

0 

FILOELV  +80,1 

0357 

REF 

3 

LAST 

959 

35,2590 

06655 

1 

STORE 

FILOeLV  +fiO,l 

0358 

35,2591 

77613 

0 

OAD» 

0359 

ref 

1 

35jl2592 

02657 

1 

INTYFC  +80,1 

0360 

REF 

2 

LAST 

959 

35,2593 

06657 

0 

STORE 

INTYfC  +80,1 

0361 

35,2599 

92675 

0 

OMPR 

OADit 

0362 

REF 

1 

35,2595 

33390 

0 

GE0CnNS2 

0363 

REF 

LAST 

959 

35,2596 

02655 

0 

FILOELV  +80,1 

0369 

35,2597 

91975 

1 

OMPR 

PUSH 

0365 

REF 

2 

LAST 

959 

35,2550 

33336 

1 

GEOCnNSl 

0366 

35,2551 

67300 

0 

TIX.l 

5L0AD 

0367 

ref 

2 

LAST 

955 

35,2552 

72532 

0 

AL^AYSG 

0368 

REF 

2 

LAST 

952 

35,2553 

02797 

1 

erectime 

0369 

35  *2554 

71259 

1 

3ZE 

OLOAD 

0370 

ref 

1 

35,2555 

72566 

1 

COMPgS 

compass 

0371 

REF 

1 

35.2556 

02627 

0 

THETAN  +2 

0372 

35,2557 

95925 

0 

OSU 

siaor 

633-V36A 

YUL 

SYSTEM  FOR  AgC 

! REVISION 

0 OF  PROGRAM  BURST120  BY  NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  460 

L 

OPTIMJM  PRELAUnCH 

alisnment  calibration 

USER'S  OWN  page  nO.  11  S3  E5 

0373 

REF 

. 2. LAST  459 

._35,2i60 

_^i)L15D. 

_1  - 

SJ.ODL. 

- lHEIAN.^+2_  . _ 

037A 

35,2561 

77621 

1 

3DSJ 

0375 

REF 

3 LAST  460 

35,2562 

02631 

1 

THETaN  +4 

0376 

REF 

4 LAST  460 

35,2563 

02631 

1 

. . . . STORE 

THETAN  +4 

0377 

35,2564 

77650 

1 

SOTO 

0378 

REF 

1 

35,2565 

72610 

0 

ADOInDRF 

0379 

35,_2S.6.6_. 

43343 

1 

COMPOS  OLOAO 

OAO  . 

compass 

03B0 

REF 

5 LAST  460 

35,2567 

02625 

1 

Thetan 

0381 

REF 

5 LAST  459 

35,2570 

02645 

1 

FILOELV 

0382 

REF 

6 LAST  4_6^ 

35,2571 

16625 

STOOL 

TMET.AN  

0383 

REF 

6 LAST  460 

35,2572 

02645 

1 

FILOfLV 

038A 

35,2573 

44275 

1 

OMPR 

BDSJ 

03a5 

REF 

1 

35,2574 

33342 

1 

5£QCnNS3 

0386 

ref 

7 LAST  460 

35,2575 

02631 

1 

THETAN  *4 

0387 

REF 

8 LAST  460 

35,2576 

16631 

1 

STOOL 

thetan  +4 

0388 

REF 

7 LAST  460 

'i'iiZbl'L 

02651 

1 

. FILOfLV  +4.. 

0389  ■ 

35,2600 

44275 

1 

OMPR 

BDSJ 

0390 

ref 

2 LAST  460 

35.2601 

33342 

1 

3E0CnNS3 

0391 

REF 

9 LAST  460 

JL5i2i,02_ 

_ 02627 

0 

J±1£.T.AAl.-+2 . 

0392 

35,2603 

41325 

0 

3DDL 

DMP 

0393 

REF 

3 LAST  459 

35,2604 

02653 

0 

INTVfC  +4 

039A 

REE. 

1 

35,2605 

333M_ 

G£0.CQNS_4 

0395 

35,2606 

45421 

1 

3DSJ 

STAOR 

0396 

REF 

10  LAST  460 

35,2607 

75150 

1 

STORE 

THETAN  +2 

0397 

35.2610 

77775 

1 

AODINORF  VLOAD 

0398 

REF 

11  LAST  460 

35,2611 

02625 

1 

thetan 

0399 

REF 

4 LAST  336 

3512612 

03564 

0 

STORE 

comptork 

IN  E7  for  downlink. 

OAOO 

35,2613 

77776 

1 

EXIT 

0404 

REF 

11  LAST  459 

35«2614 

11*527 

1 

ENDGTSAL  CCS 

LENotHOT 

IS  5 SEC  OVeR-THE  TIME  TO  TORO  PLATFORM 

0405 

ref 

3 lA>;T  459 

35,2615 

0 2717 

1 

rc 

SLEEPIE 

no-set  up  Next  waitlIst  call  for  .5  sec 

0406 

REF 

14  LAST  422 

35,2616 

10  356 

0 

CCS 

LGYRO 

YES  but  are  gyros  BUSY 

0407 

REF 

2 LAST  452 

35,2617 

1 2772 

0 

rcF 

ANNNNNN  +2 

busy-get  them  .5  SECONDS  FROM  mOW 

0408 

REF 

2 

last 

454 

35,2620 

0 3371 

1 

TC 

CHKCqMED 

SEE  IF  Last  time  Fqr 

COMPASS 

0410 

04101 

REF 

48 

LAST 

455 

35.2621 

35.2622 

0 6112 
77775 

0 

1 

lastgts 

TC 

VLOAD 

INTPrET 

04102 

REF 

5 

LAST 

396 

35,2623 

02772 

1 

ERCOMP 

04103 

REF 

1 

35,2624 

16617 

0 

STODL 

THETaX 

04104 

REF 

6 

LAST 

398 

35,2625 

02565 

0 

TMARK 

04105 

REF 

6 

LAST 

456 

35,2626 

02603 

0 

STORE 

AL< 

04106 

35,2627 

77776 

1 

EXIT 

PREVIOUS  SECTION  WAS 

FOR  RESTARTS 

04107 

ref 

15 

LAST 

454 

35,2630 

0 4161 

0 

RESTAIER 

rc 

PHASrHNG 

0411 

35,2631 

00255 

0 

DCT 

00255 

0415 

REF 

49 

LAST 

43O 

35,2632 

0 6112 

0 

TC 

INTPRET 

ADD  COMPASS  COMMANDS 

INTO  ERATE 

633^36* 

YUL 

SYSTEM  FOR  «GC 

; REVISION 

0 OF  PROGRAM  BURST123  BY  1 

NASA  2021106-031 

DEC  7,  1967  (MAIN) 

PAGE 

461 

L 

OPTnjM 

PRELAUN^H 

alignment  I 

calibration 

USER'S 

OWN  PAGE  NO.  12 

S3 

E5 

04]  ^ 

64375 

_1_ 

yLOAo 

yuu 

04161 

ref 

12 

LAST 

460 

35,2634 

02625 

1 

THETiN 

0417 

REF 

5 

LAST 

45t> 

35,2635 

02750 

1 

oEOMtRX 

0^171 

35.2636 

53377 

_1_ 

V5L1 

VAD 

0418 

REF 

2 

LAST 

460 

35,2637 

02617 

0 

THET4X 

0419 

REF 

6 

LAST 

460 

35,2640 

16772 

1 

STOOL 

ERCOMP 

04191 

REF 

7 

LAST 

460 

_ 35.2641 

.026-03- 

0 

AL< 

04192 

REF 

7 

LAST 

460 

35,2642 

02565 

0 

STORE 

TMARk 

0420 

35,2643 

77776 

1 

EXIT 

0421 

ref 

113 

LAST 

454 

35,2644 

- .0  5206. 

0 

rc 

3AN<CALL 

04211 

REF 

7 

LAST 

419 

35,2645 

30424 

0 

:aor 

EARTwR 

TORQUE 

IT  ALL  IN 

04212 

REF 

3 

LAST 

459 

35,2646 

3 1746 

0 

:a 

ERECTIME 

0422 

REF 

3 

LAST 

463 

35,2647 

. 35'7.l6_ 

L_ 

15 

.JiEOSAVED. 

04221 

REF 

2 

LAST 

68 

35,2650 

1 2757 

1 

RESTESri  TCF 

NOCHORLD 

04223 

35,2651 

0 0004 

0 

RED03.27  INHINT 

PRELAUNCH  DONE 

042231 

REF 

6 

LAST  3B9. 

35,2652 

0 4133 

1 

IC  . _ 

C.HECk,MM..  .. 

042232 

35,2653 

■ 00011 

1 

OCT 

11 

SEE  IF  LIFTOFF  IS  DISPLAYED 

042233 

35,2654 

0 2656 

0 

TC 

♦ 2 

NO  , display  mm  7. 

042234 

REF 

LAST  3.99 

35,2655 

1 5567 

1 . 

. ..  rcF  _, 

ENDOfJOB...  . 

LIFTOFF  DISPLAYED  - IGNORE  MM  7. 

04224 

REF 

10 

LAST  45ii 

35,2656 

0 4117 

1 

TC 

newmodex 

PRELAUNCH  DONE 

0423 

35,2657 

. .000.07 

0 

JCT. 

.7 . 

. - DISPLAY.  MA.JOR  MODE  7 

04235 

REF 

153 

LAST. 453 

35  *2660 

3 7767 

0 

CAF 

ZERO 

04236 

REF 

4 

LAST  453 

35,2661 

0 4246 

0 

rc 

NEW^HASE 

TURN  OFF  FINAL  PRELAUNCH  PROTECTION, 

04237: 

35,2662 

00003 

_L 

OCT 

00003 

0424 

REF 

56 

LAST  46l 

35,2663 

1 5567 

1 

rcF 

ENOOFJOB 

terminate  PRELAUNCH 

0458 

50 

LAsT 

46° 

.35  ,26.64 

Q 6112 

0 

SPTUPE71 

TC  .. 

_XNT.PRE.T  ..  . 

0459 

35,2665 , 

65345 

0 

oloao 

POOL 

ANGLES  FROM  DRIFT  TEST  ONLY 

0460 

ref 

3 

LAST 

459 

35  *2666 

02627 

0 

ANoZ 

0461 

REF 

3 

LAST 

459 

35,2667 

02633 

0 

ANGY 

0462 

35,2670 

55525 

0 

5DDL 

VDEF 

0463 

REF 

4 

LAST 

458 

35,2671 

02635 

0 

ANGX 

0464 

35,2672 

74276 

VQOMP 

vxSc 

0465 

ref 

2 

LAST 

457 

35,2673 

33331 

0 

GEORgEJ 

0466 

35,2674 

74521 

1 

MXV 

VSRl 

0467 

REF 

6 

LAST 

461 

35,2675 

02750 

1 

gedmtrx 

0468 

REF 

12 

LAST 

449 

35,2676 

02501 

1 

STORE 

OGC 

0469 

35,2677 

77776 

1 

EXIT 

0470  rEF  16  last  460 

_ _3_5,J7Q0  0 4161.  0. 

ldr.qinch_tc 

.__..PUA5cJHJN.G ......  ..  .. 

0471 

35,2701  00175  1 

OCT 

0017m 

633«t36A 

yul  system  for  agc 

: REVISION 

0 OF  PROGRAM 

BURST123  BY 

NASA  2021106-031 

DEC  7,  1967  (MAIN) 

PAGE 

462 

L 

OPTIMJM  PRELAUN^H 

Alignment 

calibration 

user 

•S  OWN,  page  no.  13 

S3 

E5 

REF  1 

35.2702 

3 3317  1 

rA 

AINSvRO 

0A73 

0474 

0475 

REF  114  LAST  46l 
REF  4 LAST  426 
REF  115  last  A62 

35.2703 

35.2704 
35,2/05 

0 5206  0 
26362  1 
.0  5206  0 _ 

rc 

CAOR 

rc 

8AN<rALL 
IMJPULSE 
BA_N<CALL  _ 

0476 

0477 

REF  29  last  447 
REF  1 

35.2706 

35.2707 

26751  0 
0 2753  1 

CAOR 

TC 

IMJSTALL 

SQMERR2 

BAD 

GYRO  torque-end  OF  TEST 

633i»36A  YUL  SYSTEM  EOR  *GC:  REVISION  0 OF  PROGRAM  BURST123  BY  NASA  2021106-031 
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L OPTIMJM  prelaunch  ALIjNMENT  CALIBRATION  USER'S  OwN  PAGE  NO.  U S3  E5 


0^78 

REF 

5 

LAST 

9IA 

. 3^i2-7ia 

iIA579  L 

SE0STRT9 

CCS 

-TOROmDX 

ONLY.  POSIT  I VL  IF  IN  YERTICAL  DRIFT  TEST 

0979 

REF 

1 

35,2711 

0 2715  0 

TC 

5E03AVR 

VERT  DRIFT  TEST  OVER 

0980 

REF  - 

2 

LAST 

95i^ 

35,2712 

0 2773  0 

TC 

Set JPER 

SET  UP  ERATE  for  PIPTEST  OR  CD.lPftSS 

0983 

REF  116 

LAST 

9t2 

3S.27I3 

0 5206  -0 

IC- 

BANCCALL 

GO  TO  IMU2  FOR  A PIPA  TEST  AND  DISPLAY 

0989 

REF 

1 

35,2719 

50102  1 

cadr 

T0R3UE 

0985 

REF  117 

. LAST 

963 

35«2_7i5- 

a 5206  0 

geobayr 

rc  - 

3AN<CALL  - _ 

0986 

ref 

1 

35,2716 

50230  0 

;ADR 

yalmis 

display  vertical  drift 

633<V36A  YUL  SYSyEM  FqR  AGC;  REVISION  0 qF  PRO^^RA'I  bURSrl23  BY  MftSA  2O2UOfe-031  DEC  7.  1967  (MAIN)  PaGE  A6A 


L 

optimjm 

PRELAUNtH 

alignment  I 

CALIBRATION 

USER'S  OWN  PAGE  NO.  15  S3  E5 

8DA86.1 

S£J 

.PI  1 

ijATTI  TST  section 

OA87 

REF 

12 

LAST 

460 

35,2717 

55<527 

1 

SLEEPIE 

rs 

LENoTHOT 

TEST  NOT  OVER-DECREMENT  LENGTHOr 

0488 

REF 

17 

LAST 

46l 

35,2720 

0 4161 

0 

IC 

PHASCHNG 

CHANGE  PHASE 

JJ489 

15,2721 

00135 

0 

3CL  _ _ 

.00.115  __  _ 

0490 

REF 

6 

LAST 

463 

35,2722 

11*574 

1 

CCS 

rOR3NDX 

ARE  WE  DOING  VeRTDRIFT 

0491 

REF 

i. 

35,2723 

0 2725 

0 

rc 

earttpro 

Yes, DO  HOR  ERATE  TORQ  then  SLE£3 

a492 

REF 

7 

LAST 

68 

35,2724 

0 2727 

1 

ic . _ 

.misiNL  . . 

GO  TO  SET  UP  NEXT  WAITLIST 

0493 

REF 

118 

LAST 

463 

35,2725 

0 5206 

0 

EARTTPR3 

rc 

BAN<CALL 

IN  VeRTDRIFT, ADD  HOR  ERATE  AND  SLEEP 

0494 

REF 

8 

last 

461 

35,2726 

30424 

0 

CADR 

earthr 

0495 

REF 

3 

LAST 

460 

.35,2727 

.0  3371 

1 

*JTLISTVIT 

rc 

CH<COMED 

SEE  IF  GYROCOMPASS  OVER 

04951 

35,2730 

0 0004 

0 

INHIMT 

0496 

ref 

11 

LAST 

453 

35,2731 

4 0025 

.1 

CS 

TlMEl  

0497 

REF 

4 

LAST 

35,2732 

6 1745 

0 

AD 

GTS/JtLST 

0498 

35,2733 

0 0006 

1 

EXTEND 

0499 

3.5j2I3.4 

6 2736 

1 

32MF 

0500  . 

REF 

2 

LAST 

366 

35,2735 

6 7745 

0 

AD 

NEGMaX 

0501 

REF 

2 

LAST 

411 

35,2736 

6 1744 

1 

AD 

ISECxT 

1 SEC  FOR  CALIBRATION, ,5  SEC  IN  COMPASS 

0502 

35,2737 

0 0006 

L 

.EXTEND 

0503 

REF 

1 

35,2740 

6 2746 

0 

3ZMF 

RIoHTGTS 

0504 

REF 

67 

LAST 

447 

35,27A1 

0 5663 

1 

WT(GTSM?L 

rc 

4AITLIST 

05Q45 

REF 

67 

LAST.. 

453 

E5  . 

eban<= 

XSM 

0505 

35,2742 

02062 

1 

2CADR 

ALLOnP 

C0505 

REF 

1 

35,2743 

72065 

1 

0506 

35,2744 

0 0003 

1 

RELINT 

0507 

•REF 

57 

LAST 

46l 

35,2745 

0 5567 

0 

rc 

END3FJ0B 

0508 

REF 

65 

LAST 

446 

35,2746 

3 7762 

0 

rightgts 

CAF 

Two 

0509 

REF 

1 

35,2747 

0 2741 

1 

rc 

WTGTsMPL 

0510 

0511 

0512 

ref 

35 

last 

417 

35.2750 

35.2751 

35.2752 

0 4755 
01600 
0 2755 

1 

0 

1 

SDMEERRR 

rc 

3CT 

rc 

alarm 

1600 

♦ 3 

0513 

REF 

36 

LAST 

464 

35,2753 

0 4755 

1 

S3MERR2 

rc 

alarm 

0514 

35,2754 

01601 

1 

3CT 

1601 

0515 

REF 

119 

LAST 

464 

35,2755 

0 5206 

0 

TC 

BANCCALL 

0516 

REF 

26 

LAST 

44O 

35,2756 

30770 

1 

CADR 

ENDTEST 
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0519 

RLF 

18 

LAST- 

9^l9 

__  15-^-2751 

-0  916-1 

-0_ 

-NOCHORlO 

I C _ 

— PHASrHNG 

0520 

35.2760 

00155 

0 

DCT 

00155 

0521 

REF 

51 

LAST 

96l 

33.2761 

0 6112 

0 

IC  . 

INIPbET 

0522 

35.2762 

77775 

1 

YLOAO 

0523 

REF 

2 

LAST 

929 

35.2763 

33300 

1 

SCHZFROS 

0525 

ref 

13 

LAST 

96l  -- 

-35_i2-76.9_ 

- ,02625 

1 

STORE 

. THLTAN,  _ 

0526 

35.2765 

77776 

1 

EXIT 

0527 

REF 

9 

last 

96l 

35.2766 

11*716 

1 

CCS 

geosaved 

0528 

REF 

9 

last 

96l 

-33.2767 

55*796 

1 

rs 

ERECTIMe 

COUNTS  DOWN  FOR  ERECTION 

0529 

REF 

2 

LAST 

909 

35.2770 

3 9530 

0 

ANNNNNN 

CAF 

NINE 

0530 

ref 

13 

last 

A6.A 

..,33,2771  - 

55*527 

1 

IS 

LEN.GTJHOT 

0532 

REF 

9 

LAST 

960 

35.2772 

0 2720 

0 

TC 

SLEEdIE  +1 

0536 

0537 

ref 

6 

LAST 

9.35 

35.2773 
_ 35,2779 

0 0006 
23*597 

1 SETUPeR 

0.  . 

EXTEND 

OXCH 2EL_ACLS  _ _ 

subroutine  called  in  3 places 

0538 

REF 

52 

LAST 

965 

35.2775 

0 6112 

0 

TC 

INTPRET 

0539 

35.2776 

77629 

1 

CALL 

0590 

ref 

3 

LAST 

.910  _ . 

. 35.2777 

30907 

1 

ERTHrVSE 

0591 

35.3000 

77776 

1 

EXIT 

0592 

REF 

120 

LAST 

96A 

35.3001 

0 5206 

0 

TC 

8AN<rALL 

0593 

REF 

3 

LAST 

910 

35.3002 

30752 

1 

CADR 

-OGCZERO 

0599 

REF 

7 

LAST 

965 

35.3003 

0 1597 

0 

TC 

OPLArES 

i 
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L qRtIMJM  PReLAUNCh  AL13NMENT  CALIBRATION  USER'S  OWN  PAGE  NO,  17  S3  £5 


057B 

r£F  3. 

1 Apt 

226 

5352 

GEQRmO s 

ERA\ll^3 

0579 

REF  2 

Last 

88 

5661 

GEOBNDl  s 

EBANl^S 

0581 

REF  1 

35,3004 

3 5352  0 

STOREDTA  CAF 

Q5B2 

REF  85 

LAST 

442 

35.3005 

_54  001  1 

L5 

l 

0583 

REF  2 

LAST 

452 

35,3006 

3 3315  0 

:af 

77DErML 

0584 

REF  243 

LAST 

456 

35,3007 

54  144  1 

TS 

MPAC 

0585 

REF  244_ 

last. 

466 

35j30lO 

50  144  0 

INPEX 

MPAC 

0586 

REF  4 

LAST 

455 

35,3011 

3 1600  0 

:a 

ALXlP 

0587 

REF  22 

LAST 

408 

35,3012 

22  003  1 

-XCH 

EBANk’ 

0588 

REF  1 

E3 

EBAM= 

RFSTRTCS 

0589 

REF  246 

LAST 

466 

35,3013 

50  144  0 

INDEX 

MPAC 

0590 

REF  2 

LAST 

466 

35,3014 

55'600  1 

TS 

RESToTCS 

0591 

REF  23_ 

LAST 

4 6.6 

_ .15j.301i_ 

22  003  1 

lxch 

EBANic 

0592 

REp  58 

last 

464 

E5 

£BAN<= 

XSM 

0593 

REF  246 

LAST 

466 

35,3016 

10  144  1 

CCS 

MPAC 

0594 

35,3017 

1 3021  0 

_ TCf  _ 

♦ 2 . 

0595 

REF  172 

last 

445 

35,3020 

0 0002  0 

TC 

3 

0596 

REF  247 

LAST 

466 

35,3021 

54  144  1 

■ TS 

MPAC 

0597 

REF  2 

LAST 

466 

35.3022 

.3  5352  0 

CAF 

ot03MD 

0598 

REF  36 

LAST 

466 

35,3023 

54  001  1 

TS 

L 

0599 

REF  2 

LAST 

454 

35,3024 

1 3010  1 

TCF 

STORpDTA  +4 

0600 

REF 

3 

LAST 

466 

35,3025 

. 3 3315  0 

L.OADSTDT  CAF  ..  . 

LTDECML  _ _ 

0601 

REF 

2 46 

LAST 

466 

35,3026 

54  144  1 

IS 

MPAC 

0602 

REF 

3 

LAST 

466 

35,3027 

3 5352  0 

CA 

GE03ND 

0603 

REF 

24 

LAST 

466 

35,3030 

56  003  1 

XCH 

EBANX 

0604 

REF 

37 

LAST 

466 

35,3031 

54  001  1 

IS 

L 

0605 

REF 

3 

last 

466 

E3 

eban<= 

RESToTCS 

0606 

REF 

249 

LAST 

466 

35,3032 

50  144  0 

INDEX 

MPAC 

0607 

REF 

4 

LAST 

466 

35,3033 

3 1600  0 

CA 

Restrtcs 

0608 

REF 

25 

last 

466 

35,3034 

22  003  1 

.XCH 

EBANK 

0609 

REF 

69_ 

LAST 

466 

E5 

£BAN<= 

XSM 

0610 

REF 

250 

LAST 

466 

35,3035 

50  144  0 

INDEX 

MPAC 

0611 

REF 

5 

LAST 

466 

35,3036 

55'600  1 

TS 

ALXIP 

0612 

REF 

251^ 

LAST 

466 

35,3037 

10  144  1 

CCS 

MPAC 

0613 

35,3040 

1 3042  0 

TCF 

+ 2 

0614 

ref 

173 

LAST 

466 

35i3041 

0 0002  0 

IC 

D 

0615 

ref 

252 

LAST 

466 

35,3042 

54  144  1 

TS 

MPAC 

0616 

ref 

2 

LAST 

454 

35,3043 

1 3027  0 

TCF 

LOADpTDT  +2 

633it36A 

yul 
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PAGE  467 

L 

prelaum^-h 

alignment  calibration 

USER'S  OWN  PAGE  NO,  18 

S3  E5 

0617 

35.3044 

0 0006 

_L_ 

L3ADXSM 

FXTEsiO 

0618 

REF 

8 

LAST 

465 

35,3045 

23*547 

0 

3XCH 

dplafes 

0619 

REF 

1 

35,3046 

3 3346 

0 

:af 

17DECML 

0620 

REF 

253 

LAST 

466 

15j3047 

_ 54  144 

. 1. 

rs. 

MPAC 

0621 

REF 

225 

last 

45i 

35,3050 

50  000 

1 

INDEX 

A 

0622 

REF 

2 

LAST 

46 

35,3051 

3 1720 

0 

ca 

prelmtrx 

0623 

REF 

254 

LAST 

46 T _ 

35,3052 

50  144 

0 

INDEX 

MPAC 

0624 

REF 

70 

LAST 

466 

35,3053 

55*400 

0 

T5 

XSM 

0625 

REF 

255 

LAST 

467 

35,3054 

10  144 

1 

CCS 

MPAC 

0626 

ref 

2 

lAst 

432  _ 

35,30.55 

1 3047 

0 

rcF 

LDAaisM  +3 

0627 

REF 

9 

LAST 

467 

35,3056 

0 1547 

0 

TC 

DPLACES 

0628 

35,3057 

77743 

1 

ALFOK 

DEC 

-28 

SLOPES  AND  TIME  CONSTANTS  FOR 

FIRST  30SC 

0629L 

35,3060 

77776 

pEC 



0630 

35,3061 

35143 

1 

2DEC 

.91230833 

TIME  CONSTANTS-PIPA  OUTPUTS 

C0630 

35,3062 

10237 

0 

0631 

35,3063 

31766 

1 

2DEC 

.81193187 

TIME  constant-erection  ANGLES 

C0631 

35,3064 

26106 

1 

0632 

35,3065 

77772 

0 

2DEC 

-.00035882 

SLOPE-AZIMUTH  ANGLE 

C0632 

35,3066 

43677 

0 

0633 

35,3067 

77777 

0 

2DEC 

-.00000029 

SLOPE-VERTICAL  DRIFT 

C0633 

35,3070 

77661 

0 

0634 

35,3071 

00002 

0 

2DEC 

.00013262 

SLOPE-NORTH  SOUTH  DRIFT 

C0634 

35,3072 

05420 

1 

0635 

35,3073 

77705 

0 

DEC 

-58 

31-90  SEC 

0636 

35,3074 

77776 

1 

DEC 

-1 

0637 

35,3075 

37560 

0 

2DEC 

.99152133 

C0637 

35,3076 

05346 

0 

0638 

35,3077 

37522 

0 

2DEC 

.98940595 

C0638 

35,3100 

15525 

1 

0639 

35,3101 

77763 

0 

2DEC 

-.00O79010 

C0639 

35,3102 

41604 

0 

0640 

35,3103 

77777 

0 

2DEC 

-.00O00265 

C0640 

35,3104 

76470 

0 

0641 

35,3105 

00007 

0 

2DEC 

.00043154 

C0641 

35,3106 

Q2201 

0 

0642 

35,3107 

77767  1 

DEC 

-8 

91-100  SEC 

0643 

0644 
C0644 

35.3110 

35.3111 

35.3112 

77776  1 
37773  0 
10042  0 

DEC 

2DEC 

-1 

.99971021 

0645 

35,3113 

37747  1 

2DEC 

.99852047 

C0645 

35,3114 

30232  1 

0646 

35,3115 

00006  1 

2DEC 

.00042697 

C0646 

35,3116 

37666  0 

0647 

35,3117 

77777  0 

2DEC 

-.0DO00213 

C0647 

35,3120 

76703  1 

0648 

35,3121 

00001  0 

2DEC 

.0001 1864 

C0648 

35,3122 

36147  0 
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L 

0699 

OPTIMJM  PRELAUN^H  ALiSnMEnT  calibration 

35t3123 77635  1 

i£C 

-9B 

USER'S  OWN  page  no.  19 
101-200  SEC 

S3  E5 

0650 

35,3129 

77776 

1 

OEC 

-1 

0651 

35,3125 

37666 

0 

2DEC 

. 995^0063 

C0651 

35,3126 

11022 

1 

0652 

35,3127 

37532 

1 

2DEC 

.98992129 

C0652 

35,3130 

33697 

1 

0653 

35,3131 

00007 

0 

_ 2PEC 

.00043957 

C0653 

35,3132 

03691 

1 

0659 

35,3133 

77777 

0 

2DEC 

-.00000901 

C0659 

35,3139 

75713 

0 

0655 

35,3135 

77779 

0 

2DEC 

-.00021980 

C0655 

35,3136 

59605 

0 

0656 

35,3137 

77907 

1 

OEC 

-298  201-950  SEC 

0657 

35,3190 

77776 

0£C 

__!a 

0658 

35,3191 

37712 

1 

2DEC 

.99673269 

C0658 

35,3192 

16755 

1 

0659  ■ 

35,3193 

37630 

0 

2DEC 

.A9365967  

C0659 

35,3199 

01160 

1 

0660 

35,3195 

00000 

1 

2DEC 

.000O3767 

C0660 

35,3196 

23600 

0 

0661 

35,3197 

77777 

0 

2DEC 

-.00O02317 

C0661 

35,3150 

63663 

1 

0662 

35,3151 

77777 

0 

2DEC 

-.00003305 

C0662 

35,3152 

56527 

1 

0663 

0669 

0665 

35,3153 

35,3159 

35,3155 

77255 

77776 

37763 

0 

1 

1 

OEC 

OEC 

2DEC 

-338 

-1 

.99999362 

951-790  SEC 

C0665 

35,3156 

23391 

0 

0666 

35,3157 

37755 

1 

2DEC 

.99888279 

CO666 

35,3160 

26170 

0 

0667 

35,3161 

00000 

1 

2DEC 

.00000069 

C0667 

35,3162 

00259 

1 

0668 

35,3163. 

77777 

0 

2DEC 

-.00O09012 

C0668 

35,3169 

52755 

1 

0669 

35,3165 

77777 

0 

2DEC 

-.00000195 

C0669 

35,3166 

76769 

0 

0670 

35,3167 

77197 

0 

5EC 

-908 

791-1200  SEC 

0671 

0672 
C0672 

35.3170 

35.3171 

35.3172 

77776 

37772 

02393 

1 

1 

1 

OEC 

2DEC 

-1 

.99963895 

0673 

35,3173 

37761 

0 

2DEC 

.9991 3162 

C0673 

35,3179 

30560 

1 

0679 

35,3175 

00000 

1 

2DEC 

.000O0090 

CO679 

35,3176 

00362 

0 

633936A 

YUL  SYSTEM  FOR  *GC : REVISION  0 OF  PROGRAM 

BURST  1 2D  by 

NASA  202110h-031 

DEC  7, 

1967 

(MAIN) 

PAGE 

A69 

L 

0675 

OPTIMJM  PRELAUN^H  ALISnMEnT  CALIBRATION 

35,3177 OOOOQ  1 

2DEC 

»QQ0n2927 

USER'S  OWN  page 

NO. 

20 

S3 

E5 

C0675 

0676 


0683 

C0683 


35.3200  17261  I 

35.3201  77777  0 


2DEC  -,00n0002ft 


C0676 

35.3202 

7767X 

_1 

0677 

3.5_,.3203 

- J70i5 

0 

DEC 

120J.-17Q0  SEC 

0678 

35,3204 

77776 

1 

DEC 

-1 

0679 

35,3205 

37765 

1 

2DEC 

.99934865 

C0679 

35.3206 

12403 

_D 

0680 

35,3207 

37752 

0 

2DEC 

.99848793 

C0680 

35,3210 

20062 

1 

0681 

35,32LL 

ooaoo_ 

1 __ 

2DEC 

.00DnOO55 

C0681 

35,3212 

00224 

0 

0682 

35,3213 

00000 

1 

2DEC 

.00001183 

C0682 

35.3214 

OA-LSO- 

JCL 

35.3215 

35.3216 


77777  0 
77762  1 


2DEC  -.OOnOOOOS 


068A  35,3217  77161  1 3EC  -398  1701-2100  SEC 


0686 

35,3221 

—UU-LD  .4 

37767  0 

VCJb- 

2DEC 

.999^7099 

C06B6 

35,3222 

12513  0 

0687 

35.3223 

37756  1 

2DEC 

.99894799 

C0687 

35,3224 

30343  0 

0688 

35,3225 

00000  1 

2DEC 

.ooDnooie 

C0688 

35,3226 

00060  1 

0689 

35,3227 

00000  1 

2DEC 

.000(70300 

C0689 

35,3230 

01445  0 

0690 

35,3231 

77777  0 

2DEC 

-.OOnOOOOl 

C0690 

35,3232 

77774  0 

0691 

35,3233 

76651  1 

DEC 

-598  2101-2700  SEC 

0692 

35,3234 

77776  1 

DEC 

-1 

0693 

35,3235 

37771  1 

2DEC 

.99947801 

C0693 

35,3236 

02603  0 

0694 

35,3237 

37762  0 

2DEC 

.99916095 

C0694 

35.3240 

10061  1 

0695 

35,3241 

00000  1 

2DEC 

.00000007 

C0695 

35,3242 

00023  0 

0696 

35.3243 

00000  1 

2DEC 

.000(70094 

C0696 

35,3244 

00402  1 

0697 

35,3245 

00000  1 

2DEC 

.00000000 

C0697 

35,3246 

00000  1 

2700-3^,00  SEC 


0698 

0699 


35,32^7  76505  0 

35,3250  77776  1 


3EC 

3EC 


698 

1 
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0 OF  PROGRAM 

BURST120  BY 

MASA  2fi2110A-031 
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1967  (MAIN) 

PAGE 

470 

L 

OPTlMJM  PRELAuM^H 

ALISnMEnT  I 

calibration 

USER'S  OWN  page 

NO.  21 

S3 

E5 

0700 

35,3251 

37772_  1 . 

_ 2D.EC 

- .-999^6314 

C0700 

0701 

C0701 

35.3252 

35.3253 
_ 35,3254 

22005  1 
37765  1 
05560  1 

2DEC 

.99933952 

0702 
C0702 

0703 

35.3255  00000  1 

35.3256  00005  1 

35  ,335_1 QQOQO  1 _ 

2DEC 
. 20EC 

.00000002 
.00000028  - 

C0703 

0704 

C07Q4 

35.3260 

35.3261 

35.3262 

00113  1 
00000  1 
00000  1 

2DEC 

.00000000 

0705 

.„,35i3263_ 

J665L 

1 

3EC 

-598 

3401-4000  SEC 

0706  • 

35,3264 

77776 

1 

3EC 

-1 

0707 

35,3265 

37773 

0 

2DEC 

.99972716 

C0707 

35,3266 

20750 

1 

0708 

35,3267 

37767 

0 

2DEC 

,99945654 

C0708 

35,3270 

03044 

1 

0709 

. - 3iil271_ 

_00000 

_1  _ 

2DEC 

. 00JDO00.0X 

C0709 

35,3272 

00003 

1 

0710 

35,3273 

00000 

1 

2DEC 

.OOOnOOlO 

C0710  , 

35,3274 

00033 

0711 

35,3275 

00000 

1 

2DEC 

.00000000 

C0711 

35,3276 

00000 

1 

0712 

35,3277 

00000 

1 

schzeros 

2DEC 

.ooonoooo 

C0712 

35,3300 

00000 

1 

0713 

35,3301 

00000 

1 

2DEC 

.00000000 

C0713 

35,3302 

00000 

1 

0714 

35,3303 

00000 

1 

2DEC 

.ooonoooo 

C0714 

35,3304 

00000 

1 

0715 

35,3305 

00004 

0 

imtvau 

OCT 

4 

0716 

35,3306 

00002 

0 

OCT 

2 

0717 

35,3307 

00220 

1 

OEC 

144 

0718 

35,3310 

77776 

1 

OEC 

-1 

0719 

35,3311 

35730 

0 

S3UPLY 

2DEC 

.93505870 

initial  gains  for  pip  outputs 

C0719 

35,3312 

00035 

1 

0720 

35,3313 

10317 

0 

2DEC 

.262<;6423 

INITIAL  QiAINS/4  POR  ERECTION  ANGLES 

C0720 

35,3314 

17550 

1 

0721  _, 

35,3315 

00115 

1 

77DECML 

OEC 

77 

0722 

REF 

6 LAST 

466 

35,3316 

01577 

0 

AtXXXZ 

3ENA0R 

ALXl<;  -1 

0723 

REF 

13  LAST 

46l 

35,3317 

02500 

0 

AINGYRO 

ECADR 

OsbC 

0724 

35,3320 

04133 

1 

PIPASC 

2DEC 

•130k5869 

C0724 

35,3321 

02265 

1 

0726 

35,3322 

57223 

0 

YELSC 

2DEC 

-.52223476 

512/980.402 

C0726 

35,3323 

66451 

1 

0727 

35,3324 

05427 

0 

ALSK 

2DEC 

,17329931 

SSWAY  VEL  GAIN  X 980.402/4096 

C0727 

35,3325 

12577 

1 
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L 

0728 

OPTIMJM  PRELAunCH  ALIGNMENT  < 
^ _ 35^3326 

calibration 

7756iJ) 

7DEC 

-.Q0a35370  . 

USER! 
_ _ 55WAY 

'S  OWN  PAGE  NO.  22  S3  E5 

ACCEL..GA1N  X 980,402/4095 

C0728 

35,3327 

AA202 

1 

0731 

35,3330 

24276 

1 

3E0R0E J 

2DEC 

.63661977 

C0731 

35,3331 

14066 

1 

0732 

35,3332 

_ 230J3 

.1. 

GiORGEC 

2PEC  . 

.59737013 

C0732 

35,3333 

11773 

1 

07325 

35,333A 

00023 

0 

SCHOCT23 

3CT 

00023 

0733 

35,3333 

03146. 

L - 

5E0CQMS1  2fiE:C_ 

• L-  --  -- 

C0733 

35,3336 

14632 

0 

073A 

35.3337 

00121 

0 

3EOCONS2 

2DEC 

.005 

C073A 

_ 35,33Afl 

. 35341 

1 

0735 

35,3341 

00631 

0 

&E0C0NS3 

2DEC 

.025 

C0735 

35,3342 

23146 

0 

0736 

J5.3343 

. 00000 

1 

GcOCONSa 

2DEC 

.003n3 

C0736 

35,3344 

17565 

1 

07362 

35,3345 

06200 

0 

1/PIPA3T 

3CT 

06200 

0737 

35.3346 

00021 

1 

1 7DECML 

3EC 

17 

0738 

35,3347 

00023 

0 

19DECML 

DEC 

19 

0739 

35,3350 

00062 

0 

1/'2SECK 

DEC 

50 

0740 

rEF 

120 

last 

452 

. .35^3351 

3 7763 

1 

GTSCPSS  ZA  _ 

..  dne . _ 

0741 

REF 

8 

LAST 

455 

35,3352 

55'742 

0 

TS 

GEOCnMPS 

THIS  IS  the  lead  IN  FOR  COMPASS 

■0743 

REF 

11 

LAST 

46l 

35,3353 

0 4117 

1 

TC 

NEWMODEX 

074417 

35,3354 

00001 

0 

OCT 

01 

074518 

REF 

1 

35,3355 

3 3345 

0 

CA 

1/PlPAGT 

074619 

REF 

2 

LAST 

24 

35,3356 

54  765 

1 

TS 

1/PIPADT 

07472 

REF 

3 

last 

310 

35,3357 

3 7764 

0 

CA 

ELEYFN 

COMPASS  IS  POSITION  11 

074721 

REF 

16 

LAST 

446 

35,3360 

55*544 

1 

TS 

POSlTON 

074722 

REF 

14 

LAST 

425 

35»336l 

3 7754 

0 

CA 

3IT8 

620  SECONDS  ERECTING 

074723 

ref 

14 

last 

465 

35,3362 

55*527 

1 

TS 

LENoTHOT 

074724 

REF 

1 

35,3363 

3 3350 

1 

CAF 

1/2SFCX 

compass  is  a .5  SEC  LOOP 

074725 

REF 

3 

LAST 

464 

35,3364 

55*744 

0 

TS 

ISECXT 

074922 

REF 

154. 

LAST 

46l 

35,3365 

3 7767 

0 

CAF 

ZERO. 

075023 

ref 

5 

last 

432 

35,3366 

55*536 

1 

TS 

MBPO.S 

0781 

REF 

121 

LAST 

465 

35,3367 

0 5206 

0 

TC 

3AN<CALL 

0782 

REF 

1 

35,3370 

50014 

1 

CADR 

GEOlMUTT 

0783 

REF 

11  last 

425 

35,3371 

3 

0075 

0 

CHKCOMED  CA 

FLAGwRDI 

CHECK 

FOR  END  OF  COMPASS 

0784 

REF 

20  LAST 

405 

35,3372 

7 

7762 

1 

MAS< 

3IT2 

TEST 

FOR  GRR  FLAG 

0785 

REF 

226  LAST 

46  7 

35,3373 

10 

1 000 

0 

CCS 

A 

0786 

REF 

1 

35,3374 

1 

3376 

1 

rcF 

PRELtERM 

YES 

GRR  HAS  OCCURRED 

0787 

ref 

174  LAST 

465 

35,3375 

0 

0002 

0 

TC 

0 

NO 

CONTINUE 
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L 

OPtI MJM 

prelaunch 

alignment 

CALIBRATION 

USER'S  OWN  PAGE  NO,  23 

S3  E5 

07885 

REF 

12 

LAST  A7I 

35i3376 

0_  _9U7  1 

PR£U_EAM  IC„ 

. ..NErtMODEX  . _ 

0789 

0790 

REF 

1 

35.3377 

35,3<fOO 

OOOOA  0 
1 2621  1 

DCT 

ICF 

09 

LASTGTS 

09  IS  END  OF  COMPASS 
GET  LAST  TORQUING 

0800 

^ .35 , 39T)_L  _ 

77219  0.  ,S^RNOW_ 

SEJ_ 

YLOAn  

_ _ coME  here  when  delv  check  _shOy)s  liftoff 

0801 

REF 

1 

35,3902 

00975  1 

5RRFLAG 

TO  HAVE  occurred. 

0802 

REF 

2 

LAST 

959 

35,3903 

00909  1 

OELY 

0803 

REF 

2 

LAST 

33 

35,3909 

_ 01765  1 

STORE 

OELYbUF 

080A 

35,3905 

77531  0 

SSP 

exit 

08093 

REF 

3 

LAST 

69 

35,3906 

01793  0 

DT.LlFT 

start 

liftoff  100  MS  after  MP2TAS< 

08096 

35,3901 

__QjQ0.12  a - 

100 

0805 

35,3910 

0 0009  0 

INHINT 

0806 

REF 

2 

LAST 

212 

35,3911 

3 S205  0 

CAF 

1SEC*1 

delay 

TILL  PRELAUNCH  IF  FINISHEO.  BUT 

0807 

REF 

68 

LAST 

969 

35,3912 

0 5663  1 

tc 

WAITLIST 

not  so 

Long  that  Readaccs  happens  first. 

0808 

REF 

5 

LAST 

969 

E5 

£BAN<= 

GTSWTLST 

0809 

35,3913 

02996  0 

2CADS 

LIFTFIXT 

C0809 

ref 

1 

35,3919 

56065  1 

0810 

35,3915 

0 0003  1 

RELINT 

0811 

REF 

2 

LAST 

97 1 _ 

_ 35,3916 

1 3376  1 

TCF 

PRELTERM 
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LOOlO 

0001 

0002 

R0003 

ROOOA 

R0005 

R0007 

ROOOB 

R0009 

ROQlO 

Roon 

Rooi2 

R00121 

R0013 

ROOIA- 

ROOlAl 

R0015-.- 

R0016 

R(D017 


DAP  INTERFACE  SDbROUIINES  USER'S  OWN  PACE  NO.  I S3 

20.«.20it.6 3ANK. ZQ 

REF  3 LAST  99  E6  EBAN<=  DT 

MOO  0 date  11/15/66  by  SEORSE  W.  CHErRY 


functional  DESCRIPTIDN 

heR£1n  are  a c_olj.ectjon  of  subroutines  which  allow  .mission  Control  programs  to  control  the  moO; 
AND  interface  WITH  THE  DAP. 

CALH-NQ  sequences 

IN  interrupt  or  with  interrupt  inhibited 

IC IBNKCALL : 

fcadr  routine 

IN  A JOB  without  1NJERR_URT- inhibited  . 

inhint 

TC  IBNKCALL 

FCADB ROUTINE 

RELINT 

-OlLT-P-JT 

SEE  INDIVIDUAL  ROUTINES  BELOW 


DEBRIS 

A.L,  AND  SOMEIIMES.  MDUeTEMP 


R0018 
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LoOlO 

RDOIS 

DAP  interface  subroutines 

DAPBniLS  bits  and  NAMcS 

USER'S  OWN  PAGE  NO.  2 

S3 

0020 

REF 

32 

LAST  A5Z 

7763 

djrrcbit 

rQJALS 

31T1 

INTERNAL  DAP  RATE  COMMAND  ACTIVITY  FLAG 

0021 

REF 

21 

LAST  A7l  - 

7762 

TRYGIM3L 

PQJALS 

BIT2 

TRIM  GIMBAL  flag 

0022 

REF 

17 

last  605 

7761 

datagodd 

rOJALS 

BIT3 

RECIPROCAL  accelerations  OKAY 

f;a3 

0023 

REF 

27 

LAST  623 

7760 

ACC60R2X 

equals 

BIT6 

2 OR  6 UET  X-TRANSLATION  MODE 

F.Ao 

0026 

REF 

2L 

LAST  <lA5 

7757 

adrbsyst 

rOJALS 

BITS 

p-Axis  rotation  uet_  system  (_A 

3?  3)  FLAG 

0025 

REF 

31 

LAST  A39 

•7756 

jllager 

equals 

BIT6 

INTERNAL  ULLAGE  REQUEST  FLAG 

0026 

REF 

27 

LAST  A05 

7755 

D3SELECT 

equals 

BIT? 

DAP  deadband  Select  flag 

0027 

REF 

15 

LAST  A7l 

775 A _ 

A=SGOI NG 

equals 

31  TB 

ASCENT  PROPULSION  SYSTEM  BURN 

F.AG 

0028 

REF 

7 

LAST  A35 

7753 

VIZPHASE 

equals 

B1T9 

descent  visibility  phase  flag 

0029 

REF 

36 

LAST  A6fc 

7752 

PULSES 

equals 

BlTlo 

MINIMUM  IMPULSE  RHC  MODE  FLAG 

0030 

REF 

23 

LAST  6A7 

,7751 . 

oDDAPGD 

equals 

81  T 1 1 

DAP  enabling  flag 

0031 

REF 

21 

LAST  358 

7750 

MASSGODD 

equals 

BIT12 

MASS  OKAY  FLAG 

R0032  STILL  AVAILABLE  B1T13 


0033 

REF 

30 

LAST  372 

7746 

A-UtORHLD 

equals  bitu 

AUTOMATIC 

MODE 

RATE  HOLD  FLAG 

003A 

REF 

28 

LAST  315  

. . 7745  _ 

SRSBACUP 

EQUAlLS_  BJlis  ..  „ „ 

SPs  backup 

dap 

flao  _ _ 

003401  ref 

1 

7762 

USEORUTs 

equals  trygimbl  alternate  trim  GIMBAl  flag 

R0034Q5 

BH 

FLAGWORD 

SWITCH 

SWITCH 

QN-STATE 

OFF-STATE 

R00341  LOCATION 

number 

SYMBOL 

number 

symbol 

indicates 

indicates 

DnnaAi  c; 

R00342  DAPBDDLS 

1 

OURRCBIT 

59 

internal  bate  COMMAND 

NO  internal  rate  Command 

R003425 

activity 

activity  (LOCKED  On  O) 

R00343 

2 

trygimbl 

58  . 

trim  GIMBAL  Control 

trim  GIMBAL  CONTROL  POSSIBLf 

R003435 

IMPOSSIBLE 

R00344 

3 

oatagood 

57 

ReciproCai  acceleration 

reciprocal  acceleration 

R003444 

PRDBABI Y correct 

probably  incorrect 

R00345 

4 

ACC60R2X  . 

56 

P-AXIS  4 ,IET 

P-AXIS  2 UET 

R003455 

X-TRANSLATION  mode 

X-tRANSLAt ion  mode 

R00346 

(LOCKED  ON  11 

R003465 

5 

AORBSYST 

55 

P-FORCE  CoUPLFS  15,  7 AND 

P-FORCE  COUPLES  4,  12  AND  3,  11 

R00347 

16,  B 

R003475 

6 

ullager 

54 

internal  ullage  request 

NO  internal  ullage  request 

R00348 

7 

3BSELECT 

53 

MAX  DEAOBflND  SELECT 

MIN  deadband  select 

R003485 

8 

APSGOING 

52 

ascent  PROPULSION  SYSTEM 

APS  OFF 

R00349 

BURN 

R003495 

9 

VIZPHASE 

51 

Descent  vtsibii.ity  phase 

NOT  IN  DESCENT  VISIBILITY 

R0035 

(LOCKED  ON  1 ) 

PHASE 

R003505 

10 

DULSES 

50 

minimum  IMPULSE  RHC  MODE 

RATE  command  RHC  MODE 

R00351 

(LOCKED  ON  0) 

R003515 

11 

50DAPG0 

49 

DAP  ENABLfD 

DAP  IDLING 

R00352 

12 

MASSGOOD 

48 

VALUE  OF  mass  PRqBABLY 

VALUE  OF  MASS  PROBABLY 

R003524 

correct 

INCORRECT 
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LOOlO 

Rn03S3 

DAP  ImTERFACE  subroutines 
1 

47 

USER*S  Own  page  no.  3 S3 

NOT  At/AIIARLF  - STATF 

R003535 

R0035A 

u autorhld 

46 

IRRELEVANT 

AJTOMAlIC  RATF  HOLD  MODE  AUTOMATIC  ATTITUDE  HOLD 

R0035A5 

15  SPSBaCUP 

45 

..  . NOJ  IN  BACK-UP  DAP  MUDE  . SPS  BACK-UP  DAP  MODE 

R00355 

(LOCKEn  ON  1) 

0039 

ref 

1 

20,2046 

3 6110  1 

SETMINOB  cAf 

NARRdwDB 

0040 

PEF 

1 

20.2047 

54  375  1 

XS 

DB 

0041 

ref 

1 

20,2050 

4 7755  0 

:s 

DBSEI  ECT 

0042 

REF 

11 

LAST 

338 

20,2051 

7 0077  0 

MASK 

DAP300LS 

0043 

REF 

12 

LAST 

_ _.20,.2032 

54  077  0 

IS 

OAPBnOLS 

0046 

ref 

175 

LAST 

471 

20,2053 

0 0002  0 

,TC 

3 

00-51 

REF 

1 

,Z0_i2q34 

3 6111  0 

SETMAXOB^  CAF 

WIJOEDB  - - 

0052 

ref 

2 

last 

475 

20,2055 

54  375  1 

Is 

OB 

0053 

REF 

13 

LAST 

475 

20,2056 

4 0077  0 

cs 

OAPBnOLS 

0054 

REF 

2 

LAST 

4J5 

20,2057 

- 7 7755  0 

MASK._  _ 

OB Select 

0055 

REF 

14 

LAST 

475 

20,2060 

26  077  0 

ADS 

OAPBOOLS 

0058 

REF 

176 

LAST 

475 

20,2061 

0 0002  0 

rc 

0 

0060 

REF 

15 

LAST 

475 

20,2062 

4 0077  0 

ULLAGE  CS 

OAPBOOLS 

0061 

ref 

1 

20,2063 

7 7756  0 

MASK 

Ullager 

0062 

REF 

16 

last 

475 

20,2064 

26  077  0 

ADS 

OAPBOOLS 

0064 

REF 

177 

LAST 

475 

20,2065 

0 0002  0 

rc 

0 

■0066 

REF 

2 

LAST 

4j5 

20,2066 

4 7756  0 

N0ULLA5E  CS 

ullager  _ 

0067 

ref 

17 

last 

475 

20,2067 

7 0077  0 

mask 

OAPBOOLS 

0068 

REF 

18 

LAST 

475 

20,2070 

54  077  0 

TS 

OAPBOOLS 

0070 

ref 

178 

LAST 

20,2071  __0  0002  0 

TC 

0 

0075 

REF 

1 

20,2072 

1 2106  0 

HOLDRATE  ICF 

COMNfXIT 

replace  by  CS  DAPBOOLS  FOR  RATE  HOLD. 

0076 

ref 

I 

20,2073 

7 7746 

. . mask 

AUT  OuhLD 

0077 

REF 

19 

LAST 

475 

20,2074 

26  077  0 

ADS 

OAPBOOLS 

00772 

REF 

2 

LAST 

366 

20,2075 

3 5632  0 

CAF 

EBANK6 

00774 

REF 

26 

LAST 

466 

20,2076 

56  003  1 

KCH 

EBANK 

00776 

REF 

1 

20,2077 

54  776  0 

TS 

OMEoflRD 

0078 

20,2100 

0 0006  1 

EXTEND 

0079 

REF 

7 

LAST 

335 

20,2101 

3 1416  0 

OCA 

OMEoAP 

0000 

REF 

3 

LAST 

24 

20,2102 

52  775  0 

OXCH 

OMEGAPD 

0081 

REF 

4 

LAST 

336 

20,2103 

31'420  0 

CAE 

OMEGAR 

0082 

REF 

2 

LAST 

475 

20,2104 

56  776  1 

kCh 

OMESaRD 

00822 

REF 

27 

LAST 

475 

20,2105 

54  003  0 

IS 

EBANk 

0003 

20,2106 

0 0006  1 

COMNEXIT  EXTEND 

0084 

ref 

14 

LAST 

448 

20,2107 

3 0034  0 

OCA 

CDUY 
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LOOlO 

dap 

imTErface  subroutines 

USER'S  OWN  page  no. 

A 

S3  E6 

0085 

REF 

3 

LAST 

338  _ 

_ 20.2J.10 

52_.77Q 

O.X.Cit,. 

CQJYD  . 

0086 

ref 

26 

LAST 

AA8 

20,2111 

30  032 

0 

:a£ 

COJX 

0087 

ref 

5 

LAST 

337 

20,2112 

5A  766 

1 

rs 

COJXO 

OO9I 

ref 

179 

LAST 

A75 

20,2113 

0 0002 

0 

TC 

0 

0096 

REF 

2 

LAST 

A75  _ 

. _.2_Pj^1J  A 

A 77A6 

1 

STOPRAIE 

;s 

AUTOoHLD 

0097 

REF 

20 

LAST 

A75 

20,2115 

7 0077 

0 

*1AS< 

0AP3OOLS 

0098 

REF 

21 

LAST 

A76 

20,2116 

5A  077 

0 

TS 

DAPSnOLS 

0099 

REF 

155 

LAST 

A7l 

20,2117 

3 7767 

0 

:af 

ZERO' 

0100 

REF 

A 

LAST 

A75 

20,2120 

5A  77A 

1 

TS 

. OMEGaPD 

0101 

REF 

1 

20,2121 

.5.A  J775 

0 

TS 

OMtGAOD 

0102 

REF 

3 

LAST 

A75 

20,2122 

5A  776 

0 

TS 

omegard 

0103 

REF 

A 

LAST 

3Z 

20,2123 

5A  771 

1 

TS 

DELCnUX 

OlOA 

REF 

2 

LAST 

32 

2 0,21.2  A 

5A  772 

1 

TS 

delcduy 

0105 

REF 

2 

LAST 

32 

20,2125 

5A  773 

0 

TS 

DELCDUZ 

0106 

REF 

2 

LAST 

A75 

'20,2126 

1 2106 

0 

TCF 

COMNfXIT 

0107  REF  1 


20*2072  SETRATE  eQJALS  HOLDRATE 
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LOOlO 

dap  interface  subroutines 

USER'S  OWN  PAGE 

NO.  5 

S3 

E6 

POllO 

SUBROUTINE  NAME!  J'RGQASX  jyiOD^_JNOL.-a  -DATEi  DECL 

EMBER  i966- 

ROlil 

R0I12 

2,  AuLCOAST 

3.  N CHANGE 

R0113 

AUTHDRi:  JONATHAN  D.  AODeLSTON  (ADAMS  ASSOCIATES) 

RoiiA 

"UPCOAST"  Sets  up  Da=  VABIAB_Ls3._T0  XHEIR  ASCeNT-^CoAST 

- VALUES. 

Rons 

gRojnorjle:  it  Must  a called  as  soon  as  ascent  coast 

IS  detfcted. 

R0116 

"ALLCoAST"  sets  up  many  dap  variables  for  "STARTOAP" 

IN  "DAPtDLeR". 

R0117  GROUNifi^LEl  Dt5_tQASLJji_CALL.EI)_As  SOON  AS  DESCENT  COAST  IS  DETECTED. 


Rons  "WCHANGE"  SETS  UP  tHe  VARIABLE  FoR  "WCHANotR"  AS  A STORAoE  SAVING  DeVICe. 
R0I20  calling  SEQUENCE;  (SA'IE  AS  ABOVE.) 

ROlZl  SURRnjTlNFS  CALLED!  NONE. 

ROI22  ZERO:  AOSq,AOSR«AOSU,AOSv,AOSuTERM,AOSRTERM,ALL  njs. 

R0123  SET  JTGRATO  AND  URGRAIR  TO  POSMaX.  ' ' 

R012A  OUTPJi:  WfORP (1-K) MLNIMPDB  AP5GQI  NG/DARBDsLS_  _ 

R012A5  WFOrOR  (I-<I)/8  DBMINIMP  1/AMIVQ  1/AviIN:?  1/AviINU  1/AMINV 


R0125 

, debris: 

A,L. 

R0126 

WARNING 

1,  ***** 

EBANK  MUST  BE  SET 

TD'  6. 

0127 

20.2127 

3AN< 

20 

0128 

REF 

2 

LAST 

5A 

E6 

ebang 

5 WFDRp 

013A 

REF 

3 

LAST 

A75 

20.2127 

3 5632  0 

ALLCOAST 

CAF 

EBANit6 

0135 

ref 

28 

LAsT 

475 

20,2130 

■56  003  1 

GCH 

ebanig 

0136 

REF 

6 

LAST 

83 

20,2131 

54  066  0 

TS 

1TEMP6 

0137 

REF 

1 

20,2132 

4 7754  1 

CS 

APSSnING 

0138 

REF 

22 

LAST 

476 

20,2133 

7 0077  0 

»1AS< 

0AP300LS 

0139 

REF 

23 

LAST 

477 

20,2134 

54  077  0 

TS 

0AP3OOLS 

01395 

REF 

2 

LAST 

96 

20,2135 

3 7771  1 

CAE 

negdne 

MAXES  SPECIAL  DAP  APS  CODING  INACTIVE 

01396 

REF 

1 

20,2136 

55*732  1 

TS 

adscount 

OIaO 

REF 

1 

20,2137 

3 3420  1 

CAF 

0.00A44 

OlAl 

ref 

1 

20,2140 

55*631  0 

TS 

MlNlMPDB 

Impulse  dbs  are  set  to  0.8  degrees. 

0U15 

REF 

1 

20,2141 

55*632  0 

TS 

dbmnmpax 

(AND  P-AXIS  VALUE) 

0H2 

REF 

2 

LAST 

54 

20,2142 

55*630  1 

TS 

DBMINIMP 

0U3 

ref 

21 

LAST 

438 

20,2143 

3 7743  0 

CAF 

PDSMAX 

^T  urgency  FUj^iCTiQn  £OrrECTxO>4  rATiOS  _ _ 

OUA 

REF 

2 

LAST 

56 

20,2144 

55*725  1 

TS 

JRGRATQ 

TO  ALMOST  1 BEFORE  BEING  SET  IN  AOSjOB. 

63343&A 

YUL 

SYSTEM  FOR  Aqc 

: REVISION 

0 OF  PROGRAM  BURST12D  BY  NASA  2021106-031 

DEC  7,  l967  (MAIN)  PAGE  478 

LOOlO 

OAp 

imterface  subroutines 

USER'S  Own  page  no.  6 S3  E6 

0145 

REF 

1 . _ 

_ 2Qj_21.43_ 

.35 '726  1 

_ ^ rs 

JRGR4TR 

-SCALED  AT  1.  

01451 

REF 

1 

20,2146 

3 3744  0 

CAF 

accfifty 

inverse  minimum  accelerations  are  Set  to 

01452 

REF 

2 EAST  55__ 

_ 20,2147 

55 '721  0. 

. _ . IS  _ . , 

J. /AMINO..  . . _ 

50  seconds (2)yRA0IA_N,  THESE  VARIABLES 

61453 

REF 

1 

20,2150 

55*722  0 

rs 

1/AMlNR 

ARE  SET  TO  HALF  THAT  VALUE  WITH  THE 

01454 

ref 

1 

20,2151 

55'723  1 

TS 

1/AmtNU 

scale  factor  2(.8)/Pl. 

01455 

REF 

1.  _ . 

20,2i52__ 

. 55 • 724  0 

rs 

1/A.MINV - 

0146 

REF 

1 

20,2153 

3 2174  1 

CAF 

13DEC 

ZERO  THE  following  DAP  ERASABLES) 

0147 

REF 

_ 1 

0,2 154 

_53 ' 6 5 0 _ 1 

CLEARASC  rs 

<C3EFCTR 

AOSQ  AOSOTERM  NJ+O  NJ+U 

0148 

REF 

156  last  478 

20,2155 

3 7767  0 

CAF 

2ER0 

AOSR  AOSRTERM  NJ-U  nj-u 

0149 

ref 

2 last  478 

20,2156 

51*650  0 

INDEX 

<C3EfcTR 

AOSU  NJ+R  Nj+V 

0150 

ref 

5 LAST  336 

20,_215_1 

5576611  _1 

- IS  _ . . 

.A0S.3. 

AOSV  NU-R  NJ-V 

0151 

REF 

3 LAST  470 

20,2160 

11*650  1 

CCS 

<COEfCTR 

0152 

REF 

1 

20,2161 

1 2154  1 

rcF 

CLEARASC 

0153 

REF 

1 

20,2162 

3 3423  1 

WCHANGE  CAF 

0.3125 

K = 0.5 

0154 

REF 

3 LAST  477 

20,2163 

55*640  0 

rs 

*<FORP 

WFORP  = WFORQR  s X/DT  = K/,1  = 10<  = 5 

0155 

REF 

1 

20,2164 

.55*641  1 

TS 

^FORqR 

SCALED  AT  16  PER  SECOND, 

0156 

20,2165 

0 0006  1 

extend 

K ■=  0.5  IMPLIES  (1-X)  = 0,5: 

0157 

REF 

1 

20,2166 

3 3434  1 

OCA 

(l-OS 

(1-K)  = 0.5  SINCE  SCALED  AT  1. 

0158 

REF 

2 LAST  5A 

20,2167 

53*643  0 

DXCH 

(UC> 

(l-K)/8  = 0,0625  SINCE  SCALED  Ar  8, 

R0159 

mOte  that  startdar  resets 

WFOrP.WFOrOR, ( 1-0 , ( 1-0 /8. 

0160 

REF 

7 LAST  477 

20,2170 

30  066  1 

CAE 

ITEMP6 

01605 

REF 

29  last  477 

20,2171 

54  003  0 

rs 

EBANX 

0161. 

REF 

130  LAST  476 

20,2172 

0 0002  0 

rc 

3 

return 

0162 

0163 


2Pj_21J3  00033  1 0.3DEG3B  3EC 

20.2174  00015  0 13DEC  3EC 


0,00167 

13 
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P01632  APS  AMD  OPS  ENGlNE-ON  ROULLNES-.  1MUST_  B£_  CALLED_-WljH_  I INHIBIT)  _ _ 
R01633  the  names  ENGINtON,  ENGINOFF.  AND  ENGINOFI  ARE  PReSERYED  TD  KEEP  CURRENT 
R016335  SIMULATIONS  AND  EDITS  OUT  OF  TROUBLE. 


0163A 

REF 

i* 

LAST 

477 

20,2175 

3 5632 

0 

ARSENGON 

:af 

EBANK6 

016A 

REF 

30 

LAST 

478 

20,2176 

56  003 

1 

KCH 

EBANk 

0165 

REF 

2 

LAST 

336. 

..  . .20,^177 

5b'312 

1 - - 

IS 

t-EV-ENT  -+1 

0166 

RBF  157 

LAST 

478 

20,2200 

4 7767 

1 

:s 

ZERO 

DUMMYFiL  WILL  SET  APSGOinG  BiT  BECAUSE 

0167 

REF 

2 

LAST 

477 

._20,2.201 

55*732 

I 

TS 

AOSCnUNT 

OF  minus  2ERo  in  AOSCOUNT 

0169 

REF 

1 

20,2202 

3 6106 

0 

CAF 

PGNSCADR 

ACTIVATE  PGNCS  MONITOR 

R01692 

START 

CODING 

for 

MODULE  3 remake^  AUGUST 

1q67»**)*StAR-T  COOING-  FOR  MODULE 

3 Remake,  august  1967**********»*»»»*»»*** 

01696 

rEF 

1 

20,2203 

1 3057 

1 

23iNSrT 

TCF 

20iN<;rTA 

store  Time  for  enginoff  delay  logic. 

R01698 

*»END 

CODING 

FOR 

MODULE  3 remake,  AUGUST 

l967«inm 

■end  CODING  FOR  MODULE 

3 Remake,  august  i967»*fnnHm*»inHnnn»*»» 

017001 

REF 

24 

LAST 

477 

-20,2204 

4 0077 

0 

:s 

DAP300LS 

TURN  trim  GIMBaL  OFF  IN  CASE  WE  DID  FITH 

017005 

REF 

2 

LAST 

216 

20,2205 

7 7762 

1 

MASK 

USEOHJTS 

017009 

REF 

25 

LAST 

479 

20,2206 

26  077 

0 

ADS 

DAPBOOLS 

0171 

REF 

1 

20,2207 

4 2225 

1 

:s 

INPARAB 

MODIFY  THE  TJETLAW  FOR  ASCENT  BURNS: 

0172 

REF 

2 

LAST 

477 

20,2210 

55*631 

0 

rs 

MINImPDB 

(IN  ONE  EOUATION  DELETE  MINIMPDB  AND 

0173 

REF  I 

58 

LAST 

47“^ 

20.2211 

3 7767 

0 

:af 

ZERO 

SHIFT  the  switching  CURVE  TO  TH?  ORIGIN) 

017  A 

ref 

3 

last 

477 

20,2212 

55*630 

1 

ts 

DBmINIMP 

MINImPDB  5 -DB,  DBmINIMP  = 0 

01821 

--  20,2213 

- 0 0006 

1 

EXLE.ND- 

SET  -UP -ASCENT  URGENCY  LIMITS  SCALED  AT 

01822 

REF 

1 

20,2214 

3 2312 

0 

OCA 

ASCURGLM 

2 (+9)  SECONDS  AND 

01823 

REF 

3 

LAST 

5l 

20,2215 

53*477 

0 

DXCH 

URGLMS 

2 (+4)  SECONDS. 

01824 

20,2216 

0 0006 

1 

EXTEmD 

SET  UP  Ascent  rate  command  values: 

01825 

REF 

1 

20,2217 

3 2314 

0 

OCA 

ascratec 

-2.0  DEGREES/SlCOND  scaled  at  OT/A  limit 

01826 

REF 

2 

LAST 

. 5.1 

- -20j.222O_ 

-53*5-01 

0 

OXCH 

-2UFT.LIM 

-1,0  DEGREES/SECOND  SCALED  AT  Pl/4  DB 

01827 

ref 

1 

20,2221 

3 2224 

1 

CAF 

-.06ACC 

SET  ACC.  LIMiT  for  INVERSE  CALCiLATIOm 

018282 

ref 

1 

20,2222 

55*655 

-1 

TS 

-,06R/S2 

here  FOR  STAGING  AT  APS  BURN. 

0188 

REF 

1 

20,2223 

1 2235 

0 

TCF 

ENGINEON 

BYPASS  THE  SPECIAL  DPS  MONITOR  SETUP 

01881 

20,2224 

76615 

1 

-.06ACC 

DEC 

-.03620 

-0,06  RADIANS/SECONO(2)  AT  Pl/2 

01882 

20,2225 

00067 

0 

I NpARAS 

DEC 

♦.00333 

NOTE  FOR  AS206  USE  -,6Db  NOT  -D3 

0189 

REF 

31 

LAST 

479 

20,2226 

3 0003 

1 

drsengdn 

CA 

EBANk 

SAVE  CALLER'S  EBANK 

0190 

ref 

3 

LAST 

479 

20,2227 

55*312 

1 

TS 

TEYENT  +1 

0191 

ref 

1 

20,2230 

3 6105 

0 

eaf 

GMS-LMNAo 

GIMBlMON  handles  the  trim  GIMBA  ON/OFF 

A01911 

LOGIC  AND  EXITS  TO  PGNCSMON 

R01915 

START 

CODING 

FOR 

MODULE  3 remake,  AUGUST 

l967**»SrART  COOING  FOR  MODULE 

3 REMAKE,  AUGUST 

0192 

REF 

1 

20,2231 

1 3767 

0 

I NSERT20 

TCF 

SETCnTR 

SET  FLAGS  FOR  CRITICAL  GTS  ENTRIES, 

R019206  »»END  CODING  FDR  MODULE  3 REMAKE,  AUGUST  1967»»*»»END  CODING  FOR  MODULE  3 REMAKE,  AUGUST  1967)H'**)<*»«»»»»**)'»**» 
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01921 

REF 

28 

LAST 

47A 

20_,2232^ 

4-  X760 

0 

rs 

.M.TA^  . - 

CLEAR  GIMBLMON  INHIBIT  FLAG  jUSr  IN  CASE 

01922 

REF 

8 

LAST 

326 

20,2233 

7 0076 

1 

MAS< 

FLA3wRD2 

IT  HAD  NOT  Been  reset  BY  throtiTe  contro 

01923 

REF 

9 

LAST 

480 

20,2234 

54  076 

1 

rs 

FLA3WRD2 

0193 

20,2235 

0 0006 

1 

engineon  extend 

THE  ENGINe-ON  COMMAND  IS  RECORDED 

019A 

REF 

17 

LAST 

389 

20,2236 

3 0025 

0 

OCA 

TIME2 

FOR  THE  DOI^NLINK 

0195 

REF 

4 

LAST 

479 

_ 20r2_237_ 

. 5.3J1312 

1 

OXCH 

TEVENT.  

01952 

REF 

2 

last 

88 

20,2240 

3 1340 

1 

CA 

stopdvc 

0195A 

REF 

1 

20,2241 

55*341 

1 

T5 

SETOa/CNT 

0196 

REF 

1 

20,2242 

3 6107 

1 

CA 

8URNDB 

Set  one  Degree  deadband  for  the  burn 

0197 

REF 

3 

LAST 

475 

20,2243 

54  375 

1 

T5 

OB 

0198 

REF 

5 

LAST 

373 

20,2244 

4 5210 

0 

CS 

PRI0:t0 

TURN  ON  THE  ENGINE  - APS  OR  DPS 

0199 

20,2245 

0 0006 

1 

EXTEND 

DEPENDING  ON  THE  ARM  COMMAND 

■ o^oo 

20,2246 

02  Oil 

0 

RAND 

1 1 

0201 

ref 

18 

LAST 

373 

20,2247 

6 7747 

1 

AD 

31TU 

0202 

20,2250 

0 0006 

1 

EXTEND 

0203 

2.0,2251 

01  Oil 

0 

WRITE 

11 

020A 

■REF 

12 

LAST 

47I 

20,2252 

4 0075 

1 

C6 

FLAGwRDl 

SET  ENGINBIT  - THE  BIT  WILL  BE  CLEARED 

0205 

REF 

1 

20,2253 

7 .J757 

1 

mas< 

ENGINBIT 

IN  enginoff  and  thus  NODV  Can  C-ieCK  lt 

0206 

REF 

13 

LAST 

480 

20,2254 

26  075 

1 

ADS 

FLAGWRDl 

TO  ASCERTAIN  NORMAL  OR  PRLMATURA  cUtOFF 

02061 

REF 

3 

LAST 

466 

20,2255 

3 5661 

0 

CA 

02062 

ref 

32 

LAST 

479 

20,2256 

54  003 

0 

E6ANK 

020625 

REF 

6 

LAST 

69 

E5 

/lBAN4= 

DVCNTR  \ 

02063 

REF 

2 

LAST 

88 

20,2257 

3 1337 

1 

1 

startdvc 

\ SET  UP  THE  DV  MONITOR 

02064 

REF 

7 

LAST 

480 

20,2260 

55*511 

1 

\ TS 

DvCNtR  j 

02065 

rEF 

33 

LAST 

48O 

20.2261 

22  003 

1 

V tXCH 

EBANK  y 

RESTORE  CALLERIS  EBANIC 

0207 

REF 

131 

last 

478 

20,2262 

0 0002 

0 

\JC 

0 — 

RETURN  TO  CA| leR 
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imTErface  subroutines 
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PQ208 

APS 

and 

DPS  ENilNE  -_0£f  JiQUJlNt  ( CALL 

WiTH  LMEJBJJLT  i-'LLL3-U-EIl-  L . - - 

RO2O82 

START  COOING 

FOR 

MODULE  3 REMA<E«  AUGUST 

1967»it»5lART  COOING  FOR  MODULE 

3 Remake,  august  i967)*»*»*»»*»»»****»*» 

0209 

REf 

1 

__  2Da2263  1 306A  1 _ 

ENfilNOFF.  TCf  ^ 

201NO1IB  . 

PROCEED  TO  ENGINOFF  DELAY  LOGIC. 

R02095 

a*END  CODING 

FOR 

MODULE  3 REMAAe,  AUGUST 

1967»»*»EN0  coding  for  MODULE 

3 REMAKE,  AUGUST  1967*n*»»**HH*»*»*»**m)Ht 

02105 

REF 

1 

20^226A  QL2L2J  L_ 

IC  _ _ 

ALLCnA-S.T.  ....  .. 

DO  DAP  COASTING  FLIGHT  INI T I ALI 7AT I ON. 

0211 

20,2265  0 0006  1 

EXTEND 

0212 

REf 

18 

LAsT 

A80 

20,2266  3 0025  0 

- OCA 

TIME?  ..  . . 

The  ENGINE  - OFF' .command  Is  recorded 

0213 

REF 

5 

LAST 

A80 

20,2267  53*312  1 

DXCH 

TEYENT 

FOR  THE  DOWNLINK 

R021A 

START  COOING 

FOR 

module  3 REMA<E,  august 

l967*»*SrART  coding  FOR  MODULE 

3 remake,  august  1967»*********»»»**»»*»»* 

02155 

20.2270  0 0006  1 

extend 

restore  original  0 setting. 

0216 

REF 

1 

20,2271  22  376  0 

DXCH 

/TEMPI/ 

R02I7 

»*ENO  CODING 

FOR 

MODULE  3 remake,  AUGUST 

1967»**»END  coding  for  MODULE 

3 REMAKE,  AUGUST  1967**»****-*»»»*»**t*t»* 

021702 

REf 

26 

last 

A79 

20,2272  A 0077  0 

;S 

3AP3D0LS 

turn  trim  gimbal  Off. 

02170A 

REF 

3 

LAST 

A 79 

20j.2Z73  7 7762  1 

MASK. 

USEJftUIS _ 

021706 

REF 

27 

last 

A8l 

20,227A  26  077  0 

ADS 

DAP300LS  ■ 

021708 

REF 

2 

LAST 

A79 

. 20,2275  3 6106  0 

CAF 

PGNSCADR 

MAKE  sure  GIMBLMoN  DOES  NOT  TURN  GIMBAL 

021709 

REF 

5 

LAST 

338 

.20_,22J6  55*310  0 

TS 

DvSEI  ECT 

BACK  ON. 

0218 

ref 

6 

last 

A80 

20,2277  A 5210  0 

ENGInORI  cs 

PRI030 

turn  off  the  Engine 

0219 

20,2300  0 0006  1 

EXTEND 

0220 

20,2301  02  Oil  0 

TAND 

1 1 

0221 

ref 

31 

LAST 

A7A 

20,2302  6 77A6  0 

AD 

3ITU 

0222 

20,2303  0 0006  1 

EXTEND 

0223 

20,230A  01  Oil  0 

/JRITE 

11 

02231 

REF 

2 

LAST 

AflO 

20,2305  A 7757  1 

_cs 

EJLGlNaU 

CLEAR._ENG inbit  - THIS  IS  AN  LNDlCATlON 

02232 

REF 

lA 

LAST 

A80 

20,2306  7 0075  1 

MASK 

FLAGwRDl 

OF  NORMAL  SHUTDOWN 

02233 

ref 

15 

LAST 

A8l 

20,2307  5A  075  1 

TS 

flagwrdi 

R022A 

START  CODING 

FOR 

MODULE  3 remake,  AUGUST 

l967»»»START  COOING  FOR  MODULE 

3 remake,  august  1967**HHHHHHHHHt*)HHHI»*** 

022A2 

REF 

1 

' 20,2310  1 30A5  1 

INSRT20A  rCF 

RESEtCTR 

GO  deactivate  extraordinary  GTS  Flags, 

A022A3 

THEN  RETURN  TO  CALLER. 

R022AA 

**END  CODING 

FOR 

module  3 REMAKE,  AUGUST 

l967»»**H*END  CODING-  FOR  MODULE 

3 REMAKE,  AUGUST  1967******»***»»*»**»)m* 

0225 

REF 

22 

LAST 

A7A 

7757 

enginbit  equals 

SITS 

0300 

20,2311  77767  1 

ASCURGLM  DEC 

-0.2r  B-9 

-0.25  SECONDS  SCALED  AT  2 (+9). 

0301 

20,2312  77377  1 

DEC 

-0,2q  B-A 

-0.25  SECONDS  SCALED  AT  2 (*4). 

0302 

20,2313  77001  0 

ASCRATEC  OCTAL 

77001 

-l.A  DEG/SEC  SCALED  AT  PI/A  RADtANS/SEC 

0303 

20,231A  77555  1 

octal 

77555 

-o.A  deg/sec  scaled  at  PI/A  RADIAnS/SEC  ^ 

0310 

REF 

132 

LAST 

A80 

20,2315  22  002  0 

ISTENGOF  _XCH 

0 

come  here  FROM  FRESH  START. 

0311 

REF 

1 

20,2J16  0 2277  1 

rc 

ENLGImOEI 

UUST  TURN  OFF  ENGINE  . . 

0312 

REF 

133 

LAST 

A8l 

20,2317  22  002  0 

lXCH 

0 

633^i36A 

YUL 

SYSTEM  FOR  Aqc;  REVISION  0 OF  PROGRAM 

BURST12D  BY 

NASA  2021106-031 

DEC  7,  1967  (MAIN) 

PAGE 

A82 

LOOlO 

dap 

hJerface  subroutines 

USER'S 

OWN  page  no,  10 

S3 

E5 

0313 

REF 

2 LAST_4B.1  Z0j_2320-_  0 

ALLCoASTL 

-„.ANP.  BEI 

UP  FOR_CQAST^ 

633436A 

YUL  system  for  agc:  revision 

0 OF  PROGRAM  BURST123  BY  NASA  2021106-031 

DEC  7, 

1967  (MAIN) 

page  483 

L 

Rooox 

T6-RJ3(T  programs 

PROGRAM,  names:  (U  DDTSRUPT- 

-MOD.  NQ._4  - -PAJEE-FEBRUARY  9.  L9E7  

USER'S  OWN  page 

NO.  1 

S3 

R0002 

(z)  T5J0BCHK 

R0003 

modification  by:  Jonathan  d. 

ADDeLSTON  (ADAMS  ASSOCIATES) 

Ro004  THeSe  PROCdRAMS  ENABL_e_JH^  LM  dap  to  CMtROt  T8E  I-jPOST^.TJMeS-  OF  _THE  ReACJION  control  system  Jets  by  USI\|G  TIMe6. 
R0006  SINCE  The  lm  d^p  maintains  exclusive  control  over  times  anj  tts  interrupts,  The  following  conventions  have  been 
R0008  established  and  must  not  be  tampered  WITH: 

R0009  1.  NO  NUMBF,R__LS„EVER -PLACED  INTO  TIMES  EXCEPT  BY  LM  DAP.  . 

ROOlO  2.  NO  PROGRAM.  OTHER  THAN  LM  DAP  ENABLES  THE  TIMES  CnUNTER, 

Rooil  3.  ONLY  POSITIVE  NUMBERS  ARE  ENTERED  INTO'  TIMES,  SO  IT  COUNTS  DOWN  TO  -0  (MINUS  ZERO)  TO  INTERRUPT, 

ROO13  4.  IF  -0  IS  NOT__JN  JIM_E6  WHEN  THE  INTERRUPT  OCCURS,  THEN  THE  INTERRUPT  HAS  ALREADY  BEEN  PROCESSED, 

Roois  5.  ALL  PROGRAMS  WHICH  OPERATE  IN  EITHER  INTERRUPT  MnOE  OR  WITH  INTERRUPT  INHIBITED  MUST  CALL  TsJDBCHX 

RooiT  every  s MiILliseconds  to  process  a possible  waiting  tsRUpt  Before  it  can  be  honored  by  the  hardware. 


R0019  dotsrjpt  CALLINO  sequence: 

ROOZQ  REF-  4lOO-4 SZ-fl-U -0 DXCH ARJPT ISRUEl 

R0022  4005  0 OOOS  1 EXTEND 

R0023  REF  1 4006  3 5045  0 DCA  TsAOo 

R0024  4007 52  006  0 DICfl 

R0025  T6J03CHX  CALLING  SEQUENCE: 


ROOZS  REF  0 23,1000  0 4200  1 TC  TSJDRCHK 


R0027 

SUBROUTINES  CALLED : DOTSRUPT  CALLS  TsJqBCHK. 

R0028 

R0029 

NORMAL.  EXIT  MODES:  DOTSRUPT  TRANSFERS  CONTROL  TO 

TsuoBcaK  transfers  control  to 

resume. 

CAcLER  _A1__ location  after  call. 

R0031 

alarm/abort  modes:  none. 

R0032 

INPUT:  TIMES, TSNeXT  REGS,TSNEXTJT  REGS. 

R0033 

OUTPJri  ^SAMF  AS  INPJiT«) 

ROO34 

debris:  DOTSRUPT:  NONE.  tsjobchk:  a,l 

ROO35 

note:  as  of  mod.  no.  2,  tsnext  and  TSNeXtUT 

lists  are  in  unswitched  erasable.  *** 

633436A 

YUL 

SYSTEM  FOR  AGC: 

REVISION  0 OF  PROGRAM  BURSTI23  BY  NASA  2n21106-031 

DEC  7.  1967  (MAIN) 

PAGE  404 

L 

0037 

T6-I 

RJ3T 

PROGRAMS 

5050 

3L0C< 

_Q2 

USER'S  OWN  PAGE  NO,  2 

S3 

0038 

REF 

1 

E2 

fban<= 

T6NEXT 

0039 

JlEf 

2 

LAST 

OD 

E2. 

-£BAN<= 

TbNEXI 

OO^tO 

5050  02000  0 

T6ADR 

2CADR 

OOT  6RL)P7 

2CADR  Of  interrupt  PROCESSOR, 

C0040 

ref 

1 

5051  34062  1 

0041 

16i2Q00 

3AN< 

Ab 

0042 

REF 

3 

LAST 

484 

E2 

?BAN<= 

T6NEXT 

0043 

REF 

7 

LAST 

330  _ 

I6.20QO.-  _22  016  0 - 

D3T6RUPT 

_XCH 

3AN<RUPT 

(INTERRUPT  Lead  in  continued) 

0044 

16.2001  0 0006  1 

EXTEND 

0045 

REF 

7 

LAST 

33O 

16.2002  22  012  1 

3XCH 

3RJPT 

0046 

REF 

1 

16.2003  0 6013  0 

TC 

T6JDRCHK 

CALL  TbUOBCHK 

0047 

REF 

18 

LAST 

332 

16.2004  1 5733  1 

rcF 

RESJmE  

END  TIME6  RUPT 

0048 

0049 

REF  4 

LAST 

484 

6013 

E2 

3L0C< 

eban<= 

03 

TbNExT 

0050 

REF  1 

. 6013 

10  031  1 

T6J0BCH< 

CCS 

TlMEfc 

CHECK  TIME6  for  WAITING  T6RUPT; 

0051 

ref  134 

LAST 

48l 

6014 

0 0002  0 

rc 

0 

NONE:  CLOCK  COUTING  DOWN, 

0052 

REF  135 

LAST 

48A 

6015 

0 0002  0 

TC 

D 

NONE:  T6RUPT  ALREADY  PROCESSED. 

0053 

REF  136 

LAST 

484 

6016 

0 0002  0 

rc 

D 

none:  INVALID  VALUE,  (POSSIBLE  AB3RT.) 

Rq054 

control 

passes  to 

T6J0B  ONLY 

wHeN  C(T1ME6)  = -0 

(I*E,  when  a T6RUPT 

MUST  Be  PROCESSED) , 

0056 

REF  22 

last 

477 

6017 

3 7743  0 

T6J0B 

CAF 

POSMaX 

DISABLE  CLOCK:  NEEDED  SINCE  RUPt  OCCURS 

0057 

6020 

0 0006  1 

EXTEND 

1 DINC  AFTER  Tb  = 77777.  FOR  6?5  MUSECS 

■ 0058 

6021 

03  013  0 

WAND 

13 

MUST  NOT  HAVE  T6  = +0  WITH  ENABi'e  SET, 

0059 

REF  L59 

LAST 

479 

6022 

3 7767  0 

CAF 

2ER3 

UPDATE  ORDERED  LIST  OF  T6NEXT  REGISTERS 

0060 

REp  5 

LAST 

484 

6023 

57*003  0 

XCH 

T6NEiT  +1 

1)  PUSH  first  entry  into  TIME6, 

0061 

REF  6 

LAST 

484 

6024 

57*002  1 

XCH 

TbNEvT 

2)  PUSH  Second  entry  into  first  place. 

0062 

PEF  2 

last 

4BA 

6025 

54  031  1 

rs 

T1ME6 

3)  ZERO  LAST  (SECOND)  DT  IN  LIST. 

0063 

REF  3 

LAST 

484 

’ 6026 

10  031  1 

CCS 

TIME6 

TIME6  either  positive  OR  PLUS  ZfRo: 

0064 

ref  1 

6027 

1 6032  1 

TCF 

T6NZER0 

(rRANCH  if  TImE6  still  active,) 

0065 

REF  1 

6030 

31*004  1 

CAE 

T6NEXTJT 

these  are  translation  jets  (NO  OT). 

QQ6.6  ^ 

REF  1 

6031 

1 6041  0 

TCF 

wRITfJTS 

Determine  channel  and  write. 

0067 

REF  29 

LAST 

474 

6032 

3 7745  0 

T6NZERD 

CAF 

81115 

enable  TIME6  counter  TO  START  TIMING 

0068 

6033 

0 0006  1 

EXTEND 

THIS  jet  firing  (PROPER  JETS  NOT  YET 

0069 

6034 

05  013  0 

WOR 

13 

WRITTEN  INTO  CHANNEL,  BUT  WILL  3E  SOON). 

0070 

REF  160 

LAST 

484 

6035 

3 7767  0 

CAF 

2ER3 

update  ordered  list  of  jet  POLICIFS: 

0071 

REF  2 

LAST 

484 

6036 

57*006  0 

XCH 

T6NEXTJT  +2 

1)  LEAVE  JETS  TO  00  ON  NOW  IN  A. 

i 


633i»36A 

yul 

SYSTEM  FOR  AGC: 

REVISION  0 OF  PROGRAM 

BURST12D  by 

NASA  2n2IlO6-031 

DEC  7, 

1967  (MAIN) 

PAGE 

A85 

L 

T6-I 

Rj3ir  Programs 

USER'S 

OWN  PAGE 

NO.  3 

S3 

E2 

n072 

REF 

3 LAST  ABA  . 

6037  57«005 

xCri 

IfriXEx-TJT  *1 

2J  CYCLE 

LIST  UP 

IQWARD  TOP- 

6073 

REF 

A LAST  AbP 

60A0  57*OOA  X 

XCH 

T6NEXTJT 

3)  ZERO 

LAST  ENTRY  IN  LIST.' 

633<t36A 


L 

P007A 

R0075 

R0076 

R0077 

0078 

0079 

ROO8O 

0081 

0082 

0083 

ROO8A 

0085 

oaafe 

0087 
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T6-RJ3T  PROGRAMS  USER'S  OWN  PAGE  NO.  4 S3  E2 

the  FOLLOWING  _MAY_b.E-US£D  AS_A__aiI3R0JI_LNE^_(3_-ENiRY__PDJNTS)  : __  _ _ _ 

FIRST,  let  SGN(A)  determine  THE  JET  CHANNEL) 

POSITIVE  JMS-LIES  P-AaIS  POLICY.  --  - 

negative  imbues  Q.R-AXES  POLICY. 


6 Oil 

0 0006  1 

WRITEJT5  extend 

_ _ TEST 

FOR  channel  to  WRITE  POLIC' 

ref 

1 

6042 

6 6046  0 

3ZMF  wRITfQR 

NEG) 

Q.R-AXES  JETS  IN  CHANNEL  5 

SECOND.  FOR  P-AXJS  J£l.  POLICIES: 


6043 

6044 

0 0006 
_01  00 6 

1 

0_ 

writep 

EXTEND 

write 

6 

pos:  p-Axis 

JETS  IN  CHANNEL  6 

REF  137 

last  484  6045 

0 0002 

0 

TC 

Q 

RETURN. 

third. 

FOR  Q.R-AxeS  jet  policies: 

6046 

0 0006 

1 

WRITEqR 

EXTEND 

q.r-axes  jets 

IN  channel  5 

6047 

01  005 

0 

WRITE 

5 

ref  138 

LAST  486  6050 

0 0002 

0 

TC 

Q 

. RETURN. 
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L dapio_er  Program  user's  own  page  no.  i S3 

Roooi  the  DAPIDLeR  program  1R  STARTeO_B.Y__FRE5H._5IARX  and.  rest  art. _ the  DAP  idler  Program  is  done  id  times 

R0003  PER  Second  until  the  astronaut  desires  the  dap  td  wa<e  up,  amd  thf  imu  and  cdus  are  ready  for  use  by  th-  dap. 

Roods  the  necessary  inijia.ization  of  the  dap  is  done  by  the  dapidier  program. 

R0006  additional  W0R<.  must  be  D0NE_  on.  DAPIDLeR  IN  THE  FUTURE. 


0007 

0008 

REF 

4 

LAST 

473 

16.2005 

E6 

3An< 

EBAN<= 

16 

DT 

0009 

REF 

32 

LAST 

47A 

16.2005 

3 7756 

1 

CHEKBITS  :AF 

BITS 

0010 

ref 

60 

last 

336 

16.2006 

7 0365 

0 

MAs< 

imddcsbo 

0011 

REF 

227 

LAST 

471 

X6,2007 

10  0 0.0 

0 

ICS  _. 

A 

0012 

REF 

1 

16.2010 

1 2166 

0 

TCF 

moretdle 

0013 

REF 

29 

LAST 

4^0  . 

- i6,20ll 

3 7760 

1 

RIT4 

OOIA 

REF 

23 

LAST 

48l 

16.2012 

6 7757 

0 

AD 

BITS 

0015 

16.2013 

0 0006 

1 

EXTEND 

0016 

16.2014 

02  012 

0 

RAND  . 

12-  - - - 

0017 

REF 

228 

LAST 

487 

16.2015 

10  000 

0 

CCS 

A 

0018 

REF 

2 

LAST 

487 

16.2016 

1 2166 

0 

TCF 

MDREtDLE 

0019 

REF 

37 

last 

47A 

16.2017 

3 7752 

0 

CAF 

BlTln 

BITIO  OF  30  IS  PNGCS  CONTROL  OF  S/C 

0020 

16.2020 

0 0006 

1 

EXTEND 

0021  ' 

16.2021 

02  030 

0 

RAND 

SO 

BITS  IN  30 

ARE  INVERTED 

0022 

REF 

229 

last 

487 

16.2022 

10  000 

0 

CCS 

A 

0023 

REF 

3 

LAST 

487 

16.2023 

1 2166 

0 

TCF 

MOREiDLE 

002A 

16,2024 

0 0006 

1 

EXTEND 

0025 

16.2025 

00  031 

0 

READ 

31 

IF  BOTH 

BIT13  and  BIT14 

ARE  ONE 

0026 

„ ..16,2026 

4 0000 

0 

COM 

then  mode 

SELECT  SWITCH. IS 

IN  OfF 

0027 

REF 

3 

LAST 

404 

16,2027 

7 5210 

0 

MAS< 

BITU-14 

POSITION. 

0028 

16,2030 

0 0006 

1 

EXTEND 

0029 

ref 

4 

LAST 

487 

.16,2031 

1 2166 

0 

3ZF 

MORETDLE 

HENCE  DAP 

SHOULD  BE  OFF. 

OO3O 

REF 

3 

LAST 

338 

16.2032 

3 7751 

0 

CAF 

oODApCsO 

0031 

ref 

28 

last 

48l 

16,2033 

7 0077 

0 

>lAS< 

DAP300LS 

0032 

16,2034 

0 0006 

1 

EXTEND 

0033 

REF 

5 

LAST 

487 

16,2035 

1 2166 

0 

3ZF 

MOREIDLE 

003A 


16*2036  0 0002  0 


RETURN 
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L 

DAPIO 

_ER  program 

USER*S  OWN  page  NO,  2 S3  E6 

P0035 

DA  Pin 

lER  ENTRY_._ 

0036 

REF 

8 last 

A8A 

16,2037 

22  016  0 

dapidler  lxch 

8AN<RUPT 

interrupt  lead  ins  (CONTINUED) 

R003605 

START 

CODING 

FOR 

MODJ'LE  3 REMA<t,.  AUGUST 

l967»»ASrARJL  CODLNJi'  FXIR  MODULE 

3 remake*  august  196 7 ********_**)♦*»»)* *«)()***)( 

0037 

REF 

1 

16,20AO 

1 3627  0 

TCF 

T5IO1  ERI 

0038 

REF 

13  LAST 

A36 

16,20A1 

0 A736  1 

rc 

ccshole 

003805 

REF 

1 

16,20A2 

3 7761  0 

DAPIDLEI  caf 

datasood 

R003808 

)HtEND 

CODING 

for 

MODJ-b  3 REMA<t,  AUGUST 

1967*«»*)(END  coding  FOR  MODULE 

3 REMAKE,  AUGUST  1967*HHHHHHHHn*»*»»)HHHnt 

00381 

REF 

29  LAST 

A87 

16,20A3 

7 0077  0 

MASK 

DAPBnOLS 

003815 

16.20AA 

0 0006  1 

extend 

00382 

ref 

1 

J6j_20A_5_ 

1 2207  1 . 

3ZF_  _ 

T£ STM ASS 

0039 

REF 

1 

16,20A6 

0 2005  0 

rc 

CHEKBITS 

CHECK  TO  SEE  IF  LM  DAP  IS  TO  GO  ON. 

0051 

REF 

16  LAST 

il9 

16,2QA7 

0 5270  1 

startdap  ic 

IBNCCALL  - 

0052 

ref 

3 last 

101 

16,2050 

AOllA  1 

FCAdR 

stoprate 

0053 

ref  161  last 

A8A 

16,2051 

3 7767  0 

CAF 

ZERO 

***(****»»*»»**  INITIALIZE)  *****»*»»»» 

005A 

REF 

A LAST 

aba 

16,20S2 

5_A  031  _1. 

_ _ TS  . . 

timfa  . ^ 

T6R0PT. CLOCK,  , 

0055 

REF 

2 last 

53 

16,2053 

55*611  1 

TS 

TP 

RATE  derivation  DTS 

0056 

REF 

1 

16«205A 

55*612  1 

TS 

TOR 

00561 

REf 

1 

16,2055 

5^5*605  1 

TS 

UEJRaTEQ 

O.R  JETRATES  used  in  q.r-axes  before 

00562 

REF 

1 

16,2056 

55*606  1 

TS 

UETRATER 

BEING  SET,  GIVEN  TOR  ZERO. 

0057 

REF 

1 

16,2057 

55*A63  0 

TS 

LASTpER 

ATTITUDE  error  RECORDS  FOR  EIGHTBALL. 

0058 

REF 

1 

16*_20J)0 

557A6A  1 

TS 

LASTOER 

0059 

ref 

1 

16,2061 

55»A65  0 

TS 

LASTRER 

0060 

REF 

■ 1 

16,2062 

55*A66  0 

TS 

PERROR 

0061  . 

ref 

2 LAST 

52 

16,2063 

55*A67  1 

TS 

OERROR 

. 0062 

ref 

2 LAST 

52 

16,206A 

55*A70  1 

TS 

RERRnR 

00&3 

REF 

8 LAST 

A75 

16*2065 

55*A15  1 

ts 

omegap 

RATES  IN  BODY  (PILOT)  COORDINATES., 

006A 

REf 

2 1 AST 

A7 

16,2066 

55*A16  1 

TS 

OmEgaq 

0065 

REF 

5 LAST 

A75 

16,2067 

55*A20  1 

TS 

0ME3AR 

0066 

REF 

7 LAST 

aba 

16,2070 

55*002  0 

rs 

T6NEXT 

JTLST  VARIABLES. 

0067 

REF 

8 LAST 

A88 

16*2071 

55*003  1 

TS 

T6NEXT  +1 

0068 

REf 

1 

16,2072 

55»A73  1 

TS 

ADDT6UTS 

0069 

REF 

1 

16,2073 

55*A7A  0 

TS 

ADDTLT6 

0070 

REF 

2 last 

61 

16,207A 

55*007  0 

TS 

delayctr 

MINIMUM  IMPULSE  RHC  MODE  COUNTER. 

0071 

REF 

1 

16,2075 

55*A17  0 

TS 

ALPHAO 

descent  acceleration  estimates. 

OO72 

REF 

2 LAST 

337 

16,2076 

55*A21  0 

TS 

ALPHAR 

0073 

REF 

1 

16*2077 

55*515  0 

TS 

OISPLACT 

EIGHTBALL  ROUTINE  SWITCH. 

007A 

ref 

3 last 

A78 

16,2100 

55*6A2  1 

IS 

(1-0 

K=1  first  pass. 

R007A5 

START 

CODING 

FOR 

module  3 remade,  august 

1967a»aStART  coding  FOR  MODULE 

3 Remake,  august  1967*hhhh**h***»>hhhhhhh** 

0075 

ref 

1 

16,2101 

1 2A55  0 

INSRT16B  TCF 

PROTrTOR 

RESTART  PROTECT  ENGINE-ON  AND  GIMBAL 

AOO755 

DRIVE  BITS. 

R00756 

iHtEND 

CODING 

F'^ 

MODULE  3 REMA<E,  AUGUST 

1967aih*»»END  coding  FOR  MODULE 

3 REMAKE,  AUGUST  1967****** **»*»»»» »*»*#» 

0076 

ref 

22  last 

A7A 

16,2102 

3 7762  0 

CAF 

BIT2 

CHECK  FOR  STAGE 

OO76O2 

16,2103 

0 0006  1 

extend 

633i»36A 

yul 

SYSTEM  FOR  AGC; 

REVISION 

0 OF  PROGRAM 

BURST120  BY  NASA  2n21106-031 
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L 

007604 

DAPI0:.ER  progra^i 

16«2109 

02  030 

-0 

2 AND 30 

USER*S  OWN  PAGE  NO.  3 S3  E6 

0076O6 

16.2105 

0 0006 

1 

EXTEND 

007607 

16.2106 

1 2117 

0 

32F  ♦93 

(BRANCH  FOR  ASCENT.) 

007608 

REF 

1&2 

LAST 

988 

16.2107 

3 7767 

0 

CAF  ZERO 

l/ACCS  BRANCHING  VALUE  IS  ZERO  FOR 

007609 

REF 

2 

LAST 

979 

16.2110 

55*655 

1 

T5  -.06O/S2 

descent  lm  dap. 

00761 

16.2111 

0 0006 

1 

EXTEND 

SET  DESCENT  URGENCY  LIMIT  = 1.5  SECONDS 

007612 

REF 

1 

16.2112 

3 2251 

0 

3CA  JRoLMOWN 

AS  BOUND  TO  USE  MAXIMUM  JETS. 

0076U 

REF 

4 

LASF 

979 

16.2113 

33*977 

0 

3XCH  JRGfMS 

007616 

16*2119 

0 0006 

1 

EXTEND 

RATE  ERROR  LIMIT  W/MIN  JETS:  1.4  OEG/SEC 

007618 

ref 

1 

16.2115 

3 2295 

0 

3CA  RcOMoOWN 

RATE  ERROR  dB  W/MlN  JETS:  O.4  jEG/SEC 

007619 

16.2116 

1 2126 

_1 

rCF tBo 

00762 

REF 

1 

16.2117 

3 2259 

0 

♦ 90 

CAF  ACCLTMIT 

l/ACCS  branching  VALUE  MUST  BE 

007621 

REF 

3 

LAST 

989 

16.2120 

55*655 

1 

rs  -.O6R/S2 

0.06  raoians^secondiz)  for  ascent  dap. 

007622 

16.2121 

0 0006 

1 

extend 

SET  ASCEnT  urgency  LIMIT  = .25  sECOnDS 

007629 

REF 

_3  2233 

:1 

OCA  . JRGLMUP 

--  AS  BoJJNQ  XO  USE__MAxiM.UM  JCTS. 

007626 

ref 

5 

LAST 

989 

16.2123 

53*977 

0 

OXCH  JRGLMS 

007629 

16*2129 

0 0006 

1 

EXTEND 

RATE  ERROR  LIMIT  W/MIN  JETS:  2.3  OEG/SEC 

00763 

ref 

1 

16_,  2X25 

3 2297 

1 

OCA  _ RCDMNDUP 

RATE  ERROR  dB  W/MIN  JETS:  I.3  dEG/SEC 

007632 

REF 

3 

LAST 

979 

16.2126 

53*501 

0 

♦ 80 

OXCH  -2JETLIM 

R0078  SEL  J3|  "OLD"  MEAsURF3  ^-DU  ANGLFS! 


0079 

16.2127 

0 0006 

1 

EXTEND 

OO'sO 

REF  27  LAST 

976 

16.2130 

3 0033 

1 

5CA 

CDJX  . 

OLDXFORP  AND  OLDYFORP 

0081 

REF  -9  LAST 

99 

16.2131 

53*926 

1 

OXCH 

OLDXfORP 

0082 

16.2132 

0 0006 

1 

EXTEND 

0083 

REp  15  last 

975 

16i2_133 

3 0039 

0 

.OCA  . 

.CDJY 

olDjtforq  and  oldzporq 

0089 

REF  1 

16.2139 

53*930 

0 

OXCH 

OLDYfORQ 

0085 

ref  1 

16.2135 

3 2230 

1 

CAF 

0.621 7O 

0086 

REp  1 

16.2136 

55*955 

0 

rs 

9JETT0RK 

0087 

REP  1 

16.2137 

3 2231 

0 

CAF 

.68387 

2200  FT  LBS.  SCALED  AT  2(10)  X 31. 

0088 

REP  1 

16.2190 

55*956 

0 

TS 

JETT0RK9 

OR  Axis  JET  TORQUE  FOR  4 JETS. 

R0089 

SET  J’l  the  TORDUe 

VECTOR  RECONSTRUCTION  SWITCHES: 

0090 

X6*  21.91 

0 .0006 

1 

-XTEND 

0091 

REP  1 

16.2192 

3 2291 

1 

OCA 

VlSNnRMQ 

PJUMPADR  and  QJUMPADR 

0092 

REP  2 LAST 

59 

16.2193 

53*653 

1 

OXCH 

PJJMPADR 

R00921 

set  switch  TC 

1 SXlP 

0 ♦ JhTLAft 

1 square 

: root: 

ROO93 

SET  J2i  INITIAL  VALUES  FOR  WFORP  AND  WFOKOR: 

0099 

REP  1 

16.2199 

0 0006 

1 

EXTEND 

SCALED  AT  16: 

0095 

16.2195 

3 2293 

0 

OCA 

i/F3^pQRlC 

WFORp  = k/DT  = K/.l  = l/.l  = 0.625 

OO96 

REP  4 LAST 

978 

16.2196 

53*691 

1 

OXCH 

4F0RP 

WFORQR  = K/DT  = K./.15  = 1/.15  = 0.91667 
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L DAPIOlER  program  USER'S  OWN  PAGE  NO,  4 S3  E6 

R0097  set  J3  WAITLJSL  caul  to  . reset  WFqRP  AND  ^WEQRQR L . _ 


0098 

ref 

1 

16,2147 

3 2236  1 

CAF 

180MS 

0099 

REF 

59 

LAST 

A72 

_ 16J^l.50 

0 5663  1 

TC 

WAITLIST 

0100 

REF 

2 

last 

478 

E6 

EBAN<= 

WFOROR 

0101 

16,2151 

03435  0 

2CADR 

WLHANtitR 

COlOl 

REF 

1 

16,2152 

40066  0 

0150 

16,2153 

0 0006  1 

EXTEND 

SET  UP  P-AXIS  TO  GO  TO  DUMMYFIL 

0151 

REF 

1 

16,2154 

3 2225  0 

DCA 

DF2CADR 

0152 

ref 

1 

16,2155 

53*573  0 

dxcjh 

.P  F_U.TjADR_  _ 

0153 

16,2156 

0 0006  1 

extend 

015A 

REf 

1 

16,2L57 

.3  22.2.1 

DCA_  _ 

.PAXAoIDL 

0155 

REF 

4 

LAST 

93 

16,2160 

53*001  0 

DXCH 

T5ADR 

0156 

REF 

1 

16,2161 

3 2226  0 

SETTIME5 

CAF 

MSlOO 

0157 

REF 

? 

last 

96 

16.2162 

54  030  0 

TS.  __ 

TIMEa 

0158 

REF 

19 

LAST 

48A 

16,2163 

1 5733  1 

rcF 

RESUME 

0159 

REF 

5 

LAST 

487 

E6 

EBAN<= 

DT 

0160 

16,2164. 

.02037  1 

IDLERADR 

2CADR 

DAPIOLER 

C0160 

ref 

2 

LAST 

99 

16,2165 

34066  0 

0161 

REF 

2 

LAST 

49O 

16,2166 

4 22.22  0 

MDREIDLE 

CS 

PAXADIDL 

DAP  SHOULD  Be  OFF 

016105 

REF 

5 

LAST 

49O 

16,2167 

6 1000  0 

AD 

T5  AOr 

01611 

16,2170 

0 0006  1 

EXTEND 

016115 

REF 

1 

16,2171 

1 2176  1 

32F 

SHUTDOWN 

CHECK  TO  SEE  WHETHER  THIS  IS  FR-)M  P-AXIS 

01612 

16,2172 

0 0006  1 

SETT5ADR 

EXTEND 

016125 

REf 

1 

16,2173 

3 2165  1 

DCA 

IDLERADR 

01613 

REF 

6 

LAST 

49O 

16,2174 

53*001  0 

OXCH 

TsAOR 

016135 

REF 

1 

16,2175 

1 2161  1 

TCF 

SETTIME5 

016A 

REF 

163 

last 

489 

16,2176 

3 7767  0 

shutdown 

CAF 

ZERO 

COMMAND  UFTS  OFF 

0165 

16,2177 

0 0006  1 

EXTEND 

0166 

16,2200 

01  005  0 

WRITE 

5 

0167 

16,2201 

0 0006  1 

EXTEND 

0168 

16,2202 

01  006  0 

WRITE 

6 

0169 

REF 

1 

16,2203 

4 2225  1 

CS 

3 G I Mo  3 

TURN  TRIM  GIMBaL  OFF 

0170 

16,2204 

0 0006  1 

EXTEND 

0171 

16',2205 

03  012  1 

WAND 

12 

0172 

ref 

1 

16,2206 

1 2172  0 

rcF 

SETTsADR 

017205 

REF 

1 

16,2207 

3 7750  1 

TESTMASS 

CAF 

MASSfiOOD 

01721 

REF 

30 

LAST 

488 

16.2210 

7 0077  0 

MAS< 

DAP3nOLS 

017215 

16,2211 

0 0006  1 

EXTEND 

01722 

REF 

6 

last 

487 

16,2212 

1 2166  0 

3ZF 

MOREIDLE 

017225 

ref 

2 

LAST 

96 

16,2213 

3 5655  1 

CAF 

PR  I 034 

01723 

REf 

16 

LAST 

375 

16,2214 

0 5505  1 

rc 

NOVAC 

017235 

REF 

6 

LAST 

490 

E6 

EBAN<= 

DT 

0172A 

16,2215 

02713  0 

2BCA0R 

1/ACrS 

C01724 

ref 

1 

16,2216 

54066  0 
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0172A5 

REF 

2_  LAST  A90 

1 2172 

0 

. TCf 

SCTJSADR-  - 

0173 

16,2220 

07A00 

1 

33IM23 

OCTAL 

07AD0 

017A 

16,2221 

26501 

1 

.707P 

OEC 

.7071 1 

square  root  of  1/2 

0175 

REF 

9 LAST  ABB 

E6 

EdAN<= 

DMEGAP 

0176 

16,2222 

02255 

1 

PAXAOIDL 

2CADR 

PAX15 

C0176 

REF 

1 

16,2223 

3A066 

0 

0177 

REF 

2 LAST  AS 8 _ 

, F6 

EaANC= 

-ALP_NaQ---  - -- 

0178 

16,222A 

036A2 

1 

DF2CADR 

ZCADR 

OJMMvFIL 

C0178 

REF 

1 

16,2225 

3A066 

0 

0179 

OCTAL- 

3 -7  -76  6 - 

0180 

16,2227 

00033 

1 

0.00167 

OEC 

0,001 67 

0181 

16,2230 

23712 

1 

0.62170 

OEC 

0,62170 

0182 

16,2231 

257Q5 

1 

_,683ai  , 

OEC„  . 

Q,6H3R7 

0183 

16,2232 

12000 

1 

0,31250 

OEC 

0.31250 

oleA 

16j2233 

. 02215 

0 

DELTADOT 

OEC 

0.07111 

0.-2  DEG/SEC -SCALED  AT  PI/6A 

0186 

16,223A 

116A3 

0 

.5ACCMIN 

OEC 

0.30680 

0187 

16,2235 

00033 

1 

D3MNMP 

OEC 

O.OOi 67 

.3  degrees  SCALED  AT  PI  RADIANS 

R0188 

TORQJ- 

2 AND  jn.EI-oMtLN5 

'ONSlANTS-i  - . 

0189 

16,2236 

00022 

1 

IBOMS 

OEC 

18 

180  MS  WAITLIST  DT. 

0190 

16,2237 

02315 

1 

.075DEC 

OEC 

0.075 

100  MS  JET  PULSE  TORQUE  TERM  wiTH  K s .5 

0191 

REF 

1 

16,22A0 

02A0A 

0 

VISNORMQ 

3ENADR 

CHAVTSFZ 

D.P.  GENADR  FOR  INITIALIZATION  OF  THE 

0192 

REF 

1 

16,22A1 

02106 

1 

3ENADR 

NORMALQ 

TORQUE  VECTOR  RECONSTRUCTION  SWITCHES. 

0193 

16,22A2 

2A000 

1 

10AT16 

OEC 

-0-.625 

INITIAL  VALUE  FOR  WFORP. 

019A 

16,22A3 

15253 

1 

6.6AT16 

OEC 

0.A1667 

INITIAL  VALUE  FOR  WFORQR. 

0195 

REF 

1 

16,22A2 

WFORPOR< 

•QJALS 

10AT16 

D.P,  NAME  FOR  BOTH  CONSTANTS 

0200 

16,22A4 

77001 

0- 

RC-OMDOWN 

OCTAL- 

7-7-001 

-1.4  deg/sE-C  scaled  at 

Pl/4  RAjiANs/sEC. 

0201 

16,22A5 

77555 

1 

OCTAL 

77555 

-0.4  DEG/SEC  scaled  at 

PI/4  RAOlANS/SEC. 

0202 

16,2246 

76447 

1 

RCOMNDJP 

OCTAL 

76447 

-2.0  DEG/SEC  SCALED  AT 

PI/4  RAOIANS/SEC. 

0203 

-1-6^,22-47 

77223 

1 

OCTAL 

77223 

-1.0  DEG/SEC  SCALED  AT 

PI/4  RAOIANS/SEC. 

020A 

16,2250 

77717 

0 

JRGLMDWN 

OEC 

-.00793 

-1.5  SECONDS  SCALED  AT 

2 (*9)  . 

0205 

16,2251 

74777 

0 

OEC 

-.09375 

-1.5  SECONDS  scaled  AT 

2(+4). 

0206 

16,2252 

77767 

1 

JRGLMUP 

OEC 

-0.25  B-g 

-0,25  SECONDS  SCALED  AT 

2(^9). 

0207 

16,2253 

77377 

1 

OEC 

-0.25  B-4 

-0.25  SECONDS  SCALED  AT 

2(,4). 

0208 

16,2254 

76615 

1 

ACCLIMIT 

OEC 

-.03820 

-.06  RADIANS/SEC0NDI2) 

SCALED  at  PI/2. 
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0001  - - _ - - . 16.2Z55_  _ _ _3ANX lb-_-  - - 

0002  ref  7 LAST  A90  E6  £BAN<=  OT 

Rooo3  tHe  Following  tsrupt  entry  begins  the  program  wHicH^aNTsoLSTHE  p-axls  action  of  the  lem_using  the  rcs  jets. 
Rooos  The  nominal  time  between  the  P-AxIS  RUPTS  is  lOO  ms  in  all  NnN-lDLiNG  MOOES  OF  The  dap. 

0007  REF  Ib.2255  3 375A  1 PAXIS  CAF  TW_ENiYJM5._  RESET  TIMER  IMMEDIATELY  DT=  2o  MS 

0008  REF  3 LAST  A90  16,2256  54  030  0 TS  TIMES 

0009  REF  9 LAST  488  , ^ _L6j2Z57  _ Z2  016  0 -XCH  8AN<RUPT  INTERRUPT  LEAD  IN  (CONTINUED) 

0010  16,2260  0 0006  1 EXTEND 

0011  REF  8 last  48A  16,2261  22  012  1 3XCH  DRJPt 


R0012  CHeC<  TO  SEE  IF  DAP  IS  STILL  IN  USE) 

0013  REF  2 last  488 16.7^62  0 2005  0 TC  CHECfULS RETURN  LS_IO_  I + 1 _IF  DAP  SHOULD  STAY  ON. 

Rooi4  while  dap  is  on*  Set  JR  either  a kalman  filter  rJ=t-  or  a dummy  fii ter  Rupt  by  Setting  up  tsadr  from  erasable. 


0016 

0017 

A001705 

REf  2 lAsT 

49O 

16*2263 

16,2264 

0 0006  1 
3 1573  1 

EXTEND 

dca 

pfiCtadR 

tsadr  is  set  to  either  filter  dr 
DUMMYFIl  in  a blind  manner  since 
pfiltadr  is  set  up  elsewhere 

R00171 

START  CODING 

for 

MODULE  3 REMA<E,  AUGUST  1967»*)*StART  CODING  FOR 

MODULE 

3 remake*  august  1 967 »«»»»»»»» 

00172 

REF  1 

16*2265 

1 2406  0 1NSRT16A 

rCF 

PAXIsCNT 

GO  Decrement  counters. 

R001799 

»»END  CODING 

FOR 

MODULE  3 REMAxE.  AUGUST  l967)HH** 

»END  CODING  FOR 

MODULE 

3 REMAkE*  august  1 9 67»»HHHHHm» »»*)*»*»»»» 

ROOI8O2 

KALCMaNU-DaP  and  "RATE' 

-HOLD"-DAP  interface 

R001804 

ROOI8O8 

THE  FDLL0WINC3  stCTION  Is  EXECUTED  EVErY  lOO  Ms  (ID  TIMES 
autopilot  (WHENEVER  HE  DAP  IS  IN  OPERATION). 

, A sfCOND)  within  the  P-AxIs  reaction  CONIrOL  system 

00181 

001812 

REF  S6  LAST 
RE-F  1 

46A 

16,2266 

16,2267 

3 7762  0 

54  066  0 <ALCL00P 

CAF 

TS 

TWD 

DRCNtR 

SET  UP  LOOP  TO  DO  Z,Y,X  CDU  AXES: 

001814 

001816 

001818 

REF  2 LAST 

REp  6 lAST 

492 

478 

16*2'270 

16,2271 

16*2272 

50  066  1 
30  766  0 
0 0006  1 

INDEX 

cAE 

EXTEND 

ORCNtR 

cDjxn 

kalcmanu  and  rate-hold  use  this  SeCTI 
TO  perform  their  independent  function 

BOTH  PROCEDURES  SET  UP  THE  DELCJOiS 

00182 

001822 

001824 

REF  3 LAST 
REF  5 last 
REF  230  LAST 

492 

476 

487 

16*2273 

16.2274 

16.2275 

5 0066  1 
20  771  1 
10  000  0 

INDEX 

MSU 

CCS 

DRCNtR 

DeLCDUX 

A 

TO  HAVE  THE  NEGATIVE  VALUE  OF  THE 
DESIRED  CDU  CHANGE  FOR  EACH  100  MS  CS 
DURING  THE  MANEUVER  (OR  MODE).  EACH 

001826 

001828 

00183 

ref  121  LAST 

47I 

16,2276 

16*2277 

16*2300 

6 7763  1 
1 2301  0 
4 0000  0 

AD 

ICF 

OOM 

ONE 
+ 2 

STORED  AT  PI  RADIANS  IN  2'S  COM^LEMEN 
SINCE  THE  MODULAR  SUBTRACT  YIELSS  THE 
NEW  COUD  value  IN  I'S  COMPlEMENT*  THE 

001832 

001834 

REF  4 LAST 

REF  7 LAST 

492 

492 

16.2301 

16.2302 

50  066  1 
54  766  1 

INDEX 

IS 

orcntr 

cdjxd 

CCS  SECTION  IS  NEEDED  FOR  I'S  H 2'S 

conversion  of  desired  CDU  angles. 

001836 

REF  5 last 

492 

16,2303 

10  066  0 

CCS 

ORCNTR 

(THIS  makes  the  loop  DO  ALL  THREE 
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001838  rEP  I - - ^ XbjZiQ^k  ^1.  Z2M7  J. I-C£ CA.IXLQQP  _ AXES.  A s QrCIyTR.  DO  NEXT  DELCyU. 

R0019  DO  P 4XIS  RATE  D^RIVilTlON  AND  CONTROL  LAW. 

R0020  DERWE  DELTA  P. 


0021 

REP 

164  LAST 

49O 

16,2305 

3 7767  0 

CA 

ZERO 

0022 

REP 

58  LAST 

365 

16,2306 

54  061  1 

TS 

ITEMPl 

0023 

REF 

3 LAST 

488 

16,2307 

3JJ611  0 

CAE 

TP  _ _ 

002A 

REF 

1 

16,2310 

6 3566  1 

AD 

NE0C5PI 

0025 

16,2311 

0 0006  1 

EXTEND 

0026 

REF 

1 

16,2312 

6 _23l6  1- 

3ZMF 

qotorque 

0027 

REF 

59  LAST 

493 

16,2313 

54  061  1 

IS 

ITEMPl 

0028 

REF 

1 

16,2314 

3 3603  1 

CA 

CSPATIP 

0029 

REF 

U 

16,2315 

1 2324  1 

JCf 

scalfdtp 

0030 

REF 

4 LAST 

493 

16,2316 

3 1611  0 

OOTORQJE 

CA 

TP 

0031 

16,2317 

0 0006  1 

EXTEND 

0032 

REF 

24  LAST 

487 

16,2320 

7 7757  1 

MP 

BITS--  - - - - 

0033 

ref 

38  LAST 

46t> 

16,2321 

30  001  0 

CAE 

L 

0034 

. 16,2322 

0 0006  1 

EXTEND 

0035 

REF 

16.2323 

7 3571  0 

MP 

16/?5 

0036 

REF 

5 LAST 

493 

16,2324 

55*611  1 

scaledtp 

IS 

TP 

0037 

16,2325 

0 0006  1 

EXTEND 

0038 

REF 

5 LAST 

489 

16,2326 

7 1640  0 

MP 

WFORP 

0039 

REF 

1 

16,2327 

6 1643  1 

AD 

(1-0/8 

OO4O 

16,2330 

0 0006  1 

EXTEND 

0041 

REF 

6 LAST 

493 

_16t2331 

7 1611  1 

MP 

TR 

0042 

16,2332 

0 0006  1 

EXTEND 

0043 

ref 

30  LAST 

487 

16,2333 

7 7760  0 

MP 

31T4 

0044 

REF 

5 LAST 

5A 

16,2334 

3 1613  1 

CA 

IJACr 

0045 

16,2335 

0 0006  1 

EXTEND 

0046 

ref 

39  LAST 

493 

16,2336 

7 0001  1 

MP 

L 

0047 

16,2337 

0 0006  1 

EXTEND 

0048 

ref 

1 

16,2340 

7 1657  0 

MP 

NO.P.IETS 

0049 

ref 

3 LAST 

53 

16,2341 

23*604  1 

uXCH 

JETRATE 

OO5O 

ref 

60  LAST 

493 

16,2342 

3 0061;  0 

CA 

0051 

REf 

7 last 

493 

16,2343 

55*611  1 

TS 

TP 

0052 

ref 

28  LAST 

489 

16,2344 

30  032  0 

CAE 

CDJX 

0053 

REF 

90  LAST 

493 

16,2345 

54  001  1 

rs 

L 

0054 

16,2346 

0 0006  1 

EXTEND 

0055 

REF 

5 LAST 

489 

16,2347 

21*425  1 

MSU 

OLOXfORP  scaled  AT 

PI 

0056 

REF 

6 LAST 

493 

16*2350 

23*425  0 

_XCH 

OLDXFORP 

0057 

16,2351 

22  007  0 

ll 

0058 

REF 

1 

16,2352 

52  063  0 

3XCH 

DE.LTAP 

00591 

REF 

8 LAST 

474 

16,2353 

3 7753  1 

CAF 

BIT9 

00592 

REF 

139  LAST 

486 

16,2354 

54  002  1 

TS 

Q 

0060 

REF 

16  LAST 

489 

16,2355 

3 0033  1 

CA 

CQ.JY 

0051 

REF 

91  LAST 

493 

16,2356 

54  001  1 

IS 

L 

0062 

16,2357 

0 0006  1 

EXTEND 

0063 

REF 

1 _ _ 

16,2360 

21*426  1 

MSJ 

OUDYfORP  scaled  at 

PI  _ 

0064 

ref 

2 LAST 

493 

16*2361 

23*426  0 

_XCH 

OLDYFORP 
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0066 

0067 

0067A 

REP 

REP 

13 

2 

LAST 

LAST 

136 

A93 

16,2363 

16,236A 

16,2365 

7 lAOA 
20  063 
0 0006 

1 

0 

_L_ 

MP 

DAS 

extend 

Mil 

deltap 

Mil  SCALED  AT  1 

00675 

REP 

3 

LAST 

A9A 

16,2366 

3 0063 

1 

DCA 

OELTaP 

0068 

16,2367 

0 0006 

1 

EXTEND 

0069 

UJ 

or 

no 

LAST 

A 93 

16,2370 

__i0_002 

1 

DV 

3 _ _ _ 

NOW  scaled  at  PI/6A 

0071 

16,2371 

0 0006 

1 

EXTEND 

0072 

REP 

6 

LAST 

A93 

16,2372 

7 16A0 

0 

MP 

WFDRP 

scaled  at  2(A)=16,  RESULT  IN  A AT  PI/A. 

0073 

REP 

10 

LAST 

A9l 

16,2373 

57»A15 

0 

XCH 

DME3AP 

W^DELTAP  IN  OMEUAP  LOC,  OLD  0ME3AP  IN  A. 

OO7A 

16,237A 

0 0006 

1 

EXTEND 

0075 

REp 

A 

LAsT 

A88 

16,2375 

7 16A2 

1 

MP 

(l-<i) 

scaled  at  1 

0076 

REP 

A 

LAST 

A93 

16,2376 

6 16J3A 

1 

AD 

JET.34TE 

RATE  DUE  TO  JETS  T0RQUIN3. 

0077 

REF 

11 

last 

A9A 

16,2377 

27'A15 

1 

ADS 

DMEoAP 

PRATE=  WF0RP»DeLTAP*ALPHA*LAST-3RATE*TPF 

0078 

REP 

3 

LAST 

A89 

16,2a00 

0 1652 

1 

PAXFILT 

TC 

PJJMPADR 

0079 

REp 

2 

last 

A89 

_L6,2AQ1 

3 22A0 

0 

SAiIPPAXS 

:af 

1/LSNnRMQ 

0080 

REF 

A 

LAST 

A9A 

16,2A02 

55'652 

0 

rs 

PJJMPADR 

0081 

REF 

20 

LAST 

A90 

16,2a03 

1 5733 

1 

TCP 

RESJmE 

0082 

REF 

2 LAST  A8A 

16,2A0A 

0 6013 

0 

chkvisfz 

TC 

T6J0RCHK 

CHECK  FOR  T6  RUPT. 

0083 

ref 

1 

L6*2a05 

1 2777 

0 

ICF 

. PJR3PNCY 

NO  RHC  INPUTS  ON  20ft 

R00835 

START 

CODING  FOR 

MODULE  3 REMAXe,  AUGUST 

l967*)ntSTART 

COOING  FOR  MODULE 

3 REMAKE,  AUGUST  1967»inHHHm**»HHt)HHHi»»K 

R00837 

FROM 

3rAXI5- 

R00838 

1. 

COUNT  down 

GIM3AL  DRIVE 

TIMES. 

R00B39 

2.  END  DRIVES 

when,  APPROPRIATF. 

R008395 

3, 

COUNT  DOWN 

time  For  forced  gts 

JUST  before 

throttle-jp; 

ooba 

REF 

7 LAST  A?0 

1612A.06 

53*001 

0 

paxiscnt 

DXCH 

TSADp 

(PRFSFRVP  old  CODING) 

OObAI 

REF 

1 

16,2a07 

11*76A 

1 

CCS 

SIMPCNTR 

COUNT  DOWN  SIMPCNTR  TO  +0.  DECiSeCONOS 

008A2 

REF 

2 last  A9A 

16,2a10 

55'76A 

1 

TS 

SIMPPNTR 

0085 

REF 

3 last  366 

16,2A11 

11'753 

0 

CCS 

OGIMtIMR 

Q-AXIS  GIMBAL  DRIVE  TIMER- 

0086 

REF 

1 

16,2A12 

1 2A27 

0 

TCF 

DECOtIMR 

POSITIVE-  COUNTING  DOWN 

0087 

REp 

1 

16,2a13 

1 2A33 

0 

TCF 

Tjrnopfq 

POS  ZERO-  DRIVE  SHOULD  BE  ENDED 

0088 

REF 

3 LAST  366 

16,2A1A 

11*75A 

1 

CHKRTIMR 

CCS 

RGIMTIMR 

negative-  inactive 

0089 

REF 

16,2A15 

X 2A31 

1 

TCF 

OECRTIMR 

NEG  ZERO-  IMPOSSIBLE 

OO9O 

REF 

1 

1 6 1 241 6 

1 2AA3 

1 

TCF 

TURNOFFR 

REPEATED  FOR  R-AXIS  (ABOVE). 

0091 

REF 

1 

16,2A17 

11 '7AA 

0 

CXTRMCTR 

CCS 

TRIMCNTR 

COUNT  DOWN  FOR  FORCED  GTS  ENTRY- 

0092 

16,2A20 

1 2A2A 

0 

TCF 

♦ 4 

POSITIVE-  COUNTING  DOwN 

0093 

REF 

lA  LAST  A88 

16,2a21 

0 A736 

1 

TC 

CCSHnLE 

POS  ZERO-  IMPOSSIBLE 

OO9A 

REF 

1 

16,2A22 

1 2566 

1 

TCF 

CHXSMART 

NEGATIVE-  INACTIVE-  RETURN 

0095 

REF 

2 LAST  A9A 

16,2A23 

1 2566 

1 

TCF 

CHXSMART 

NEG  ZERO-  THIS  VALUE  UNTIL  DRIVE  DONE. 

0096 

ref 

3 LAST  A7T 

16,2A2A 

3 7771 

1 

CAF 

NE30NE 

0097 

REF 

2 last  A9A 

16.2A25 

27'7AA 

0 

ADS 

TRIMCNTR 

COUNT  TRIMCNTR  DOWN  TO  NEG  ZERO*. 

0098 

REF 

3 last  a9A 

1 6 » 2426 

1 2566 

1 

TCF 

chxsmart 
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0099 

REF 

4 

LAST-  A-9A 

L6,2A27 

55*  753 

-0 

- DiCUJXMR  rs  

OGl MtIMR- 

CO.UNJ  Q&1MII.MR-  -U0WFI  . TO  P05  ZERO. 

0100 

REF 

1 

16.2A30 

1 2A1A 

0 

rcF 

CHARtIMR 

0101 

REF 

LAST  A9A 

16.2A31 

55'75A 

1 

DECRTIMR  rS 

rgimtimr 

COUNT  RGIMTIMR  DOWN  TO  POS  ZERO. 

0102 

REF 

1 

- 1-6  » 2 A3  2 

1 2Al7 

0 

rcF_  _ 

CA-TRmCTR 

0103 

REF 

2 

LAST  52 

16.2A33 

55*523 

0 

TJRNOFFa  IS 

neoJq 

REWRITE  GIMbAL-DRIvE  bITS  TO  HA.T 

Q. 

01035 

REF 

1 

1 6j  2 A3  a 

- 55*533 

1 

rs  - - 

OA-CCD-DI--- 

OlOA 

REF 

1 

16«2a35 

A 2A53 

0 

:s 

ogimrits 

0105 

16.2A36 

0 0006 

1 

extend 

0106 

16.2A37 

03  012 

_1_ 

•/AND 

_L2_ _ 

01065 

ref 

3 

LAST  A6A 

16.2AA0 

3 77A5 

0 

CAF 

NEGMAX 

■ 0107 

REF 

5 

LAST  A9S 

16,2AA1 

55*753 

0 

TS 

OGIMTIMR 

DEACITIVATE  TIMER. 

0108 

REF 

2 

LAST  A95_ 

- . L6j3AA2 

1 2A1A 

0- 

rcF 

CHARtIMR 

0109 

ref 

1 

16.2AA3 

55*525 

0 

tjrnoffr  rs 

NEGJR 

REWRITE  GIMBAl  DRIVE  SITS  TO  HA  T 

R. 

01095 

REF 

1 

16,2aAA 

55*535 

1 

TS 

RACCDOT 

0110 

REF 

1 

A6.2AA5 

A 2A5A 

1 

:s  -... 

RQIMrITS 

0111 

16.2AA6 

0 0006 

1 

EXTEND 

0112 

16.2AA7 

03  012 

1 

WAND 

12 

01125 

REF 

LAST  A9.S 

_ -L6-.2-A50- 

3 77A5 

-0- 

--  - - -CAF '^E-SMaX  - 

0113 

REF 

5 

LAST  A9S 

16.2A51 

55*75A 

1 

rs 

rgimtimr 

deactivate  timer. 

OllA 

REF 

2 

LAST  A95 

16»2A52 

1 2Al7 

0 

rcF 

CxTRmCTR 

011A02 

- 16.2A53 

OlAOO 

1 

33IMBI-TS  octal 

OlAOO 

OllAOA 

16»2^54 

06000 

1 

RoIMBirS  octal 

O60OO 

ROllAl 

FROM 

StARTDAP.  RE.STA^ir  protect  the  channel  11  ENGINF-ON 

BlI  AND  the  channel  12  GIMBAL-URIVE  BITS. 

0115 

REF 

2 

LAST  A93 

16.2A55 

55*6A3 

0 

PR0TCT3R  rS 

(1-0/8 

(OLD  CODING) 

0116- 

REF 

16 

LAST  ABl 

1 6 1 2^56 

30  075 

0 

CAE 

FLAjWRDI 

0117 

ref 

3 

last  abi 

16.2A57 

7 7757 

1 

MAS< 

ENGInBIT 

0118 

16.2A60 

0 0006 

1 

EXTEND 

0119 

REF 

1 

16.2A61 

1 2102 

1 

3ZF 

INSRT16B 

♦1  RETURN  TO  STARTDAP  IF  ENGINE  SHOULD  BE 

A0120 

OFF. 

0121 

REF 

19 

LAST  ABO 

16.2A62 

3 77A7 

1 

CAF 

3IT13 

OTHERWISE- 

0122 

16.2A63 

0 0006 

1 

EXTEND 

0123 

16»2464' 

05  Oil 

1 

WOR 

11 

RESET  ENGINE-ON  BIT. 

012A 

REF 

6 

LAST- A_95- 

16,2A65 

A 1753 

0 

CS 

OGl MtIMR 

0125 

1 6 f 2466 

0 0006 

1 

EXTEND 

0126 

16.2A67 

6 2A72 

1 

3ZMF 

♦ 3 

BRANCH  IF  O-DRIVE  TIMER  ACTIVE. 

0127 

REF 

155 

last  A93 

16.2A70 

3 7767 

0 

CAF 

ZERO' 

OTHERWISE  ZERO  NEGUQ. 

0128 

REF 

3 

LAST  A9S 

16,2a71 

55*523 

0 

rs 

NEGJfY 

0129 

REF 

6 

LAST  A95 

l6t2A72 

A 175A 

1 

cs 

rgimtimr 

REPEAT  FOR  R-DRIVE. 

0130 

16.2A73 

0 nn06 

1 

FxTENn 

0131 

16.2A7A 

6 2A77 

1 

3ZMF 

♦ 3 

0132 

REF 

156 

LAST  A9S 

16.2A75 

3 7767 

0 

CAF 

ZERO 

01321 

REF_ 

2 

LAST  A95 

16.2A76 

55*525  0 

TS 

NEGJb 

01322 

REF 

17 

LAST  a88 

16»2a77 

0 5270 

1 

rc 

IBNCrALL 

SET  UP  DRIVES  ACCORDING  TO  NEGJS. 

01323 

REf 

1 

16,2500 

A32A3 

0 

rcAOR 

WRCHN12 

0132A 

REF 

2 

LAST  A95 

16,2501 

-1  2102 

-1 

- -LCF 

INSRT16B 

*1  RETURN  TO  OLD  CODING. 
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0133 

REF 

3 

LAST 

475 

16.2502. 

3- 

113  b 

L 

N3DAPN3 

rAF 

-J-LLA&EJi. . 

0134 

REF 

31 

LAST 

49O 

16,2503 

7 

0077 

0 

MAS< 

DAP3nOLS 

0135 

16.2504 

0 

0006 

1 

EXTEND 

0136 

ref 

1 

. 16,2505 

1 

2521 

1 

3Z.F 

2LR0F1VE 

0137 

REF 

4 

LAST 

452 

16,2506 

4 

0764 

0 

:s 

PHASENUM 

ULLAGE  bit 

IS  SET, PROTECT 

MP7  COMMAND 

0138 

■REF 

10 

LAST 

44A 

16,2507 

6 

7765 

1 

AD 

SEVEN 

0133- 

16.2510 

0 

0006 

_1_ 

-XTEND 

0140 

REF 

1 

16,2511 

1 

2513 

0 

3ZF 

PROTCT+X 

0141 

REF 

1 

16,2512 

1 

2516 

0 

TCF 

LEAVASIS 

THIS  IS  NOT 

MP7,  this  is 

NOT  C3.D  PURGE. 

0142 

REF 

1 

_ _16,2513 

3 

2523 

1 

PROTCT.X 

:af 

♦XJETS 

0143 

16,2514 

0 

0006 

1 

T/^INEXIT 

EXTEND 

0144 

16,2515 

01 

005 

0 

/YRITE 

5 

0145 

0146 

0147 

REF  1 

REF  4 

REF  21 

last 

LAST 

492 

494 

16.2516 

16.2517 
_ 16,2520 

3 3567 
54  030 
1 5733 

0 

0 

1 

LEAVASIS 

CAF 

rs 

TCF 

MS3DP 

times 

RESUME 

0149 

0150 

REF  167 
REF  1 

LAST 

495 

16.2521 

16.2522 

3 7767 
1 2514 

0 

1 

ZEROFIVE 

CAF 
TCF  _ 

Zero 

TriLNEXIT- 

0152 

16,2523 

00252 

1 

♦XJETS 

OCT 

00252 

0163 

0164 

0165 

REF 

8E.F^ 

13 

.2LL 

LAST 

LAST 

311 

492 

16.2524 

16.2525 

16.2526 

0 0006  1 
02  Oil  0 
10  000  0 

ADDLT5ID 

EXTEND 

RAND 

CCS 

DSALMOUT 

A 

(ARRIVE  WITH  bIT  11  IN  A,  FROM  T5IDLERI) 

0166 

REF 

1 

16,2527 

1 2544  1 

TCF 

M0RET5ID 

SMARTJOB  IS  ALREADY  RUNNING.  NO  ACTION. 

0167-.- 

REF 

3 

LAST 

295 

16.2530 

-U_*355  .-1  . 

CCS 

SMODE^ 

NOT  RUNNING.  SEE  IF  SELFCHECX  WANTEDj^ 

0168  ■ 

ref 

2 

last 

496 

16,2531 

1 2544  1 

TCF 

M0RFT5ID 

SELFcHECK  is  on,  so  DON'T  RuN  SMARTJOB. 

0169 

REF 

1 

16,2532 

1 2535  1 

TCF 

GETSMART 

selfcheck  is  off,  SO  START  SMARtJOB, 

0170 

REF 

3 

LAST 

496 

16.2533 

_l_25A4  1 

rCF 

M0RET5ID 

Selfcheck  is  on,  so  don't  run  smarljob. 

OI7O5 

REF 

4 

last 

496 

16.2534 

1 2544  1 

TCF 

MORET5ID 

selfcheck  is  on,  so  DON'T  RUN  SMARTJOB. 

017J  - - 

REF 

a 

16,2535 

3 7752^ il 

GE7SMART 

CAF 

PR-IOL 

0172 

REF 

17 

LAST 

49O 

16,2536 

0 5505  1 

TC 

NOVAE 

0173 

REF 

1 

EO 

EBAN<= 

SMARTFLG 

017A 

16,2537 

02551  1 

2CADR 

SMARTJOB 

C017A 

REF 

1 

16,2540 

34060  0 

0175 

REF 

24 

last 

47A 

16,2541 

3 7751  0 

CAF 

BITll 

SET  THE  SMARTJOB-RUNNING  FLAG. 

0176 

16,2542 

0 0006  1 

EXTEND 

0177 

REF 

14 

LAST 

496 

16,2543 

05  Oil  1 

NOR 

DSACmOUT 

0178 

REF 

4 

LAST 

487 

16,2544 

3 7751  0 

M3RET5ID 

_CAF 

GODAPGO 

0179 

REF 

32 

LAST 

496 

16,2545 

7 0077  0 

MAS< 

OAP3nOLS 

0180 

16,2546 

0 0006  1 

EXTEND 

NODAPNO  WILL  STOP  COLD  FIRE  PUR3E  AND 

0181 

REF 

1 

16,2547 

1 2502  0 

3ZF 

NODApNO 

RESTART-PROTECT  MP  7 +X  TRANSLATION. 

0182  REF  1 


16.2550  1 2042  1 


TCF 


OAPIDLEI 


GODAPGO  IS  ON.  SO  RUN  DAPIOLER  NOa/ 
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R0183  smart  job  is  A DUMMYJ^DB-^L.IXe  function  DEiU^EC-T-a-  aBSO.RB_XU_Le  _t1Mf.  it  causes.  THe  computer-activity  LA'1?  to 
R0185  remain  on,  and  PREVENTS  THE  EXISTENCE  OF  A JOB  SLEEPING  IN  TME  LOWEST  NUMBeReD  CORE  SET.  IT  IS  PREVENTED  FROM 

R0187  starting,  OR  MADE  TO  TERMINATE  IF  ALREADY  RUNNING,  BY  MAXING  SMARtFLG  CONTAIN  ANY  NEGATIVE  VALUE  OR  ZERO,  OR 

R01B9  BY  MACiING  _SMODE  (THE  SELFCHECX  CONTROL  RE51ST£R)l- JNEOJAL  10  *0. 


0190 

REF 

7 

last 

AA2 

16,2551 

10  067 

1 

SMARTJDB 

CCS 

NEWJnB 

ANY  higher  priority  JOB  WAITING? 

0191 

REF 

6 

LAST 

AA2  ...  . 

li>,2552 

0 .553.2 

0 

TC 

CHANGl  .-  - - 

...YES.  - GO  DO  IT. 

0192 

REF 

2 

LAST 

496 

16,2553 

3 0377 

1 

CA 

SMARtFLG 

NO.  SHOULD  SMARTJOB  TERMINATE? 

0193 

16.2554 

0 0006 

EXTEND 

01?A 

ref 

1 

16,2555 

6 2562 

1 

3ZMF 

STDPSMRT 

yes.  go  kill  it. 

0195 

REF 

LAST 

A96_  _ . . 

16,2556 

1L*355 

1 

CCS 

SM.DDF  . . 

MAYBE  not.,  see  IF  SELFCHECK  WANTED. 

0196 

REF 

2 

last 

497 

16*2557 

1 2562 

0 

TCF 

StDPSMRT 

wanted.  terminate  SMARTJOB. 

0197 

ref 

2 

last 

496 

16*2560 

1 2551 

0 

TCF 

smartjob 

NOT  wanted,  continue  SmARTJOB. 

01975 

16*2561 

1 2562 

0 

NDQP 

WAN^TED.  TERMINATE  SMARTJOB. 

0198 

REF 

25 

LAST 

496 

16,2562 

4 7751 

1 

STOPSMRT 

cs 

BlTll 

TERMINATE  SMARTJOB. 

0199 

16,2563 

0 0006 

1 

EXTEND 

first,  TURN  THE  SMART JOB-RUNN I N 5 FLAG 

0200 

REF 

15 

LAST 

496 

C6,256-4 

03  Oil 

1 

WAND.  -. 

OSALmQUT 

OFF.  . 

0201 

REF 

58 

LAST 

46A 

16,2565 

1 5567 

1 

TCF 

ENDDFJOB 

THEN  KILL  JOB. 

.02011 

REF 

3 

LAST 

497 

16,2566 

3 0377 

1 

CHKSMART 

CA 

SMARTFLG 

IS  SMARTJOB  DESIRED? 

02011A 

16,2567 

0 0006 

1 

EXTEND 

020118 

REF 

1 

16,2570 

6 2266 

1 

3.ZMF  . 

INSRrl6A.+l 

NO.  TAKE  NO  ACTION, 

020122 

REF 

26 

LAST 

497 

16,2571 

3 7751 

0 

CAF 

BITll 

YES,  SEE  IF  II  IS  ALREADY  RUNNING, 

020126 

16,2572 

0 0006 

1 

extend 

02013 

ref 

16 

LAST 

497 

16,2573 

02  Oil 

0 

RAND 

OSALMOUT 

02013A 

REF 

232 

LAST 

496 

16,2574 

10  000 

0 

CCS 

A 

020138 

REF 

2 

LAST 

497 

16;2575 

1 2266 

0 

TCF 

1NSRT16A  +1 

SMARTJOB  IS  ALREADY  RUNNING.  No  ACTION^. 

0201A2 

REF 

5 

LAST 

497 

16,2576 

11 '355 

1 

CCS 

SMDDF 

NOT  RUNNING.  SEE  IF  SELFCHECK  WANTED. 

0201A6 

ref 

3 

last 

497 

16,2577 

1 2266 

0 

TCF 

INSRT16A  +1 

SElFcHEcK  is  on,  so  DON'T  RUN  SMARTJOB. 

02015 

REF 

1 

16,2600 

1 2603 

1 

TCF 

SETSMART 

SELFCHECK  IS  OFF,  SO  START  SMARtJDB, 

02015A 

REF 

LAST 

497 

16,2601 

1 2266 

0 

TCF 

INSRT16A  +1 

selfcheck  is  on,  SO  DON'T  RUN  SMARTJOB. 

020158 

ref 

5 

LAST 

497 

16*2602 

1 2266 

0 

TCF 

1NSRT16A  +1 

DITTO. 

020162 

REF 

2 

LAST 

496 

16,2603 

3 7752 

0 

SETSMART 

CAF 

PRIDi 

020166 

REF 

18 

LAST 

496 

1 6 * 2fa0^ 

0 5505 

1 

TC 

NOVAC 

02017 

REF 

A 

LAST 

497 

EO 

ebank= 

SMARtFLG 

02017A 

16,2605 

02551 

1 

2CADR 

SMARTJOB 

C02017A 

REP. 

3 

EASTLjAIT 

16  « 2606 

. 34060  0 

020178 

REF 

27 

LAST 

497 

16,2607 

3 7751 

0 

CAF 

BITll 

SET  THE  SMARTJOB-RUNNING  FLAG, 

020182 

16,2610 

0 0006 

1 

EXTEND 

020186 

REF 

17 

LA5.I 

497 

16,2611 

05  on 

1 

NOR 

OSALMOUT 

02019 

REF 

6 

last 

497 

16,2612 

1 2266 

0 

TCF 

INSRT16A  +1 

RETURN  TO  PAXIS. 

R0202  ""end  coding  for  MOOJct  3 REMAXe,  august  l967*»*»  END  CODING  FOR  MODULE  3 REMAKE*  AUGUST  1 967**»**»»*» »»» »*»»»** 
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R020A 

THE 

F 3LL0W I WG  COO_LNG.  J i_LEF T 

PLACE  TO_?liCS£RVE  ADDiJFSSFS..  _ 

02AO 

16,2613 

0 0006 

1 

EXTEND 

02A1 

REF 

18 

LAST  47A 

16,2614 

7 7761 

1 

. MP  _ . 

31T3 

ENOUGH  FOR  4 JETS 

02a2 

REF 

92 

LAST  493 

16,2615 

30  001 

0 

CAE 

L 

02a3  , 

i 6 f 26 1 6 

0 0006 

1 

EXTEND 

02AA 

REF 

1 

_16,2617 

7 3576 

1 

MP_  _ 

,^25733 

A CONTAINS  IJEL  SCALED  At. ZEXP ( 4 ) ( L6x25) 

0245 

ref 

8 

LAST  493 

16,2620 

55'6ll 

1 

TS 

TP 

0246 

REF 

1 

16,2621 

55*475 

1 

rs 

TOFJtCHG 

0247 

REF 

1 

16,2622 

31*462 

0 

CAE 

PRATEDIF 

TEST  WHETHER  2 OR  4 JETS  TO  bE  JSED  bV 

■ 0248 

REF 

4 

LAST  48V 

16,2623 

6 1500 

0 

AD 

-2JETLIM 

comparing  delta  rate  with  2 JET  LIMIT 

0249_^ 

16,2624 

0 0006 

_1 

_£X1£.ND_ 

0250 

16,2625 

6 2631 

1 

3ZMF 

+ 4 

IF  Negative,  2 jets  are  enough 

0251 

REF 

23 

last  484 

_ _l6_»_2626 

_,3,  7743 

0 

. . ;af 

POSMaX 

POSITIVE,  non-zero,  put  POSMAX  IN  NJET 

0252 

, ref 

1 

16,2627 

55*461 

1 

TS 

NJET 

0253 

REF 

1 

16,2630 

1 2642 

1 

rCF 

PJETSLEC 

AND  GO  select  GOOD  POLICY 

0254 

REF 

5 

LAST  495 

16,2631 

3 77A5 

0 

CAF 

NEGMAX 

2 JETS,  PUT  NEGMAX  IN  NJET, 

0255 

REf 

2 

last  498 

16,2632 

55*461 

1 

rs 

NjET 

0256 

REF 

9 

LAST  498 

16,2633 

31*611 

.0 

CAE 

TP 

DOUBLE  TP, 

0257 

16,2634 

6 0000 

1 

30JBLE 

0258 

REF 

10 

LAST  498 

16,2635 

55*611 

1 

IS 

TP 

AND  GO  CHECK  MINIMUM  IMPULSE 

R0259 

R0260 

chec<,  rate  command 

ON  time  against  minimum. 

Impul^ 

0261 

REF 

2 

LAST  A98 

16,2636 

55*475 

1 

IS 

TOFJTCHG 

0262 

ref 

1 

16,2637 

6 3577 

1 

AD 

-1 JMINT6 

0263 

16,2640 

0 0006 

1 

EXTEND 

AS  TP.  TEST  JET  TIME,  IS  IT  GREATER  OR 

026A 

REF 

1 

16,2641 

6 2772 

1 

3ZMF 

JETSOFF 

LESS  THAN  A MINIMUM  IMPULSE 
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L 

P0266 

RQ26T 

R0268 


R0270 

R0271 

R0273 

R0275 

R0277 

R0278 

Ro279 

R0280 

R0281 

R0282 

R0283 

Ro28A 

R0285 

R02855 

R0287 

R0289 

R0291 

R0292 

R029A 

R0296 

R0297 

R0299 

R0301 

R0303 

R03035 

R030A3 

R0305 

R03055 

R03063 

R0306S 

R03072 

Ro3076 


P-AXIS  reaction  control  system  autopilot  USER'S  Own  page  no,  8 S3  E6 

PROGRAM  name:  PJETSLe;: 0A.T£lj2EX£MaE,R  9,^19A6^  . - - 

modification. 2 TO  SUNSURSt  revision  58  ON  DECEMBER  30*  1966  RY  JOHN  BLI5S(ADAMS  ASSOCIATE^)  RM  7-286*  Xi83 
LOG  SECTION;  P-AXiS  REACTION  CONTROL  SYSTEM  AUTOPILOT  — F1R<;t  PUt  INTO  SUNBURST  ( 1 1 1 ) REVISION  29 


functional  description: 


THE  object  of  PJ£TSLeC  IS  TO  CHOOSE  TME  BeST  JET  POLICY  WHOSE  NECESSARY  JeTS  HAVE  NOT  BEEN  ReCORDeO  AS 

faileo  in  the  ch^maso  register,  the  conditions  on.  Selection  are  the  number  of  jets  reouesteD(2  or  4),  the 

sense  of  P-AXIS  rotation  RfQUIRfOI,/-) , AND  ALTERNATING  JSE.nF  DIAGONAL  FoRCe-COUPLeD.  PAIRS  OF  JETS. 

pjetslec  first  Reads  channel  6 to  see  if  tHe  Jets  are  cjrrently  firing,  if  they  are  off,  the  diagonal  jets 

are  Switched  to  comply  yUjh  the  alternation  condition,  as  thfRe  is  no  danger  of  switching  one  off  and  the  other 

on  in  rapid  succession,  after  switching  the  diagonals,  or  if  the  Jets  are  on,  6.5  ms  is  added  to  the  J^t 
FIRING'  time,  TOFjtCHG',  TO  ALLOW  FoR  DELAY  IN  TJRNING  ON  THE  JETS  OR  IN  CASE  THe  CURRENT  POLICY  HAS  SUFF-ReD  A 
JET  failure  and  MUST  3f  rfPlacfd,  howeVeR,  iR  THe  same  jet  policy_ts  seLeCted,  the  fact  will  Be  detlCt-d  Before 
tHe  Policy  is  written  into  channel  tHe  unnecessary  6,sms  delay  time  will  be  deducted  from  tofjtchg.  the  time 
OF  calculation,  5MS,  IS  SUBTRACTED  AT  THE  SAME  TIME  IN  THE  CoMBINfD  CONSTANT,  -COM-6.5  = -11.5MS.  NOTE  THAT  IN 

case  jet  Failure  requires  selection  of  a new  policy,  toFjtchg  is  not  modified  by  _5Ms,  and  so  there  will  be  an 
overshoot  of  5MS  OF  JET  FIRING. 

NEXT,  THe_SENSe  3F  p_^xis  RotATION(ROLL)  IS.TESTED,  TO  OeTERMJNE  WHICH  Set  of  jet  policies  must  be  indexed, 

IF  THE  P-AxIS  IS  ♦,  ReL  = 7,  IF  -,  REl  f 0,.  NjET  IS  TESTED  NEXT;  IF  POSMAx,  A JETS  DESIRED,  ReL  f ReL  ♦ 6, 

CTR  F 6,  IF  NEGMAX,  2 JETS  DESIRED,  ReL  = REL  + 5,  CTR  = 5.  IF  A JETS  DESIRED,  GO  TO  POLICY  TESTING  LOOP 

WITHOUT  TESTING  TO  SEE  WHICH  DIAGONAL  PAIR  IS  PRE-ERRED  THIS  TIME. 

IF  2 J_£TS„_AR£_DeSIReD,  SEE  WHeIHeR  NO.  2 PAIR  IS  PReFeRRitD.  IF  IT  IS,  TeST  IT  FIRST  AND  USE  IT  IF  IT'S  OX. 
IF  IT  HAS  failed,  GO  TO  THE  TeSI  LOOP  TO  TeST  THe  POLICIES  In  ORDfR.  IF  NO.  l POLICY  IS  PREFERRED,  GO  OIRECTLY 
TO  THE  TEST  LOOP. 


the  test  LOOP  USES  REL  TO  PICK  UP  THE  NeXT  PO.ICY  IN  PPOLTABL  AND  CtR  TO  KEEP  TRACK  OF  THe  NUMBeR  Of 
P0LICIES(1-7)  tested.  when  a GOOD  POLICY  IS  FOUND,  IT  IS  WRITTEN  INTO  CHANNEL  6,  OTHERWISE  THE  NEXT  PO.ICY  IS 
TRIED.  IF  NO  good  POLICIES  ARE  FOUND,  CONTROL  GOe.S  TO  A30RTJET  TO  TURN  OFF. THE  JeTS  AND  THE  DAP, 

WHEN  A GOOD  POLICY  IS  FOUND,  CONTROL  TRANSFERS  TO  WRITEPOL.  THERE,  THE  SELECTED  POLICY  IS  COMPARED  TO  THE 

current  policy  In  channel  6.  IF  they  are  not  The  same,  eithfR  thf  jets  have  not  been  on,  or  a jet  failed  in  The 
current  policy,  in  either  case,  tofjtchg  has  already  been  increased  by  the  6.5MS  JET  FIRE  delay,  as  Described 
above,  however,  the  E-FECt  of  the  old  policy  firing  during  the  computation  is  not  taken  into  ACCOUNT,  THIS  IS 
considered  safer,  since  OtHeRwISf.  a tofjtchg  ALRfADY  calculated  NFAR  the  MIN1MUJ1_LMPULSe  time  might  Be  RfDUCfD 
TO  less  than  IAMS  and  the  result  would  be  the  exp.osioin  of  the  jets. 

IF  the  jet  P0LIC_Y_1S_  TFtE  SAME  AS  JHE  LAST  ONE,  THE  6._SMS„DELAY  TJME  IS  DEDUCTED  FROM  TOFJTCHG,  AND  IN  ANY 
case.  The  policy  is  WRUTTEN  into  channel  S,  +/-2/A  is  stored  in  NO.PJETS,  ANq  BIT9  IS  PUT  INTO  JTSAtchS  to  cause 
the  P.AXIS  jets  to  be  turned  OFF  ON  THE  NEXT  TsRJ^T.  CONtROi'  THEN  TRANSFERS  TO  SKIPTEST. 


R0308  calling  sequences:  none 


SUBROUTINES  calFed: 
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R03D9 

writer  - WRITES  CIA) . THE 

R0310 

R0311 

SELECTED  JET  POLICY,  INTO 
CHANNEL  6 

R0312 

NORMAL  EXIT  MODES 

! 

ALARMi  OR  ABORT  fXIT  MODES! 

R0313 

TCF  SKIPTEST 

FXTFN.0 

R0314 

R0315 

DCA  ABORTADR 

DTCB 

R0316 

R0317 

EBAN<=  JTSONNOW 
A30RTADR  2CADR  ABORTJFT 

R0318 

R0319 

R0320 

THIS  SEQJENCe  Is  FOLLOWED 
IF  NONE  OF  THE  POLICIES  IS 
WITHOUT  JFT  FAII  URFS 

R0321 

erasable  initialization  required 

R0322 

R6323 

R032A 

TP  = 

TOFJTCHG  = 
NJET  = 

) TIME  period  of  Jet  firing 

) AT  T6  scaling,  625  MICROSECONDS  PER  BIT 

37777,  AOOOO,  DEPENDING  DN  WHETHER  A OR  2 JpTS  DfSIRED 

R0325  TJETSIGN  = +/-03D01*  DEPENDING  ON  DESIRED  SENSE  3F  P-AXIS  ROTATION 

R0326  • CHfeMASK  = BITS  1_8  INDICATE  WHetHeR  CORRESPONDING  JETS  HAVf  FAILeD  - BIT  ON  IS  FAILURE,  BIT  OFF  IS  0<. 
R03273  DAPB00LS.BIT5 (AORiBSYSt)  =0/1.  DEPENDING  UPON  WHETHER  DIAGONAL  1 OR  DIAGONAL  2 WAS  PReFeRReD  DURING  LAST  PASS 


R0328 

OUTPJT! 

R0329 

R0330 

R0331 

channel  6 

NO'.PJETS 

- contains  selected  JET  POLICY  UNLESS  NONE  IS  AVAILABLE 

- +/-27A*  sense  of  P-AXIS  ROTATION  AND  NUM3ER  OF  JETS  USED 
BY  POLICY  ACTUALLY  SELECTED (MAY  NOT  = A IF  A JETS  RF- 

R0332 

R0333 

R033A 

- TOFJTCHG 

quested  but  one  or  more  jets  FAILED) 

- modified  by  -5MS  OR  +6.5MS  OR  NEItHeR,  DePENhING  ON  WHETHER 
NEW  POLICY.  IS  A CHANGE  FROM  THE  OLD  OR  NOT. 

the 

Jets  were  on,  and 

whether  the 

R033A3 

DAPBOOLS, 

BIT5<A0RBSYST)  = I/O1  IF  TH£.  INPJT  VALJe  WAS  o/l,  UNLESS  JETS 

were 

ON  when  PJETSLEC 

Started. 

. R0335 

JISATCHG 

- = BIT9*  unless  no  policies  AVAILABLE 

R0336 

NJET,  TP, 

TJeTSIG'N,  AND  CH6MASK  NOT  CHANGED  BY  PJeTSLeC 

R0337 

R0338 

RrL  AND  CTR  ARE  leF'T  AT  THEIR  LAST  VALUES  WHEN  THE  GOOD  dOLICY  WAS 
FOUND 

R0339 

DEBRIS! 

R0340 

R-L  = ITFMPS 

R03A1 

R03A2 

CTR  = ITEMPfc 
A,L»Q 

03A3 


16»26A2  0 0006  1 PJETSLEC  EXTEND 


BEGIN  JET  SELECT  ROUTINE  BY  SEEING  WHE- 
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03AA 

03A5 

REF 

233 

LAST 

497 

Lb 

16 

...O.Q.  QU6- 

10  000 

X 

0 



CCS 



A 

-IHtR  IHL  JETS  are  turned  On(CHAv,nEL  6 
NON-ZERO) 

03A6 

REF 

1 

16 

.2645 

1 2653 

1 

rcF 

aodei  ay 

JETS  ON.  DON»T  SWITCH  DIAGONALS. 

03A7 

REF 

1 

16 

.2646 

3 7757 

0 

CAF 

ADR3SYST 

JETS  NOT  ON  NOW.  START  BY  SWITCtING  SIT5 

03A8 

ref 

33 

lAst 

496 

16 

.2647 

22  077 

1 

uXCH 

DAP300LS 

IN  DAPBOOlS 

0349 

16j26M_ 

_0_  0006 

1 

EXTEND 

_ BITS  ON  - DIAGONAL  jJEIS  15.  7 AND  8.  L6 

0350 

ref 

93 

LAST 

498 

16 

.2651 

06  001 

0 

RXDR 

L 

0351 

REF 

34 

LAST 

501 

16 

.2652 

54  077 

0 

IS 

DAP3nOLS 

BIT5  OFF  _ DIAGONAL  JETS  4,  12  uND  3,  11 

0362 

REF 

1 

16 

.2653 

3 3565 

1 

A3DELAT 

CAF 

14-TJMIN 

ADD  DELAY  TIME  BECAUSE  JETS  USJALLY  DFF 

0353 

ref 

3 

LA5T 

498 

16 

.2654 

27'475 

1 

AOs 

tofjtchg 

and  easier  if  jet  policy  now  HAs  failed. 

0357 

REF 

168 

LAST 

496 

16 

.2655 

3 7767 

0 

CAF 

zero 

BEFORE  TESTING  P-AXIS  SIGN. 

0358 

REF 

1 

16 

.2656 

54  065 

0 

IS 

REL 

INITIALIZE  ADDRESSING  INDEX  AT  ZERO 

0359 

REF 

1 

it 

.2657 

_ 11'434 

1 

CCS 

T JET SIGN 

_T£ST  DIRECTION  OF  P-AXIS  ROT AT  I DN (ROLL) 

0360 

REF 

11 

LAST 

496 

16 

* 2 660 

3 7765 

1 

CAF 

Seven 

IF  POSITIVE.  Get  policy  from  lower  seven 

0361 

REf 

2 

last 

501 

16 

.2661 

26  065 

0 

AoS 

REl 

locations  of  table 

0362 

REF 

3 

LAST 

498 

16 

.2662 

ll'46l 

1 

CCS 

njet 

SEE  IF  4-jet  policy  IS  REQUeSTEO 

0363 

REF 

12 

last 

439 

16 

.2663 

3 6306 

1 

CAF 

SIX 

IT  IS.  PICK  up  6 EOR  REL  AND  CT? 

0364 

ref 

1 

16 

.2664 

i 2705 

0 

TCF  . 

FDJR  lETS 

and  go  store  them 

0365 

REF 

12 

LAST 

420 

16 

.2665 

3 7766 

1 

CAF 

FIVE 

2 JETS  ONLY  REQUESTED.  PICK  UP  5.  STORE 

0366 

REF 

1 

16 

,2666 

54  066 

0 

TS 

CTR 

IN  CTR  and  add  to  REL. 

0367 

REF 

3 

LAST 

501 

^6  065 

0 

ADS  _ 

REL 

0368 

REF 

35 

LAST 

501 

16 

.2670 

4 0077 

0 

cs 

DAP3nOLS 

CHECK  BITS  IN  DAPBOOLS  TO  SEE  WHICH  PAIR 

0369 

REF 

2 

LAST 

501 

16 

.2671 

7 7757 

1 

MAS< 

A0R3SYST 

OF  DIAGONAL  JETS  SHOULD  BE  USED  NEXT 

0370 

REF 

234 

last 

501 

16 

.2672 

10  000 

0 

CCS 

A 

0371 

REF 

1 

16 

.2673 

1 2710 

1 

TCF 

TEStpOL 

FIRST  PAIR.  SO  GO  TO  TESTING  LOOP  NOW 

0372 

i6 

.2674 

0 0006 

1 

EXTEND 

Second  pair,  decrement  rel  to  4 or  h, 

0373 

REF 

4 

LAST 

501 

16 

.2675 

26  065 

0 

DIM 

REL 

0374 

REF 

5 

last 

501 

16 

tZblb 

50  065 

1 

INDEX 

REL 

PICK  UP  second  diagonal  pair  from  policy 

0375 

ref 

1 

16 

.2677 

3 2754 

0 

CAF 

PPOLtABL 

0376 

REF 

2 

LAST 

88 

16 

.2700 

7 0103 

1 

MAS< 

CH6MASK 

TABLE  AND  COMPARE  WITH  FAILURE  3ITS 

0377 

16 

.2701 

0 0006 

1 

EXTEND 

0378 

REF 

1 

16 

.2702 

1 2724 

0 

3ZF 

writfpol 

THE  JETS  ARE  GOOD.  GO  WRITE  IN  CHANNEL 

0379 

REF 

6 

LAST 

5OI 

l6 

.2  703 

24  065 

1 

INCR 

REL 

THE  JET(S)  HAVE  FAILED  FOR  THIS  POLICY. 

0380 

REf 

2 

LAST 

501 

16 

.2704 

1 2710 

1 

TCF 

TESTpOL 

RESTORE  rel  AND  DO  TEST  POLIcY  .OOP 

0381 

REF 

7 

LAST 

501 

16 

.2705 

26  065 

0 

FDURJETS 

ADS 

REL 

COME  HERE  TO  SET  REL  AND  CTR  FOH  4-JET 

03815 

REF 

13 

LAST 

501 

16 

.2706 

3 6306 

1 

CAF 

SIX 

*»**ADS  STlNKS)t»*tt 

0382 

REF 

2 

LAST 

501 

16 

.2707 

54  066 

0 

TS 

CTR 

POLICY  requested.  ALSO.  SET  Cl  9 _1  HERE 

0383 

REF 

B 

LAS.I. 

501_ 

It 

• 2ziO 

50  065  1 

TESTPOL 

INDEX 

REL 

PJCK  UP  NEXT  POLICY  AS  LOCATED  ^RELATIVE  _ 

0384 

REf 

2 

last 

501 

16 

.2711 

3 2754 

0 

caf 

ppdltabl 

TO  ppoltabl  by  REl. 

0385 

REF 

3 

LAST 

501 

1 

12712 

7 0103 

1 

MAS< 

CH6MASK 

COMPARE  WITH  FAILURE  BITS 

0386 

16 

.2713 

0 0006 

1 

'XTEND 

0367 

REF 

2 

LAST 

501 

16 

.2714 

1 2724 

0 

3ZF 

WRITePOL 

THE  JETS  ARE  GOOD.  WRITE  IN  THE  CHANNEL 
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0388 

16_i27i5 

_ CLCIQ06 

. extend. 

THE  J£T(_S)  HAVE  FAILED  FOR  THIS  POLICY 

0389 

REF 

9 LAST  501 

16,2716 

26  065 

0 

DIM 

REL 

decrement  the  index. 

0390 

REF 

3 LAST  501 

16,2717 

10  066 

0 

CCS 

CTR 

SEE  IF  ALL  policies  HAVE  BEEN  T-STED. 

0391 

REF 

3 LAST  501 

16.2720 

I 2707 

1 

TCF 

TESTdOL  -1 

CTR  NOT  ZERO,  A s CTR  -1.  DO  LOOP  AGAIN 

0392 

16,2721 

0 0006 

1 

EXTEND 

CTR  ZERO,  ALL  ALLOWABLE  POLICIES  FAILED 

0393 

REF 

1 

16,2722 

3 2753 

1 

OCA 

ABORTADR 

PICK  UP  2CADR  OF  ABORTJET 

0394 

_X6_.2Z23  52_a0i>- 

0 

-OTCB  , 

_ , ^ AND  GO-  THERE _ , „ _ _ _ _ 

■ 0395 

REF 

10  LAST  502 

16,2724 

50  065 

1 

WRlTEPOL  INDEX 

REL 

A GOOD  POLICY  IS  FOUND,  PICK  IT  UO  AND 

0396 

REF 

3 LAST  501 

L6.2725 

3 2754 

0 

CAF 

PPOLtABL 

03962 

16,2726 

0 0006 

1 

EXTEND 

before  writing  it,  check  TO  SEE  IF  THE 

03963 

16,2727 

06  006 

1 

^XOR 

6 

SAME  POLICY  IS  CURRENTLY  IN  CHANNEL  6. 

039ii4 

16.2730 

0 0006 

1 

EXTEND 

03965 

REF 

1 

16,2731 

1 2747 

0 

3ZF 

same  IETS 

SAME  POLICY,  Go  ADJUST  TOFJTCHo 

03966 

REF 

11  LAST  502 

16,2732 

50  065 

1 

0<2WRITE  index 

REL 

different  policy (CHANNEL  6 WAS  ZERO  OR  A 

03967 

REF 

4 LAST  502 

16_,2733 

3 2754 

0 

CAF 

PPOLTABL 

JET  failed  in  last  POLICY).  G£r  POLICY, 

0397 

REF 

1 

16,2734 

0 6043 

0 

TC 

WRITFP 

GO  WRITE  IT  IN  CHANNEL  6 AND  RETURN 

0398 

REF 

235  last  501 

16,2735 

10  000 

0 

CCS 

A 

. the  policy  is  still  in  a,  test  nUmblr  of 

0399 

REF 

67  LAST  492 

16,2736 

3 7762 

0 

CAF 

Two 

OAOO 

16,2737 

1 2741 

0 

ICF 

+ 2 

JETS(BIT15  ON  FOR  4-JET  POLICIES)  AND 

OAOl 

JREF 

16  LAST  446 

16,2740 

3 7761 

0 

, ,:af  . FaDi_ 

0A02 

16,2741 

0 0006 

1 

EXTEND 

MULTIPLY  BY  TJETSIGN (+/-1 ) TO  oET  +/-2,4 

0A03 

REF 

2 LAST  501 

16,2742 

7 1434 

1 

MP 

TJETaIGN 

OAOA 

REF 

2 LAST  493 

16.2743 

_ 23'657_ 

1 

.XCH 

_N0_^_?JELS 

IN  Lj  WHICH  IS  then  STORED  IN  NO.PJETS 

0A05 

ref 

9 LAST  493 

16,2744 

3 7753 

1 

caf 

BiTr 

turn  off  P-axis  jets  after  t6rjpt 

0A06 

REF 

1 

16,2745 

55'472 

0 

rs 

JTSATCHG 

0A07 

REF 

1 

16,2746 

1 3374 

0 

TCF 

SXIPTEST 

check  for  skip. perhaps  to  do  JETLIST 

0A072 

REF 

1 

16*2747 

3 3564 

0 

samejets  caf 

-COM-6,5 

come  here  to  adjust  tofjtchg  by  factor 

0A073 

ref 

4 last  50l 

16,2750 

' 27'475 

1 

AdS 

TOFJTChG 

OF  11.5MS(C0MP  TIME  ♦ MINIMP  oE'AY)  WhEN 

0407A 

REF 

1 

16,2751 

1 2732 

1 

TCF 

0<2WRITE 

current  jet  policy  is  to  be  maintained. 

0408 

REF 

1 

E6 

eban<= 

jtsdnnow 

would  you  believe,  EBANK  = 6 

0409 

16,2752 

02374 

0 

A30RTADR  ZCAqR 

ABORTJET 

Where  to  go  when  all  jet  policies  fail 

C0409 

R0410 

ref 

1 

16,2753 

40066 

0 

R0412 

table  of  p-axis  Jet 

30UCIES 

IS  assembled  Here  to  be  addressfd  by 

Relative  index  from  base  address  ppoltable 

A0414 

channel  6 

BITS 

index  jets  on 

0415 

16,2754 

00202 

1 

P=0LTA3L  OCTAL 

00207 

REL=0  -p  NON-FORCE  COUPLE  4-  I5*  3 

0416 

16,2755 

00210 

1 

OcTAi 

0021n 

REl.  = l -P  NON-FORCE  COUPLE  3-  11,  16 

0417 

16,2756 

00050 

1 

octal 

00050 

REL=2  -P  non-force  couple  2-  8,  11 

0418 

16,2757 

00042 

1 

OCTAL 

00042 

REL=3  -P  NON-FORCE  COUPLE  1-  3,  8 

0419 

16,2760 

00240 

1 

octal 

00240 

REL=4  NUMBER  TWO  FORCE  COUPLP-  8,  16 

0420 

16,2761 

00012 

1 

octal 

00012 

REL=5  -P  2-JET  force  couple-  3,  11 
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0421 

16.2762 

..  40252 

0 , 

, DC1AJ_ 

40.252,,,  

RELt6  -P  4- jet  policy-  3,  8.  11.  16 

0422 

16.2763 

00101 

1 

DCTAl 

OOlOl 

REL=7  *P  NON-FORCE  COUPLE  4-  7.  4 

0^23 

16.2764 00.02 1_1^ 

JrTAL  0Q0?i 

REL^aO,  , +P  NON-fORcE  couple,  J.2.,  7 

0424 

16.2765 

00024 

1 

octal 

00024 

REL=9D  *P  NON-FORCE  COUPLE  2-  15.  12 

0425 

16.2766 

00104 

1 

octal 

00104 

REL=10D  +P  NON-FORCE  COUPLE  1-  4.  15 

0426 

li.2767 

,1)0005 

,1_ 

octal  , 

,0,01)05  ., 

,,  BELFllD  , NJMBERl  TWO  FORCE  COUPL:-  15,  7 

0427 

16,2770 

00120 

1 

octal 

0012O 

REL=12D  +P  2-JET  FORCE  COUPLE.  A.  12 

0428 

16.2771 

40125 

0 

octal 

40125 

REL=13D  +P  4-JET  POLICY-  4.  15.  12.  7 

0431 

REf 

159 

LAST 

5,0 1 

16.2772 

3 7767 

.0  JETSDJf,,  CAf 

2E.R0  . , 

0432  • 

REF 

11 

LAST 

498 

16.2773 

55*611 

1 

IS 

TP 

0433 

REF 

5 

LAST 

502 

16.2774 

55*475 

1 

TS 

TOFJTCHG 

0434 

REF 

2 

LAST 

502, 

_ 1J5.2775 

0 6043 

0 

TC 

(jaiTEP 

TURN, ON  P JETS  USING  T6J0B  SUBROUTINE 

0435 

REF 

22 

LAST 

496 

16.2776 

1 5733 

1 

TCF 

JMt 

R0436 

P-AXI5 

urgency  function  calculation 

R0437 

(Note  - 

- M13 

= 1 

IDENTICALLY 

IMPLIES 

NULL 

multiplication.) 

0438 

REF 

17 

LAST 

49,3 

,16.2777 

3 0033 

. 1 PJRGENCY  :A 

cdjy 

P-ERROR  CALCULATION 

0439 

16.3000 

0 0006 

1 

EXTEND 

0440 

REF 

4 

LAST 

476 

16.3001 

20  767 

0 

MSJ 

CDJYn 

CDU  value  - ANGLE  DESIRED  (Y-AXIS) 

0441 

1,6,3002 

0 ,0006 

1 . 

, _ EXTEND 

0442 

ref 

14 

last 

494 

16.3003 

7 1404 

1 

MP 

Mil 

(CDUY-CDUYD)Mll  SCALED  AT  Pi  RAOIANS 

0443 

REF 

LAST 

49 

16.3004 

57*411 

1 

XCH 

E 

SAVE  FIRST  TERM  (OF  TWO) 

0444 

ref 

29 

last 

493 

16*3005 

3 0032 

0 

CA 

COJX 

THIRD  component 

0445 

16.3006 

0 0006 

1 

extend 

0446 

REF 

8 

LAST 

492 

16.3007 

20  766 

1 

MSJ 

CDJXn 

CDU  value  - angle  desired  (X-AXIS) 

R0447 

PXTFND 

R0448 

MP 

M13 

0449 

REF 

5 

LAST 

503 

16.3010 

27*411 

0 

ADS 

E 

SAVE  SUM  OF  TERMS.  NO  OVERFLOW  EVR 

0450 

REF 

2 

LAST 

488 

16.3011 

55*466 

0 

IS 

PERRnR 

SAVE  P ERROR  FOR  DISPLAY 

04501 

ref 

5 

LAST 

476 

16.3012 

4 0774 

1 

cs 

OMEGAPD 

THIS  coding  is  common  to  BOTH  Lm  OAP  AnD 

04502 

REF 

12 

LAST 

494 

16.3013 

6 1415 

0 

AD 

OMEGAP 

SPS-BACKUP  MODE. 

04503 

REF 

4 

LAST 

49 

16.3014 

55*422 

0 

TS 

edotp 

EDOTP  = OMEGAP  - OMEGAPD  AT  PI/4  RAD/SEC 
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P0450A  P-AXI5  SPS  BAC<-UP  TEST  AND  , SP5  _BA,CK-UP. _C0NXRQL,Lo5_LC1 


0A51 

REF 

36  LAST  501 

16,3015 

30  077 

1 

CAE 

OAP3nOLS  BIT15  = 0 FOR  SPS  BACK-UP 

0A52 

16,3016 

0 no06 

_1_ 

FKTFNO 

0A53 

ref 

1 

16,3017 

6 3074 

1 

3ZMF 

N03ACKUP  DAPBOOLS  IS  NEVER  *0. 

RQ4S4 

sPs 

BACK-UP  control 

LOGIC; 

0457 

ref 

1 

16,3020 

3 7743 

0 

CAF 

SLDPfMP 

0458 

16,3021 

0 0006 

EXTEND 

0459 

REF 

6 LAST  503 

16,3022 

7 1411 

0 

MP 

E 

0460 

REF 

5 LAST  503 

16,3023 

6 1422 

1 

AD 

EDDTp 

0461 

16,3024 

0 0006 

_£XI£ND. 

0462 

REF 

1 

16,3025 

6 3061 

0 

3ZMF 

PLJSnP 

0463 

REf_ 

1 

16,3026 

3 3072 

_CAE_^ 

JNEiDP 

0464 

REF 

17  LAST  194 

16,3027 

54  063 

0 

GCOMPER 

TS 

ITEMP3 

0465 

REF 

6 LAST  504 

16,303.0 

31 *422 

1 

CAE  , 

_EJZaii>...  . ..  . 

0466 

16,3031 

0 0006 

1 

EXTEND 

0467 

REf 

1 

16,3032 

7 3073 

1 

MP 

ACONsTP 

54fr74 

REF  216_  LAST  5Q2 

16,3033 

10  OOP 

JL_ 

_C£S 

A 

04676 

REF 

1 

16,3034 

1 3067 

1 

rcF 

LiIMPrATE 

0468 

16,3035 

1 3037 

1 

rcF 

+ 2 

04684 

ref 

2 last  504 

16,3036 

1 306J 

1 

TCF 

i!imprate 

04686 

REF 

237  LAST  504 

16,3037 

22  000 

1 

lxch 

A 

0469 

16,3040 

0 0006 

1 

EXTEND 

G4694 

16,3041 

7 0000 

0 

SQUARE 

^ 0470 

ref 

7 LAST  504 

16,3042 

6 1411 

1 

LIMSQP 

AD 

E 

0471 

ref 

2 LAST  504 

16,3043 

6 3072 

1 

AD 

NEoOP 

0472 

16,3064 

0 0006 

1 

EXTEND 

0473 

REF 

2 LAST  498 

16,3045 

6 2772 

1 

3ZMF 

JETSnFF 

0474 

REF 

1 

16,3046 

3 3071 

1 

CAF 

50MS/625 

0475 

REF 

12  LAST  503 

16.3047 

55,611 

1 

TS 

TP 

0476 

REF 

6 LAST  503 

16,3050 

55,475 

1 

TS 

TOFJtCHG 

0477 

REF 

6 LAST  498 

16,3051 

3 7745 

0 

CAF 

NEoMAX 

0478 

REF 

4 LAST  501 

16,3052 

55*461 

1 

TS 

NJET 

0479 

REF 

18  LAST  504 

16,3053 

10  063 

0 

CCS 

I TEMP3 

0480 

REf 

33  last  474 

16,3054 

3 7763 

1 

CAF 

3IT1 

0481 

16,3055 

1 3057 

I 

TCF 

+ 2 

04815 

REF 

34  LAST  504 

16,3056 

4 7763 

0 

CS 

BITl 

0482 

REF 

3 LAST  502 

16,3057 

5b • A3A 

1 

TS 

TJETfIGN 

06825 

ref 

2 LAST  698 

16,3060 

1 2642 

1 

TCF 

PJETSLEC 

0483 

ref 

8 last  504 

16,3061 

4 1411 

0 

plusdp 

cS 

E 

0484 

ref 

9 LAST  504 

16,3062 

57*411 

1 

XCH 

E 

0485 

ref 

7 last  504 

16,3063 

4 1422 

0 

CS 

EDDTP 

0486 

ref 

8 LAST  504 

16,3064 

57*422 

1 

XCH 

eddtp 

0487 

REF 

3 LAST  504 

16,3065 

4 3072 

0 

CS 

negdp 

0488 

ref 

1 

1 6 * 3066 

1 3027 

0 

TCF 

GCOMPER 

0489 

REF 

1 

16,3067 

3 7747 

1 

LlMPRATE 

CAF 

DJARTER 

633<t36A  YUL  SYSTEM  FOR  *GC:  REVISION  0 OF  PROGRAM  BURST12D  BY  NASA  2021106-031 


DEC  7,  1967  (MAIN)  PAGE  505 


p-Axis  reaction 

control  system 

AUTOPILOT 

USER'S  OWN  page 

NO. 

14 

0*^90 

REF  1 

__  L6j3070 

1 3042  0 

ICF 

LIMSqP  . . 

0A92 

0A93 

0A9A 

REF  2‘t  LAST  A98 

16.3071 

16.3072 

00120  1 
77644  1 
7743 

50MS/625 

negop 

SLQPEM?  _ 

octal  00120 

DEC  -0.00555 

EQJALS-  PaSMAX 

TJET  = 50  MS  IN 

SPS 

BACKUP  MODE 

0A95 

16,3073 

00007  0 

ACONST? 

octal 

00007 

633«»36A  YUL  system  FOR  «gC:  REVISION  0 OF  PROGRAM  BURST123  BY  NASA  2O2110Y.-031 


DEC  7,  1967 


(MAIN)  page  506 


L p-Axis  Reaction  control  system  autopilot  user's  own  page  no.  15  S3  e6 


P04C35  1 

cont 

I MUATIDN 

OF  P 

-Axis  RCS  AUTOPILOT 

OA96 

REF 

32  LAST 

48l 

16,3074 

3 7746 

0 

N3BACXJP 

:af 

SlTli, 

0497 

REF 

1 

16,307.5 

.55»716 

1 

_rs. 

^i.oNTA(j _ 

INDICATES  EDOT.  POSITIVE  FOR  TiMr  BEING 

0500 

REF 

9 LAST 

504 

16,3076 

11*422 

0 

CCS 

EDOTP 

0501 

ref 

1 

16,3077 

1 3111 

1 

rcF 

scAlfdot 

0502 

REF 

1 

_16,3100 

1 3121 

1 

rcF 

PIJETi-AW.  ... 

0503 

REF 

1 

16,3)01 

1 3103 

1 

TCF 

REFLECT 

050A 

REF 

2 LAST 

506 

16,3102 

1 3121 

1 

TCF 

PT JEtLAW 

0505 

REF 

2 LAST 

49 

16,3.103 

55'407 

1 

REFLECT 

IS 

EDDT 

0506 

REF 

33  last 

506 

16,3104 

4 7746 

1 

:s 

BITI4 

0507 

ref 

2 lAsT 

506 

16,3105 

55*716 

1 

Ts 

SIGNTAG 

indicates  edot  really  negative 

05Q8 

REf 

3 LAST 

503 

16.3106 

Q_ 

cs  . 

PERRQR 

0509 

REF 

10  LAST 

504 

16,3107 

55*411 

0 

TS 

E 

0510  • 

REF 

3 LAST 

506 

16,3110 

311407 

0 

CAE 

EDDT 

EDOT  SCALED  AT  45  DEG/SEC 

0511 

REF 

35  LAST 

504 

. 16,3) U 

6 7763 

1 

s.ealeddt 

ad  _ 

-B1.T1  . . . 

0512 

16,3112 

0 0006 

1 

EXTEND 

0513 

ref 

19  LAST 

498 

16,3113 

7 7761 

1 

MP 

3IT3 

0514 

16.3114 

0 0006 

1 

extend 

0515 

REF 

3 LAST 

506 

16,3115 

1 3120 

0 

3ZF 

PTJEtLAW  -1 

0516 

REF 

25  LAST 

505 

16,3116 

3 7743 

0 

CAF 

POSMAX 

0517 

REF 

4 LAST  506  _ 

16.3117 

i 3121 

1 

ICf_.  _ 

.PT.JE.TLAW 

0518 

REF 

94  LAST 

501 

16,3120 

30  001 

0 

CAE 

L 

EDOT  NOW  scaled  AT  11.25  DEG/SEC 

0519 

REF 

4 LAST 

506 

16,3121 

55*407 

1 

PTJETLAW 

TS 

EDDT 

052.0 

16,3122 

0 0006 

1 

EXTEND 

0521 

ref 

5 lAsT 

506 

16,3123 

7 1407 

1 

MP 

EoDT 

0522 

REF 

3 LAST 

49 

16,3124 

55*412 

0 

IS 

EDDT (2) 

0523 

REF 

4 LAST 

494 

16j3125 

3 7771 

1 

CAF 

.ne.gdne 

0524 

REF 

4 LAST 

504 

16,3126 

55*434 

1 

TS 

TJETSIGN 

0525 

REF 

7 LAST 

504 

16,3127 

3 7745 

0 

CAF 

NEGMAX 

0526 

REf 

5 lA^T 

504 

16,3130 

55*461 

1 

.Is. 

NjET 

INjjIcATEs  2 jETs  ONlY  FOR  TIimE  BEING 

0527 

REF 

4 LAST 

506 

16,3131 

31*412 

1 

CAE 

EODT (2) 

0528 

16,3132 

0 0006 

1 

EXTEND 

0529 

ref 

1 

16,3133 

7 1440 

1 

MP 

1/2JTSP 

0530 

16,3134 

0 0006 

1 

EXTEND 

0531 

ref 

34  LAST 

506 

16,3135 

7 7746 

1 

MP 

BIT14 

0532 

ref 

11  LAST 

506 

16,3136 

6 1411 

1 

AD 

E 

0533 

16,3137 

0 0006 

1 

EXTEND 

0534 

ref 

4 LAST 

480 

16,3140 

60  375 

0 

5U 

DB 

0535 

REF 

1 

16,3141 

55*444 

0 

TS 

FCTl 

n536 

16,3142 

0 0006 

1 

EXTEND 

0537 

ref 

1 

16,3143 

6 3202 

1 

3ZMF 

5, 6, 7, 8 

05371 

ref 

1 

16,3144 

6 3555 

1 

AD 

-5DEG+1 

05372 

16,3145 

0 0006 

1 

EXTEND 

IN  ERROR  BY  OVER  5 DEG  WITH  HE 

05373 

16,3146 

6 3153 

0 

3ZMF 

RATE  IN  the  other  DIRECTION 

05374 

REF 

6 LAST 

506 

16,3147 

4 1407 

1 

CS 

EDDT 

05375 

REF 

1 

16,3150 

6 3757 

1 

AD 

HULLSLIM 

0.5  DEG/SEC  scaled  AT  11.25  DEG/SEC 

05376 

16,3151 

0 0006 

1 

EXTEND 

05377 

ref 

1 

16,3152 

6 3177 

0 

3ZiMF 

MJLTTJET 

0538 

REF 

7 LAST 

506 

16,3153 

31*407 

0 

CAE 

EDDT 
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0539 

16t3159 

. Q_0Q061  - 

....  -xteno. 

0590 

ref 

2 

last 

506 

16,3155 

7 1990  1 

mp 

1/2JTSP 

0591 

REF 

1 

16,3156 

55'510  0 

rs 

terma 

054^ 

ref 

X 

16.3157 

9 3563  0 

cs 

l,5r«iPi6 

0597 

REF 

2 

LAST 

507 

16,3160 

6 1510  1 

9D 

TERMA 

0598 

16,3161 

0 0006  1 

EXTEND 

0549 

16.3162 

6 3165  0 

37MF 

_4l3 

0550 

ref 

35 

LAST 

506 

16,3163 

3 7796  0 

MAXPTJET  :AF 

3IT19 

0551 

REF 

1 

16,3169 

1 3356  0 

rCF 

findsign 

0552 

REF 

2 

LAST 

50.6  _ 

.16,3165 

- 9 J.999  0 

- :s 

flu  ..  . 

0553 

REF 

2 

LAST 

977 

16*3166 

6 1632  1 

A.D 

DBMNmPAX 

0559 

16,3167 

0 0006  1 

EXTEND 

0555 

ref 

1 

16,3170 

6 3232  1 

32MF 

PMBS 

0556 

REF 

3 

LAST 

507 

16,3171 

31'510  1 

CAE 

TERMa 

0557 

ref 

1 

16,3172 

6 3559  0 

AD 

-35AT16 

0558 

16,3173 

_Q  .0006 

. .iX-T£liD- 

0559 

ref 

1 

16,3179 

6 3392  1 

3ZMF 

ZDNEa 

0560 

REF 

1 

16,3175 

6 3556  1 

AD 

38»7AT16 

0561 

REP 

I 

16,3176  1 3316  J. 

TCF 

SCAI  TJFT 

0562 

REF 

26 

LAST 

506 

16,3177 

3 7793  0 

MJLTIJET  CAF 

POSMAX 

0563 

ref 

6 

LAST 

506 

16,3200 

55*961  1 

IS 

njet 

0569  ' 

REF 

1 

16,3201 

1 3163  1 

rcF 

MAXPTJET 

0565 

ref 

5 

last 

506 

16,3202 

31*912  1 

5*6, 7,8  ;AE 

EdDT  (2) 

0566 

16,3203 

0 0006  1 

EXTEND 

0567 

REP 

1 

16,3209 

1 ^23P9  L 

M£_ 

■SACrMlN 

0568 

ref 

12 

LAST 

506 

16,3205 

6 1911  1 

AD 

E 

0569 

REF 

5 

LAST 

506 

16,3206 

6 0375  0 

AD 

DB 

0570 

REF 

3 

LAST 

50  7 

16,3207 

6 1632  1 

AD 

DBMNMPAX  . 

0571 

16,3210 

0 0006  1 

EXTEND 

0572 

16,3211 

6 3213  1 

3ZMF 

+ 2 

0573 

REF 

3 

LAST 

509 

J6,3212 

1 2772  0 

ZONES  rcF 

JtTSnFF  

0579 

ref 

1 

16,3213 

9 3552  1 

♦ 2 CS 

RATFMAX 

0575 

REF 

8 

LAST 

506 

16,3219 

6 1907  0 

AD 

EDDT 

0576 

16,3215 

0 0006  1 

-XTEND 

0577 

REF 

1 

16,3216 

6 3220  1 

3ZMF 

ZDNES6,7 

0578 

REF 

4 

LAST 

507 

16,3217 

1 2772  0 

ZDNE8  TCF 

JETSnFF 

0579 

REF 

36 

LAST 

506 

16,3220 

3 7763  1 

Z3NES6,7  CAF 

Bin 

0580 

REF 

5 

LAST 

506 

16,3221 

55*939  1 

T5 

TJETSIGN 

0581 

REF 

9 

LAST 

507 

16,3222 

9 I9O7  1 

CS 

EDDT 

0582 

16,3223 

0 0006  1 

EXJETUD 

0583 

REF 

3 

last 

507 

16,3229 

7 1990  1 

v|P 

1/2JTSP 

0589 

REF 

4 

LAST 

507 

16,3225 

55*510  0 

TS 

TERMA 

0585 

REF 

3 

LAST 

507 

JL60226 

9 1999  0 

C5 

Fell. 

0586 

REf 

13 

last 

507 

16,3227 

6 1911  1 

AD 

E 

0587 

ref 

19 

LAST 

507 

16,3230 

6 1911  1 

AD 

E 

0588 

REF 

9 

LAST 

507 

16.3231 

6 1632  1 

AD 

DBMNMPAX  ... 

0589 

REF 

9 

LAST 

507 

16,3232 

55*999  0 

pmbr  rs 

FCTl  FCTl  NOW  HOLDS  -FCT5  OR  -FCT2 

0590 

ref 

9 

LAST 

507 

16,3233 

31*990  0 

CAE 

1/2JTSP 

0591 

16,3239 

0 0006  1 

extend. 

0592 

REF 

36 

last 

507 

16,3235 

7 7796  1 

MP 

B1T19 
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L 

P-AXIS 

reaction  I 

control  system  autopilot 

usER*s  Own  page  no.  it  s3  E6 

0593 

REF 

2 

last 

507 

Ji>ia236_ 

6_  Z234_.0 

-AD 

--.i-A-CCMl-N  . 

059A 

REF 

1 

16.3237 

55*446 

1 

IS 

DENOM 

0595 

16,3240 

0 0006 

1 

EXTEND 

0596 

REF 

16.3241 

7 3553 

0 

*1P 

RATFMAX2 

0597 

REF 

5 

last 

507 

16.3242 

6 1444 

1 

AD 

FCTl 

0598 

16,3243 

0 0006 

1 

EXTEND 

0599 

REF 

1 

_ 16.3244 

6.  3322 

.1- 

3ZMF- 

-MISSROOT 

0600 

REF 

5 

LAST 

507 

16,3245 

31*440 

0 

CAE 

1/2JTSP 

060005 

16.3246 

0 0006 

1 

EXTEND 

06001 

REf 

6 

last 

508 

16,3247 

7 1440 

1 

MP 

1/2JTSP 

(1/2JTSP) (1/2JTSP)  scaled  At  2(16)/PI(2) 

060015 

REF 

11 

LAST 

219 

16,3250 

52  073 

1 

OXCH 

RJPTREG3 

DP  PRODUCT  STORED  IN  RUPTREG3, R JPTREoA 

06002 

REF 

6 

LAST 

508 

16,3251 

31*444 

1 

CAE 

FCTl 

SCALED  AT  PI 

060025 

16.3252 

22  007 

jD 

-ZJ 

06003 

16.3253 

0 0006 

1 

-XTENd 

060035 

REF 

2 

LAST 

508 

16.3254 

1 1*446 

1 

3V 

DENOM 

(FCTl/DENOM)  IN  A SCALED  AT  PI(2)/2(8). 

0600a 

REF 

32 

LAST 

365 

1.6,3255 

5-4  071 

0 

T5 

RJPTREG2 

(FCri/DENOM)  stored  IN  RUPTREG2 

060045 

16.3256 

0 0006 

1 

EXTEND 

06005 

REF 

12 

LAST 

315 

16,3257 

7 0073 

1 

MP 

RJPTREGa 

(FCTl/DENOM) (LOWER  PART  OF  ( 1 /2 JTSP) (2 ) ) 

060055 

REF 

13 

LAST  _508 

16.32^0. 

54-  073 

1 

T-S  _ 

RUPTREGa 

IS  Stored  in  ruptrega 

06006 

REF 

170 

LAST 

503 

16,3261 

3 7767 

0 

CAF 

ZERO 

060065 

REF 

12 

LAST 

508 

16,3262 

56  072 

1 

XCH 

RUPTREG3 

06007 

16j3263 

- 0 0006 

1 

extend 

060075 

REF 

33 

LAST 

508 

16.3264 

7 0071 

0 

MP 

RJPTREG2 

PRODUCT  OF  SP  FCTl/DENOM  AND  DP 

06008 

REF 

13 

LAST 

508 

16.3265 

20  073 

1 

3AS 

RUPTREG3 

(1/2USP)(2)  is  stored  DP  IN  RUPTREG3  AND 

060085 

L6j3266 

0 0006 

1 

EXTEND 

ruptrega  AT  A SCALING  OF  2(8)t  RRDDUCI 

06009  ' 

REF 

14 

LAST 

508 

16,3267 

3 0073 

0 . 

3CA 

RUPTREG3 

IS  ALSO  STORED  IN  ITEMP3  AND  ITeMPA, 

060095 

REF 

19 

LAST 

504 

16,3270 

52  064 

1 

3XCH 

ITEMP3 

0608 

ref 

2 

LAST 

507 

16,3271 

4 3563 

0 

cs 

1.5CSP16 

06-09 

REF 

5 

LAST 

507 

16,3272 

6 1510 

1 

AD 

TERMa 

SCALED  AT  2(4) 

0610 

16,3273 

0 0006 

1 

EXTEND 

0611 

16,3274 

7 0000 

0 

SQUARE 

(TERMA-I.5CSP) (2)  IN  A.L  scaled  AT  2(ft) 

0612 

REF 

15 

last 

508 

16,3275 

20  073 

1 

3AS 

RUPTREG3 

DP  EXPRESSION  STORED  IN  RUPTRES3  AND 

06125 

REF 

16 

LAST 

508 

16,3276 

30  072 

1 

CAE 

RUPTREG3 

RUPIREG4.  IF  NEG,  TP  EXCEEDS  I.5CSP, 

0613 

16,3277 

0 0006 

1 

extend 

06135 

ref' 

1 

16,3300 

1 3302 

1 

3ZF 

TESTONLl 

IF  RUPTREG3  ZERO, MUST  TEST  ON  RJPTREGa 

0614 

REF 

2 

LAST 

508 

16,3301 

1 3303 

0 

TCF 

TESToNLl  ♦! 

06141 

REF 

14 

last 

508 

16,3302 

30  073 

0 

TESTONLl 

cae 

RUPTREGa 

06142 

16,3303 

0 0006 

1 

EXTEND 

06143 

REF 

2 

LAST 

507 

16,3304 

6 3163 

0 

32MF 

MAXPtJET 

0615 

REF 

1 

16*3305 

4 3560 

0 

MINTJCHX 

CS 

PT JMINT6 

11.5  MS  SCALED  AT  l6«  <4MS  ADDED  TO  TMIN 

0616 

REf 

6 

last 

508 

16,3306 

6 1510 

1 

AD 

TERMA 

TO  PREVENT  COMPUTED  TP  LESS  ThAN  TMIN) 

0617 

16,3307 

0 0006 

1 

EXTEND 

0618 

REF 

1 

16,3310 

6 3326 

0 

3ZMF 

LASTTEST 

LASTTEST  TESTS  FOR  TP  LESS  THAN  MlN  IMP. 

0620 

16,3311 

0 0006 

1 

ROOTNEXT 

EXTEND 

0621 

REF 

20 

LAST 

508 

16,3312 

4 0064 

1 

5CS 

ITEMD3 

DP  NUMBER  scaled  AT  2(8)  TO  BE  ENTERED 

06215 

ref 

18 

LAST 

495 

16,3313 

0 5270 

1 

TC 

IBNZCALL 

square  root  subroutine  CALL. 

06216 

ref 

1 

16,3314 

54525 

1 

CADR 

DAPSQRT 

0622 

REF 

7 

LAST 

508 

16,3315 

6 1510 

1 

SJMTJ 

AD 

TERMA 
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L 

P-AXI 

5 

reaction  I 

control  SYSTEM  AUTOPILOT 

USEr*S  Own  page  no.  18  S3  E6 

0623 

16<3316 

6 0000 

1 

sCaltjej 

-OOUaLEL 

062A 

16,3317 

0 0006 

1 

EXTEND 

0625 

ref 

2 

LAST 

498 

16,3320 

7 3576 

1 

MP 

25/37 

0626 

REF 

2 

LAST 

50T 

16i3321 

- 1 3356 

0 

rcF 

FINDSIGN 

0627 

REF 

1 

16,3322 

3 3551 

0 

MISSROOT 

CAF 

RATEMAX+ 

RATEMAX+  = RATEMAX+0.6DEGREE3/SPCOND 

0628 

16,3323 

0 0006 

1 

EXTEND 

0629 

REF 

7 

LAST 

508 

_ 16,_3J24_ 

- 7 1440 

1 

JE 

1/2JTSP 

0630 

REF 

1 

16,3325 

1 3315 

1 

TCF 

SJMT.I 

0631 

16,3326 

0 0006 

1 

LASTTEST 

EXTEND 

063105 

REF 

21 

LAST 

508 

_ i6i3J27  _3  0064 

0 

DCA 

ITEMP3 

06311 

REF 

17 

LAST 

508 

16,3330 

52  073 

1 

DXCH 

RUPTREG3 

063115 

REF 

2 

LAST 

508 

16,3331 

4 3560 

0 

CS 

Pi JMINT6 

11.5  MS  SCALED  AT  16 

0632 

REF 

a 

LAST 

508 

. ,L6jJ332 

6 1510 

1 

AD  . 

TERMA 

0633 

16,3333 

0 0006 

1 

EXTEND 

063A 

16,3334 

7 0000 

0 

SQUARE 

0635 

REF 

18 

LAST 

509 

Jiii3335 

20-  073 

1 

DAS 

RJPTREG3 - 

- DP__EXPRESSION  STORED  IN  RUPTREGs  AND. 

063505 

REF 

19 

LAST 

509 

16,3336 

30  072 

1 

CAE 

RUPTREG3 

RUPTREG4.  IF  POS,  TP  LESS  THAN  MIN  IMP 

06351 

16,3337 

0 0006 

1 

EXTEND 

063515 

REF 

1 

. - ^ 16,3390 

1 3370 

1 

3ZL  _ 

TESTQNL2 

IF  RUPTREG3  ZERO,  MUST  TEST  ON  RUPTREGa 

06352 

REF 

2 

LAST 

509 

16,3341 

1 3371 

0 

TCF 

TEST0NL2  +1 

0639 

REF 

10 

LAST 

507 

16,3342 

31*407 

0 

ZDNE4 

CAE 

EDDT 

IF  EDOT  IS  zero  IN  ZONE4,  No  JETS  FIRED 

06392 

16,3343 

0 0006 

1 

EXTEND 

06395 

REF 

- 5 

LAST 

507 

16,3344 

1 2772 

0 

3ZF 

JETSnFF 

06398 

REF 

3 

LAST 

506 

16,3395 

31*716 

0 

CAE 

SloNTAG 

06A0 

16,3346 

0 0006 

EX-LEND 

06Al 

16,3347 

6 3352 

0 

3ZMF 

♦ 3 

06A2 

REF 

1 

16,3350 

4 3561 

1 

CS 

. IDPa 

0643 

16,3351 

1 3353 

0 

TCF 

♦ 2 

0644 

REF 

2 

LAST 

509 

16,3352 

3 3561 

0 

CA 

.IDPS 

0645 

REF 

6 

LAST 

503 

16,3353 

6 0774 

0 

AD 

DME3APD 

0646  ■ 

REF 

13 

LAST 

503 

16j3354 

55*415 

1 

t5_  _ _ 

DMESaP 

0647 

REF 

3 

LAST 

509 

l6«3355 

3 3560 

1 

CAF 

PTJMINT6 

0648 

ref 

13 

last 

509 

16,3356 

55*611 

1- 

FINdSIoN 

T5 

TP 

0649 

REF 

4 

LAST 

509 

_ _ 16,3357 

31*716 

0 

CAE 

SlJjNTAG 

NEVER  ZERO 

0650 

16,3360 

0 0006 

1 

EXTEND 

0651 

16,3361 

6 3363 

1 

3ZMF 

+ 2 

EQUIVALENT  TO  BRANCH  ON  MINUS 

0652 

16,3362 

1 3365 

0 

TCF 

♦ 3 

0653 

ref 

6 

LAST 

507 

16,3363 

4 1434 

1 

CS 

TJETSIGN 

0654 

REF 

7 

LAST 

509 

16,3364 

55*434 

1 

TS 

TJETSIGN 

0655 

ref 

14 

LAST 

509 

16*3365 

31*611 

0 

CAE 

TP 

LOAD  TOFJTCHG 

0656 

ref 

7 

last 

509 

16,3366 

55*475 

1 

TS 

tofjtchg 

0657 

REF 

3 

LAST 

509 

16,3367 

1 2642 

1 

TCF 

Pjetslec 

AND  GO  SELECT  GOOD  POLICY 

06573 

REF 

15 

LAST 

508 

16,3370 

30  073 

0 

TEST0NL2 

CAE 

RUPTREG4 

065735 

16,3371 

0 0006 

1 

-xtend 

06574 

REF 

1 

16,3372 

6 3311 

1 

3?MF 

BOOTNFXT 

065745 

REF 

6 

last 

509 

16,3373 

1 2772 

0 

TCF 

JET  SnFF 

R0658 

TORQJ 

- 1 

i/ECTOR  RECONSTRUCTION 

FOR  the 

P-AXIS 

0659 


REF  8 LAST  509 


16.337A  A IA75  1 S<1PTEST  CS 


TDFJtCHG 


come  here  from  pjetslec  to  test  p skip 
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0660 

rEF 

1 

_ J6_i3325 

6_J356Z  O 

AD 

♦Oji^CSP 

_U5E  150  Mi. -TO  TEST  FOR  A PAXIS  SCIP, 

0661 

0662 

REF 

23 

LAST 

503 

16.3376 

16.3377 

0 0006  1 
6 5733  0 

EXTEND 

3ZMF 

resume 

TP  GREATER  THAN  150MS  THEN  DO  NORMAL  P. 

0663 

REF 

1 

16,3400 

„3  3604  0- 

:a 

_PS<IPADil-  - 

SET  UP  A P AXIS  SXIP-.  - 

066A 

REF 

5 

LAST 

16,3401 

55*652  0 

IS 

PJJMPADR 

GOES  TO  JTLST  from  HERE 
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L 

P- 

AXIS  reaction  control  system  AUTOPILOT  USER'S  OWN  PAGE  NO.  20 

S3  E6 

R0665 

PROGRAM-NAME  JTL5T 

R0666 

tYRITTEN  BY  DICK  GRA'1  ( GAEC  - CALL  LR-5-1331  AREA  CODE  516  ) 

R0657 

R0668 

R0669 

this  arogRam  in  conjjnction  with  T6-RUPT  programs  allows  jets  to  be 
TURNED'  OFF  AT  THe  COMPUTED  OEF  TIME.  THIS  TAS<  IS  ACCOMPLISHED  BY  USING 
A JET  LIST  WHICH  IS  SEJ ^ UP_AS_E01.L0WS_  . . . . 

R0670 

JET  DfF  TIMES  DESIRED  JETS  AT  THIS  TIME 

R0671 

R0672 

R0673 

TIME6  T6NEXTJT 

T6MEXT  T6NEXTJT  +1 

T6NEXT  ♦! T6NFXTJT  *2  _ _ 

RO67A 

R0675 

these  locations  reCewe  the  Jet  on  times  scaled  as  tb  (.625  ms/bit).  as 
AN  example  OF  hOW  T_Mi_PROGRAM  _W0RK.S  , CONSIDER  ThE  FOllQWI  NGl  dROBl  EM.  . . 

R0676 

R0677 

R0678 

50  MS  AGO  A P AXIS  JET  COMPUTATION  DE-IDED  JElS  U AND  It;  SHOULD  BE 

ON.  FOR  120  MS.  AFTER  120.  MS  IT  WAS  FURTHER  DECIDED  THAT  JETS  12,15 

15  AND  3 SHOULD  3E  JDN  UNTIL  THE  NeXT.  P AXIS  . CO MPJ.TATXO.NH WHICH  , . 

R0679 

RO68O 

RO68I 

OCCURS  IN  200  MS  AFTER  THE  LAST  P AXIS  JET  COMPUTATION).  AT  THE 
CURRENT  TIME  THE  DR  AXES  COMPUTES  THAT  JET  2 SHOULD  BE  ON  FOR  65  MS 
AND  JET  9 SHOULD  3t  ON _FOR  72.5  MS.  AFTER  72.5  MS  NO  FURTHER  OR  JETS 

R06B2 

R06B3 

RO6BA 

SHOULD  BE  DM.  THIS  SEOUENCE  OF  JETS  CORRESPONOS  TO  A +P  ROTATION 
with  a simultaneous  +Y  AND  -Z  TRANSLATION  AND  ALSO  A -Y  (DIAGONAL) 
rotation  ABOUT  THE  Y AND  Z AXES  , NOTE  JET  9 IS  ON  L0NG£R  THAN  JET  2 

R06B5 

RO686 

R06B7 

WHIICH  WOULD  Be  THE  CASE  IF  THE  Q-R  JETS  HAD  BEEN  ON  BEFORE.  IN  THIS 
CASE,  THE  following  SEQUENCE  OF  EVENTS  OCCURRED  AT  THE  P AXIS 

computation  

RO688 

1)  CHANNEL  5 WAS  LOADED  WITH  OCtAL  24  TO  TURN  ON  JETS  12  AND  15 

R0689 

2)  TIME  6 WAS  LOADED  WITH  120  MS 

RO69O 

31  T6NEXT  WAS  LOADED  WITH  +n  ( THIS  INDICATES  THF  CnNTFNTS  OF 

RO69I 

T&NEXT  are  not  TO  BE  USED  IN  THE  T6JDB  PROGRAM) 

R0692 

4)  T6NEXLJT  WAS  LOAlDEDjWITH  OCTAL  226  TO  CAUSE  JETS  3,12.15 

R0693 

and  16  TD'  GO  ON  when  T6  HAS  BEEN  DECREMENTED  TO  -0. 

R069A 

5)  THE  T6  CwOCK  yAS  TURNED  ON  TO  BEGIN  COUNTING  DOWm  TIME  6 - _ -.  . ..  

R0695 

R0696 

Ai  the  qr  axes  jet  list  computation,  the  t6  c.oc<  has  Been  reduced 

TO'  70  MS  (lZO-50)  THEREFORE  THE  FOLLOWING  DCCjRS  ^. . ._ 

R0697 

R0698 

1)  channel  5 IS  loaded  with  octal  40022  TO  TURN  ON  JETS  2 AND 
9,  ( THIS  IS  performed  in  the  section  called  RATE) 

R0699 

R0700 

2)  THE  bank  is  switched  FROM  THE  OR  BANK  TO  THE  P BANK  (WHERE 
THE  JET  LIST  IS  STORED)  AS  fJLLOwS  .... 

R0701 

DCA  JTLSTAOR 

633^>36A 


L 

R0702 

R0703 


R070A 

R0705 

R0706 

R0707 

R0708 

R0709 

R0710 

80TU 

R0712 
R0713 
R0714 
R0715 
. R0716 
R0717 

R0718 

R0719 

R07e0 

R0721 
R0722  - 
R0723 
R072A 

RJ3725 

R0726 

R0727 


Rq728 

R0729 

R073O 

R0731 

R0732 

R0733 

R073A 

Ro735 

R0736 

0737 

0738 

0739 
07A0 
07A1 
07A2 
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OrCB ( IN  THE  3R  AXES  ONLY) 

3)  THE  Desired  jet  on  time  for  jet  2 is  compared  with  t6. 


A)  singe  T6  is  greater  THAN  THE  OeSIRED  JET  ON  TIME  FOR  JET  2. 

T6  IS  changed  to  65  MS  AND  T6NEXT  IS  LOADED  WItH  5 MS, 

. thf  di-ference  Between  jet.  on  time_and  T6)..._  . . _ 

5)  T6NEXTJT  IS  CHANGED  TO  OCTAL  Ao020  * AND  THE  FORmER  CONTENTS 

OF  T6NE<LJI„LS_  placed  IN.  TbNEXTJT  +1,  THIS  CAJSES  JET  9 TO 
remain  on  and  jet  2 TO  BE  TJRNED  OFF  WHEN  T6  IS  DECREMENTED 
TO  zero,  it  also  ASSIGNS  THE  P AXIS  JET  CODE  TO  THE 
time  in  T6NFXT. 

6)  THE  CONTENTS  OF  T6NEXT  (5M5)  IS  COMPARED  WITH  THf 

dlffeRe^ice  Between  the  two  OR  axis  jet  on  ti.mes.  since  .here  _ 

the  difference  is  7,5  MS  WHICH  IS  GREATER  THAN  jHE  CONTENTS 
OF  T6NEXT  (5MS),  THe  ADDITIONAL  OR  AXIS  RUPt  OCrURS  aFTER 

. the  RUPT  stored  in  _T6NEXT,  thus  2,5  MS  IS  SIQRED_ 

IN  T6NEXT  +1 

7J_itN.EXiJi_t2_  15._made  equal,  to  .the.  Jets  which  are  to  be  .on 

after  the  75  MS  HAS  ELAPSED  (IN  THE  CASE  HERE  IT  IS  ZErO) 

THUS  for  tHE  example  considered  THE_  jet.  List  ..I..S_j,.,,___. 

JET  times  jet  codes 

XLMEf.  = fcSMS, T6NEXTJT = A0P2Q SIGN  IS  NEGATIVE  TO 

T6NEXT  = 5 MS,  T6NEXTJT  +1  = 00226  INDICATES  Q-R  AXIS 

T6NEXT  +1  =2.5  MS,  T6NEXTJT  +2=,  AOOOO  JETS , POSI T I VF  TO 

INDICATf  P JETS. 

CHANNEL  6 = 00024 

channel  5 = 00022  SIGN  IS  LOST  ONCE  THE  JET  CODE  IS  LOADED 


this  =XAMPLe  and  jHe  coding  should  allow  one  to  understand  the  Jet  list. 
ONE  further  comment  IS  IN  ORDER  - If  THE  JET  ON  TIMES  EXCEED  150  MS, 
THE  JETS  ARE  TURNED  ON  AND  THE  JET  LIST  IS  NOT  ENTERED.  IN  100  MS 
A NEW^  jet  On  time  IS  COMPUTED  WHICH  WILL  RESET  THE  JETS  IF  NEEDED, 

WHENi  THE  JET  DN  TIME  IS  LESS  THAN  150MS,  THE  JET  LIST  IS  LOADED  AS 

01 scussed  above  ano  the  tjet  computation  1 5_ I 3Ped  next  time, _tHAJ_ I S 

the  axis  is  not  repeated  again  until  20D  ms  has  elapsed,  this  insures 

THAT  when  a new  JET  TIME  IS  COMPUTED  THE  JET  LIST  WILL  NOT  HAVE 

A time  Stored  whichi  corresponds  to  the  axis  just  completed. 


REF 

ref 

5 

1 

LAST 

488 

16.3A02 

16,3403 

10 

1 

1 031 
3426 

1 JTLST 
0 

CCS 

TCF 

T1ME6 

T60NN0W 

TEST  CURRENT  STATE  OF  T6. 

IF  T6  IS  + THEN  CLOCK  IS  ON. 

REF 

1 

1 6 » 3404 

1 

3410 

0 

TCF 

TbOFFNOW 

IF  T6  IS  ♦ ZERO  THEN  T6  MUST  BE  OFF 

REF 

2 

LAST 

512 

16,3405 

1 

3426 

0 

rCF 

TbONNOW 

SINCE  ALL  DINC  S LEAD  TO  MINUS  ZERO. 

REF 

1 

16  f 3406 

0 

6017 

1 

TC 

T6J0B 

WE  ARE  IN  the  UNIQUE  STATE  WHICH  SAYS 

REF 

1 

16,3407 

1 

3402 

0 

TCF 

JT  LST 

A T6  interrupt  is  waiting. do  T6  JOB. 
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07A3  REF  9 LAST  509  L6 .3A10.  -3-  1A75  0 - TSOfFAlOW  CA lOFJiCHG-  - 


07AA 

REF 

6 

LAST 

512 

16 

3911 

59  03i 

1 

rs 

T1ME6 

WE  are  here  if  T6  clock  is  off. 

07A5 

REF 

30 

LAST 

A89 

16 

3912 

3 7795 

0 

:a 

3IT15 

0746 

16 

3913 

0 0006 

1 

-iX.T£ND 

TUJRN  CLOCK  PULSE  FOR  T6  ON  AND.lOAD  I6. 

07A7 

16 

3919 

05  013 

0 

WOR 

13 

07A8 

REF 

2 

LAST 

502 

16 

3915 

3 1972 

1 

:a 

JTSAtCHG 

0749 

REF 

5 

LAST 

AB5 

16 

39 16 

55 ' 009 

0 

rs 

rsNFXTJT 

0750 

REF 

l7l 

LAST 

508 

16 

3917 

3 7767 

0 

CA 

ZERO 

0751 

ref 

2 

last 

A88 

16 

3920 

57'979 

1 

<CH 

AD0TLT6 

SET  UP  next  T6  INTERRUPT  AFTER  THE 

0752 

REF 

9 

LAST 

988 

. 16 

3921 

55 '002 

0 

rs 

T6NEXT 

current  ONE  IS  COMPLETE..  ADDIlTb  MAY 

0753 

REF 

172 

LAST 

513 

16 

3922 

3 7767 

0 

:a. 

ZERO 

BE  ZERO  IN  WHICH  CASE  NO  MORE  T6. 

075A 

REF 

2 

LAST 

988 

16 

3923 

57*973 

0 

XCH 

AD0T6JTS 

0755 

ref 

6 

LAST  513  _ 

16 

13929 

_ 55*005 

1 

rs  _ 

T6NEXTJT  +1 

0756 

ref 

2A 

LAST 

510 

16 

3925 

1 5733 

1 

rcF 

RESUME 

0757 

REF 

10 

LAST 

513 

16 

3926 

11*002 

0 

T50NN0W 

:cs 

T6NEXT 

here  if  T6  is  now  on.  see  if  tsnext  is 

0758 

REF 

1 

16 

3927 

1 3507 

1 

rcF 

T6NXTF+-.  . 

ZERO  OR  NOT. 

0759 

REF 

10 

LAST 

513 

16 

3930 

9 1975 

1 

:s 

TOFJTCHG 

T6NEXT  IS  NEVER  NEGATIVE, 

0760 

REF 

7 

LAST 

513 

16 

3931 

6 0031 

0 

AD 

T1ME6 

A CONTAINS  T6  - TUET. 

0761 

REF 

238 

last 

509 

16 

3932 

10  000 

0 

CCS^ 

A - . 

TEST  SIGN  OF  A (SAVING  THE  DIFFERENCE)-,  . 

0762 

ref 

122 

LAST 

992 

16 

3933 

6 7763 

1 

AD 

ONE 

0763 

REF 

1 

16 

3939 

1 3951 

0 

rCF 

JISFTRST 

TUET  IS  LESS  THAN  T6. 

0764 

16 

3935 

1 3936 

1 

NODP 

IF  DIFFERENCE  IS  NEGATIVE  OR  ZERO 

0765 

REF 

123 

LAST 

513 

16 

3936 

6 7763 

1 

AD 

ONE 

WE  ADD  1 SO  ZERO  CAN  NEVER  BE  IN  LIST. 

0766 

REF 

11 

LAST 

513 

16 

3937 

55*002 

0 

rs 

16NEXT 

0767 

REF 

3 

LAST 

5i3 

16 

3.990 

3 .1972 

1 

OA  . . 

J.TSATCbG.  ..  . 

0768 

ref 

7 

last 

513 

16 

3991 

55*005 

1 

rs 

T6NFxTJT  +1 

BEGIN  SETTING  UP  UETs  IN  THE  UET  lIsT. 

0769 

REF 

173 

LAST 

513 

16 

3992 

3 7767 

0 

:a 

ZERO 

0770 

REF 

3 

LAST 

513 

16 

3993 

57*979 

1 

XCH  _ 

ADDTLT6 

0771 

REF 

12 

LAST 

513 

16 

3999 

55*003 

1 

rs 

T6NEXT  +1 

0772 

REF 

I7A 

LAST 

513 

16 

3995 

3 7767 

0 

CA 

ZERO 

0773 

ref 

3 

LAsT 

513 

16 

3996 

57*973 

0 

XCR 

ADDT6JTS 

077A 

REF 

8 

LAST 

513 

16 

3997 

55*006 

1 

rs 

T6NEXTJT  +2 

0775 

REF 

25 

LAST 

513 

16 

3950 

1 5733 

1 

rcF 

RESUME 

0776 

REF 

13 

LAST 

513 

16 

3951 

55*002 

0 

JTSFIRST 

rs 

T6NEXT 

HERE  .IF. TUET  IS  LESS  THAN_Tf„_  . . 

0777 

REF 

11 

LAST 

513 

16 

3952 

3 1975 

0 

CA 

TOFUTCHG 

0778 

REF 

8 

LAST 

513 

16 

3953 

59  031 

1 

rs 

T1ME6 

SWITCH  T6  AND  TUET) 

0779 

ref 

A 

LAS^T 

513 

16 

3959 

3 1972 

i 

CA 

UTSATLCHG 

0780 

REF 

9 

LAST 

513 

16 

3955 

57*009 

1 

XCH 

T6NEXTUT 

BEGIN  switching  UET  WORDS  IN  UET  LIST. 

0781 

REF 

10 

LAST 

513 

16 

3956 

55*005 

1 

rs 

TeNEXTUT  +1 

0782 

ref 

4 

last 

513 

16 

3957 

9 1979 

0 

cs 

ADDTLT6 

0783 

16 

3460 

0 0006 

1 

EXrEND 

078A 

REF 

26 

LAST 

513 

16 

346 1 

1 5733 

1 

3ZF 

resume 

SEE  IF  AN  ADDITIONAL  (OR)  UET  TIME  IS 

0785 

ref 

lA 

LAST 

513 

_i6 

3962 

6 100.2 

1 

AD. 

T6NFXT 

REQUIRED.  ... 

0786 

REF 

239 

last 

513 

16 

3963 

10  000 

0 

CCS 

A 

IF  AN  ADDITIONAL  T6  IS  NEEDeN,  COMPARE 

0787 

REF 

12A 

LAST 

513 

16 

3969 

6 7763 

1 

AD 

ONE 

IT  WITH  the  CONTENTS  OF  T6NEXT. 

0788 

16 

3965 

1 3976 

0 

TCF 

♦ 1 1 

0789 

16 

3966 

1 3967 

0 

NOOP 

0790 

REF 

125 

LAST 

513 

16 

3967 

6 7763 

1 

AD 

ONE 

0791 

ref 

LAST 

513 

16 

3970 

55*003 

1 

rs 

T6NFXT  +1 

0792 

REF 

175 

LAST 

513 

16 

3971 

3 7767 

0 

CA 

ZERO 
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P-AXI5  reaction  CONTRJL  SYSTEM  AUTOPILOT 


USER'S  OWN  page  NO,  23 


S3  E6 


0799 

REF 

9 LAST 

513 

16,3973 

57'973  0 

XCH 

A0DT6JTS 

0795 

REF 

11  LAST 

513 

16,3979 

55*006  1 

TS 

T6NEXTJT  +2 

0796 

REF 

27  last 

513 

, l6t3^*L75 

1 5733  1 

ICF 

RESUME 

0797 

ref 

16  last 

513 

16,3976 

55*003  1 

♦ 11 

IS 

T6NEyT  +1 

0798 

REF 

176  LAST 

513 

16,3977 

3 7767  0 

CA 

EERO 

0799 

REF 

6 LAST 

51 A 

16,3500 

__57  * 979  1 

xCH 

AODTl  T6  - 

0800 

REF 

17  LAST 

519 

16»3501 

55*002  0 

rs 

TbNExT 

0801 

ref 

177  last 

51A 

16,3502 

3 7767  0 

:A 

EERO 

_0802 

REF 

_ 5 LAST 

519^ 

16,3503 

_ 57*973  _0 

XCH  _ 

ADDT6JTS 

0803 

REF 

12  LAST 

519 

16,3509 

57*005  0 

XCH 

T6MEXTJT  +1 

0809 

REF 

13  LAST 

519 

16*3505 

55*006  1 

TS 

T6NEXTJT  +2 

0805 

ref 

28  last  _5_1A 

IA,3506 

1^&73.3  1 . 

rcF 

resume 

0806 

REF 

12  LAST 

513 

16,3507 

9 1975  1 

T6NXT=* 

:s 

TOFUTCHG 

0807 

REF 

9 LAST 

513 

16,3510 

6 0031  0 

. AD 

TIME6 

0808 

REF 

18  LAST 

51A 

16,3511 

^ LO  O^  l 

AD 

T6MEXT 

0809 

REF 

290  LAST 

513 

16,3512 

10  000  0 

CCS 

A 

0810 

REF 

126  LAST 

513 

16,3513 

6 7763  1 

AD 

ONE 

16,3519 

1 3523  1 

rCF 

♦ 7 

0812 

16,3515 

1 3516  1 

NOOP 

0813 

REF 

127  last 

619 

16,3516 

6 7763  1 

AD 

ONE 

0819 

REF 

19  LAST 

519_ 

16,3517 

55*003  1 

IS 

T6MExT  +1 

0815 

REF 

5 LAST 

513 

16,3520 

3 1972  1 

CA 

UTSATCHG 

0816 

REF 

19  LAST 

519 

16,3521 

55*006  1 

IS 

T6NEXTUT  +2 

0817 

REF 

29  last 

519_ 

16^3522 

1 5733  1 

TCF 

RESUME 

0818 

ref 

95  last 

506 

16,3523 

59  001  1 

♦ 7 

IS 

L 

0819 

REF 

13  LAST 

519 

16,3529 

9 1975  1 

CS 

TOFUTCHG 

0820 

REF 

10  LASJ 

519, 

16,3525 

6 0031  0 

AD 

TiMEfe  . _ _ ^ ^ 

0821 

REF 

291  last 

519 

16,3526 

10  000  0 

CCS 

A 

0822 

REF 

128  last 

519 

16,3527 

6 7763  1 

AD 

ONE 

082^3 

REF 

1 

16,3530 

1 3590  1 

TCF 

U1S34T6 

0829 

16,3531 

1 3532  1 

NOOP 

0825 

REF 

129  LAST 

519 

16,3532 

6 7763  1 

AD 

ONE 

0826 

■ref 

20  LAST 

519 

16,3533 

55*002  0 

TS 

T6NFXT 

0827 

REF 

96  LAST 

519 

16,3539 

3 0001  0 

CA 

L 

0828 

REF 

21  LAST 

519 

16,3535 

55*003  1 

IS 

T6NEXT  +1 

0829 

REF 

6 LAST 

519 

16,3536 

3 1972  1 

CA 

UJSATCHG 

0830 

16,3537 

1 3596  1 

rcF 

♦ 7 

0831 

REF 

22  LAST 

519 

16,3590 

57*002  1 

JTSB9T6 

XCH 

T6MEXT 

0832 

REF 

23  LAST 

519 

16,3591 

55*003  1 

TS 

T6NEXT  ♦! 

0833 

REF 

19  LAST 

519 

l6 ,3592 

3 1975  0 

CA 

TOFUTCHG 

0839 

ref 

11  last 

519 

16,3593 

59  031  1 

TS 

TIMEa 

0835 

REF 

7 LAST 

519 

16  f 354^ 

3 1972  1 

CA 

UTSATCHG 

08  36 

REF 

15  LAST 

519 

16,3595 

57*009  1 

XCH 

T6NEXTUT 

0837 

ref 

16  LAST 

519 

l6 ,3596 

57*005  0 

♦7 

XCH 

TbNExTUT  +1 

0838 

REp 

17  1 AST 

519 

16,3597 

57*006  0 

xrH 

T6NFXTUT  *2 

0839 

REF 

30  LAST 

519 

16,3550 

1 5733  1 

TCF 

RESUME 

0891 


16,3551  36115  1 RATEMAX+  3EC 


0,99222 


633436A 


08A2 

08<f3 

08<.4 

08A5 

08A6 

08A7 

0848 

0849 

0850 
08501 

0851 

0852 

0853 

0854 

0855 
0856, 

0857 

0858 

0859 

0860 
0861 
0862 

0863 

0864 

0865 

0866 

0867 

0868 


0869 
086902 
086904 

0870 

0871 

0872 

0873 
087301 
087302 
087303 
087304 

08731 

08732 

08733 

08734 
08y4 

08745 

R087451 
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p-Axis  Reaction 

control  system 

autopilot 

USER'S  OM/N  PAGE  NO.  24  S3  E6 

16.3552 

34344,  0 _ 

,.rA.TEMAX-- 

DVL-  - 

16.3553 

16.3554 
16.3_555  _ 

31221  1 
77733  0 
77071,1 

RATEMAX2 

-35AT15 

-5DEG+1 

DEC 

DEC 

DEC,  _ , 

0. 79012 
-0. 00219 
02772 

-5  DEGREES  ♦ CCSBIT  SCALED  AT  ^l  RADIANS 

16.3556 

16.3557 
16.3560 

00050  1 
00010  0 
00014  1 

3B.7AT16 
T Ml  NAT  16 
PTJMINT6 

DEC 

DEC 

DEC 

0.00242 
0. 00047 
0,00073 

16.3561 

16.3562 

00044  1 
00360  1 
_0Q23,2,  1. 

.IDPS 

+1.5CSP 

1.5lCSP16 

DEC 

DEC 

dec 

0.00222 

♦0.01465 

O.DOqSa 

16.3564 

16.3565 

16.3566 

77753  0 -COM-6.5 

00013  0 14-TJMIN 
7,T5a7_0 NtGCSRl, 

DEC 

dec 

dec 

-.00122 

11 

,,=  .JDQq77 

-SUM  OF  5MS  comp  TIME  AND  6.5MS  DELAY 

16.3567 

16.3570 

16.3571 

37775  0 
34362  1 
_243iii6_l 

MS30P 
0,88975 
IV  25 

DCTAL 

DEC 

dec 

37775 

0.88975 

O.64n00 

16.3572 

16.3573 

16.3574 

77555  1 
77001  0 
76447  1 

-dratedb 

-D2JTL1M 

-A2JTLIM 

octal 

OCTAL 

OCTAL 

77555 

77001 

76447 

-0.4  DEG/SEC  SCALED  AT  PI/4  RADlANS/SEC 

-1.4  DEG/SEC  SCALED  AT  PI/4 

-2.0  DEG/SEC  SCALED  AT  PI/4 

16.3575 

16.3576 

16.3577 

77223  1 
31000  0 
77764  1 

-ARATEDB 

25/32 

-TJMINT6 

OCTAL 

DEC 

octal 

77223 

.76125 

77764 

-1.0  DEG/SEC  SCALED  AT  PI/4 

-(7*5  MS)  ♦ 1 bIKFOR  BZMF),  T6  SCALING 

16.3600 

16.3601 

16.3602 

00077  1 
00600  1 
71462  1 

0APLQ<Y6 

3ITS8.9 

J^M 

OCT 
OCTAL 
DEC  _ 

00077 

00600 

- . 2 

TEMPORARY  ESTIMATE 

REF  1 

REF  1 

16.3603 

16.3604 

16.3605 

03146  1 
02401  0 
37533  0 

CSPATlP 

PSKIPADR 

JETLWADR 

DEC 

3ENADR 

CADR 

0.  lOnOO 

SKIPpAXS 

TJETLAW 

100  MS  AT  1, 

rEf 

10 

lAst 

492 

16  «3606 

22  016 

0 

sETidlE 

.XCH 

BAN<rUPT 

First 

T5RUPT  After  fresh  starT  :omes 

16.3607 

0 0006 

1 

EXTEND 

ref 

9 

LAST 

492 

16,3610 

22  012 

1 

3XCH 

DRJPt 

REF 

1 

16,3611 

3 3640 

0 

CAF 

TSIDaDR 

HERE. 

T5IDLER  IS  STARTED  IN  1 SEC, 

REF 

8 

LAST 

494 

16,3612 

55»000 

1 

IS 

T5ADR 

REF 

1 

16  f 36 1 3 

3 3636 

1 

CAF 

ISECRUPT 

REF 

5 

LAST 

49P 

16,3614 

54  030 

0 

TS 

TIMES 

REF 

19 

LAST 

508 

16,3615 

0 5270 

1 

TC 

IBNKCALL 

ref 

LAST 

468 

1 6 f 36 1 6 

40114 

1 

FCADR 

STDPRATE 

REF 

20 

LAST 

515 

16,3617 

0 5270 

1 

TC 

IBNKCALL 

REF 

3 

LAST 

482 

16,3620 

40127 

1 

FCADR 

ALLCOAST 

ref 

1 

16,3621 

3 3637 

0 

CAF 

DB/)inF 

ref 

6 

LAST 

507 

16,3622 

54  375 

1 

IS 

DB 

REF 

5 

LAST 

508 

16,3623 

3 7771 

1 

CAF 

NEGDnE 

REF 

3 

LAST 

479 

16,3624 

55*732 

1 

ts 

AOSCOUNTL 

MAXES 

APS  CODING  INACTIVE 

REF 

31 

last 

514 

16.3625 

1 5733 

1 

TCF 

RESUME 

REF  U _LAST  5i_5 16,3J,26  22  016  0 _I5LDL£R  _ .xCH  BANKRUPT LOOKS  FOR  GODAPGO  ID  START  JHE  DAP. 

start  coding  FDR  MODJLE  3 REMAKE.  AUGUST  l967*»*SrART  CODING  FOR  MODULE  3 REMAKE.  AUGUST  1967»***«*»**»»»»**»»»* 
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L 

P-AXI 

5 1 

reaction  control  system  autopilot 

USER'S  OWN  PAGE  NO.  25  S3  E6 

Ofi7455 

16t3627 

0 0006 

_1 

T5IDLFRI 

EXTEND 

087A6 

REF 

10 

LAST 

515 

16.3630 

22  012 

1 

3XCH 

orjpt 

087465 

REF 

5 

LAST 

497 

L6,363_l 

3_  0377 

1 

:a  _ 

SMARlFLG.  _ _ 

IS  SMART JOB  DESIRED!  _ _ 

08747 

16,3632 

0 0006 

1 

EXTEND 

087A75 

REF 

5 

LAST 

496 

16,3633 

6 2544 

0 

3ZMF 

M0RET5ID 

NO.  TAKE  NO  ACTION. 

08748 

REF 

28 

LAST 

497 

16,3634 

3 7751 

0 

:af 

3IT11 

YES.  SEE  IF  IT  IS  ALREADY  RUNNING. 

087485 

REf 

1 

16,3635 

1 2524 

1 

TCF 

ADDLT5ID 

GO  TO  ADDITIONAL  CODING. 

R087487 

»*END 

CODING 

FOR 

MODXE  3 REMAXE,  AUGUST 

1967*h*)hh*END  coding  FOR  MODULE 

3 REMAKE  .AUGUST  1967*hhhhhhhhhhhhhhhhhh*# 

0875 

16.3636 

_ 3Z63.4^ 

1 

ISeCRUPT 

OCTAL 

37634 

1 SECOND  scaled  AS  II ME5  _(1Q0_  PULSES.)  . . 

087505 

16,3637 

00707 

1 

D3WIDE 

DEC 

0.0?778 

08751 

REF 

2 LAST 

55 

E6  . 

£BATJi  = 

-AOSOTERM 

08752 

16,3640 

03626 

0 

T5IDADR 

2CADR 

T5I0I  ER 

C08752 

ref 

1 

16,3641 

34O66 

0 

R0876 

DUMMY 

FILTER  RJPT 

afi^r  P-AXIS  RUP1._ 

0877 

REF 

3 

LAST 

516 

E6 

-BAN<= 

AOSOTERM 

0878 

REF 

2 

LAST 

498 

16,3642 

3 3567 

0 

OJMMYFIL 

:af 

MS30P 

RESET  TIMER  IMMEDIATELY  - DTs  30  MS 

0879 

REF 

6 

last 

5L5 

16  j 36^3 

54  030 

0 

rs 

TIMES 

0880 

REF 

12 

LAST 

515 

16,3644 

22  016 

0 

lxch 

banxrupt 

interrupt  lead-in  (CONTINUED), 

0881 

16.J645 

0 a006 

1 

-XI END 

SET  UP  QRAXIS  RUPT. 

0882 

ref 

1 

16,3646 

3 3756 

0 

DCA 

OFORAXIS 

0883 

ref 

9 

LAST 

515 

16,3647 

53'001 

0 

DXCH 

T5ADR 

R0884 

increment  aosteRm 

IN  Descent 

mode  to 

improve  rate 

: Derivation  during  cdraxis  control. 

0888 

REF 

23 

LAST 

488 

16,3650 

3 7762 

0 

CAF 

31T2 

STAGE  BIT  IS  ONE  FOR  DESCENT. 

0887 

16,3651 

0 0006 

1 

extend 

0888 

16,3652 

02  030 

0 

RAND 

30 

READ  STAGE  BIT 

0889 

16,3653 

0 0006 

1 

EXTEND 

0890 

REF 

1 

16,3654 

1 3716 

0 

3ZF 

CHXAdS 

NOT  IN  DESCENT.  HOW  ABOUT  APS  3JRN. 

0891 

REF 

17 

LAST 

495 

16,3655 

4 0075 

1 

:s 

FlASwRDI 

SEE  IF  ENGINE  IS  OFF. 

0892 

REF 

4 

LAST 

495 

16,3656 

7 7757 

1 

MAS< 

ENGINBIT 

Read  complement  of  engine-on  fl^g^ 

0893 

16,3657 

1 3660 

0 

NOOP 

0894 

16  f 3660 

0 0006 

1 

EXTEND 

0895 

REF 

1 

16  * 356 1 

1 3666 

0 

3ZF 

DLOOPBGN 

ZFRO  WHEN  ENGINE  IS  NOT  OFF. 

0896 

REF  178 

LAST 

518 

16  * 35t)2 

3 7767 

0 

CAF 

ZERO 

YES.  ENGINE  IS  OFF. 

0897 

REf 

4 

last 

516 

1 6 f 3663 

55 • 664 

0 

rs 

AOSOTERM 

0898 

ref 

1 

1 6 9 3664 

55*665 

1 

is 

adsrterm 

0899 

REF 

3 

LAST 

104 

16,3665 

1 5735 

1 

TCF 

NOORSM 

RESUME, 

0900 

REF 

37 

LAST 

507 

1 6 « 3666 

3 7763 

1 

DL00PB3N 

CAF 

Bill 

FIRST  THE  R-AXIS,  THEN  THE  Q-AXIS. 

0901 

REF 

51 

LAST 

493 

16,3667 

54  061 

1 

OLOOP 

rs 

ITEMPI 

0902 

16,3670 

6 0000 

1 

DOUBLE 

0903 

ref 

25 

last 

331 

16,3671 

54  062 

1 

TS 

ITEMP2 

0904 

REF 

52 

last 

516 

16,3672 

50  061 

0 

INDEX 

ITEMPI 
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L P-AXIS  reaction  COnTROU  SYSTEM  AUTOPILOT  USER'S  OhN  PAGE  NO.  26  S3  E6 


nQns 

R£f 

1 

16.3673 

^ ^751 

_l_ 

CA 

P| TCURTS 

0906 

16,3679 

0 0006 

1 

EXTEND 

0907 

16,3675 

02  012 

0 

7AN0 

12 

IS  pitch(roll)  gimbal  moving. 

0908 

16,3676 

0 -0006 

1 

- -XXEm 

0909 

REF 

1 

16,3677 

1 3713 

0 

3ZF 

dloopchk 

ZERO  WHEN  GIMBaL  IS  NOT  MOVING. 

R09l0 

FORM 

ACCU0T»CSP(2)»(1-.5*K)  SCAlfD  AT  PI/9.  THIS  I S THE. INCREMEKT 

T-0- BE- APDeD  to  the  offset -ACCELERATION  TERM. 

0912 

REF 

5 

LAST 

999 

16,3700 

9 1692 

1 

:s 

(1-0 

(1-K)  SCALED  AT  1.  CS  TO  COMPENSATE  FOR 

A09125 

INVFRTFD  SIGN  OF  QACCDDT. 

0913 

16,3701 

0 0006 

1 

EXTEND 

091A 

REF 

10 

LAST 

502 

16,3702 

7 7753 

0 

*1P 

31T9 

.5»(1-K)  , scaled  at  2(5). 

0915 

ref 

1 

_ 16,3_703._ 

6 3-7-60 

0 

_ . . AD- 

-NEG3iT9  - - 

(U--.5-tlO  . 5CALE0  AT  2(5). 

0916 

16,3709 

0 0006 

1 

EXTEND 

0917 

ref 

1 

16,3705 

7 3753 

1 

MP 

CSPSQ 

CSP(2)9(1.-.5»K)  AT  2(5) 

0918 

J.6,3706 

0 0006 

I 

EXI-Em 

0919 

REF 

26 

LAST 

516 

16,3707 

5 0062 

0 

INDEX 

ITEMP2 

select  the  axis  , 

0920 

REF 

2 

LAST 

995 

16,3710 

7 1533 

1 

MP 

3ACCD0T 

QACCdOT  at  PI/2(7). 

0921 

REF 

63 

LAST 

516 

X6j3l711 

-50  0 61 

0 

INDEX 

ITEMPl 

0922 

REF 

5 

LAST 

516 

16,3712 

27*669 

0 

ADS 

ADSlTERM 

ADD  increment  SCALED  AT  Pl/9. 

0923 

REF 

69 

LAST 

51  Y 

16,3713 

10  061 

1 

DtOOPCHX  CCS 

ITEMPl 

092A 

ref 

1 

16,3719 

1 3667 

1 

TCF 

dloop 

R-AXIS  done,  now  do  the  Q-AXlS,  - - _ 

0925 

REF 

LAST 

516 

16,3715 

1 5735 

1 

TCF 

nodrrm 

RESUME. 

092505 

REF 

9 

LAST 

515 

16,3716 

11*732 

1 

CHKAPS  CCS 

AOSCnUNT 

9 WAY  BRANCH  EXPLOITED 

09251 

REF 

1 

_-l6JL3:7i7 

1 3737 

0 

- - - - TCF  „ 

DECCoUNT 

COUNTING  DOWN  FOR  AOSTASK 

092515 

ref 

1 

16,3720 

1 3791 

1 

TCF 

ADSNfXT 

time  to  oo  aostask 

09252 

REF 

5 

last 

517 

16,3721 

1 5735 

1 

TCF 

NU3R.SM 

AOSCOUNT  NOT  IN  USE. INACTIVE  AOSTASK. 

09253 

REF 

2 

last 

59_ 

L6,3722 

55*629 

1 

TS 

SJMRATEQ 

MINUS  ZERO  PUT  IN  AOSCOUNT  BY  ApSENGON. 

092533 

ref 

1 

16,3723 

55*625 

0 

TS 

SJMRATER 

09253A 

ref 

2 

last 

59 

16,3729 

55*622 

1 

TS 

SAVRATEO 

092535 

REF 

1 

16,3725 

55*623 

0 

IS 

SAVRATER 

092536 

JREF 

£» 

LAST 

978 

16,3726 

55  * 650 

1 

TS 

<C3EFCTR 

09259 

REF 

3 

LAST 

488 

I6O727 

9 19l6 

1 

cs 

OMEGAQ 

RECORD  -(OLD  OMEGA)  FOR  BOTH  AXES  FDR 

092595 

REf 

2 

last 

59 

16-,3730 

55*626 

0 

TS 

OlDaIfORQ 

09255 

REF 

6 

LAST 

988 

16,3731 

9 1920 

1 

CS 

3ME3AR 

THE  first  pass  OF  AOSTASK. 

092555 

REF 

1 

16,3732 

55*627 

1 

TS 

3L3/)F0RR 

09257 

REF 

37 

LAST 

509 

16,3733 

9 0077 

0 

;s 

DAP300LS 

092575 

REf 

2 

last 

977 

16,3739 

7 7759 

1 

mas< 

APS30ING 

09258 

ref 

38 

LAST 

517 

16,3735 

26  077 

0 

ADS 

3AP3nOLS 

092585 

REF 

1 

16,3736 

3 3750 

0 

CAF 

19DEC1ML 

092586 

REF 

5 

LAST 

51  7 

16,3737 

55*732 

1 

DECCOJNT  rS 

AOSCnUNT 

092587 

REF 

6 

last. 

51J 

__  L6,«379lO 

1 -5735 

1 

TCF 

N03Rc;M 

092588 

REF 

2 

LAST 

517 

16,3791 

3 3750 

0 

AOSNExT  CAF 

I9DECIML 

092589 

REF 

6 

last 

517 

16,3792 

55*732 

1 

TS 

AOSCnUNT 

09259 

16,3793 

0 0006 

1 

EXTEND 

092591 

ref 

1 

16,3799 

3 3797 

0 

OCA 

TOAOSTSK 

092592 

16,3795 

52  005 

0 

DICE 

633436A 

yUL 

system  for  agc: 

REVISION  0 

OF  program  BURST123  8Y  NASA  202110^-031 

DEC  7,  1967  (MAIN)  PAGE 

518 

L 

P-AXIS  REACTION  CONTROL  SYSTEM 

AUTOPILOT 

USER'S  OWN  page  NO.  27  S3 

E6 

092593 

I6ji746  __ 

_41^45_  1 

X3A0_ST5-<  -IFCAOR,. 

.AObTABA  ^ 

C092593 

09259A 

0926 

ref 

1 

I6t3747 

16,3750 

L6j3751 

03245  1 
00023  0 
01400  L- 

19DECIML  DEC 
PITCHBT5  3CT 

19 

014QO  _ 

_PIT-CH,-GiM6A-LJ-ILS-  J9.10). 

0927 

0928 

0929 

16.3752 

16.3753 
16,1754 

06000  1 
00243  1 
377760 

3CT 

CSPSO  OCT 

TT^ENTYMS  OCT 

06000 
00243 
37  77-6- 

ROLL  GIMBAL  BITS,  (11,12). 
.01  SCALED  AT  1,  FOR  CSP(2). 
20  MS  -FOR  -T5. 

0930 

0931 
C093L 

REF 

ref 

3 last  488 
1 

16.3755 

16.3756 

E6 

02002  1 
36066  1 

pban<= 

OFqRAXIS  2CADR 

oerror 

ORAXIS 

0932 

0933 
0939 

16,3757 
16,3760 
_ iJ>_,l7_6 1 _ . 

01330  0 
77377  1 
3777^7_X_ 

HJLLSLIM  OEC 
NEGBIT9  OCT 
CMKSUM16  OCT 

0.04A44 

-400 

37777 

0.5  DEG/SEC  SCALED  AT  11.25  DE3/SEC 

633<t36A 


L 

0001 
R0003 
R0005 
R0007  ^ 

0008 

0009 
C0009 

00095 

0010 
0011 

0012  , 

0013 

001-!. 

RoOis 

R0017 


0018 

0019 

R00195 


0020 

Ro0205 

R0021 

R0022 

R002A 

R0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 
003A 

0035 

0036 

0037 

0038 
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17>2000 3ANK U 

THE  following  T6RUPT  ENTRY  BEGINS  ThE  PROoRAM  WhICH  CONTROLS  THE  O.R-AXIs  ACTION  OF  THt  LEM  UsING  THE  RCS  JETs. 
the  nominal  time  between  the  J.R-AXIS  RUPTS  is  100  MS  (UnLES-;  the  trim  GIMBAL  control  system  is  USED,  In  WHICH 
CASF  this  program  is  IDLE). 


REF 

8 

LAST 

A9Z 

E6 

eban<= 

DT 

17,2000  _ .i)3033_A. 

NJLLFILT 

2CADR 

FILOiiMMY 

ref 

1 

17,2001 

A0066  0 

REF 

9 

LAST 

519 

E6 

EBAN<= 

DT 

REF 

1 

17,2002 

3 2560  0 

ORAXIS 

:af 

MS2DraR 

RESET  timer  immediately  - DT:  20  MS 

REf 

7 

LAST 

516 

17,2003 

5A  030  0 

rs 

T1MF5 

REF 

13 

last 

516 

17,200a 

22  016  0 

lXCH 

BANKRUPT 

INTERRUPT  LEAD  IN  (CONTINUED) 

17,2005 

0 0006  1 

EXTEND 

REF 

11 

LAST 

5.16 

17.2006 

22  012  1 

:3rjpt 

SET  A 

GIMBA_L  C 

DUMMY  Kalman,  filter 

T5RUPT.  (THIS 

MAY  3r  Reset  td  the  kalman  filter 

initialization  pass,  if  the  trim 

17,2007 

0 0006  1 

EXTEND 

REF  1 

17,2010 

3 2001  1 

OCA  NULLFILT 

start  coding  for  module  3 REMA<e,  august  l967)HUtSTART  CODING  FOR  MODULE  3 REMAKE,  AUGUST  1967*»**»*»»x*it»»'Ht»»)'» 


ref 

1 

17,2011 

1 2107  1 INSERT17  TCF 

TRMChECK 

are  extraordinary  GTS  ENTRIES  NEEDEDS 

»*END 

CODING  FDR 

MODULE  3 remake,  AUGUST 

l967***»»END 

CODING  FOR  MODULE  3 REMAKE,  AUGUST  lg67**********»»»»****»* 

CALCJ 

late  lem  bddy  rates  for 

a AND  R AXES 

this 

computation 

IS  VALID  For 

Both  asCent 

AND  Descent 

SIN^  tHe  offset 

acceleration  term  is  included  always. 

but  HAS  value  2eRo  in  Descent 

, and  since 

the  weighting 

factors  are  in 

erasable  and  Distinct. 

FIRST 

, CONSTRUCT 

Y ANO  Z LDU 

increments : 

REF 

18  last  503 

17,2012 

30  033  1 3ODYRATE  CAE 

CDJY 

2:S  complement  measurement  scaled  at  pi. 

ref 

97  LAST  51A 

17,2013 

_54  001  1 

TS 

L 

(SAVE  for  updating  OF  OLDYFORO) 

17,2014 

0 0006  1 

EXTEND 

FORM  increment  IN  CDUY  FOR  LAST  100  MS 

REF 

2 LAST  A8V 

17,2015 

21*427  0 

MSJ 

DLDYFORO 

(100  MS  OLD  CDUY  SAVED  FROM  LAST  PASS) 

REF 

3 last  51'^ 

17.,  20.1 6 

23*427  1 

.xch 

dldyforu 

update  OLDYFORO  with  new  CDUY  VALUE 

REf 

65  last  517 

17,2017 

54  061  1 

TS 

ITEMPl 

SAVE  l:s  complement  value  temporarily 

REF 

12  LAST  AA8 

17,2020 

30  034  0 

CAE 

CDJZ 

2*s  complement  measurement  scaled  at  pi 

ref 

98  LAST  519 

17,2021 

54  001  1 

rs 

L 

(SAVE  FOR  UPDATING  OF  OLDZFORQ) 

17,2022 

0 0006  1 

EXTEND 

FORM  increment  IN  CDUZ  FOR  LAST  100  MS 

REF 

1 

17,2023 

21*a30  0 

MSJ 

dldzforo 

(100  MS  OLD  CDUZ  SAVED  FROM  LAST  PASS) 

REF 

2 LAST  519 

17,2024 

.,237  430  1 

,xch 

DLOZFORQ 

update  OLDZFORQ  WITH  NEW  CDUZ  VALUE 

REf 

27  last  517 

17,2025 

54  062  1 

TS 

ITEMP2 

SAVE  1!S  complement  VALUE  TEMPORARILY 

633it36A 

YUL  system  for  AGC;  revision  O of  program  BURSTIZD  by  NASA  2021106-031 

DEC  7, 

1967 

(MAIN) 

PAGE 

520 

L 

P0039 

Q*R-AyES  reaction  COvjrROL  SYSTEM  AUTOPILOT 

SECONOi  tRANSFO^^M  CDJ'  INCREMENTS  TO  _ BOJOY-ANGL^  INCReMeNTSJ 

USER’S  OWN  page 

nO. 

2 

S3 

E6 

0090 

0091 

REF 

2 

last 

136 

17.2026 

17.2027 

31*906 
0 0006 

1 

_1 

CAE  M3l 

EXTEND 

MATRIX*VECT0R (WITH  X COMPONENT  2ER0) 

0092 

REF 

66 

LAST 

519 

1 Y. 2030 

7 0061 

1 

MP 

IT  EMPl 

M31  » ITEMPl  = M31  * DELTA  CDUY 

0093 

ref 

16 

LAST 

193 

17.2031 

52  065 

0 

3XCH 

ITEMP9 

00il9 

REF 

3 

UAST_ 

^136  _ 

17_i20J_2^ 

311903 

L 

CAE 

_M32  - - - 

_ _ _M3.2_  » IIEMP2  s M32  * DELTA  CD02 

0095 

17.2033 

0 0006 

1 

EXTEND 

0096 

ref 

28 

LAsT 

519 

17.2039 

7 0062 

1 

MP 

ITEMP2 

DElTAR  5 M31*(qEl  CdUY)  ♦ M32**(jEl  CqJZ) 

0097 

REF 

17 

LAST 

520 

_ 17_.2a35 

20  065 

0 

3AS 

ITEMP9 

double  precision  R body  angle  INCREMENT 

0098 

REF 

11 

LAST 

517 

17.2036 

3 7753 

1 

CAF 

8119 

0099 

ref 

isl 

LAST 

999 

17,2037 

39  002_ 

1 

rs  _ 

3 

0050 

17,2090 

0 0006 

1 

■ EXTEND 

0051 

ref 

18 

LAST 

520 

17.2091 

3 0065 

1 

3CA 

ITEMP9 

0552 

17.2092 

0 0006  1 

-XTEND 

0053 

REF 

192 

LAST 

520 

17.2093 

10  002 

1 

3V 

3 

RESCALE  TO  Pl/69  AND 

0059 

REF 

19 

LAST 

520 

17.2099 

59  069 

1 

rs 

ITEMP9 

STORE  AS  SINGLE  PRECISION 

0055 

REF 

2 

LAST 

136 

iJi2095 

31*905 

1 

CAE 

M21 

MATRIX»VECTOR(wITH  X component  7FR0) 

0056 

17*2096 

0 0006 

1 

EXTEND 

clobbers  ITEMP2=DEL  CDUZ*  For  e-ficiency 

0057 

REf 

67 

lAsT 

520 

17,2097 

7 0061 

1 

MP 

ITEMPl 

M21  * ITEMPl  S M2l  * qElTA  cdUY 

0058 

REF 

29 

LAST 

520 

^a7._20_50. 

52  063 

0 

DXCd  _ 

I TEMP2 

M22  * ITEMP2  = M22  * DELTA  CDUz. 

0059 

17,2051 

0 0006 

1 

EXTEND 

0060 

REF 

9 

LAST 

136 

17,2052 

7 1901 

1 

MP 

M22 

DELTAQ  = M2U(DEL  CDUY)  ♦ M22x(3EL  CDUZ) 

OObl 

REF 

30 

LAST 

520 

_i7,205_3 

20  063 

0 

3AS 

ITEMP2 

DOUBLE  precision  Q-BODY-ANGLE  INCREMENT 

0062 

17,2059 

0 0006 

1 

EXTEND 

0063 

REF 

31 

LAST 

520 

17,2055 

3 0063 

1 

3CA 

ITEMP2 

0069 

17,2056 

0 0006 

1 

EXTEND  _ _ 

0065 

REF 

193 

LAST 

520 

17,2057 

10  002 

1 

3V 

3 

RESCALE  TO  PI/69 

R0066 

FINALLY^ 

. DERIVE  0 AND  R BODY 

ANGULAR 

RATES! 

0067 

17.2060 

0 0006 

1 

EXTEND 

WFORQR  is  K/ (NOMINAL  DT)  SCALES  AT  16 

0068 

-REp 

3 

LAST 

99O 

17,2061 

7 1691 

1 

MP 

Wp  O^nR 

form  weighted  VALUE  Op  MEASURES  DATA 

0069 

REF 

9 

LAST 

51T 

17,2062 

57*916 

0 

XCH 

OMEoAU 

SAVE  and  begin  TO  WEIGHT  VALUE  SF  OLO  W 

0070 

17,2063 

0 0006 

1 

EXTEND 

(1-K)  IS  SCALED  AT  1 FOR  EFFICIENT  CALC 

0071 

ref 

6 

LAST 

517 

17,2069 

7 1692 

1 

MP 

( 1-<T 

(K  changes  every  2 SECONDS  IN  ASCENT.) 

0072 

REF 

2 

LAST 

98B 

17,2065 

6 1605 

0 

AD 

JETRATEQ 

weighted  term  due  to  uet  acceleration 

0073 

REF 

6 

LAST 

517 

17,2066 

6 1669 

1 

AD 

A0S3TERM 

TERM  DUE  TO  ASCENT  OFFSET  ACCELERATION 

0079 

REF 

5 

LAST 

520 

17,2067 

27*916 

1 

ADS 

3MEGAQ 

TOTAL  rate  estimate  SCALED  AT  Pl/9 

0075 

ref 

20 

last 

520 

17,2070 

30  069 

0 

CAE 

ITEMP9 

GET  DELTAr 

0076 

17,2071 

0 0006 

1 

extend 

WFORqR  is  K/(N0MINAL  DT)  SCALES  AT  16 

0077 

REF 

9 

LAST 

520 

17,2072 

7 1691 

1 

MP 

WFD7nR 

FORM  WEIGHTED  VALUE  OF  MEASURES  DATA 

0078 

REF 

7 

LAST 

517 

17,2073 

57*920 

0 

XCH 

DME5AR 

SAVE  and  begin  TO  WEIGHT  VALUE  oF  OLD  W 

0079 

17*2079 

0 0006 

1 

EXTEND 

(1-K)  IS  SCALED  AT  1 FOR  EFFICIENT  CALC 

0080 

ref 

7 

last 

520 

17,2075 

7 1692 

1 

MP 

(1-0 

(K  CHANGES  EVERY  2 SEcONdS  IN  ASCENT.) 

0081 

REF 

2 

LAST 

988 

17,2076 

6 1606 

0 

AD 

JETRATER 

weighted  term  due  to  uet  acceleration 

0082 

REF 

2 

last 

516 

17,2077 

6 1665 

0 

AD 

ADSRTERM 

TERM  DUE  TO  ASCENT  OFFSET  ACCELERATION 

0083 

REF 

8 

LAST 

520 

17,2100 

27*920 

1 

ADS 

3ME3AR 

TOTAL  rate  estimate  SCALED  AT  Pl/9 
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008^ 

REF 

X 

i7-.-2lQl 

-0-16.53 

-0 

I-C  - - 

-OJJ-MP-AOR  - 

0085 

REF 

1 

1 ' .2102 

3 2105 

1 

SCIPQRAX 

:a 

NORMOADR 

0086 

REF 

2 

LAST 

521 

17,2103 

55*653 

1 

TS 

OJJMdAOR 

DO  NOT  JUMP  NEXT  TIME. 

0087 

REF 

X 

17^2104 

1 2610 

0 

tCF  - _ 

-ChXjIMBL  - - 

CHKGIMBL  attempts  TO  USE  GTS. 

0088 

REF 

2 

LAST 

49I 

17,2105 

02106 

1 

N3RMQA3R 

genaqr 

normalq 

0089 

REF 

i 

_ i J ,210.6 

-_L-2620 

0 

N5RMAL3 

r.CF.  . 

ALT  Steer 

NO  RHC  INRU.TS.ON  206. 

R0089l 

START  CODING 

for  I 

MODULE  3 REMA<E,  august 

1967**»START  CODING’  for  MODULE  3 ReMAKe*  AUGUST  1 967»***»»**»» »**»»»»** 

0090 

REF 

10 

LAST 

516 

17,2107 

53*001 

0 

trmchec< 

oxch 

TsAOd 

SET  UP  next  T5RUPT  ADDRESS. 

ROO9OI 

chec<  if  TRIMCNTR 

HAS  BFFN  counted  DOWN 

JD  ZERO. 

INDICATING  that  2O.O 

Seconds  have  passed  since  dps  on  a.no 

ROO903 

CONTROL 

SHOULD  Be 

transferred 

TO  GTS, 

, then  See  i 

F A recent  eNGINf-ON 

Requires  an  early  gts  entry. 

0091 

REF 

3 

LAST 

494 

17 » 2110 

11*744 

0 

CCS 

TRlMrNTJl  - 

- --IS  gts  needed  prior  to  THROTTLE,U-B!i 

0092  ■ 

REf 

1 

17,2111 

1 2121 

0 

rcF 

CH<MNITR 

NOT  YET,  BUT  cHEcK  IF  FIRST  GTS  dONE. 

0093 

REF 

15 

LAST 

494 

17,2112 

0 4736 

1 

re 

CeSHOLE 

ILLEGAL  value  OF  TRIMCNTR. 

OO94 

REF 

X 

17,2113. 

1 2-0X^ 

X-  . 

TCP  . ^ 

J NSFpTI 7 ,1 

NOT  ACTI.VE,  RETURN  TO  RCS  CONTROL. 

00945 

REF 

4 

LAST 

48l 

17,2114 

3 7762 

0 

ocaygts 

CAF 

JSEORJTS 

YES,  IS  gimbal  system  usable« 

0095 

REF 

39 

LAST 

517 

17,2115 

7 0077 

0 

MAS< 

0AP3OOLS 

0096 

17,2116 

0 0006 

1 

extend 

0097 

REF 

1 

17,2117 

1 2124 

0 

32F 

oO  0 1 m6 A L 

usable,  go  to  gts. 

0098 

ref 

2 

last 

521 

17,2120 

1 2012 

1 

TCF 

INSERT17  *1 

NOT  USABLE.  GO  ON  WITH  RCS  CONTROL. 

0099 

REF 

1 

17,2121 

11*745 

1 

CHKMNI TR 

CCS 

GTSMNITR 

IS  AN  immediate  (FIRST)  GTS  CAL.EO  FORS 

0100 

REF 

1 

17,2122 

1 2114 

0 

rcF 

OXAyrTS 

YES,  CHECK  IF  GIMBAL  SYSTEM  J9A3LE. 

0101 

ref 

3 

last 

521 

17,2123 

1 2012 

1 

TCF 

INSERT17  +1 

NO,  return  to  rcs  control. 

01044 

REF 

24 

LAST 

416 

17,2124 

4 6311 

0 

GOGIMBAL 

cs 

three 

RESET  TIME5  COUNTER  FROM  20  TO  5O  MSEC. 

01045 

REF 

8 

LAST 

51R 

17,2125 

26  030 

0 

ADS 

Times 

010451 

REF 

1 

17,2126 

4 2614 

1 

CS 

3GIM24 

TURN  OFF  GIMBALS  FOR  BETTER  FILTERING. 

010453 

17,2127 

0 0006 

1 

EXTEND 

010455 

17,2130 

03  012 

1 

WAND 

12 

0105 

REF 

38 

LAST 

516 

17,2131 

4 7763 

0 

CS 

31T1 

deactivate  gimbal  drive  TIMERS 

0106 

REF 

7 

LAST 

495 

17,2132 

55*753 

0 

rs 

OGIMTIMR 

0107 

ref 

7 

LAST 

495 

17,2133 

55*754 

1 

rs 

RGI MTIMR 

0113 

REF 

179 

LAST 

516 

17,2134 

3 7767 

0 

CAF 

ZtRO 

0114 

17,2135 

0 0006 

1 

EXTEND 

0115 

17,2136 

01  005 

0 

WRITE 

5 

TURN  OFF  ALL  0,R  AXIS  JETS. 

0116 

17,2137 

0 0006 

1 

EXTEND 

01162 

REf 

1 

17,2140 

3 2143 

0 

OCA 

AdRGDGT  5 

01164 

17,2141 

52  006 

0 

7TCB 

01166 

REF 

10 

last 

519 

E6 

eban<= 

OT 

01168 

W,2142 

03606 

1 

adrgogts 

2CADR 

GOTOflTS  +2 

times  counter  was  already  advanced. 

C01168 

ref 

, J, 

17,2143 

42066 

1 

Roll? 

THE 

following 

NEW  CODING 

IS  NOT  BEIN 

G USED 

633i*36A  YUL  SYSTEM  FOR  «GC:  REVISION  0 OF  PROGRAM  BURST123  BY  NASA  202U06-031 


DEC  7.  1967  (MAIN)  PAGE  522 


L 0»S-A)(ES  reaction  COmTKOL  SYSTEM  AUTOPILOT  USER'S  OWN  PAGE  NO.  A S3  E6 


R0U705 

L-FT  IN 

place_ 

AS  FILLER))) MAY  BF 

WRJJILN  OjiR__ 

01171 

REF 

16 

LAST 

521 

17.21A4 

0 4736 

1 

re 

CeSNOLE 

FILLER 

01172 

ref 

17 

LAST 

522 

li.2_li»5 

0 4736 

1 

_TC  __ 

CeSHOLE 

FILLER  _ _ 

01173 

REF 

18 

LAST 

522 

17.2146 

0 4736 

1 

re 

eeSHOLE 

filler 

0117A 

ref 

19 

LAST 

522 

17,2147 

0 4736 

1 

re 

eeSHOLE 

FILLER 

01175 

ref 

20 

LAST 

522_ 

li,2150 

0 47J6 

1^ 

re  _ 

CCS  HOLE 

FILLER 

01176 

REF 

21 

LAST 

522 

17,2151 

0 4736 

1 

re 

CeSHOLE 

FILLER 

01177 

REF 

22 

LAST 

522 

17,2152 

0 4736 

1 

re 

eesHoLE 

FILLER 

01178 

REF 

23 

LAST 

522  . 

_ Ji,2153 

0 4736 

1 

re 

CeSHOLE 

filler 

0118 

REF 

24 

last 

522 

17,2154 

0 4736 

1 

re 

CeSHnLE 

filler 

0119 

REF 

3 

LAST 

495 

E6 

EBAN<= 

negjr 

0120 

17,2155 

03Z3_6 

0 

RG’IMADR  2eADR 

DFFotMR 

C0120 

ref 

1 

17,2156 

42066 

1 

0121 

REF 

1 

17,2157 

31*746 

0 

GETeNTR  :ae 

FORCfTRM 

LOAD  TRIMCNTR  TO  FORCE  TRIM  JUSt  3EFDRE 

0122 

REF 

4 

LAST 

521  __ 

551744 

0 

rs 

TRIMCNTR 

THE  THROTTLE-UP. 

0123 

REF 

39 

LAST 

52l 

17,2161 

3 7763 

1 

CAF 

Bin 

ENABLE  monitor  TO  CALL  GTS  AS  SoON  AS 

012A 

ref 

2 

last 

52l 

17,2162 

55*745 

1 

T5 

GTSvinITR 

possible. 

012405 

REF 

1 

17,2163 

31*765 

1 

CAE 

5IMPINIT 

INITIALIZE  SIMPCNTR.  DECISECONDS. 

01241 

REF 

3 

LAST 

494 

17,2164 

55*764 

1 

rs 

SIMPrNTR 

0125 

17,2165 

0 0006 

1 

EXTEND 

Return  to  original  coding 

0126 

REF 

1 

17,2166 

3 2172 

1 

oeA 

INSRTADR 

0127 

17,2167 

52  006 

0 

3TCB 

0128 

REF 

25 

LAST 

522 

17,2170 

0 4736 

1 

re 

CCSHnLE 

THIS  IS  a filler 

01-29 

REF 

4 

LAST  _5  06__ 

E6 

EBAN<= 

peRror 

0130 

17,2171 

02232 

0 

INSRTADR  2eADR 

INSERT20  +1 

C0130 

ref 

1 

17,2172 

40066 

0 

0149 

REF 

2 

LAST 

48l 

17,2173 

,4  0376 

1 

171NSRT  CS 

/TEMPI/ 

COMPARE  Q with  THE  GENADR  OF  SWRETURN 

01491 

REF 

1 

17,2174 

6 2264 

0 

AD 

SwRETADR 

TO  SEE  IF  ENGINOFF  WAS  CALLED  /lA 

01492 

17,2175 

0 0006 

1 

EXTEND 

BANKCALL  OR  IBNKCALL. 

01493 

REF 

1 

17,2176 

1 2243 

1 

BZF 

17INARTB 

»BANKCALL  - DO  NOT  DFLAY« 

01495 

17,2177 

0 0006 

1 

EXTEND 

XIBNKCALL  - CHECK  FURTHER* 

0150 

17,2200 

00  030 

1 

READ 

30 

0151 

17,2201 

4 0000 

0 

COM 

SEE  IF  ENGINE  IN  QUESTION  IS  ARS  OR  OPS. 

0152 

ref 

24 

LAST 

516 

17,2202 

7 7762 

1 

MAS< 

BIT2 

0153 

17,2203 

0 0006 

1 

EXTEND 

01535 

REF 

2 

last 

522 

17,2204 

1 2243 

1 

3ZF 

l7iN<;RTB 

»DPS  engine  - DO  NOT  DELAY# 

01536 

REF 

10 

LAST 

321 

17,22015 

4 0302 

1 

:s 

MODRfG 

#APS  engine  - CHECK  FURTHfR# 

01537 

REf 

1 

17,2206 

6 2265 

1 

AD 

MP3mmODE 

01538 

17,2207 

0 0006 

1 

EXTEND 

SEE  IF  THIS  IS  the  MP  3 SHORT  ARS  BURN. 

01539 

REF 

3 

last 

522 

17,2210 

1 2243 

1 

3ZF 

I7INSRTB 

»IT  IS  - 00  NOT  DELAY# 

OI539I 

REF 

2 

LAST 

101 

17,2211 

4 1074 

1 

cs 

OYMNEXIT 

#IT  IS  NOT  - CHECK  FOR  A FORGET2  ENTRY# 

015392 

REfL_ 

1 

17,2212 

6 2266 

1 

AD 

ULLAVEG 

015393 

17,2213 

0 0006 

1 

EXTEND 
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01539A 

REF 

1 

. - 17j2214 

-1---2257 

1 

32-F  - 

-L7-1 NSRI-D 

- GENADRS  - MATCH  - CHECK.  - THE  BBCO  Ns. 

0l5A 

17 

.2215 

0 0006 

1 

17INSRTE 

EXTEND 

0155 

ref 

1 

17 

*2ZliL 

4 1760 

_Q__ 

-3CS 

/TF<^p3/ 

0156 

REF 

20 

LAST 

509 

17 

.2217 

52  073 

1 

iXCH 

RUPTREG3 

PUT  MINUS  (ENGINEON  TIME)  IN  RJ^TREGS 

0157 

REF 

1 

17 

.2220 

53'762 

1 

DXCH 

/TEMd5/ 

AND  SAVE  former  CONTENTS  FOR  ISjRETRN. 

0158 

17 

.2221 

0 0006 

1 

extemd 

blend  in  the  current  Time. 

0159 

REF 

19 

LAST 

48l 

17 

.2222 

3 0025 

0 

DCA 

TIME2 

0160 

REF 

21 

LAST 

523 

__17 

.2223 

20  073J-- 

DAS 

RJPTREG3 

01601 

REF 

15 

LAST 

432 

17 

.2224 

3 7746 

0 

CAF 

HALF 

force  sign  agreement. 

0161 

17 

.2225 

6 0000 

1 

--HD-UBLE- 

0162 

ref 

16 

LAST 

509 

17 

.2226 

6 0073 

0 

AD 

RJPTREG4 

0163 

REF 

17 

LAST 

523 

17 

.2227 

54  073 

1 

ts 

R JP  Tr8G4 

0l6A 

REF 

ISD 

LAST  521 

i223D  3^  7 76  7 J 

CAF  - 

ZERl 

0165 

REF 

6 

LAST 

515 

17 

.2231 

6 7771 

1 

AD 

NEGDnE 

0166 

REF 

22 

LAST 

523 

17 

.2232 

26  072 

0 

ADS 

SUPTREG3 

0167 

REF 

23 

last 

523 

17 

.2233 

3 0072 

1 

CA 

HUPTREG3 

SEE  IF  burn  has  BEEN  LONGER  THAN 

0168 

17 

.2234 

0 0006 

1 

EXTEND 

163.84  SECONDS. 

0169  . 

REF 

1 

17 

.2235 

1 2247 

0 

3ZF 

171NSRTC 

«LESS  THAN  163.84  SECONDS# 

0170 

17 

.2236 

0 0006 

1 

17INSRTA 

EXTEND 

#MORE  THAN  163.84  SECONDS# 

0171 

REp 

2 

LAST 

523 

17 

.2237 

3 1762 

0 

DCA 

2 T EMfiS/ 

01711 

REF 

24 

LAST 

523 

17 

.2240 

52  073 

1 

DXCH 

RJPTREG3 

RESTORE  RUPTREGS  FOR  ISWRETRN, 

0172 

REF 

8 

LAST 

506  _ 

17 

.2241 

3 7745 

0 

17INSRTF 

CAF-_  - 

NEGMaX 

SET  TMINAPS  NEGATIVE  TO  INACTIVATE 

0173 

ref 

1 

17 

.2242 

55*763 

0 

TS 

TMINaPs 

The  ENGINOFF  DELAY  LOGIC 

017A 

REF 

1 

17 

.2243_ 

3 1756 

1 

171NSRTB 

CA 

7 TEMP 2/  - 

-RESTORE  CALLERS  EBANK. 

0175 

REF 

34 

LAST 

480 

17 

.2244 

54  003 

0 

TS 

EBANk 

0176 

REF 

33 

LAST 

408 

17 

.2245 

0 5225 

1 

TC 

PDSTJUMP 

RETURN  TO  THE  ENGINOFF  SEQUENCE. 

0177 

REF 

2 

LAST 

101 

_ 17 

.2246 

-40264 

0 

CADR 

ENGINOFF 

♦ 1 

0178 

REF 

18 

LAST 

523 

17 

.2247 

4 0073 

1 

17INSRTC 

cs 

PJPTREG4 

CHECK  LENGTH  OF  BURN  AGAINST  TMINAPS. 

0179 

REF 

2 

LAST 

523 

17 

.-2250 

6 1763 

1 

AD 

TMINAPS 

0180 

17 

.2251 

0 0006 

1 

EXTEND 

0181 

REF 

1 

17 

.2252 

6 2236 

1 

3ZMF 

ITlNaRTA 

BURN  IS  LONG  ENOUGH  - DO  THE  EN3IN0FF. 

0182 

REF 

70 

LAST 

490 

17 

.2253 

0 5663 

1 

TC 

WAITI  1ST 

suspend  CURRENT  MISSION  PHASE  AND  SET 

0183 

REf 

3 

LAST 

523 

E6 

EBAN<= 

TMl NAPS 

WAITLIST  fOR  resumption  AT  THE  sRDPER 

01831 

17 

.2254 

02236 

1 

2CADR 

171N9RTA 

TIME.  - - 

C01B31 

REF 

2 

LAST 

523 

17 

.2255 

36066 

1 

01832 

ref 

55 

LAST 

453 

17 

.2256 

0 5727 

0 

TC 

TASZOVER 

01833 

REF 

3 

LAST 

522 

17 

.2257 

4 1075 

0 

17INSRTD 

CS 

DVMNEXIT 

♦ 1 

01834 

REf 

2 

LAsT 

522 

17 

.2260 

6 2267 

0 

AD 

<ILLAVEG 

.1 

01835 

17 

.2261 

0 0006 

1 

EXTEND 

01836 

REF 

1 

17 

.2262 

1 2241 

0 

3ZF 

17INSRTF 

BBCONS  MATCH  - DO  NOT  DELAY 
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01637 

ref 

1 

17 

.2Z6J 

1 -2215 

rcF 

ItLNSRlE 

0184 

REF 

6 

LAST 

177 

17 

.2264 

05221 

0 

SWRETADR 

SENADR 

SrtRETURN 

0185 

17 

,2265 

00071 

1 

MP3MMODE 

DCT 

00071 

MAJOR 

MODE  OF  MISSION  PHASE  3. 

01852 

REF 

29 

LAST 

313 

- E3 

£BAN<= 

LSTl  . 

01854 

17 

.2266 

02072 

0 

KILLAVEG 

ZCAqR 

ayeskIll 

C01854 

ref 

2 

LAST 

103 

17 

,2267 

16063 

0 

R01861 

FOLLDWINO  CODING 

left  in  placl  jo  Keep 

addresses. 

CD.NSIA.NT.  . 

R0l9'62 

»*END 

CODING 

FOR 

MODJLE 

3 remake.  AUGUST  l9674*44»END  CODINS'  FOR  MODULE 

3 REMAKE.  AUGUST  1967*******4»»»*»***)Hhh* 

0214 

REF 

26 

LAST 

522 

17 

.2270 

0 4736 

1 

ndqjets 

tc 

CCSHnLE 

label 

prevents  assembler  CUSSES. 

0215 

REF 

1 

17 

,2271 

1 2413 

1 

rcF 

XTRANS 

Q21£i 

REF 

1 

17 

,2272 

1 2365 

1 

TCF 

R-.rwKDB 

0217 

REF  . 

2 

LAST 

524 

17 

.2273 

1 2413 

1 

rCF 

xtrans 

0218 

REF 

1 

17 

.2274 

6 1501 

1 

NEGUERDR 

AD 

-ratfdb 

0219 

17 

,2275 

0 0006 

1 

EXTEND 

0220 

REF 

1 

17 

.2276 

6 2270 

0 

3ZMF 

nodjfts 

0221 

REF 

1 

17 

,2277 

11*424 

0 

CCS 

RRATEDIF 

0222 

ref 

1 

17 

.2300 

1 2311 

1 

rcF 

R+3-CHKR 

0223 

ref 

1 

17 

.2301 

1 2303 

1 

TCF 

a-NORjTs 

0224 

ref 

■ 1 

17 

.2302 

1 2316 

0 

TCF 

R-3-CHKR 

0225 

REF 

1 

_17 

.23P3 

4 1423 

1 

3-NORJTS 

cs 

sratfoif 

0226 

ref 

1 

17 

,2304 

55*437 

1 

TS 

ratedif 

0227 

REF 

5 

LAST 

498 

17 

,2305 

6 1500 

0 

AD 

-2JETLIM 

0213 

17 

.2306 

0 0006 

1 

EXTEND 

0229 

REF 

1 

17 

,2307 

6 3426 

1 

3ZMF 

2JETS+Q 

0230 

REF 

1 

17 

.2310 

1 3424 

1 

TCF 

4JETS+Q 

0231 

REF 

2 

last 

524 

17 

.2311 

6 1501 

1 

R+Q-CH<R 

AD 

-RATFDB 

0232 

17 

.2312 

0 0006 

1 

extend 

0233 

ref 

2 

last 

524 

17 

.2313 

6 2303 

0 

32MF 

3-NOrjTS 

0234 

REF 

1 

17 

.2314 

0 3515 

0 

TC 

EODTVGEN 

0235 

REF 

1 

17 

,2315 

1 3344 

0 

TCF 

2-V.RATE 

0236 

REF 

3 

LAST 

524 

17 

.2316 

6 1501 

1 

R-O-CHKR 

AD 

-RATFDB 

0237 

17 

,2317 

0 0006 

1 

extend 

02  38 

REF 

3 

LAST 

524 

17 

,2320 

6 2303 

0 

37MF 

O-NDR.iTS 

0239 

REF 

1 

17 

.2321 

0 3511 

1 

TC 

FDDTllGEN 

02aO 

17 

.2322 

0 0006 

1 

EXTEND 

02a1 

ref 

2 

LAST 

524 

17 

.2323 

61*424 

1 

SU 

RRATFDIF 

02a2 

REF 

1 

17 

.2324 

1 3373 

1 

TCF 

2+J.rATE 

0243 

REF 

4 

LAST 

524 

17 

,2325 

6 1501 

1 

PDSQERDR 

AD 

-RATEDB 

0244 

17 

.2326 

0 0006 

1 

EXTEND 
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n?4*5 

REF 

2 

LAST 

529  , 

L7- 

•2327 

6__22Z0- 

3ZME- 

NDDJFT-S 

02A6 

ref 

3 

LAST 

529 

17 

,2330 

11»424 

0 

CCS 

RRATFDIF 

0247 

8EF 

1 

17 

.2331 

_L- 

2392 

-tCF 

R*0*cHXR 

02A8 

REF 

1 

17 

,2332 

1 

2339 

0 

TCF 

3+NORJTS 

02A9 

REF 

1 

17 

,2333 

1 

2397 

1 

TCF 

R-3,CHKR 

0250 

REF 

2 

LAST 

529 

17 

,2339 

3 

1423 

0 

3*N0RJTS 

CA 

3RATEDIF 

0251 

ref 

2 

last 

529 

17 

,2335 

55*437 

1 

IS 

RATEDIF 

0252 

REF 

6 

LAST 

529 

17 

,2336 

1500 

0 

AD 

-2JETLIM 

0253 

17 

,2337 

0 

0006 

1 

EXTEND 

025A 

ref 

1 

17 

,2390 

6 

3265 

0 

3ZMF 

2JETS-Q 

0255 

REF 

1 

_ 17 

,2391 

1 

3263 

1 

rcF 

9J£T.S>Q 

0256 

REF 

5 

LAST 

529 

17 

,2392 

b 

1501 

1 

R+Q+CH<R 

AD 

-RATFDB 

0257 

17il2393_ 

0_ 

0006 

1 

1 

p 

0258 

REF 

2 

LAST 

525 

17 

,2399 

6 

2334 

1 

3ZMF 

3+NOrjTS 

0259 

REF 

2 

LAST 

529 

17 

,2395 

0 

3511 

1 

TC 

EODTiiGEN 

0260 

REF 

1 

17 

,2396 

1 3243 

0 

_ _ . TCE 

Z-J.RATE 

0261 

REF 

6 

LAST 

525 

17 

,2397 

6 

1501 

1 

R-Q+CH<R 

ad 

-RATfDB 

0262 

_ 17 

,2350 

0 

0006 

1 

-XJEND, 

0263 

REF 

3 

LAST 

525 

17 

,2351 

6 

2334 

1 

3ZMF 

3+N3RJTS 

026A 

REF 

2 

LAST 

529 

17 

,2352 

0 

3515 

0 

rc 

ED3TVGEN 

0265 

REF 

1 

17t2353 

1 

3301 

L 

TCF 

2*(/.RATF 

0266 

REF 

7 

LAST 

525 

17 

,2359 

6 

1501 

1 

R*,CH<DB 

AD 

-RATfDB 

0267 

17 

,2355 

Q_ 

0006  1 

FXTENO 

0268 

REF 

3 

last 

529 

17 

,2356 

6 

2913 

0 

3ZMF 

XTRANS 

0269 

REF 

9 

LAST 

525 

17 

,2357 

3 

1929 

1 

CA 

RRATEDIF 

0270 

REF 

3 

LAST 

625 

17 

.2360 

55*437 

1 

TS 

RATEDIF 

0271 

REF 

‘ 7 

LAST 

525 

17 

,2361 

6 

1500 

0 

AD 

-2JETLIM 

0272 

17 

,2362 

0 

0006 

1 

EXTEND 

0273 

ref 

1 

17 

,2363 

6 

3227 

0 

3ZMF 

2JETS-R 

0279 

REF 

1 

17 

,2369 

1 

3225 

0 

TCF 

9JETS-R 

0275 

ref 

8 

LAST 

525 

17 

,2365 

6 

1501 

1 

R-,CH<DB 

AD 

-RATEDB 

0276 

17 

,2366 

0 

0006 

1 

extend 

0277 

REF 

9 

LAST 

525 

17 

,2367 

6 

2913 

0 

3ZMF 

XTRANS 

0278 

REF 

5 

LAST 

525 

17 

,2370 

9 

1929 

0 

C5 

RRATEDIF 

0279 

REF 

9 

LAST 

525 

17 

,2371 

55*937 

1 

TS 

RATFOIF 

0280 

REF 

8 

LAST 

525 

17 

,2372 

6 

1500 

0 

AD 

-2JETLIM 

0281 

17 

,2373 

0 

0006 

1 

EXTEND 

0282 

REF 

1 

17 

,2379 

6 

3912 

0 

3ZMF 

2JETS+R 

0283 

REF 

1 

17 

,2375 

1 

3910 

0 

TCF 

9JET5+R 

0289 

REF 

5 

LAST 

525 

17 

,2376 

11 

*937 

1 

rtjetime 

CCS 

RATEDIF 

SCALED  AT  PI/4  RADI ANS/SECOND 

0285 

ref 

130 

LAST 

519 

17 

,2377 

6 

7763 

1 

AD 

ONE 

0286 

17 

.2400 

1 

2402 

1 

TCF 

+ 2 

0287 

REF 

131 

last 

525 

17 

.2401 

b 

7763 

1 

AD 

ONE 

ABS(RATEDlF) 
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02B8 

17j.Z4fi2 0 00-06  -L 

-EXTEND 

0289 

REF 

1 

17,2403 

7 0066 

0 

MP 

1/NJpTAC 

scaled  at  2(8)/PI  SECOND (2) /RADIANS 

0290 

17,2404 

0 0006 

1 

EXTEND 

0291 

ref 

31 

LAST 

493 

_LU2403 

7 7760 

0 

_ ME  

-SIT  4 

scaled  at  2(3)  SECONDS 

0292 

REF 

99 

LAST 

519 

17,2406 

30  001 

0 

CAE 

L 

0293 

17,2407 

0 0006 

1 

EXTEND 

0299 

REF 

1 

- 17,2410 

7 2557 

0 

MP  - 

25l/3p.QR 

TJET  NOW  PROPLRLY  SCALED  IN  A 

0295 

ref 

2 

LAST 

488 

17,2411 

55*612 

1 

TS 

TQR 

AT  2(4)16/25  SECONDS 

0296 

ref 

1 

17,2412 

1 2457 

1 

rcF 

MNlMPTST 
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R0298  AUtHOTi:  JOHN  S.  BLISS  (ADAMS  ASSOCIATES) 

R0299  ^modification  BY)  JONATHAN  D,  ADDeLSTON  (ADAMS  ASSOCIATES) 

R0300  X-AXIS  TRANSLAT.I0N_LD'3JC_IIN  the  AiSxNSE  5F  Q.R-AXIS  RQIATl3N)_IS  INITIATED  I N THe J'XTRANS'L  S^Ct ION. 


R0302 

R030A 

XTrANb  first  sets  AD3TLT6 
CHeCCS  for  plus  OR  MINUS  X 

and  A0DT6JTS  T3  ZErO  F3r  UsE  By  "JtLsT"  AND  "T6J0B' 
translation  Requests  from  ihe  astronaut's  stick. 

' when  they 
IF  NONE,  is 

Are  called, 
requested  in 

IT  then 
THAT  WAY. 

R0306 

R0308 

R0310 

the  J.LAGe  BIT  OF  DA3300LS 
internal  ullage  Request.) 

IS  TPJMINATFD. 

IS  checked.  (Note  that  the  order  of  the  tests  allows 
IF  NO  translation  IS  REQUESTED,  Al L Q.R-AXIS  JeTS  ARE 

the  Astronaut  to  oveRRtDe  the 
turned  off  and  THe  INTrRRUPT 

R0311 

CALLING  sequence:  NONE 

subroutines  called!  WRITEQR 

Ro312 

R0313 

NORMAu  EXIT:  1.  IF  N3'  TRANSLATION.  RESUME. 

2.  IF  translation  OR  ULLAGE*  ♦/-KTRAN 

R031A 

ALaRM/ABORT  MODE:  NONE. 

R03l5 

INPUT:  ULLAGER/DAPB30LS.BITS7.8/CHANNEL  3i, 

R0316  output:  C(ANYTRANS)  = NEGMAX  FOR  +X  TRANSLATION. 

R0317  C(ANYJRANSL  s„P03MAX_EO.R_ -X  translation.  

R0318  C(TRANSNOW)  s C(TRANSAVE)  = *0, 

R0319  C(TRANONlY)  5 PNZ 

R0320  C(ADDTLTb)  , C(ADDT6Jr_Sl.,  C.(TQR),  C(TOFjlCiG)  = 0. 

R032l  C(CHANNEL  5)  = 0 IF  NO  X-TRANSLAT I ON  REQUESTED 

R0322  debris:  a,  L,  3 


0323 

rEF 

131 

last 

523 

17,2413 

3 7767 

0 XTrANs 

:af  zero 

PICK  UP  zero  and  initialize 

032A 

ref 

7 

LAST 

5.1  A. _ _ 

1.71.2414 

55'474 

0 

IS  ADDYTTb 

0325 

REF 

6 

LAST 

51A 

17,2415 

55'473 

1 

TS  ADDT6JTS 

0326 

REF 

15 

LAST 

51A 

17,2416 

55'475 

1 

IS  TOFJTCHG 

0327 

REF 

3 

LAST 

526 

17,24 17 

55'6l2 

1 

TS  _ JQR, 

A ZERO  OF  JET  TIME  FOR  THE  TQRQ  lE  VECTOR 

0328 

REF 

28 

LAST 

A7A 

17,2420 

3 7755 

1 

CAF  31T7 

IS  PLUS  X TRANSLATION  DESIRED 

0329 

17,2421 

0 0006 

I 

EXTEND 

0330 

17,2422 

02  031 

1 

RAND  31 

CHANNEL  31  BITS  INVERTED 

0331 

17,2423 

0 0006 

1 

EXTEND 

0332 

REF 

1 

17,2424 

1 2441 

0 

3ZF  iXORllLGE 

YES,  *X  . _ . . 

0333 

REF 

16 

LAST 

A7A 

17,2425 

3 7754 

0 

:af  bits 

NO,  IS  minus  X translation  desired 

033A 

17,2426 

0 0006 

1 

-XTEND 

0335 

17,2427 

02  031 

1 

RAND  31 

channel  31  BITS  INVERTED 

633«f36A  YUL  SYSTEM  FOR  AGC:  REVISION  0 OF  PROGRAM  BURSTIED  8Y  NASA  2n21106-03l  DEC  7t  1967  (MAIN)  PAGE  528 


L 0*R-AXES  REACTION  COv|TXOL  SYSTEM  AUTOPILOT  USER'S  OWN  PAGE  NO.  10  S3  E6 


03_a6_ 

17.2430 

0 0006 

_L_ 

FXTEND 

0337 

ref 

1 

17,2431 

1 2443 

1 

3ZF 

-XTRaNS 

YES,  -X 

0338 

REF 

33 

LAST 

4 07 

17.2432 

3 7756 

1 

.Z&l 

3115  _ 

NO,  IS  ULLAGE(+X  TRANSLATION)  D-SIRED 

0339 

REf 

40 

LAST 

521 

17,2433 

7 0077 

0 

MAS< 

DAP3nOLS 

03a0 

REF 

242 

LAST 

51A 

17,2434 

10  000 

0 

CCS 

A 

0341 

REF 

2 

LAST 

527 

17jl2a35__ 

1 2441.^ 

0 

TCF 

♦XDRULGE. 

YES,  ULLAGE 

0342 

REF 

132 

LAST 

527 

17,2436 

3 7767 

0 

CAF 

ZERD^ 

since  neither  rotation  nor  translation 

0343 

ref 

2 

LAsT 

486 

17,2437 

0 6046 

0 

TC 

writfqr 

ARE  needed,  turn  OFF  ALL  0,R-AXrs  JETs. 

0344 

ref 

32 

LAST 

515 

17,2440 

1 5733 

1 

TCF 

RESUME 

0345 

REF 

9 

LAST 

523. 

. J.7  .2.441^ 

_3  7745 

0 

tXDRULoE 

CAF 

NlGMAX 

PLUS  translation  or  ullage  desired: 

0346 

17,2442 

1 2444 

0 

rCF 

♦ 2 

LOAD  NEGMAX  in  A AND  SKIP  NEXT  OPCODE  TO 

0347' 

REF 

27 

last 

5 .0  7 

L7»  2^443 

3 7743 

0 

-ktrans 

CAF 

pqsmax 

-X  translation  Desired,  a = posmax,  and 

0348 

ref 

1 

1 7 *244^ 

54  071 

0 

rs 

ANYTRANs 

LOAD  ANYTRANs  WITH  A(NEG/POs  MA<) 

0349 

REF 

133 

LAST 

528 

17.2445 

3 7767 

0 

CAF 

ZtRD 

initialize  TRANSNOW  AND  TRANSAyr  wLTH 

0350 

REF 

1 

1 7 f 2446 

54  072 

0 

TS 

TRANcNOiV 

■Zero  for  use  in  the  jet  policy  selection 

0351 

REF 

1 

17,2447 

54  073 

1 

TS 

TRANSAVE 

program. 

0352 

17,2450 

0 0006 

1 

EXTEND 

Set  up  2Cadr  foR  transfer  to  */-xtRan, 

0353  . 

ref 

1 

17,2451 

3 2455 

1 

DCA 

JTPDI  ADR 

0354 

REF 

1 

17,2452 

54  070 

_1._ 

IS 

TRASlnNLY 

STORE  POSITIVE,  NON-ZERO  S-REGISTER  IN 

0355 

17,2453 

52  006 

0 

DTCB 

TRANONLY,  after  +/-XTRAN,  GO  TO  JTLST. 

0356 

_ref 

2 last 

502 

E6 

EBAN<? 

JTSONNOW 

0357 

17,2454 

02447 

1 

JTPOLADR 

2CADR 

♦/-XtRAN 

TRANSLATION  ONLY  ENTRY  TO  JET  POLICY 

C0357 

ref 

1 

17,2455 

40066 

0 
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Po358  all  O.R  axes  T 3^  CDMRJTAT  1QNS_X£RMI NATE- H THIS  PROGRAM^^YiilTLfcUPERFXlMS  A SeRIeS  .0F,TeSt5  TO  PeTeRMINE  THE  TRJE- 

R0360  time  the  jets  SHOU-0  Be  on.  these  tests  are  as  follows  ... 

R0361  !•  test  THe  on  J I Me_  AGA I NST- THe  7 .5  MS  ELeCTRICAL^COMMAND  (MIN)  .IF  JHe  ON  TIME  IS  LESS  THAN  THE  MINIMUM 

R0353  WE  BUG  OUT  TO’  XTRAN.hHLRE  X TRANSLATION  IS  DONEdF  wEEDEO)  . 

R036A  2.„..JEST_  THe  PN.  liME^  A5AXNST_L50_M.Sj  -IF_  tor  1S_  GREATER-  THAN_-1  50MS  ,tHEN_  THe  NEXT  OR  AXIS-  IS  DONE  In  100  MS. 

R0356  IF  tor  is  less  THAN  150  MS,  THEN  THE  NEXT  OR  AXIS  IS  DONF  IN  200  MS.  THAT  IS  A OR  AXIS  SKIP  IS  DONE. 

Ro368  3.-  when  TOR  IS  uES.S  THAiN  _ L50  MS  HE  PROGRAM  GOES  TO  TME  JET  LIST  PROGRAM  WHeRE  THe  T6  CLOCK  IS  S?T  UP. 

R037.0  A.  Before  going-  to  the  jet  list  the  computed  time  has  either  7.5  ms  added  or  sMS  subtracted-the  exAct 

R0372  OPfRATIQN  B-ING  DfCIDfD  BY  WHETHER  THF  J^TS  WHICH  ARE  TO  GO  ON  ARe  OFF. OR -ARE-ON- ReSPECT 1 VeLY. 

Ro37A  5.  IF  some  of  tHE  JETS  WHICH  ARE  TO  Go  ON  ATE  NOW  ON  AND  SOME  ARe  OFF.  tHeN  A *»**»*»  COMPUTATION  CaLLeO 

R0376  NOTRANS  dECIoES  iWhICh  jets  go  off  at  tor  ANd  which  go  off  at  TCIR  + 6.5MS,  This  6.5  MS.  IS  STOREO  in 

R0378  ADDTLT6.  AD0TLT6  IS  SET  TO  ZERO  OTHERWISE. 


0379 

REF 

4 

LAST 

bZR  - - 

17.2456 

55'6l2 

1 

N3RMRETN 

IS  . 

TOR  . 

0380 

REF 

5 

LAST 

529 

17.2457 

4 1612 

1 

MNIMPtST 

CS 

TOR 

TEST  FOR  tor  GREATER  THAN  MIN.  IMPULSE. 

0381 

REF 

1 

17.2460 

6 2556 

0 

AD 

♦T6TJMIN 

0382 

1-7-J-2461 

0 0006 

1 

EXT-EjND 

CORRECT  B-RANCH.  , 

0383 

REF 

1 

17.2462 

6 2464 

0 

3ZMF 

torgttmi 

BRANCH  FOR  TOR  = OR  GREATER  THAN  MINIMP. 

038A 

REF 

5 

LAST 

525 

17.2463 

1 2413 

1 

rCF 

XTRAniS 

SEE  IF  translation  IS  DESIRED  . 

0385 

REF 

6 

LAST 

529 

L7. 24^64 

31 '612 

0 

torgttmi 

CAE 

TOR 

HERE  JETS  ON  FOR  LONGER  THAN  GRJMaNN 

0386 

REF 

16 

LAST 

527 

17*2465 

55'475 

1 

TS 

TOFJtCHG 

MINIMUM  IMPULSE  SPECIFICATIONS. 

0387 

ref 

1 

17.2466 

6 2555 

0 

AD 

-1.5CSP 

0388 

17.2467 

-0  0006 

1 

EXTEND 

0389 

ref 

1 

17.2470 

6 2475 

0 

3ZMF 

OOORsKIP 

O39O 

REF 

3 

LAST 

528 

17.2471 

31 '471 

1 

CAE 

JT  S3NN0W 

0391 

REF 

3 

LAST 

528 

17*2472 

0 6046 

0 

IC 

WRITFQR 

0392 

ref 

33 

last 

528 

17.2473 

1 5733 

1 

TCF 

RESUME 

0393 

ref 

1 

17.2474 

02102 

0 

SCIPQRAD 

3ENADR 

SKIPoRAX 

R039A 

chan 

0 t ' 

JET  ON 

1 and  of 

F BITS  TO 

ACCOUNT 

■ FOR  THE  PRESENT  STATE  oF  THF 

R0395 

CHANNEL,  the  LHANG 

ES  account 

For  pure 

rotation 

only-  I 

not  translation. 

0396 

REF 

LAST 

529 

17.2475 

3 1471 

1 

DOORSKIP 

CA 

JTSONNOW 

0397 

17.2476 

0 0006 

1 

EXTEND 

0398 

17.2477 

02  005 

0 

RAND 

5 

MASK  THE  channel  WITH  THE  DeSIRcD  STATE. 

0399 

17t2J5D0 

0 0006 

1 

FROMROOT 

-XTEND 

ENTER  here  from  DORUTDUM  (IN  BANK) 

OAOO 

ref 

1 

17.2501 

1 2526 

0 

3ZF 

NOORnN 

A IS  ZERO  IF  NO  JETS  TO  GO  ON  APE  ON. 

OAOl 

REF 

31 

last 

513 

17.2502 

6 7745 

0 

AD 

BlTlS 

MAKE  difference  CORRESPOND  TO  A OR  JET. 

0A02 

17.2503 

0 nn06 

1 

FXTFND 

0403 

REF 

5 

LAST 

529 

17.2504 

61'471 

I 

su 

JTSONNOW 

result  is  complement  of  jet  bits  WHICH 

0404 

REF 

100 

LAST 

526 

I7.25O5 

54  001 

1 

rs 

L 

are  to  BE  ON  FOR  6*5MS  MORE  THAN  CALC. 

0405 

17.2506 

0 0006 

1 

EXTENp 

0406 

REF 

1 

17.2507 

1 2531 

0 

3ZF 

jl SAREON 

A=O.THUS  ALL  jets  TO  GO  ON  ARE  NOW  ON. 
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0^08 

REF 

28 

LAST 

528 

17,2511 

7 7743 

1 

MASK 

POSMAX 

REMOVE  BIT15  FROM  JTSATCHG.  ^ ~ ” - 

0409 

17,2512 

0 0006 

1 

EXTEND 

0410 

REF 

1 

17,2513 

1 2517 

1 

iZF  _ 

_.NOJRaN_S  

IF  JTSATCHG  = Q TH£N_N0  TRANSLATION  NOW. 

0411 

REF 

1 

17,2514 

3 2566 

0 

:a 

U-TORMN 

0412 

REF 

17 

LAST 

529 

17,2515 

27'475 

1 

4DS 

TOFJTCHG 

INSURE  T GREATER  THAN  I4  MS. 

0413 

REF 

I 

17,2516 

1 7544 

_L_ 

tCf 

TDJTLST 

0414 

REF 

101 

LAsT 

529 

17,2517 

4 0001 

1 

NOTRANs 

:s 

L 

0415 

REF 

32 

LAST 

529 

17,2520 

6 7745 

0 

AD 

31T15 

MAKE  JET  BITS  CORRESPOND  TO  oR  AXIS, 

0416 

REF 

9 

last_ 

530 

17,2521 

_S2'472 

1 

KCH 

JTSAtCHG 

JTSONNOW  - L = JETS  0N_ AT  TOFJTCHG. 

0417 

REF 

7 

LAST 

527 

17,2522 

55'473 

1 

TS 

AODTwJTS 

JTS  ON  At  TOFJTCHG  +ONDELAY. 

0418 

ref 

2 

last 

530 

17,2523 

3 2566 

0 

:A 

14-TQRMN 

0419 

REF 

8 

LAST_ 

S2T 

17,2524 

— 5-5Jj474, 

0 

TS 

ADX)TJ_L6  . 

0420 

REF 

2 

LAST 

53O 

17,2525 

1 2544 

1 

TCF 

TDJTLST 

0421 

REF 

3 

LAST 

53O 

17,2526 

3 2566 

0 

NDQRON 

:a 

14-TORMN 

0422 

REF 

18 

last 

5S0 

17  ,2521_ 

27*475 

1 

APS  _ 

1 OFJTCHG_ 

0425 

REF 

3 

LAST 

53O 

17,2530 

1 2542 

1 

TCF 

TQJTl  ST  -7 

0426 

REf 

10 

last 

53O 

17,2531 

31*472 

1 

JTsAREDN 

:ae 

JTSATCHG 

0427 

REF 

29 

last 

530 

17j_2_532 

7 7743 

MASK 

PD5MAX.  _ „ 

0428 

17,2533 

0 0006 

1 

EXTEND 

0429 

17,2534 

1 2536 

1 

3ZF 

+ 2 

0430 

ref. 

A. 

LAST 

530 

17,2535 

1 2542 

1 

_T£F 

TOJTi’ST  .2 

0431 

REF 

1 

17,2536 

3 2565 

0 

:af 

MCDMPTOR 

0432 

REF 

19 

LAST 

530 

17,2537 

27*475 

1 

ADS 

TOFJtCHG 

04325 

17 '2540 

0 0006 

1 

EXTEND 

TEST  FOR  computation  OF  NEGATIVE  DR  ZERD 

04326 

ref 

' 1 

17,2541 

6 2553 

0 

3ZMF 

djickoff 

TOFJTCHG,  IF  SO,  MAKE  -0. 

0433 

REF 

1 34 

last 

528 

17,2542 

3 7767 

0 

-2 

CAF 

ZERO 

0434 

REF 

9 

LAST 

530^ 

17.2543 

55*474 

0 

TS 

ADDTI  T6 

0435 

REF 

1 

17,2544 

3 2474 

1 

TOJTLST 

:a 

SKiPQRAD 

0436 

ref 

3 

LAST 

52l 

17,2545 

55*653 

1 

TS 

3JJMPADR 

O437 

REF 

6 

LAST 

529 

17,2546 

31*471 

1 

:ae 

JTSDNNOW 

TURN  ON  jets  TO  GO  ON  NOW  (EVEN  IF  ALL 

0438 

REf 

4 

last 

529 

17,2547 

0 6046 

0 

TC 

writfqr 

are  Already  on>,  after  testing  for  rise. 

0439  - 

17.2550 

0 0006 

1 

EXTEND 

0440 

REF 

1 

17,2551 

3 2606 

0 

3CA 

JTLStADR 

0441 

17,2552 

52  006 

0 

3TCB 

04411 

REF 

_ _2  0 

LAST 

530 

17,2553 

4 1475 

1 

aJlCKOFF 

:s 

TOFJtCHG 

SET  TOFJTCHG  TO  -0  IN  SHORTEST  wAY. 

04412 

REF 

2 

LAST 

529 

17,2554 

1 2527 

1 

rCF 

NOQRQN  +1 

0442 

17,2555 

774I7 

0 

-1.5CSP 

DEC 

-0.0,465 

0443 

17,2556 

00014 

1 

♦T6TJMIN 

dec 

+.00073 

0444 

17,2557 

31000 

0 

25/32. OR 

DEC 

0.78125 

0445 

17,2560 

37776 

0 

MS200R 

DCTAL 

37776 

0446 

17,2561 

37775 

0 

MS30QR 

DCTAl 

37775 

0447 

17,2562 

37773 

0 

MS50QR 

DCTAl 

37773 

0448 

17,2563 

00010 

0 

16/32400 

DEC 

0.00049 

0449 

17,2564 

00600 

1 

3IT8,9 

DCTAL 

00600 

0450 

17,2565 

77757 

1 

mcomptdr 

DEC 

-16 

-10  MS  SCALED  AS  TIME6. 

0451 

17,2566 

00013 

0 

14-TQRMN 

DEC 

11 

3 REMA<E.  AUGUST  l967)HMtSvART  C00IN3  FOR  MODULE  3 REMAKE.  AUGUST  1 
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0452  REF  27  LAST  52^ L7j^6J Q_  4.7S6  ,1  -.MlNIADEl  _IC CCSBoLE . 

R04525  »*EN0  CODING  EOR  MODULE  3 REMA<E.  AUGUST  l967#»»»»END  COOING  FOR  MODULE  3 REMAKE.  AUGUST  1967iHt*»****»»»*»*»)H*»)t 


0453 

_L7j  25^70 

_ 43415  0 

-.88975 

-»B8975 

0454 

17.2571 

20000  0 

(1-K) ,3R 

dec 

0. 50000 

K s 1/2 

0455 

17.2572 

02000  0 

(1-KQ) /8 

DEC 

0.06250 

0456 

17,2573 

J-73i7  0 

_ -90MS . 

DEC  _ _ 

-.00879  - 

0457 

17,2574 

00220  1 

♦ 90MS 

DEC 

0.00879 

0458 

17,2575 

77537  0 

NCGCSP2 

DEC 

-.00q77 

0459 

17.2576 

40252  0 

ALL+XJTS 

OCTAL 

40252 

0450 

17,2577 

00201  1 

2,10-OJT 

octal 

0020, 

0461 

17,2600 

40042  0 

♦ K ^ A 

octal 

40042 

0462 

17,260J._. 

4 QZ10  0 

OCTAL 

40210 

0463 

17,2602 

00104  1 

1,9-OUT 

octal 

00104 

0464 

17,2603 

40104  0 

-X,A 

octal 

40104 

0465 

17,2604 

40021  0 

-X.B 

octal 

40021 

0466 

REF 

7 LAST  530 

E6 

£BAN<= 

JTSONNOW 

0467 

17,2605 

03402  1 

JTLSTADR 

2CADR 

JTLST 

C0467 

REF 

7 FAST  512 

17.2607. 36066_  O 

0468 

REF 

1 

17,2607 

02376  1 

RTUETADR 

GENAOR 

RT JETIME 

633436* 

YUL  system  for  *GCi  REVISION  0 OF  PROGRAM  BURST120  BY  NAs'a  2021106-031 

DEC  7. 

1967 

(MAIN)  PAGE 

532 

L 

P0469 

Q.R-AkES  reaction  COmTKOL  system  autopilot 

O.R-AXES  ATIILJi^SIEERlNJ,  CAlXULATlONSi  _ _ _ __  

USER'S  Own  page 

NO, 

14  S3 

E6 

Ro470 

R0472 

(EXECUTED  when  Lgc  IS  IN  AUTOMATIC  SCSMODE  OR  IF  SCSMoDe  IS  aTTITUDe  HOLD 
neither  out  of  DxTENI_NO(R^.IS  the,  rate  CO^IMAND  31T  SET  IN  DApbOOLS) 

AND  tHe  Rotational 

hand  Controller 

IS 

0481  17t2610  0 0006  1 CSKGIM3L  iXIEf^D 

0482  ref  1 17.2611  3 2617  Q X_A  IRtStSAD  _ _ TRYQTS^  ATTEMPTS  GTS  XONIROL. 

0483  ref  15  LAST  29i>  17.2612  52  006  0 3XCH  Z 

0484  REF  28  LAST  53l  17.2613  0 4736  1 TC  CCSHnLE 


0485  17.2614  07400  1 B5IM24  OCTAL  07400 

0486  REF  2 LAST  515  17.2615  03533  1 DESCADR  3ENA0R  TJETLAW 


0487  REF  11  LAST  521  E6  EBAM<=  DT 

0488  17.2616  03573  0 TRYGTSAD  2CADR  TRYotS  TRYGTS  ATTEMPTS  GTS  CONTROL. 

C04fl8  BEf 1 17.2617 42066  1 ^ 
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P0A89  "ATTSTEER'i  I5_  THe -NaMiINAL  £NXRY_POiNT_£Qi  REACT  10N_C0'LT_ROL_5ySTEM  ATT  1 TUDe  SjeeRING 


0A91 

REF 

1 

17,2620 

ATTSTEER 

equals 

OERRCALC 

0492 

REF 

19 

LAST 

519  _ 

- 17.2ii20 

30- 033 

1 

DERRCALC 

CAE-^  . 

JCDJY 

q-error  calculation 

0A93 

17,2621 

0 0006 

1 

EXTEND 

0A9A 

REF 

5 

LAST 

503 

17.2622 

20  767 

0 

MSU 

CDJYO 

CDU  ANGLE  - ANGLE  DESIRED  (Y-AXIS) 

OAgS 

RtF 

SB 

LAST 

520 

17.2623 

54  061 

1 

T5^ 

lIEMPJ.  - 

SAVE  FOR  RERRCALC 

0A96 

17,2624 

0 0006 

1 

EXTEND 

0A97 

REF 

3 

LAST 

520 

17,2625 

7 1405 

0 

MP 

M21 

(cduy-cduyo)*M21  scaled  at  pi  radians 

0A98 

ref 

3 

LAST 

49 

17,2626 

57'413- 

0 

XCH-  _ 

SAVE  first  term  lOF  TwO)  IN  OPP.AXIS  REG 

0499 

REF 

13 

LAST 

51'^ 

17*2627 

30  034 

0 

CAE 

CDJZ 

SECOND  TERM  CALCULATION: 

0500 

17,2630 

0 0006 

1 

EXTENo 

0501 

REF 

2 

LAST  223 

J7j^.631_ 

20  770 

0 

MSU  - 

COJZO 

CDU  ANGLE  -angle  DESIRED.  (Z-AXIS) 

0502 

REF 

32 

LAST 

520 

17,2632 

54  062 

1 

TS 

11 EMp2 

SAVE  FOR  RERRCALC 

0503 

17,2633 

0 0006 

1 

EXTEND 

0504 

REF 

5 

LAST 

52° 

L7,26i4 

7 1401 

1 

MP 

M22 

(CDUZ-CDUzD)*M22  SCALED  AT  PI  RADIANS 

0505 

REF 

4 

LAST 

533 

17,2635 

27'413 

1 

ads 

ER 

Save  sum  of  terms,  no  overflo*y  ^ver 

0506 

REF 

4 

LAST 

518 

17  *2636 

55*467 

1 

rs 

QERRnR 

SAVE  OERROR  FOR  EIGHT-BALL  DISRilAY 

0507 

REF 

69 

LAST 

533 

17,2637 

30  061 

0 

RERRCALC 

CAE 

iTEMol 

R-ERROR  CALCULATION: 

0508 

17,2640 

0 0006 

1 

EXTEND 

CDU  angle  -angle  desired  (Y-AXIS) 

0509 

REF 

3 

LAST 

520 

17,2641 

7 1406 

0 

MP 

M31 

(CDUY-CDUYD)»M31  scaled  at  pi  radians 

0510 

REF 

15 

LAST 

50  1 

17,2642 

57'411 

1 

XCH 

E 

SAVE  first  term  (OF  TWO)  IN  OPP.AXIS  REG 

0511 

REF 

33 

LAST 

533 

17*2643 

30  062 

0 

CAE 

1TEMP2 

SECOND  TERM  CALCULATION: 

0512  . 

17*2^44 

0 0006 

1 

EXTENO 

CDU  ANGLE  -angle  dEsIREq  (Z-AXI5) 

0513 

REF 

4 

LAST 

520 

17,2645 

7 1403 

0 

MP 

M32 

(CDUz-CDUzD)«M32  SCALED  AT  PI  RADIANS 

0514 

REF 

16 

LAST 

533 

17,2646 

27*411 

0 

ADS 

E 

SAVE  SUM  OF  TERMS,  NO  OVERFLOW  EVER 

0515 

REF 

3 

LAST 

4^8 

17,2647 

55*470 

1 

TS 

RERROR 

SAVE  R-ERROR  FOR  EIGHT-BALL  DISPLAY 

05155 

REF 

1 

17,2650 

1 2715 

1 

ICF 

STILLRCS 

R0516 

this 

coding 

IS  enter 

=0  FROM  BURGZERO, 

, when  both 

urgencies  arf  zero. 

EXITS  TO  GTS  IF  POSSIBLE,  XTRANS  OTHERWISE 

0517 

REF 

5 

LAST 

521 

J7*2651 

3 7762 

0 

GlMBLTHY 

CAF 

JSEQRJTS 

IS  UET  USAGE  MANDATORJTj 

0518 

ref 

41 

last 

528 

17,2652 

7 0077 

0 

MASX 

QAP300LS 

0519 

REF 

243 

LAST 

528 

17,2653 

10  000 

0 

CCS 

A 

0520 

REF 

6 

LAST 

529 

17,2654 

1 2413 

1 

TCF 

XTRAnS 

YES,  GO  TO  XTRANS, 

05201 

17*2655 

0 0006 

1 

EXTEND 

ARE  GIMBALS  DRIVING? 

05203 

17*2656 

00  012 

1 

read 

12 

05205 

REF 

2 

last 

521 

17,2657 

7 2614 

1 

MASK 

0G I 

BITS  9,10,11,12  are  GIMBAL  DRIVE  BITS. 

05207 

REF 

244 

LAST 

533 

17,2660 

10  000 

0 

CCS 

A 

05209 

REF 

7 

LAST 

533 

17.2661 

1 2413 

1 

JGF 

JURAnS 

YES,  DRIVING,  GO  TO  XJRANS, 

0522 

17*2662 

0 0006 

1 

EXTEND 

NO.  CHECK  UETS. 

0523 

00  005 

1 

read 

5 

ARE  ANY  U,R  JETS  ON  NOW.  . 

A05235 

(CAN  ONLY  be  ROTATION  JETS.) 

0524 

17  »2664 

0 0006 

1 

EXTEND 

0525 

REF 

8 

LAST 

533 

17,2665 

1 2413 

1 

3ZF 

XTRAnS. 

NO.  GO  TO  XTRANS. 
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0527 

REF 

135 

LA5T__53_0 

_ lJj2666  _ 

3-7767  0 

rAF 

ZERO  . - 

YES^  TURN  OFF  JETS.. 

0528 

17,2667 

0 0006 

1 

EXTEND 

0529 

17,2670 

01  005 

0 

WRITE 

5 

0536 

17,2671 

0 0006 

1 

EXTEND 

NO.  GO  TO  GTS. 

0537 

REF 

1 

17,2672 

3 2675 

1 

OCA 

oOGTSADR 

0538 

REF 

16 

LAST  532 

iiL2i)73 

52  006 

0 

OXCH 

Z _ 

0539 

REF 

12 

LAST  532 

E6 

r6AN<= 

OT 

. 0590 

_ „ 1J>2679. 

-03609 

0_ 

SOGTSAoR  2CA0R 

SOTOsTS 

C0590 

REF 

2 

LAST  521 

17,2675 

92066 

1 

R05a05 

REMAINING  CODING 

(HeRiE  to  STlLLkCS)  : 

stays  in  to  <eep  addresses  Constant. 

0592 

REF 

29 

last  532 

1?  ^2676 

0 9736 

1 

TC 

eCSHOLE 

filler. 

0593 

REF 

2 

LAST  533 

17,2677 

1 2715 

1 

rcF 

STILI  RCS 

NO,  SO  USE  RCS. 

0599 

■REF 

6 

LAST  992 

__  L7,2  7Q0 

50  066 

1 

INDEX 

ORCNtR 

yes.  try  the  ERROR  MAGNITUDE^ 

0595 

REF 

1 

17,2701 

11*967 

1 

CCS 

ODIFF 

IS  ERROR  SMALL  ENOUGH  FOR  GtS. 

0596 

REF 

1 

17*2702 

6 2719 

1 

AD 

-XBNn+1 

-1.9  deg  scaled  at  pi  +1  bit 

0597 

L7,2703  . 

1 2705 

0 

TCF 

_ 

0598 

ref 

2 

LAST  539 

17,2709 

6 2719 

1 

AD 

-)(BNn+l 

0599 

17,2705 

0 0006 

1 

EXTEND 

0550 

_ 17,2706 

6 2710 

0 

3ZMF 

♦ 2 

IS  ERROR  LESS.ECJUAL  1.9  DEG. 

0551 

REF 

3 

LAST  539 

17,2707 

1 2715 

1 

TCF 

ST  ILI  RCS 

NO,  USE  RCS  CONTROL, 

0552 

REF 

7 

LAST  539 

17,2710 

10  066 

0 

CCS 

ORCNtR 

THIS  AXIS  IS  FINE.  ARE  BOTH  OONF. 

0553 

REF 

30 

LAST  539 

17i2711 

0 9736 

i 

iC 

ccshole 

REMOVE  reference  TO  ELIMINATED  aYMBOL. 

0559 

REF 

31 

LAST  539 

17,2712 

0 9736 

1 

TC 

CCSHOLE 

filler. 

0555 

17,2713 

77512 

1 

-RATLM.I  dCT 

77512 

-.5  DEG/SEC  scaled  AT  PI/9  + 1 BIT 

0556 

lJ  t27J.9  . 

-77J>01_ 

0 

-XBND+1  OCT 

J7^0j^ 

-1j9  deg  scaled  AT  PL,  t L BIT, 

Ro557 

"StIL-.RCS"  IS  T^E  eNT^Y  POINT 

TO  RCS 

Attitude  ste-Rins 

WHeNeweR  It 

IS  Found  that  tHe  trim  gimbal  contRO- 

R0559 

systemi  should  ndt 

BE  USED: 

633436A 

YUL 

SYSTEM  FOR  AGC 

: REVISION 

0 OF  PROGRAM  BURST120  BY 

NASA  2R21106-031 

DEC  7.  1967  (MAIN)  PAGE  535 

L 

a*R- 

■AXES  Reaction 

COVIHOL  system  AUTOPILOT 

USER'S  OWN  PAGE  NO.  17  S3  E6 

P0560 

a*R- 

ftXFS  RCS  urgency  _-UNCTlON.J.aGlCi  _ 

0551 

REF 

42  last  533 

17.2715 

10  077  0 SriLLRCS 

CCS 

DAP300LS 

BRANCH  TO  SPS-bACXUP  RCS  CONTROT  LOGIC. 

0562 

RtF 

1 

L7.2716 

1^35Z6_L 

tCf 

- -SRSBAICUa 

WhEN_-BIT15/DAPB00LS  s 0.  _ 

0563 

17.2717 

1 2720  1 

MOOP 

056A 

REF 

1 

17.2720 

3 2615  1 

CAF 

■OESCADR 

SET  JET  select  LOGIC  RETURN  AD3TESS  T3 

0565 

REF 

1 

_ L7  %Z1Z1 

5j4  062  1 

IS  _ 

IHE..OjR-AXlS  TJETLAW  CALCULATiaN 

0566 

REF 

3 LAST  A9A 

17.2722 

0 6013  0 

rc 

T6J3RCHK 

CHECK  T6  clock  RUPT  BEFORE  SUBROUTINE 

R0557 

CALCJuATE  THE  R*TE 

errors  scaled  at  PI/4  RADIANS/5EC0ND(2) ; 

0568 

REF 

2 LAST  _ 

_ 17j2723 

4 0775  _0  

c^ 

. - DMESAQD  . 

•0569 

REF 

6 LAST  520 

H,2724 

6 1416  0 

AD 

3ME5AU 

EDOTO  = OMEGAU  - OMEGAOD 

0570 

REF 

2 LAST  49 

17.2725 

55»423  1 

rs 

E03TO 

0571 

ref 

4 LAST  476 

17.2726 

4 0776  0 

:s 

3ME3ARD 

0572 

REF 

9 LAST  52° 

17.2727 

6 1420  0 

AD 

3ME3AR 

EDOTR  = OMEGAR  - 0ME6ARD 

0573 

REF 

2 LAST  49_  ^ 

. 17.2730 

55*424  0 

TS__  _ 

_ _EDaifi 
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P0574 

QjR- 

AXES  urgency^ 

FUNCTION  LOOP; 

R0575 

SET 

J3| 

LOOP 

TO  Do 

R-Axis.  then  Q-AXIS: 

0576 

REF 

132 

LAST 

525 

17,2731 

3 7763 

1 

CAF 

DNE 

1:  refers  to  r-axis  variables. 

0577 

REF 

1 

17,2732 

54  061 

1 

TS 

AXISrNTR 

o:  refers  to  0-AXlS  VARIABLES. 

R0578 

PICK 

JP 

edot 

and 

rescale  from 

Pl/4  TO  PI/16  RADI ANS/SeCDND: 

0579 

REF- 

2 

last 

536 

__  17,27.33. 

50  061 

0 

JRGLOQP  INDEX 

AXISrNTR 

error  rates  are  PRE-CALCULATED  3Y  rate 

0580 

REF 

3 

LAST 

53S 

17,273A 

31*423 

0 

CAE 

EODTQ 

derivation  scaled  at  PI/4  RADIA\iS/SEC3ND 

0581 

17*2735 

0 0006 

1 

EXTEND 

multiplying  by  FOUR  (BIT3)  LEAVrS  EODT 

0582 

REf 

17 

last 

502 

17,2736 

7 7761 

1 

MP  . . 

F.OJR 

AS  C(LI  If  EDOT  less  than  11.25  DEGVSEc. 

0583 

17,2737 

0 0006 

1 

EXTEND 

058A 

17,27A0 

1 2742 

0 

3ZF 

♦ 2 

IF  C(A)  NON-ZERO,  THEN  EDOT  GREATER  THAN 

0585 

REF 

1 

J.7,_27AI 

1 3010 

1 

ICF 

EDDTmAX 

_ 11^25  DEG/SEC  in  MAGNITUDE,  SO  .IMIT  IT. 

0586 

REF 

102 

LAST 

530 

17,2742 

10  001 

1 

CCS 

L 

INSURE  non-zero  EDOT! 

0587 

REf 

68 

L^S^T 

502 

17,2743 

6 7762 

0 

_ . ^ D- 

Two 

_ .cilf  .PMZ. remains,  unchanged. 

0588 

17,2744 

1 2746 

1 

rcF 

*1 

C(L)  NNZ  remains  UNCHANGED. 

0589 

17,2745 

4 0000 

0 

COM 

C(L)  +0  becomes  77776. 

05g0 

REf 

3 

LAST 

308 

17.2746 

6 7771 

1 

AB 

NEGl 

C(L)  -0  BECOMES  77776. 

0591 

REF 

11 

LAST 

509 

17,2747 

55'407 

1 

eootstdr  rs 

EDDT 

SAVE  NON-ZERO  EDOT  SCALED  AT  Pl/16. 

0592 

17^2750 

0 0006 

1 

EX_TEiMQ_ 

calculate  LEoQD-tEDOJj  I 

0593 

17,2751 

7 0000 

0 

sqjare 

059A 

REF 

6 

LAST 

507 

17,2752 

55*412 

0 

rs 

EDDT (2) 

scaled  at  PI(2)/2(+8)  RAD ( 2 ) /SE: ( 2 ) . 

0595 

17,2753 

0 0006 

1 

EXTEND 

0,5  *8  2 

0596 

REF 

3 

LAST 

536 

17,2754 

5 0061 

0 

INDEX 

AXISrNTR 

scaled  at  2 /pl  SEC  /RAD. 

0597 

REF 

2 

LAST 

55 

17,2755 

7 1717 

0 

MP 

1/ACCQ 

ACCQ.R 

0598 

17,2756 

0 0006 

1 

EXTEND 

deadband  = 5,0  OR  1,0  OR  0,3  DEGREES 

0599 

REF 

7 

LAST 

515 

17,2757 

60  375 

0 

SU 

DB 

scaled  at  pi  radians. 

0600 

REF 

1 

17,2760 

55*441 

0 

TS 

FP39 

0.5(1/ACC)EDOT(2)-DB  SCALED  AT  =l  RADS. 

0601 

rEf 

7 

last 

536 

17,2761 

31*412 

1 

CAE 

EdDT(2) 

scaled  at  Pl(2)/2(8)  rAd(2) /sEC(2) , 

0602 

17,2762 

0 0006 

1 

EXTEND 

0603 

REF 

A 

LAST 

536 

17,2763 

5 0061 

0 

INDEX 

AXISrNTR 

060A 

REF 

3 

LAST 

A78 

17,2764 

7 1721 

0 

MP 

1/AMINQ 

.511/ACCMlN)  AT  2(8)/PI  SEC(2)/RAD, 

0605 

REF 

8 

LAST 

536 

17,2765 

6 0375 

0 

AO 

DB 

DEADBAND  SCALED  AT  PI  RADIANS. 

0606 

REF 

1 

17,2766 

55*460 

0 

IS 

FP37M1N 

,5(1/ACCMIN)ED0T(2)+DB  SCALED  Af  PI  RAD. 

0607 

ref 

12 

LAST 

536 

17,2767 

11*407 

1 

CCS 

EoDT 

edOT  test  On  sign  (nOn-zErO) : 

0608 

REF 

17 

last 

533 

17,2770 

31*411 

1 

CAE 

E 

ATTITUDE  error  FOR  THIS  Axis 

0609 

17,2771 

1 2773 

1 

rcF 

♦ 2 

scaled  at  pi  radians. 

0610 

ref 

1 

W,2772 

1 3015 

1 

TCF 

EDDTniEG 

0611 

REF 

2 

LAST 

536 

17,2773 

27*441 

0 

ADS 

FP39 

E+0,5(1/ACC)ED0T(2)-DB  SCALED  At  PI  RAD. 

0612 

ref 

13 

last 

536 

17,2774 

11*407 

1 

FTEST  CCS 

Ed3T 

EdOT  guaranteed  nOT  +0  Or  -0. 

0613 

REF 

3 

LAST 

536 

17,2775 

11*441 

0 

CCS 

FP3R 

fpqr  guaranteed  not  +0. 
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L 

0*R- 

•akes  reaction 

CO'iTKOL  SYSTEM  AUTOPILOT 

user*s  Own  page  no,  19  S3  E6 

0614 

REF 

1 

17 

,277-6 

E 3003 

0 

T_C  F - 

DJ-ICX-URG 

-EDOT.G.  + 0-,--FPQR-.G.*0. 

0615 

REF 

4 

LAST 

536 

17 

,2777 

11*991 

0 

CCS 

FP3R 

EDOT.L.-O. 

0616 

REF 

1 

17 

,3000 

1 3021 

0 

TCF 

FMINCALC 

EOOT.L.-o,FPQR.G,*o/EDOT.G.+o,F3QR.L.-0. 

0617 

REF 

2 

last 

537 

17.3001_ 

LJ021_ 

0 

-XCF  - 

FMlNrALC 

-EDDT  .Gi*0  ,FPQR.E.-0  XFRQM  FIRST  CCS) 

0618 

REF 

2 

LAST 

537 

17 

,3002 

1 3003 

0 

TCF 

3UICKURG 

edot.l.-o,fpqr.l.-o. 

0619 

ref 

14 

LAST 

536 

. 17 

,3003 

JJ.*907 

0 

aOiCKU-RG 

CAE 

ED-OJ-  - 

- ED0T,L,-0-,FPUR,E.-0  (FROM  2ND--CCS)_,-  - 

0620 

17 

,3009 

0 0006 

1 

extend 

Scale  from  pi/16  to  pi  radians/second 

0621 

REF 

29 

LAST 

516 

17 

,3005 

7 7751 

1 

MP 

31TH 

TO  HAVE  SAME  SCALING  AS  FPOR  AFfER  THE 

0622 

ref 

5 

LAST 

537 

17 

,3006 

6-1991 

1 

AD  - 

FPOR 

IMPLICIT- M-ULT.  OF  FPQR  BY  1/SEC,^ 

0623 

ref 

1 

17 

,3007 

1 3093 

1 

TCF 

JR3MULT 

THIS  urgency  = (1/ACC)  (FP(3R,ED3t)  . 

062A 

REF 

295 

last 

533 

17 

,-30 10_ 

10  -0  0 0- 

0 

EDOTMAX 

CC  S - 

A 

guarantefd  not  +0  OR  -0. 

0625 

REF 

30 

LAST 

530 

17 

,3011 

3 7793 

0 

CAF 

POSmAX 

0626 

REF 

1 

17 

,3012 

1 2797 

0 

TCF 

EDDTSTOR 

SET  EDOT  TO  signed  MAXIMUM. 

0627 

REF 

31 

LAST 

537 

17 

,3013 

9 7793 

1 

CS 

POSMAX 

0628 

REF 

2 

LAST 

537 

17 

,3019 

1 2797 

0 

TCF 

EDOTSTOR 

scaled  at  PI/16  RADIANS/SECoND. 

0629 

REF 

6 

last 

537 

17 

,3015 

9 199E 

0 

eOoINEG 

CS 

F-P-aR-_  - . 

- scaled  -A-T -PI  RADIANS 

0630 

REF 

18 

LAST 

536 

17 

,3016 

6 1911 

1 

AD 

E 

ATTITUDE  error  FOR  THIS  AXIS 

0631 

REF 

7 

LAST 

537 

17 

,3017 

55*991 

0 

IS 

FP3R, 

E-0.5(1/ACC)EDOT(2)+DB  SCALED  At  PI  RAD. 

0632 

ref 

1 

17 

,3020 

1 2774^ 

TCF  -- 

FTEST 

0633 

REF 

8 

LAST 

537 

17 

,3021 

11*991 

0 

fmincalc 

CCS 

FP3R 

NECESSARY  RETEST  ON  FPqR; 

0639 

ref 

2 LAST 

536 

17 

,3022 

9 1460 

0 

CS 

FPQRMIN 

0635 

17 

,3023 

1 3025 

1 

rcF 

♦ 2 

E-0.5(1/ACCMIN)ED0T(2)-DB 

0636 

REF 

3 

LAST 

537 

17 

,3029 

31*960 

1 

CAE 

FP3RMIN 

0637 

ref 

19 

LAST 

537 

17 

,3025 

6 1911 

1 

AD 

E 

E + 0.,;  ( 1/ACCMIN)  EDOT  (?)  +DB 

0638 

ref 

4 

last 

537 

17 

,3026 

55*960 

0 

TS 

FPDRmIN 

Scaled  at  pi  radians. 

0639 

REF 

15 

LAST 

537 

17 

,3027 

11*907 

1 

CCS 

ED3T 

EDOT  guaranteed  NOT  +0  OR  -0. 

0690 

ref 

5 

LAST 

537 

17 

,3030 

11*960 

0 

CCS 

FP3RMIN 

FPQRMIN  GUARANTEED  NOT  +0  (CALL  IT  F). 

0691 

REf 

1 

17 

,3031 

1 3036 

0 

TCF 

ZERDljRG 

•G#+0*  f»g*+o» 

0692 

ref 

6 

LAST 

537 

17 

,3032 

11*960 

0 

CCS 

FP3RMIN 

EDOT.L.-O. 

0693 

REF 

1 

17 

,3033 

1 3092 

0 

TCF 

NORMURG 

EDOT*L*-0«  F*G*^0  / EDOT*G»*Q* 

0699 

REF 

2 

LAST 

537 

17 

,3039 

1 3092 

0 

TCF 

NORMURG 

EDOT.G.+O,  F.E.-O  (FROM  FIRST  CCS). 

0695 

REF 

2 

LAST 

537 

17 

,3035 

1 3036 

0 

TCF 

ZERDURG 

EDOT.L.-O,  F.L.-O. 

0696 

17 

,3036 

0 0006 

1 

ZER0UR3 

EXTEND 

EDOT.L.-O,  F.E.-O  (FROM  2ND  CCS). 

0697 

REF 

1 

17 

,3037 

3 3117 

0 

3CA 

DPZFROY 

THIS  URGENCY  IS  ZERO, 

0698 

REF 

1 

17 

,3090 

53*503 

1 

DXCH 

JRGENCY3 

0699 

REF 

1 

17 

,3091 

1 3097 

0 

TCF 

MOREURG 

TEST  FOR  NEXT  AXIS 

0650 

REF 

7 

LAST 

537 

17,3092 

31*960 

1 

N0RMUR3 

CAE 

FPJRIMIN 

THIS  urgency  J-S  FPQRMINU/ACC)  . 

0651 

17 

,3093 

0 0006 

1 

JRGMULT 

EXTEND 

0652 

REF 

5 

LAST 

536 

17 

,3099 

5 0061 

0 

INDEX 

AXISCNTR 

0653 

ref 

3 

LAST 

536 

11 

,3095 

7 1717 

0 

MP 

1/ACC(3 

0659 

REF 

2 

LAST 

537 

17 

,3096 

53*503 

1 

3XCH 

JRGENCYQ 

SAVE  D.P.  SCALED  AT  2 ( + 9)  . 

0655 

ref 

6 

LAST 

537 

17 

,3097 

10  061 

1 

MOrEUR-3 

CCS 

AXISCN-TR 

TEST  FOR  end  of  L0OP_  - - _ 

0656 

17 

,3050 

1 3052 

1 

TCF 

+ 2 

CONTINUE. 
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0657 

REF 

1 

17,3051 

-U12J3 

_0  __  ^ 

3^F  __ 

.JRJjSCALQ.^  . 

FINISHED..^  . .... 

0658 

REF 

7 

LAST  537 

17*3052 

5A  061 

1 

TS 

AXISCNTR 

Q-AXIS 

0659 

17,3053 

0 0006 

1 

extend 

0660 

REF 

3 

LAST  537 

17,305A 

3 1503 

0 

OCA 

JRGENCYO 

SET  URGENCYR 

0661 

REF 

i 

_ _L7j  3055 

53J5Q5 

1 . . 

DXCH 

JiGElilCYR  . 

0662 

ref 

20 

LAST  537 

17,3056 

53»A12 

0 

OXCH 

E 

SET  ER,ED0T(2)R 

0663 

ref 

5 

LAST  533 

17,3057 

_53'A1A 

0 

DxCH 

ER 

066A 

REF 

1 

17,3060 

56'All 

0 

TS 

E3 

SET  EO 

0665 

REF 

16 

LAST  537 

17,3061 

31*A07 

0 

CAE 

EDOT 

0666 

ref 

1 

L7j30i>2._ 

_ 55*AiO 

1 _ 

rs 

E0DT'(R) 

SET  EDOT  LR)  

0667 

REF 

1 

17,3063 

1 2733 

0 

rcF 

JRGLnOP 

CONTINUE. 

R0668 

SUFFI 

C'lENT  TEST  FOR 

urgency  RESCALING! 

0669 

REF 

2 

LAST  538 

i7,3q6A 

11 '50A 

0 JRGSCALR 

CCS 

JRGfNCYR 

IF  abval(urG£ncyr)  less  than  scale  bound 

0670 

REF 

1 

17,3065 

6 3115 

1 

AD 

SCALfBND 

0671 

17,3066 

1 3070 

1 

rcF 

,2 

then  BOTH  urgencies  CAN  BE  RESCALED  FROM 

0672 

REF 

2 

LAST  538 

17j3067 

6 3115 

1 

AD. 

scalfbnd  . 

0673 

17,3070 

0 0006 

1 

EXTEND 

2(+9)  TO  2(+A)  seconds. 

067A 

REF 

1 

17,3071 

6 3073 

0 

3ZMF 

JRoSrALE 

0675 

REF 

1 

17,3072 

1 3126 

0 

LCF  _ 

jRoLlMS 

R0676 

RESCALE 

BOTH  URGenCI 

E5  FROM  2(+9)  TO 

2(*A)  SECONDS! 

0677 

REF 

A 

LAST  538 

17,3073 

31'502 

1 JRtiSCALE 

CAE 

jrgencyq 

shift  d.p,  urgencyq  Left  s-places  to 

0678 

17,307A 

0 0006 

1 

EXTEND 

FORM  S.P.  URGENCYQ  NOW  SCALED  AT  16  SECS 

0679 

REF 

3A 

last  528 

17,3075 

7 7756 

0 

MP 

BITS 

0680 

REF 

5 

LAST  538 

17,3076 

23*502 

1 

i.XCH 

JRGENCYQ 

0681 

REF 

6 

LAST  538 

17,3077 

31*503 

0 

CAE 

JRGENCYU  +1 

0662  . 

17,3100 

0 0006 

1 

EXTEND 

0683 

REF 

35 

last  538 

17,3101 

7 7756 

0 

MP 

BIT6 

068A 

REF 

7 

LAST  538 

17,3102 

27*502 

0 

ADS 

JRGENCYQ 

0685 

rEf 

3 

last  538 

17,3103 

31»50A 

1 

CAE 

JRGEnCYR 

SHIFT  D.P.  URGENCYR  LEFT  5-PlAcES  TO 

0686 

17,310A 

0 0006 

1 

extend 

FORM  S.P.  URGENCYR  NOW  SCALED  AT  16  SECS 

0687 

REF 

36 

LAST  538 

17,3105 

7 7756 

0 

MP 

aiT£!_ 

0688 

REF 

A 

LAST  538 

17,3106 

23*50A 

1 

LXCH 

JRGEnCYR 

0689 

REF 

5 

LAST  538 

17,3107 

31*505 

0 

CAE 

JRGENCYR  +1 

0690 

17,3110 

0 0006 

1 

EXTEND 

0691 

REF 

37 

LAST  538 

17,3111 

7 7756 

0 

MP 

BITS 

0692 

REF 

6 

LAST  538 

17,3112 

27*50A 

0 

ADS 

JRGEnCYR 

0693 

ref 

1 

17,3113 

31*A77 

1 

CAE 

JrGlM2 

SET  urgency  Limit  for  2(+a)  sca.jng. 

069A 

REF 

1 

17,311A 

1 3127 

1 

TCF 

jrgfuoge 

0695 


17,3115  77A00  0 SCALEBND  OCTAL  77AOO 


-8  SECONDS  scaled  AT  2 (+9) 
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17.31 16 

QQQQQ  1_ 

OP^EROY 

2pEc 

_o 

C0696 

17,3117 

00000 

1 

R0697 

NECESSARY  TEST  FOR  URGENCY  RESCALING; 

0698 

REF 

8 

LAST 

538 

1T.3i20 

11 '502 

0 

JRGSCAL3 

CCS 

JRGenCYQ 

IF  abval(urgencyq)  less  than  scale  Bound 

0699 

REF 

3 

LAST 

538 

17,3121 

6 3115 

1 

AD 

scaCebnd 

0700 

17i312Z 

1 3J.24 

X 

ICF 

+ 2_  

_THEN.I£5X  URGENCYR  FOR  RESCALA3_E 

0701 

REF 

A 

LAST 

539 

17,3123 

6 3115 

1 

ad 

scalfbnd 

0702 

17,312A 

0 0006 

1 

EXTEND 

MAGNITUDE. 

0703 

REF 

1_ 

17.3125 

6 3064 

0 

JRGSf ALR 

070A 

REF 

1 

17,3126 

31*476 

0 

JRGLIMS 

CAE 

JR3LM1 

SET  URGENCY  LIMIT  FOR  2(+9)  SCA.ING. 

0705 

REf 

1 

17j312i__5U,  06  6l  0 

_jRgfudge 

rs  _ 

JR5LIMIT  . 

R0706 

USp 

urgency  I 

function 

correction  factor 

WHEN  necessary: 

07o7 

REF 

6 

LAST 

A78 

lT.3i3o 

1 1*660 

1 

CCS 

A3S3 

IF  C(AOSQ)  Zero  or  if  c(Urgencyq)  zero* 

0708 

REF 

9 

LAST 

539 

17,3131 

4 1502 

0 

cs 

JRGEnCyQ 

then  it  is  clearly  unnecessary  to  fudge. 

0709 

17j3L32 

1 3X34 

0_ 

rcf 

♦ ? 

__.WH1LE  MAXLNG  TXilS  TEST,  WE  CALCjLAT£ 

0710 

REF 

10 

last 

539 

17,3133 

31*502 

1 

CAE 

JRGENCYQ 

-SIGN(AOSQ) (URGENCYQ)  WHICH  IF  POSITIVE 

0711 

17*3139 

0 0006 

1 

EXTEND 

INDICATES  THAT  WE  ARE  TRYING  TD  FIGHT 

0712 

RtF 

1 

17,3135 

6 3142 

0 

3ZMF 

JRGF.UDG.1 

The  effect  of  aoso,  so  we  do  ndt  fudge. 

0713 

REF 

3 

LAST 

A77 

17,3136 

31*725 

0 

CAE 

JRGRATQ 

HERE  WE  KNOW  THAT  AOSQ  WILL  ACTUALLY 

071A 

17*3137 

0 0006 

1 

EXTEND 

HELP  THE  RCS  JETS  MANEUVER  FOR  THIS  AXIS 

0715 

ref 

11 

LAsT 

539 

17,3140 

7 1502 

0 

MP 

JRGENCYQ 

FOR  THIS  CSP*  multiplying  BY  URGRATQ 

0716 

ref 

12 

LAST 

539 

17*3141 

55*502 

0 

ts 

JRGENCYQ 

REDUCES  URGENCYQ  APPROPRIATELY  ENOUGH. 

0717 

REF 

1 

17*3142 

11*661 

0 

J^GFUOol 

CCS 

AOSR 

HERE  WE  DO  THE  SAME  LOGIC  FOR  THE  R-AXIS 

0718 

ref 

7 

LAsT 

538 

17,3143 

4 1504 

0 

cs 

JRoEnCYR 

COMPUTATIONS  As  WE  DiD  FOR  ThE  Q-AXIs  AT 

0719 

11*3144 

1 3146 

0 

rcF 

+2 

URGFUDGE.  RATHER  THAN  REPEAT  THE  ABOVE 

0720 

REF 

8 

LAST 

539 

17,3145 

31*504 

1 

CAE 

jrgencyr 

comments,  we  provide  a bit  of  FjRtHER 

0721 

17*3146 

0 0006 

1 

EXTEND 

explanation:  first*  only  a s.p.  urgency 

0722 

ref 

1 

17*3l47 

6 3154 

1 

3ZM£  .. 

jRGPl  ANE 

IS  SAVED  IF  WE  dO  ThE  FUdOE*  SINCE  ONLY 

0723 

REF 

2 

LAST 

A78 

17,3150 

31*726 

0 

CAE 

JRGRaTR 

S.P.  URGENCIES  ARE  REFERENCED  S^LOW  AND 

072A 

li*3151 

0 0006 

1 

EXTEND 

NO  D.P.  ACCURACY  IS  NEEDED.  SECOND*  BY 

0725 

ref 

9 

last 

539 

17,3152 

7 1504 

0 

*|P 

jrgencyr 

BY  multiplying  BY  ThE  FUdOE  RATIO  DURING 

0726 

REF 

10 

LAST 

539 

1 1.3153 

55*504 

0 

TS 

jrgencyr 

APS  BURNS,  WE  PREVENT  SOME  RCS  FIRINGS 

A0727 

WHICH  WOULD  OVER-CORRECT  DUF  TO  THE  AOS. 

0728 

REF 

13 

LAST 

539 

17,3154 

31*502 

1 

JRGPLANE 

CAE 

JRGENCYQ 

begin  urgency-plane  computations: 

0729 

17*3155 

0 0006 

1 

FXTENn 

0730 

ref 

1 

17,3156 

1 3310 

1 

3ZF 

BJRGtERO 

TEST  FOR  BOTH  URGENCIES  ZERO 

0731 

17,3157 

0 0006 

1 

extend 

0732 

REF 

1 

17,3160 

7 3325 

1 

MP 

-TAN52.5 

0733 

REF 

11 

LAST 

539 

17,3161 

6 1504 

1 

AD 

JRGENCYR 

073A 

17.3162 

0 0006 

1 

-xtend 

0735 

ref 

1 

17,3163 

7 3323 

1 

MP 

CQ322.5 
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0736 

REF 

9 LAST 

509 

17.316_4 

557510 

0 

_IS 

TERM  A,  . 

URjCOS  (22.51 -UQ.SUNJ2Z,5i 

0737 

REF 

12  last 

539 

17.3165 

4 1504 

0 

:s 

JRGENCYR 

0738 

17.3166 

0 0006 

_L 

FXTFNO 

0739 

REF 

2 LAST 

539 

17.3167 

7 3325 

1 

MP 

-TAN72.5 

07A0 

REF 

14  LAST 

539 

17.3170' 

6 1502 

1 

AD 

JRGENCYQ 

07A1 

17.3171 

0_  0006 

_1 

EXTEND 

07A2 

ref 

2 last 

539 

17.3172 

7 3323 

1 

MP 

C0S27.5 

07A3 

REF 

1 

17.3173 

551511 

1 

IS 

TERMB 

UR.SIN  (22.5)  ♦U(J.COS  (22.5) 

07AA 

REF 

lO  LAST 

540 

17.3174 

6 1510 

1 

A7B/A-3 

AD 

terma 

0745 

ref 

1 

17.3175 

55*506 

1 

IS 

A + 3 

0746 

ref 

2 LAST 

54O 

17.3176 

_4  15U^1 

A-B/ONLY 

cs 

TERMR 

0747 

REF 

11  LAST 

54O 

17.3177 

6 1510 

1 

AD  • 

TERMA 

0748  , 

REF 

1 

17.3200 

55*507 

0 

IS 

A-3 

R0749 

AXIS 

and  Mode  selection 

0750 

REF 

3 LAST 

54O 

IL.32QL 

3X*5ll 

0 

-CAE 

TJlR-MB 

_ _ _ _b;  _URG£NCY_  IEST__  _ _ _ 

0751 

17.3202 

0 0006 

1 

EXTEND 

0752 

REF 

1 

17.3203 

6 3326 

0 

3ZMF 

NEG3URG 

0753 

REF 

12  LAST 

54O 

17,3204 

31*510 

1 

PDSBUR3 

:ae 

terma 

A urgency  test 

0754 

17.3205 

0 0006 

1 

EXTEND 

0755 

ref 

1 

17.3206 

6 3252 

1 

3ZMF 

NEGApOaB 

075-6 

REF 

2 LAST 

54O 

17.3207 

31*507 

1 

PDSAPOSB 

:ae 

A-3 

0757 

17.3210 

0 0006 

1 

EXTEND 

0758 

ref 

1 

17.3211 

6 3233 

0 

3ZMF 

MiNjciU 

NEGATIVE  U-AXis  SELECTED 

0759 

ref 

2 LAST 

478 

17.3212 

31*722 

1 

2/4JET-R 

:AE 

1/AMTNR 

0760 

ref 

5 LAST 

5A 

17.3213 

55*633 

1 

TS 

.5ACCMNE 

0761 

17.3214 

0 0006 

1 

extend 

0762 

REF 

6 LAST 

538 

17.3215 

3 1414 

1 

3CA 

ER 

0763 

REF 

21  LAST 

538 

17,3216 

53*412 

0 

DXCH 

E 

0764 

REF 

2 LAST 

538 

17,3217 

31*410 

0 

CAE 

EDOT (R) 

076-5 

ref 

17  LAST 

538 

17.3220 

55*407 

I 

rs 

EDDT 

0766 

REf 

2 last 

539 

17.3221 

30  066 

1 

cAE 

JRGlTMIT 

0767 

REF 

13  LAST 

54O 

17,3222 

6 1504 

1 

AD 

JRGENCYR 

0768 

17.3223 

0 0006 

1 

EXTEND 

0769 

REF 

2 LAST 

525 

17,3224 

6 3227 

0 

3ZMF 

2JET5-R 

0770 

REF 

133  last 

636 

17,3225 

4 7763 

0 

4JETS-R 

CS 

ONE 

0771 

REf 

1 

17,3226 

1 3431 

0 

ICF 

PDLTyPE 

GO  find  best  POLICY 

0772 

REF 

1 

17,3227 

11*671 

1 

2JETS-R 

CCS 

NJ-.R 

0773 

REF 

2 LAST 

525 

I7.323O 

1 3225 

0 

rcF 

4JETS-R 

0774 

ref 

69  lAsT 

536 

17.3231 

4 7762 

1 

cs 

TwO 

0775 

REF 

2 LAST 

54O 

17.3232 

1 3431 

0 

TCF 

PDLTYPE 

GO  FIND  BEST  POLICY 
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0776 

REF 

2 

LAST 

A78 

17.L323J 

3.1*723- 

Q 

MlNUSU 

CAE  . . 

. ly-AMlNU  . . 

0777 

REF 

6 

LAST 

5A0 

17.3234 

55*633 

1 

rs 

.5ACCMNE 

0778 

REF 

15 

LAST 

5A0 

17.3235 

31*502 

1 

CAE 

JRoENCYQ 

0779 

REF 

14 

LAST 

5A0 

17.3236 

6 J.504 

1 

AD  . 

JR5ENCYR 

0780 

REF 

3 

LAST 

5A0 

17.3237 

6 0066 

1 

AD 

JRGLilMIT 

0781 

17.3240 

0 0006 

1 

EXTEND 

0782 

REF 

1 

irL3241_ 

b-32Jt5 

-1 

3ZMF  . 

2JE.ISi>.U_.  . 

0783 

REF 

1 

17.3242 

0 3445 

1 

2JETSM-U 

TC 

JXFOrM 

0784 

25 

LAST 

521 

_ 17.3243_ 

3 6311 

-1 

2-U.RATE 

CAF  . . 

THREE 

0785 

REF 

3 

LAST 

5A0 

17.3244 

1 3431 

0 

rCF 

POLTYPE 

GO  FIND  BEST 

POLICY 

0786 

ref 

1 

17.3245. 

- 11  '.6.73 

0 

2JETS-J 

CCS 

NJ-J  . .. 

0787 

REF 

1 

17.3246 

1 3242 

1 

rcF 

2JETSM-U 

0788 

REf 

2 

last 

5Al 

17.3247 

0 3445 

1 

TC 

JXFDRM 

078.9 

REF 

70 

LAST  6AQ 

L7ji25H  ^ JJ6  2_  D 

CAF.  - . 

TwD- 

0790 

REF 

LAST 

5Al 

17.3251 

1 3431 

0 

TCF 

POLTVPE 

GO  find  best 

POLICY 

0791 

REF 

2 

LAST 

5AP  _ 

17.3252 

31*506 

0 

NEGAPOSB.. 

. CA£_ . .. 

AiB  . ._.  

0792 

17.3253 

0 0006 

1 

extend 

0793 

REF 

1 

17.3254 

6 3271 

0 

3ZMF 

PLJSv 

079A 

REF 

4 

LAST 

536 

17.3255 

31*721 

1 

2/4JET-3 

CAE 

1/AMtNQ 

0795 

rEf 

7 

last 

5A1 

17.3256 

55*633 

1 

TS 

•SACCMNE 

0796  ' 

REF 

A LAST 

541 

17.3257 

30  066 

1 

CAE 

JRGfTMIT 

0797 

REF 

16 

LAST 

541 

17.3260 

6 1502 

1 

AD 

JRoENCYQ 

0798 

17.3261 

0 0006 

1 

EXTEND 

0799 

REF 

2 

LAST 

52i> 

17,3262 

6 3265 

0 

3ZMF 

2JET.t-Q  . . 

0800 

REF 

13 

LAST 

501 

17.3263 

4 7766 

0 

4JETS-3 

cs 

five 

0801 

REf 

5 

LAST 

54I 

17.3264 

1 3431 

0 

ICF 

-POLTyPE 

GO  find  best 

POLICY  . 

0802 

REF 

1 

17.3265 

11 '667 

0 

2JETS-3 

CCS 

NJ-Q 

0803 

REF 

2 

LAST 

525 

17*3266 

1 3263 

1 

TCF 

4JETA-0 

080A 

REf 

lA 

last 

501 

17.3267 

4 6306 

0 

cs 

SIX 

0805 

REF 

6 

LAST 

54I 

17.3270 

1 3431 

0 

TCF 

POLTYPE 

GO  FIND  BEST 

POLICY 

0806 

REF 

2 

LAST 

47a 

17.3271 

31*724 

1 

PLUSV 

CAE 

l/AMINV 

0807 

ref 

8 

last 

54I 

17.3272 

55*633 

1 

TS 

•SaCCMNE 

0808 

REF 

15 

LAST 

54I 

17.327.3 

4 1504 

0 

CS 

JRoENCYR 

0809 

REF 

17 

LAST 

541 

17.3274 

6 1502 

1 

AD 

JRoENCYQ 

0810 

REF 

5 

last 

54I 

17.3275 

6 0066 

1 

AD 

JHoLTMIT 

0811 

17.3276 

0 0006 

1 

EXTEND 

0812 

REf 

1 

17.3277 

6 3303 

1 

3ZMF 

2JETA+V 

0813 

REF 

1 

- 17.3300 

0 3437 

1 

2JETSM+V 

rc 

V)CFORM 

081A 

REf 

lA 

LAST 

54I 

17.3301 

3 7766 

1 

2*V.RATE 

cAf 

FIVE 

0815 

REF 

7 

LAST 

541 

17.3302 

1 3431 

0 

TCF 

POLTyPE 

GO  FIND  BEST 

POLICY 

0816 

REF 

1 

17.3303 

11*674 

1 

2JETS*V 

CCS 

NJ.V 

€ 
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53  E6 


0818 

REF 

2 

LAST 

541 

17,3305 

0 3437 

1 

TC 

YXFOrM 

0819 

REF 

18 

LAST 

53t> 

17,3306 

3 7761 

0 

3AF 

FOUR 

0820 

REF 

8 

LAST 

54I 

17,3307 

1 3431 

0 

ICF 

POLTyPE 

GO  Find  BEST  POLICY  . 

0821 

REF 

16 

LAST 

541 

17,3310 

31*504 

1 

3JRGZER0 

CAE 

JRGeNCYR 

TEST  For  second  urgency  also  Zero 

0822 

_ 17,3311 

0.  0006 

1 

EXTEND- 

0823 

ref 

1 

17,3312 

1 2651 

0 

3ZF 

GlM3|  TRY 

BOTH  urgencies  ZERO.  TRY  THE  3TS. 

0824 

17,3313 

0 0006 

1 

EXTEND 

TIME  SAVING  A,b  CALCULATION 

0825 

ref 

1 

17,3314 

7 3324 

0 

*1P 

SIN22.5 

0826 

REF 

4 

LAST 

54O 

17,3315 

55*511 

1 

TS 

TERMR 

UR.SIN(22.5) 

0827 

REF 

17 

LAST 

5AZ 

17,3316 

31'_504 

1 

CAE 

JR51NCYR. 

0828 

17,3317 

0 0006 

1 

EXTEND 

0829 

REf 

3 

last 

54O 

17,3320 

7 3323 

1 

*1P 

C0S22.5 

0830 

ref 

13 

LAST 

54O 

17,3321 

55J510 

0 

TS 

_ UR-iC05  L2_2  .-5) _ _ _ 

0831 

REF 

1 

17,3322 

1 3176 

0 

rcF 

A-3/0NLY 

0832 

17t3323 

35441 

0 

C 3522. 5 

3EC 

0-.  92a88 

. COSJNE  OF-  22.5  DEGREES 

0833 

17,3324 

14176 

1 

5IN22.5 

DEC 

0.38268 

SINE  OF  22.5  DEGREES 

0834 

17,3325 

62575 

1 

-TAN22.5 

3EC 

-.41421 

NEGATIVE  OF  TANGENT  OF  22.5  DE3REES 

0835 

REF 

14 

LAST 

542 

17,3326 

31*510 

1 

NEGBUR3 

CAE 

TERMa 

A URGENCY  TEST 

0836 

17«3327 

0 0006 

1 

EXTEND 

0837 

ref 

1 

17,3330 

6 3 353 

32  Mf  _ 

IEjG-AnEQB.-. 

0838 

REF 

3 

LAST 

54I 

17,3331 

31*506 

0 

P3SANE3B 

CAE 

A+B 

08a9 

17*3332 

0 0006 

1 

EXTEND 

0840 

ref 

1 

17,3333 

6 3416 

1 

3ZMF 

2/4JcT+Q 

0841 

REF 

3 LAST 

54I 

17,3334 

31*724 

1 

MlNUSV 

CAE 

l/AMtNV 

0842 

REF 

9 

LAST 

54I 

17*3335 

55*633 

1 

rs 

.saccmne 

0843 

REf 

18 

last 

54I 

17,3336 

4 1502 

0 

:s 

JRGEncYQ 

0844 

■ref 

18  LAST 

54Z 

17*3337 

6 1504 

1 

AD 

JRGENCYR 

0845 

REF 

6 

LAST 

541 

17,3340 

6 0066 

1 

AD 

JR3LIMIT 

0846 

17,3341 

0 0006 

1 

EXTEND 

0847 

ref 

1 

17,3342 

6 3346 

0 

3ZMF 

2JETS-V 

08i,8 

ref 

3 

LAST 

5<,2 

17,3343 

0 3437 

1 

2JET5M-V 

TC 

yxform 

0849 

REf 

12 

LAST 

501 

17,3344 

3 7765 

1 

2-V.RATE 

'Af 

SEYEN 

0850 

REF 

9 

LAST 

542 

17,3345 

1 3431 

0 

TCF 

POLTYPE 

GO  find  best  policy 

0831 

REF 

1 

17*3346 

11*675 

0 

2JETS-\/ 

3CS 

NJ-Y 

0852 

REF 

1 

17*3347 

1 3343 

1 

TCF 

ZJETaM-V 

0853 

ref 

4 

last 

542 

17,3350 

0 3437 

1 

TC 

VXFORM 

0854 

REF 

15 

LAST 

541 

17*3351 

3 6306 

1 

CAF 

SIX 

0855 

REF 

10 

LAST 

54Z 

17,3352 

1 3431 

0 

TCF 

POLTYPE 

GO  FIND  BEST  POLICY 

0856 

ref 

3 

LAST 

540 

17,3353 

31*507 

1 

NEGANE3B 

CAE 

A.B 

0857 

17*3354 

0 0006 

1 

EXTEND 
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OflSfi 

r£f 

1 

17.3355 

6 3375 

_3ZM£ 

2/9JFT*R 

0859 

REF 

3 

LAST 

59l 

17,3356 

31'723 

0 

PIUSU 

CAE 

1/AMtNU 

0860 

REF 

10 

LAST 

592 

17.3357 

55,633_  1 

I.Sl 

iS-A  Cr  MNE 

0861 

REF 

7 

LAST 

592 

17,3360 

9 0066 

0 

cs 

JRoLtMIT 

0862 

REF 

19 

LAST 

592 

17,3361 

6 1502 

1 

AD 

jrgencyq 

0863 

REF 

19 

LAST 

5.9  2 . 

17,33.62  1509 

1 

AD  . 

- JfiOEAlCJfil.  . 

086A 

17,3363 

0 0006 

1 

EXTEND 

0865 

ref 

1 

17,3369 

6 3372 

1 

3ZMF 

2JET9M+U 

0866 

REF 

1 

17,3365 

11'672 

1 

2JETS+J 

CCS 

NJ  + J 

0867 

REf 

2 

LAST 

593 

17.3366 

1 3372 

0 

TCP 

2JETSM+U 

0B68 

REF 

3 

LAST 

59 1 

17,3367 

0 3995 

1 

TC  ._ 

JxFDrM 

0869 

REF 

136 

LAST 

539 

17,3370 

3 7767 

0 

CAF 

ZERO 

0870 

REF 

11 

LAST 

592 

17,3371 

1 3931 

0 

rcF 

POLTYPE 

GO 

TO  find  Best  policy 

0871 

REF 

LAST 

593 

17,3372 

0 3995 

1 

2JETSM+U 

tc 

JXFDRM 

0872 

rEf 

139 

LAST 

590 

17,3373 

3 7763 

1 

2*-U.rATE 

caf 

DnE 

0873 

REF 

12 

LAST 

593 

17,3379 

E_  393 1 

0 - 

rCF._  . 

.PaL.TJ<iPE  _ 

GO 

FIND 

BEST 

POLICY 

0879 

REF 

3 

LAST 

590 

17,3375 

31'722 

1 

2/9JET*R 

CAE 

1/AMtNR 

0875 

rEF 

11 

LAST 

593 

17,337.6 

55'633 

1 

rs 

.SACrMNE 

0876 

17,3377 

0 0006 

1 

EXTEND 

0877 

REF 

7 

LAST 

590 

17,3900 

3 1919 

1 

3CA 

ER 

0878 

REf 

22  LAST 

59° 

17,3901 

53*912 

0 

DXCH 

E 

0879 

REF 

3 

LAST 

590 

17,3902 

31'910 

0 

CAE 

EDDT(R) 

0880 

REF 

18 

LAST 

590 

17*3903 

55*907 

1 

rs 

EDDT 

0881 

REf 

20 

last 

593 

17,3909 

9 1509 

0 

cs 

JRaENCYR 

0882 

REF 

8 

LAST 

543 

17,3905 

6 0066 

1 

AD 

JRSLIMIT 

0883 

17,3906 

0 0006 

1 

EXTEND 

0889 

REF 

2 

LAST 

525 

17.390J 

6 3912 

0 

3ZMF 

.2JET.S+il 

0885 

REF 

26 

LAST 

59I 

17,3910 

9 6311 

0 

9JET5+R 

CS 

three 

0886 

REf 

13 

LAST 

593 

17,3911 

1 3931 

0 

rcF 

POLTYPE 

GO 

find 

BEST 

POLICY 

0887 

REF 

1 

17,3912 

1 1 '670 

0 

2JETS+R 

CCS 

NJ  + R 

0888 

REF 

2 

LAST 

525 

17,3913 

1 3910 

0 

ICF 

9JETS+R 

0889 

ref 

19 

last 

592 

17,3919 

9 7761 

1 

'S 

FOUR 

0890 

REF 

19 

LAST 

593 

17,3915 

1 3931 

0 

rcF 

POLTYPE 

GO 

FIND 

BEST 

POLICY 

0891 

REF 

5 

last 

59I 

17,3916 

31*721 

1 

2/9JET*-3 

cae 

17AMIN(3 

0892 

REF 

12 

LAST 

593 

17,3917 

55*633 

1 

IS 

.5ACCMNE 

0893 

REF 

20 

LAST 

543 

17,3920 

9 1502 

0 

cs 

JRGFNCYra 

0899 

REF 

9 

LAST 

593 

17,3921 

6 0066 

1 

AD 

JRGLIMIT 

0895 

17,3922 

0 0006 

1 

EXTEND 

0896 

ref 

2 

LAST 

529 

17,3923 

6 3926  1 

3ZMF 

2JET5+Q 

0897 

REF 

13 

LAST 

592 

17,3929 

9 7765 

0 

9JETS+3 

:s 

SEVEN 

0898 

REf 

15 

LAST 

593 

17.3925 

1 3931 

0 

rcF 

poltyee 

GO 

FI.ND 

BEST 

POLICY 

633<f36A 

YUL 

SYSTEM  FOR  AqC  : 

REVISION 
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0899 

REF 

8 LAST  5& 

__  lJj2.4Zi!  6A6  J. 2 

NJ_0 

0900 

0901 

REF 

REF 

2 LAST  524 
1 

17,3427 

17,3430 

1 3424  1 
4 7760  0 

rCF  4JETS+0 

cs  eight 

R0902 

generalized  calling 

Sequence 

FOR  ALL  Q,R-AXeS  ROTATIONS  (FROM  BANK  17)! 

09o3 

RFF 

1 

1 7,3431 

54  o6]  1 POLTYPE 

IS  NEIACNDX  . _ 

SAVE  , INDEX  JNDICAI ING  AXIS,  DIR-CtION, 

0904 
. 0905 
0906 

REF 

1 

17.3432 

17.3433 
_Uj3A3_4 

0 0006  1 
3 3436  0 
52  006  0 

EXTEND 

OCA  POLADR 

OTCB 

AND  number  of  JETS  REoUESTED  (THIS  SPEC- 
IFIES the  "OPTIMAL"  POLICY.  TRANSFER 
ACROSS  BANKS  TO  POLICY  SELECTION  ROUIINE 

0907 

0908 

REF 

8 LAST  531 

17,3435 

E6 

02321  0 POLADR 

EBaNKs  JTSONNOW 
2CADR  POLTYPEP 

2CADR  OF  JET  POLICY  SELECT  ROUINTE. 

C0908 

ref 

1 

17,3436 

40066  0 

633^>36A  YUL  SYSTEM  FOR  *GC  i REVISION  0 OF  PROGRAM  bURSTlZD  dY  NASA  2n2110ft-031 
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L 

Q»R- 

-akes  reaction 

CO\|TROL  SYSTEM  AUTOPILOT 
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R0909 

SU3R3JT1NES  1 

LIXFORM 

AMO^VXFQRM 

CALCULATE 

- NEEDED- 

VA_UES_-Ea.R-j;,.  lET  -LAW  . 

R0910 

(THEY  GO  OFF 

TO  REDUCE  RATE. 

IF  NECESSARY.  AND 

THEN  DO 

NOT  RETURN) 

0911 

REF 

1 

17  .3907 

31 '713  0 

YXFORM. 

CAE  - - 

1/-2JFTSV 

GET  INVERSE  OF  V-JET  ACCELERATION 

0912 

REF 

2 

LAST 

526 

17.3990 

59  066  0 

TS 

1/NjETAC 

0913 

REF 

2 

last 

538 

17.3991 

9 1911  0 

cs 

E3 

complement  for  transformation 

0914 

REF 

3 

LAST 

595 

17j3_99l2 557  911  0 

T5 

£a 

0915 

REF 

4 

LAST 

536 

17.3993 

9 1923  1 

CS 

EDOTra 

0916 

REf 

1 

17.3999 

1 3950  1 

rcF 

JVXFnRM  +1 

0917 

REF 

1 

17.3995 

3EI707  _0 

JXFORM 

CAE  - . 

1/2JETSU 

SET  INVERSE  -OF  U-JET-  ACCELERATION 

0918 

ref 

3 

LAST 

595 

17.3996 

59  066  0 

rs 

1/NJETAC 

0919 

REF 

5 

LAST 

595 

. 17.3997 

31*923  0 

JYXFORM 

-CAE 

EDOTO  - 

TRANSFORM  ANGULAR  RATE  TO  U/V-A<IS 

0920 

REf 

3 

last 

535 

17.3950 

6 1929  1 

AD 

EuOTR 

0921 

17.3951 

0 0006  1 

EXTEND 

0922 

REf 

_1 

17.3452 

7-3525  -1 

MP 

.707 

0923 

REF 

19 

LAST 

593 

17.3953 

55*907  1 

IS 

EDOT 

SAVE  FOR  REDUCEUV 

092A 

17.3959 

0 0006  1 

EXTEND 

0925 

REF 

20 

LAST 

506 

, i7.3955 

7 7761  1 

-MP- 

-BXT-3-  - - - 

0926 

17.3956 

0 0006  1 

EXTEND 

0927 

REF 

1 

17.3957 

1 3965  1 

3ZF 

JVEOnT 

branch  if  rescaling  successful. 

0928 

REF 

2 

LAST 

537 

17.3960 

10  000  0 

CCS 

A 

LIMIT  EDOT  TO  ♦/-  11.25  DEG/SEC. 

0929 

REf 

32 

LAST 

537 

11.3961 

3 7793  0 

cAf 

POSMAX 

0930 

REF 

1 

17.3962 

1 3966  1 

TCF-  - 

JVEOnTl 

0931 

REF 

33 

LAST 

595 

17.3963 

9 7793  1 

CS 

PDSMAX 

0932 

REF 

2 

LAST 

5A5 

17.3969 

1 3966  1 

ICF 

JvEOOTl 

0933 

REF 

1D3 

LAST 

535 

17.3965 

30  001  0 

JYEDOT 

CAE 

L 

093A 

REF 

20 

LAST 

595 

17.3966 

55*907  1 

JYEDOTl 

rs 

EDOT 

RATE  ERROR  SCALED  AT  Pl/16, 

0935 

17.3967 

0 0006  1 

EXTEND 

0936 

17.3970 

7 0000  0 

SQUARE 

0937 

REF 

8 

LAST 

536 

17.3971 

55*912  0 

TS 

EDOT, 2) 

SAVE  RATE  SQUARED  SCALED  AT  PI(2)/2(8) 

0938 

REF 

4 

LAST 

595 

17.3972 

31*911  1 

CAE 

EQ 

transform  attitude  error  to  u/v  -axis 

0939 

REf 

8 

last 

593 

17.3973 

6 1913  0 

AD 

ER 

O9S0 

17,3979 

0 0006  1 

EXTEND 

09A1 

ref 

2 

LAST 

595 

17.3975 

7 3525  1 

MP 

.707 

0992 

REF 

23 

LAST 

593 

17,3976 

55*911  0 

TS 

E 

0993 

REF 

199 

LAST 

520 

17.3977 

0 0002  0 

TC 

0 

0999 

0995 

17.3500 

17.3501 

77595  0 
00019  1 

-1.5C5°Q 

♦TjMINT6 

JEC 

3EC 

-.00o38 

*.00n73 

0996 

0997 

0998 

REF 

1 

17.3502 

17.3503 

77757  1 -TJM1N16 
17,3502  -TJMINOR 
00050  1 3B.7MAT9 

3EC 

equals 

3Er 

-.00097 
-T JMTN16 
0.00292 

0999 

17,3509 

77733  0 

-MS35AT9 

DEC 

-.00219 

-35MS  scaled  at  9 
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0950 

095X 

0952 

0953 


17.3505  3Ai4Yt  _0 M^RATLE^  _0£C Q.sa«-B9  X0_  (2£GREES/ SECOND  _ SCALED  AT  _P I /)  6 

17.3506  31221  1 MAXRATE2  OEC  0.79012  100  DEG ( 2 ) /SEC ( 2 ) SCALED  AT  Pl(2)/2(8) 

17.3507  01552  1 .6DEG/SC  3EC  0.05333  6/10  DEGREES/SECOND  SCALED  AT  ?I/16 

17.3510 31.QQ0--Q 25/320R 3££ Q. 78125 
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L 

R095A 

q.r-axes  reaction  control  system  autopilot 
THfSf  TRO  subroutines  transform  EDOTOiEDOJR  into,. 

USER*S  OWN  page  NO.  29  S3  E6 

the  J/V-AXIS  (RESPE.cn VEUYL  for  the  rate  .COMMANO_.MODE  (ONLY). 

R0956 

0957 

value 

IS  STORED  IN 

EOO'TGEN  scaled  AT  Pl/4  RADI  ANS/SECOND. 

17.3511 3ANJ£ L7 

0958 

REF 

2 LAST  545 

17,3511  31*707  0 

eootugen 

CAE 

1/2JPTSU 

FOR  U-AXIS  TRANSFORMATION 

0959 

REF 

A LAST  545 

17^3512  54  066  0 

TS 

1/NJETAC 

0960 

ref 

6 last  545 

lXi3513  _31*423  0 

.CAE 

. ..EoOTq  . .. 

0961 

17,3514  1 3520  1 

TCF 

,4 

0962 

REF 

2 LAST  545 

17,3515  31*713  0 

eootvgen 

CAE 

1/2JFTSV 

FOR  V-AXIS  TRANSFORMATION 

0963 

REF 

5 LAST  547  _ ^ 

17,3516_._54  066  0 

IS 

1/NJETAC 

0964 

REF 

7 LAST  547 

17,3517  4 1423  1 

C6 

EOOTO 

0965 

ref 

4 LAST  545 

17,3520  6 1424  1 

AD 

edotr 

0966 

17,3521  0 0006  1 

FXTFND 

0967 

REF 

3 LAST  545 

17,3522  7 3525  1 

MP 

• 707 

0968 

REF 

6 LAST  525 

17,3523  55*437  1 

TS 

RATEDIF 

0969 

REF  1_J5  J.AST  54S 

17.3524 Q_O.Q02_0. 

rc 

0 

0970 

17,3525 

26501  1 

.707 

jEc  0.70711 

0971 

17,3526 

0 0006  1 

S^SBACUP 

EXTEND^  . 

0972 

0973 

0974 

REF 

REF 

REF 

1 

17  LAST 
13  LAST 

534 

634 

17,3527 

17,3530 

3 3532  0 
52  006  0 
F6 

OCA  SPSRCSAD 

OXCH  Z 

FBAN<=  DT 

0975 

C0975 

ref 

1 ' 

17.3531 

17.3532 

03417  0 
42066  1 

S=SRCSA0 

2CADR  SPSRrS 
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P0976 

AW»**»»»**»***»*»*****»**X»»)HHHm»*»)U(*)Ht)HH(»»**-*»**)H(*JHHHt*»»»**»»*»)Ht**)t*)t******»****»»»»***»»*» 

0978 

REF 

21 

last 

545 

17,3533 

4 1407 

1 

T JETLAW 

CS 

EODT 

TEST  ON  EDOT  SIGN; 

0979 

17.3534 

Q 0006- 

_L_ 

EXTEND 

0980 

17,3535 

6 3541 

1 

3ZMF 

+ 4 

0981 

REF 

22 

LAST 

548 

17,3536 

55*407 

1 

rs 

EDOT 

SIGNS  OF  E and  EDOT  CHANGED  IF  rDOT  NEG, 

0982 

REF 

24 

LAST 

.54.5 

17»353J__ 

4_a4l.l 

0 

CS 

_E  . . 

TO  consider  functions  in  the  u?3er  half 

0983 

. ref 

25 

last 

548 

17,3540 

55*411 

0 

TS 

E 

Of  the  e-dot  phase  plane. 

0984 

REF 

9 

LAST 

54.5 

L7,35-4_l 

'3_1A412_  1 

CAE 

EDDT (2) 

SCALED  AT  PI(2)/2Ua)  RAD  (2) /SEC  (2) 

0985 

17*3542 

0 0006 

1 

EXTEND 

1/NETACC  has  been  set  for  n-jets  «ith 

0986 

REf 

2 

last 

57 

17,3543 

7 0066 

0 

MP 

1/NETAcc 

Implicit  factor  of  (i/Z). 

0987 

REF 

26 

LAST 

548 

LL13.544 

.6  1411 

1 

AD 

E 

ATTITUDE  error  SCALED  AT  PI  RAOjANS, 

0988 

17,3545 

0 0006 

1 

EXTEND 

deadband  value  scaled  at  pi  radians. 

0989 

REF 

9 

LAST 

536 

17,3546 

60  375 

0 

SU 

DB 

E+.5ED0T/NETACC-DB 

0990 

REF 

2 

LAST 

50  _ 

_L7j3547 

55*444 

0 

tS 

HOAP 

scaled  at  pi  Radians. 

0991 

17,3550 

0 0006 

1 

EXTEmD 

0992. 

.REF 

I. 

17,3551 

^ Ji&li 

37MF 

NEGHnAP 

0993 

REF 

23 

LAST 

548 

17,3552 

31*407 

0 

CAE 

EDOT 

rate  error;  limited  to  +/-  11.25  oeg/sec 

0994 

17,3553 

0 0006 

1 

EXTEmD 

SCALED  at  pi/16  rADi AnS/SECOnD. 

0995 

REF 

3 

LAST 

548 

17,3554 

7 0066 

0 

MP 

1/NEtACC 

SCALED  AT  2(+8)/PI  SEC(2)/RAD1  (ACC)(-1) 

0996 

17,3555 

20  001 

1 

DDOUBL 

scaled  at  2 (+4)  SECONDS. 

0997 

REF 

15 

LAST 

542 

17,3556 

55*510 

0 

TS 

TERM4 

0998 

REF 

1 

17,3557 

6 3500 

1 

AD 

-1.5C5P0 

(EdOT/nETACC)-1.5CSP  scaled  at  16  sEcs. 

0999 

17,3560 

0 0006 

1 

ExTEIiC. 

1000 

17,3561 

6 3564 

0 

3ZMF 

+ 3 

1001  . 

ref 

37 

last 

50/ 

17,3562 

3 7746 

0 

MAXTJET 

CAF 

BITl^, 

(1/2)  IS  LIKE  POSMAX  AT  THIS  SCALING. 

1002 

rEf 

1 

17,3563 

1 2456 

0 

TCF 

NORviRETN 

(OVERFLOW  IS  PREVENTED  IN  THIS  ^Ay.) 

1003 

REF 

3 

LAST 

548 

17,3564 

4 1444 

0 

CS 

HDA? 

MINIMPDB-E- (EDOT (2) /NETACC) *DB 

1004 

REF 

3 

LAST 

479 

17,3565 

6 1631 

1 

AD 

MINIMPDB 

SCALED  AT  PI  RADIANS. 

1005 

17,3566 

0 0006 

1 

EXTEND 

(DURING  APS  BURNS*  MINIMPDB  s -DB.) 

1006 

REF 

1 

17.3567 

6 3646 

0 

3ZMF 

MAINrRCH 

1007 

REF 

16 

last 

548 

17,35/0 

31*510 

1 

CAE 

TERMa 

EDOT/NETACC-35MS  SCALED  AT  16  SECONDS. 

1008 

. R_^ 

1 

17,3571 

6 3504 

0 

AD 

-MS3>SAT4 

1009 

17,3572 

0 0006 

1 

EXTEND 

COMPARE  TIME-TO-GET-ZERO-RATE  WITH  35MS. 

1010 

REF 

1 

17,3573 

6 3576 

0 

3ZMF 

1NZ3NE4 

1011 

ref 

1 

1 ^ 

6 35O3 

1 

AD 

38.7MAT4 

TIME-TO-GET-ZERO-RATE  + 1/2  MINIMR. 

1012 

REf 

1 

17,3575 

1 3742 

1 

TCF 

TJETSCAL 

1013 

REF 

24 

LAST 

548 

17,3576 

11*407 

1 

INZ0NE4 

CCS 

EDDT 

IF  EDOT  IS  EITHER  00001,  00000,  77777, 

1014 

17*3577 

0 0006 

1 

EXTEND 

OR  77776  (IM  OCTAL),  THEN  THIS  rODING 

1015 

ref 

9 

LAsT 

533 

17*3600 

1 2413 

1 

3ZF 

XTRAns 

CAUSES  A branch  TO  XTRANs*  NO  ROTATION 

1016 

17*3601 

0 0006 

1 

EXTEND 

JETS  ARE  fired.  *»**  NOTE:  IF  THE  EXTEND 
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1017  REF  10  LAST  59«  17j3602„l_  2-9l3_J. 3ZE CODE  IS  SKIPPED,  B2F  EXECUTES  LiKE  TCF. 


1018 

ref 

2 

last 

53 

17 

,3603 

31*607 

1 

cae 

NO.DJETS 

IF  NO  (3-AxIS  JETS  then  MUST  HAYE  R-AxIs. 

1019 

17 

,3609 

0 

0006 

1 

EXTEND 

1 0?0 

REF 

1_ 

17 

,3605 

1 

3613 

X_ 

1021 

REF 

3 

LAST 

535 

17 

>3606 

30 

775 

1 

CAE 

DMEGAUD 

WITH  0-AXIS  JETS,  ZERO  THE  RATE  ERROR. 

1022 

ref 

7 

LAST 

535 

_ ,17 

,3607 

55*916 

1_ 

IS 

DMEGAU. 

1023 

REF 

1 

17 

,3610 

31 

*610 

1 

CAE 

NO.R.IETS 

IF  NO  R-AXIS  jets,  then  Q-AXIS  jEtS  WERE 

1029 

17 

,36  IX, 

0 

Q0_06 

_1_ 

EXTEND 

ALREADY  FOUND. 

1025 

REf 

1 

17 

,3612 

1 

3615 

1 

3ZF 

OOTJmIN 

1026 

REF 

5 

LAST 

535 

,17 

,3613 

30 

776 

1 

rotraxis  cae 

DMEGARD, 

_ WITH  R-AXIS  JETS,  ZERO  THE  RATE  ERROR. 

1027 

REF 

10 

LAST 

535 

17 

,3619 

55*920 

1 

IS 

DMEGAR 

1028 

rEF 

1 

,17 

,5615 

3 

3501 

0 

_D3TJMin  cAf  - 

-♦T-JM1NT6 

_ -USE  minimum  IMPULSE  DI  FOR  TUR. 

1029 

REF 

2 

LAST 

598 

17 

,3616 

1 

2956 

0 

ICF 

NORMRETN 

1030 

REF 

10 

LAST 

598  _ 

17 

,3617 

31 

*912 

1 

NEGHDA?  CAE 

EDDT (2) 

RATE  ERROR  SQUARED  SCALED  AT  PI(2)/2(8), 

1031 

17 

,3620 

0 

0006 

1 

EXTEND 

1032 

REf 

13 

last 

593 

17 

,3621 

7 

1633 

1 

MP 

.SAcrMNE 

.5(I/ACCMIN)  AT  2(8)/PI  SEC(2)/RA3. 

1033 

REF 

27 

LAST 

5_98 

17 

,3622 

_6 

19U 

L 

AD 

E 

. .ATT  I-T-U_OE_  error  -SCALED  AT  PI  RADIANS 

1039 

REF 

10 

LAST 

598 

17 

,3623 

6 

0375 

0 

AD 

DB 

DEADBANDS  (2)  SCALED  AT  PI  RADIANS 

1035 

REF 

4 

LAST 

979 

17 

,3629 

b 

1630 

0 

AD 

DBMInIMP 

(DURING  APS  BURNS  DBMlNlMP  = 0.) 

1036 

17 

,3625 

0 

0006 

1 

EXTEND 

1037 

17 

,3626 

6 

3630 

1 

3ZMF 

+ 2 

1038 

REF 

11 

LAST 

599 

17 

,3627 

1 

2913 

1 

tcf 

XI RANS 

NO  ROTATION  JETS  NEEDED, 

1039 

REF 

1 

17 

,3630 

4 

3505 

0 

♦2  CS 

MAXRATE 

10  DEGREES/SECOND  SCALED  AT  Pl/16. 

1090 

ref 

25 

last 

598 

17 

,3631 

6 

1907 

0 

AD 

EdDT 

EdOT-MAXRATE  scaled  at  pi/16  RAj/SEC. 

1091  . 

17 

,3632 

0 

0006 

1 

EXTEND 

1092 

17 

,3633 

6 

3635 

1 

3ZMF 

♦ 2 

1093 

REF 

12 

LAST 

599 

17 

,3639 

1 

2913 

1 

ICF 

XT  RAmS 

1099 

REF 

26 

last 

599 

L7 

,3635 

4 

1907 

1 

♦2  CS 

EDDT 

RATE  ERROR  SCALED  AT  PI/16  RAD/SEC. 

1095 

17 

,3636 

0 

0006 

1 

extend 

(limited  to  ♦/-  11,25  dEG/SEC.) 

1096 

REF 

4 

LAST 

598 

17 

,3637 

7 

0066 

0 

MP 

1/NEtACC 

scaled  at  2(+8)/PI  SEC{2)/RAD:  (ACC):-I) 

1097 

17 

,3690 

20 

001 

1 

3DDJ3L 

scaled  at  2 (+9)  SECONDS. 

1098 

ref 

17 

LAST 

598 

17 

,3691 

55*510 

0 

IS 

TERMA 

1099 

ref 

4 

last 

S98 

17 

,3692 

9 

1999 

0 

CS 

RDAP 

-E* ( .5E00T (2) /hETACC) +DB 

1050 

ref 

28 

LAST 

599 

17 

,3693 

6 

1911 

1 

AD 

E 

1051 

REF 

29 

LAST 

599 

17 

1 3644 

b 

1911 

1 

AD 

E 

twice  E-RROR  negates  E of  HDAP(A30YE) 

1052 

REF 

9 

LAST 

598 

17 

,3695 

6 

1631 

1 

AD 

MINIMPDB 

1053 

REF 

5 

LAST 

599 

17 

*3646 

55*999 

0 

mainbrch  is 

HDAP 

-HDAP (ABOVE) ♦2E*DBMIN1MP  AT  PI  7A0IANS. 

1059 

ref 

5 

LAST 

599 

17 

,3697 

30 

066 

1 

CAE 

1/NEtACC 

.5(1/nETACC+1/ACCMIn)  SCALED  AI  2(8)/Pl. 
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1055 

REF 

LAST 

599  , 

L7_ 

i365^0  _27.«63J3. 

1 

. . AD.S .5ACCMNE 

,5-ACCMNE.  NOW.  HOLDS  . DENOM. 

1056 

17 

.3651 

0 0006 

1 

EXTEND 

OeNOM(MAXRATE(2> ) *HDAP  at  PI  RAOIANS. 

1057 

ref 

1 

17 

.3652 

7 3506_ 

0 

MP  VLAXRATE2 

1058 

REF 

6 

LAST 

599 

17 

.3653 

6 1999 

1 

AD  HDAB 

1059 

17 

.3659 

0 0006 

1 

EXTEND 

1060 

REF 

1 

17.3655  6 3739 

1 

3ZMF  - NDROnL-  - 

1061 

REF 

6 

last 

599 

17 

.3656 

30  066 

1 

CAE  1/NETACC 

SAVE  (1/NETACC) (2) 

1062 

17 

A nnon 

- 3DUBLE  ^ 

1063 

17 

.3660 

0 0006 

1 

EXTEND 

1069 

17 

.3661 

7 0000 

0 

SQUARE 

1065 

ref 

1 

17 

.3_i62 

_5.3i319 

1 

DXCH  _ INYACCSQ 

1066 

ref 

7 

LAST 

550 

17 

.3663 

31 <999 

1 

CAE  HDAP 

(HDAP) / (DENOM) 

1067 

17 

.3669 

22  007 

0 

7L 

1068 

17 

.3665 

0 0006 

1 

EXTEND 

1069 

REF 

15 

LAST 

550 

17 

.3666 

11<633 

1 

DV  .SACrMNE 

IO7O 

REF 

1 

17 

.3667 

55*727 

0 

TS  DUOTTEMP 

1071 

17 

.3670 

0 0006 

1 

extend 

♦(HDAP/DENOM) (1/NETACC) (2)  AT  2(8)  SeCS. 

1072 

REF 

2 

LA^ST 

550 

11 

.3611 

7 15i9 

1 

MP  IN\/ArCSQ  *1 

1073 

REF 

3 

LAST 

55O 

17 

.3672 

55*519 

1 

TS  INVACCSQ  +1 

IO7A 

ref 

137 

LAST 

593 

17 

.3673 

3 7767 

0 

CAF  ZERO 

1075  _ 

:.ref 

9_jAST 

S50  _ 

17 

J.36X9 

_57*513 

. . XrH  INVArCSCl 

1076 

17 

.3675 

0 0006 

1 

EXTEND 

1077 

ref 

2 

LAST 

550 

17 

.3676 

7 1727 

0 

MP  OUOTtEMP 

1078 

REF 

5 

LA5T 

550 

IJ 

.3617 

21*519 

1 

DAS  INYArCSO 

1079 

17 

.3700 

0 0006 

1 

extend 

SAVE  COPY  OF  Above  d.p.  value 

__  106.0 

REF 

_ _6_ 

LAST 

550 

17 

.3701 

3 1519 

0 

DCA  INYACCSn 

1081 

ref 

5 

LAST 

592 

17 

.3702 

53*512 

1 

DXCH  TERMH 

1082 

rEf 

2 

.lAst 

598 

17 

.3703 

3 3500 

1 

cAf  -i.srsPQ 

(1.5CSP-EdOT/nETACC)  at  16  aECS. 

1083 

REF 

18 

last 

17 

.3709 

6 1510 

1 

AD  TERMA 

1089 

17 

.3705 

0 0006 

1 

EXTEND 

1085 

17 

.3706 

7 0000 

0 

SQUARE 

(1.5CSP-ED0T/NETACC) (2)  AT  256  SECS. 

1086 

ref 

7 

LAST 

17 

.3707 

21*519 

1 

das  INYArCSQ 

(1.5CSP-ED0T/NETACC) (2)  - TERM3 

1087 

ref 

8 

last 

550 

17 

.3710 

311513 

1 

CAE  InVACCSQ 

CHECK  HIGH  ORDER  PART.  iF  nOn-ZFRO. 

1088 

17 

.3711 

0 0006 

1 

EXTEND 

1069 

REF 

1 

17 

.3712 

1 3719 

1 

3ZF  ONLYTSTl 

IO9O 

REF 

2 

LAST 

550 

17 

.3713 

1 3715 

0 

rCF  DNLYtSTI  *1 

1091 

REF 

9 

LAST 

550 

17 

.3719 

31*519 

0 

ONLYTSTl  CAE  INVACCSQ  .1 

USE  LOW  ORDER  PART.  SINCE  HIGH  bART  0. 

L092. 

17 

.3715 

0 0006 

1 

EXTEND 

1093 

ref 

1 

17 

.3716 

6 3562 

0 

3ZMF  MAXT.lET 

1099 

REF 

2 

LAST 

595 

17 

.3717 

3 3502 

0 

CAF  -TJMIN16 

-EDOT/NETACC-TJMIN  scaled  at  16. 

1095 

ref 

19 

LAST 

550 

17 

.3720 

6 1510 

1 

AD  TERMA 
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1096 

17.^771 

n nno^ 

1 

sXTF\ir) 

1097 

REF 

1 

17,3722 

6 3796 

1 

3ZMF  MAYNOJET 

1096 

REF 

1 

17,3-723 

3-3733 

0 

preroot 

:AF  AFTRuTAO 

- THIS  WILL  cause  SQUARE  ROOT  TO  3E  TACEN 

1099 

rEf 

11 

LAST 

521 

17,3729 

55*000 

1 

TS  T5A0R 

ON  THE  NEXT  TSRUPT, 

1100 

17,3725 

0 0006 

1 

EXTEND 

UOl 

17,3726 

OQ  005 

1 

READ  5 

1102 

REF 

1 

17,3727 

55 '659 

0 

TS  CH5TPMP 

1103 

REF 

9 

LAST 

599 

17,3730 

311971 

1 

JETSON 

CAE  JTSONNOW 

TURN  ON  jets  AND  END  RUPT 

110^ 

REF 

5 

LAST 

530 

_X7-,.37-31. 

-0--6096 

0 

rC  - WRITFQR 

1105 

REF 

39 

LAST 

529 

17,3732 

1 5733 

.1 

TCF  RESUME 

1106 

REF 

1 

1-7,3-733  - 

--QJ219 

0 

AfT-RUIAD- 

--3ENADR  OORJtDUM 

1107 

REF 

2 

LAST 

599 

17,3739 

3 3505 

1 

NOROOT 

CAF  MAXRATE 

1108 

REF 

1 

17,3735 

6 3507 

0 

AD  .60EO/SC 

maxrate*del  scaled  at  pi/16  RAO/SEC. 

1109 

17,3736 

0 0006  1 

EXTEND 

1110 

REF 

7 

LAST 

55O 

17,3737 

7 0066 

0 

MP  1/NEtACC 

(MAXRATE  + OED/NETACC 

1111 

17,3790 

20  001 

1 

ODOJBL 

scaled  at  2(*9)  SECONDS 

1112 

ref 

20 

LAST_ 

55O 

17,-37-91 

6 1510 

1 

T JSUM 

AD-  TLRMA 

1113 

17,3792 

6 0000 

1 

TJETSCAL 

DOUBLE 

NOW  SCALED  AT  2(*3)  SECONDS. 

lllA 

17,3793 

0 0006 

1 

EXTEND 

1115 

ref 

1 

17,3799 

7 3510 

1 

MP  25/3?(3R 

SCALED  TO  16/25  2(+9)  SECONDS  AS  TIME6. 

1116 

REF 

3 

LAST 

599 

17,3795 

1 2956 

0 

TCF  NORMbETN 

1117 

- 17,3796 

0 0006 

1 

maynojet 

EXTEND  - _ . 

-RE-INITIALIZE  C ( I NVACCSQ.D.P. ) 

1118 

ref 

6 

LAST 

550 

17,3797 

3 1512 

0 

OCA  TERMR 

SINCE  CLOBBERED  ABOVE. 

1119 

REF 

10 

LAST 

550 

17,3750 

53*519 

1 

OXCH  INyAcCSQ 

1120 

REF 

3 

last 

55O 

17,3751 

3 3502 

0 

CAF  -TJMtN16 

1121- 

REF 

21 

LAST 

55I 

17,3752 

6 1510 

1 

AD  TERMA 

TERMA-TjMlN  SCALED  AT  2 (+9)  SECONDS. 

1122 

17,3753 

0 0006 

1 

EXTEND 

1123 

' 17,3759 

7 0000 

0 

SQUARE 

SCALED  AT  2 (+8)  SECONDS. 

112A 

REF 

11 

LAST 

551 

17,3755 

21*519 

1 

OAS  INVACCSQ 

FORM  D.P.  SUM. 

1125 

REF 

12 

LAST 

551 

17,3756 

31*513 

1 

CAE  INYAcCSQ 

CHECK  high  order  PART  IF  NOn-ZERO. 

1126 

17,3757 

0 0006 

1 

EXTEND 

1127 

ref 

1 

17,3760 

1 3762  0 

3ZF  0NLYTST2 

1128 

REF 

2 

LAST 

551 

17,3761 

1 3763 

1 

TCF  0NLYTST2 

,1 

1129 

REF 

13 

LAST 

551  ^ 

- 17,3762 

31*519 

0 

0NLYTST2 

CAE  INVACCSQ 

+ 1 

USE  LOW  ORDER  PART.  SINCE  HIGH  3ART  n. 

1130 

17,3763 

0 0006 

1 

EXTEND 

1131 

ref 

1 

17,3769 

6 3723 

1 

3ZMF  PRERnOT 

1132 

REF 

2 

LAST 

599 

17,3765 

1 3615 

1 

TCF  DOT JMlN 

FIRE  FOR  MINIMUM  IMPULSE. 

11325 

17,3766 

37777 

1 

CHKSUM17 

OCT  37777 
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Ri13a  authori:  Jonathan  d,  aodelston  (adams  associates) 

Rll35  DAPSOTT  IS  A SJBROUtTme  "WHICH  PERFORMS  THE  NECESSARY^Al^^APPRoFRrATE  INTERFACE  FUNCTIONS  "BeTWeeNTHe"  L'i  DaP  AND 
RII37  THe  present  SpRUOT  SJ3ROUTINE  IN  MASTER.  DApSORT  EXPECTS  A OOUbLf  pRECiSION  ARGUMENT  IN  C(A,L)  AND  ^<ILl  SHIFT 

R1I39  that  quantity  Six  OR  FOUR  bits  TO  THf  LfFT  to  FoRvI,  a MoRf  ACCURATf  SINGLf  precision  argument  FOR  SPROOT  (AND 

Riui  tHen  shift  the  Single  precision  result  of  sproot  thRee  or  two  bits  to  the  right  in  ordeR  to  maintain  scaling 

Ri1A3  CONSISTENCY).  DaPSQRT  ALSO  PERFORMS  THe  HERETOFORE  NeGLeCTFO  FUNCTION  OF  SAVING  AND  ReStORING  tHe  CONTtNtS  OF 

R11A5  THe  SRi  ( SHI FT-RiGHI)_^  R_EGI ST£R  . which  MUST  3e  DONE  3Y  ALL  JSe^S  OF  SPROOT  IN  INTERRUPT. 

Ri1A7  note:  if  original  CIA)  = o*  THEN  THE  SQUARE  ROOT  SINGLE  PRECISION  ARGUMENT  IS  C(L).  AND  tHe  ReSULT  FROM  SPROOT 

R1U9  ES_SHlETED_£EF_T^5£aElJBJLI.S_. - __  __  

R1150  calling  SEQUENCE: 


A1151 
A1152 
A1I53 

R115A  alarm/abort  MODE:' none. 


R1155  SUBROUTINES  CALLED:  S=ROOT  AND  T6J0BCHK. 

_R1156  NORMA'-  EXIT  MODE:  RETURN  TO  L *?, _ _ _____  _ _ 

R1157  output:  C(A)  at  Return  to  caller  is  tHe  best  sing.e  precisiom  squaRe  root  of  the  given  double  precision  argument 
RT 15^  erasable  Initialization  required:  double  Rrecision  argument  as  cia.d. 


_ R1L60_ 

debris; 

ITEMPA.  ITEM35»  ITEMP6 

AND  A,L 

tQ  • 

1161 

1162 

REF 

1 

26,2525 

E6 

3AN< 

EBAN<5 

26 

function 

Al  163 
A1164 
AlltS 

SRTEMP 

S3RTTEMP 

S3RJTEL!1Q 

erase 

erase 

_ERAS£ 

SCRATCH  Cells  for 
SCRATCH  Cells  for 
SCRATCH  Cells  for 

DAPSQRT 

DApSQRT 

DAPSQRT 

1166 

REF 

1 

26*2525 

55*730  0 

DAPSQRT 

TS 

sqrttemp 

SAVE  C(A)  PART  OF 

DOUBLE  PRECISION  ARG. 

1167 

1168 

REF 

1 

26.2526 

26.2527 

0 0006  1 
23*731  0 

EXTEND 

3XCH 

SQRTTEMQ 

SAvE  C(Q)  for  RETURN  TO  LM  DAP  CALLER. 

1169 

1170 

1171 

REF 

REF 

19 

2 

LAST  285  26,2530 

26,2531 
LAST  56  26,2532 

30  021  1 
6 0000  1 
55*727  0 

CAE 

double 

TS 

SR 

SRTEMP 

SAVE  C(5R)  SINCE 
USING  SPROOT  MUST 

ALL  INTERRUPT  PROGRAMS 
DO  SO. 

L tc  ibnccall  call  is  always  from  another  ban<. 

L +1  CAOR  DAPSQRT  ENTER  ROUTINE  WITH  C(A,E)  = D.P.  ARG. 

L (RETURN) _ C(A)  = Best  value,  of:  SQUARE  ROOT .__  __ 
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L 

3*S- 

-AXES  reaction 

COmTROL  SYSTEM  AUTOPILOT 

USER*S  OWN  page  nO.  35  S3  E6 

U72 

REF 

4 

LAST  535 

2fc»2533 

-0  60L3 

0 

,c 

. I6.J3HCHX 

CHECK  TIMF6-RUPT  BFFQRF  SPROOT . 

1173 

REF 

2 

LAST  552 

26*2534 

31*730 

1 

CAE 

SJRTTEMP 

RESTORE  D.P.  ARG.  TO  C(A*D*  ANo  THEN 

117^ 

26*2535 

0-  0006 

1 

- - - EXJLELNO 

check  FOR  C(A)  5 *0.  iT^  SO,  TA<E  T^E 

1175 

REF 

1 

26*2536 

1 2570 

0 

3ZF 

0APSORT3 

SQUARE  ROOT  OF  C(L)  AND  POST-SHTFT. 

1176 

REF 

1 

26.2537- 

-7-  2574 

1 

MAS< 

DAPHLGHT  - 

IF  THIS  MASK  PRODUCES  A WORD  OF  ZEROS* 

1177 

26*2540 

0 0006 

1 

EXTEND 

C(D.P.ARg)  will  be  shifted  left  6 BITS 

1178 

REF 

1 

26,2541 

1 2552 

0 

3ZF 

SaRTsL6 

WITHOUT  OVERFLOWING  BEFORE  USING  SPROOT. 

1179 

REF 

1 

26*2542 

7 2575 

0 

MAS< 

0APHtGH5 

IF  THIS  MASK  produces  A WORD  OF  ZEROS* 

iieo 

26*2543 

0 0006 

1 

extend 

C(D.P.ARg)  will  be  shifted  left  4 BITS 

ll8l 

REF 

1 

26  * 2544- 

-1  2556 

1 

3ZF 

SaRTSL4 

WITHOUT- 0-V£.RF-L0WING-BEF0RtL  USING  SPROOT. 

1182 

REF 

3 

LAST  553 

26*2545 

31*730 

1 

CAE 

SDRTTEMP 

GET  UNSHIFTED  S.P.  ARGUMENT  FOR  SPROOT. 

1183 

REF 

1 

26*2546 

0 5417 

0 

rc 

SPRonT 

CALL  SUBROUTINE  IN  FIXED-FIXED. 

1 1 8^ 

REF 

3 

LAST  55-2  _ 

- -26*2547 

23*727 

1 

DAPSQRTL 

58JEMP. 

RESTORE  C(SR) . 

1185 

ref 

20 

last  552 

26*2550 

22  021 

1 

lXCH 

SR 

1186 

REF 

2 

LAST-  552 

. 26,2551 

0 1731 

0 

IC 

SDRTTEMQ 

RETURN  WITH  SQUARE  ROOT  AS  C(A).-  _ 

1187 

REF 

12 

LAST  520 

25*2552 

3 7753 

1 

S3HTSL6  CAF 

B1T9 

SET  UP  TO  SHlFl  D.P.  ARG.  LEFT  6 SITS 

1188 

ref 

196 

LAST  547 

26,2553 

54  002 

1 

TS 

3 

1189 

REF 

22 

last  474 

26*2554 

3 7750 

1 

CAF 

Bill? 

AND  TO  SHIFT  SpROOT  ANS.  RIGHT  3 3ITS. 

1190 

REF 

1 

26*2555 

1 2561 

0 

TCF 

0APSORT2 

1191 

REF 

30 

LAST  537 

2&  « 2 5 56 

3 7751 

0 

S3RTSL4  CAF 

BlTll 

SET  UP  TO  SHIFT  D.P.  ARG.  LEFT  4 BITS 

1192 

ref 

197 

last  553 

26*2557 

54  002 

1 

TS 

a 

1193 

REF 

20 

LAST  495 

26*2560 

3 7747 

1 

CAF 

BIT13 

AND  TO_SHIFT  SPROOT  ANS.  RIGHT  2 BITS, 

1194 

REF 

LAST  553 

26*2561 

57*730 

1 

0APSQRT2  XCH 

53RTTEMP 

(RECONSTRUCT  D.P.  ARGUMENT.) 

1195 

26.2562 

fl  000_6 

L 

extend 

VARIABLE  LEFT  SHIFT  .(4  OR  6 BITS). 

1196 

ref 

198 

LAST  553 

26*2563 

10  002 

1 

iV 

a 

(MAC  HAS  DIFFEU*  LM  DAP  HAS  DV  a - PUN?) 

1197 

REF 

2 

LAST  553 

26*2564 

0 5417 

0 

daproot  tc 

SPROnT 

CALL  SUBROUTINE  IN  FIXED-FIXED 

1198 

26*2565 

0 0006 

1 

EXTEND 

VARIABLE  RIGHT  SHIFT  (2  OR  3 BITS), 

1199 

REF 

5 

LAST  553 

26*2566 

7 1730 

0 

MP 

saRTTEMP 

1200 

REF 

1 

26*2567 

1 2547 

1 

TCF 

dapsorti 

return  sequence. 

1201 

REF 

17 

LAST  527 

26,2570 

3 7754 

0 

DAPSQRT3  CAF 

BIT8 

SET  UP  TO  SHIFT  SPROOT  ANS.  RIGHT  7 BITS 

1202 

REF 

6 

LAST  553 _ 

26,2571 

55*730 

0 

L5 

SURTtEMP 

1203 

REF 

104 

LAST  545 

26*2572 

30  001 

0 

CAE 

L 

USE  C(L)  AS  SPROOT  ARGUMENT. 

1204 

ref 

1 

26*2573 

1 2564 

0 

TCF 

DAPRnOT 

1205 

1206 


26.2574  77400  0 04PH1GH7  OCjAL  7740n 

26.2575  76000  0 DAPH1&45  OCTAL  76000 
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L 

ROOOl 

0«R-AXE5  JET  select  An)0  FAILURE  CONTROL  LOGIC 
program:  POLTYPEP  _ MOO.  NO-^-I  _ B.AJ Ei 

_NaVEMBER,J.A-.  1966-  -- 

USER'S  Own  page  no.  1 S3 

Ro002 

AUTHORli  JONATHAN  D.  AODELSTON  (aDAMS  ASSOCIATES) 

Ro003 

Roods 

R0007 

this  3R0GRAM  IS  DeSISNeD  TO  SeLeCT  A POLICY  OF  jetS  (OF 
rotation  ANO/OR  translation  which  is  ReOJIReD  3Y  the  lm 
rotation  is  R£0LI£STE0)_,  THE^  optimal  POLICT  is  SeL-CTeD^ 

WHICH  NONf  have 
dap.  from  the 
when  failures 

FAILeD)  WHICH  CAN  Be  USeD  TO  CREATE  THe 
index  mNeTACNDX'i  (WHICH  MUST  Be  SET  WHEN 

are  Detected  within  a chosen  policy,  an 

ROOQ9 

Rooii 

R0013 

alternate  Policy  is  selected,  if  all  alternate  policies  are  exhausted  without  finding  an  unfailed  policy,  a jet 
FAILJRE  abort  initiated.  wHeN  THe  ROJTINe  I S JSe  FOR  TRANSLATION  JetS  ONLY,  "tRANONLY"  MUST  Be  SeT  POSITIVE 
(NONZERO)  AND  THe  ENTRY  POINT  IS  "+/-XTRAN", 

ROOIA 

calling  SEQUENCES; 

RoOlS 

1.  FORI  Rotation  iwitH'  Rossible  +x  translation): 

AflDlii 

CAF  _ 

RFTJRN 

(GENADR  OF  RETURN) 

A0017 

rs 

TJETADR 

A0018 

t • 

A0019 

caf 

inoexval 

INDICATE  ROT.  AXIS,  DIRECTION, 

A0020 

T5 

NETACNDX 

AND  number  of  JETS. 

A0021 

EXTEND 

A0022 

OCA_  _ 

POLAOR 

transfer  across  banks  to  POLTYPeP. 

A0023 

otcb 

rooza 

7.  FORI  TRANSLATION  ONLY: 

Ao025 

CAF 

POSMAX/NfGMAX 

indicate  -X  translation  by  posmax. 

ADOZi 

rs 

ANYTRANS 

*X  translation  by  NEGvlAX. 

A0027 

CAF 

ZERO' 

Zero  extraneous  flags  for  routine 

A0028 

IS 

TRA\)<;N0W 

• • • 

A0029 

IS 

JRANSAVE_ 

A0030 

EXTEND 

A0031 

OCA 

JTPOI  ADR 

transfer  across  banks  to  +/-XTRAN 

A0022 

rs 

TRANONLY 

(AND  Set  tRANONLY  POSITIVE  NONZERO.) 

A0033 

OTCB 

R003A 

SU3R0JTINES  CALLED:  NONE. 

R0035 

NORMAfi  Return  i,  foRi  rotation,  to  address  in  3an<i  i7  specified  by  c(tJetadR). 

R0037 

2.  FORI  translation,  RESUME. 

R0038 

aLarm/ABort  mode;  whenever  tHeRe  is  no  usable  Jet 

Policy  fojnd,  transfer  to  jetaboRt. 

ROOAO 

input:  NETACNDXtCH5MA5X,l/NETACS. 

Rooai,^ 

OUtPJT:  jets  on  in  channel  5,  JTSATCHG. 

ROOa2 

debris:  a,l,alll  itemps,all  ruptregs. 

1^043  INITULIZATION  *1  ROTATION  REqUeST  ENTRY  POINT; 
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L 

00^4 

O.R- 

■AXES  JET 

select 

And  Failure  control 

?n.2321 

logic 

BANK 

70 

USER'S  Own  page  no.  2 

S3 

0045 

REF 

10 

LAST 

551 

E6 

EBANK 

= JTSONNOW 

00a6 

REF 

138 

LAST 

55P  - 

20*2321  3 7767  0 

POLTYPEP  CAF 

. ZERO  . _ 

SET 

VOLATILE  SWITCHES  TO 

INDICATE 

00a7 

REf 

2 

last 

52B 

20,2322  54  070  1 

TS 

TRANnNLv 

1) 

translation  entry  not 

made 

( ROTATTON) 

00A8 

REF 

2 

LAST 

528 

20,2323  54  071  0 

rs 

ANYTRANS 

2) 

no  translation  known 

YET. 

0049 

REF 

2 

last 

528 

20j232_4  _54  072  0 

TS 

_TRANSNDW  __ 

3) 

No  TRANS.  DURING  ROT. 

KNOWN 

YET. 

OO5O 

REF 

2 

LAST 

528 

20,2325  54  073  1 

TS 

TRANSAVE 

4) 

NO  TRANSLATION  POLICY 

selected  yet. 

Roosi  TEST  'OR  Sense  of  rotation  jfts.  (make  translation  reojest  from  tHe  astronaut's  stick.  oveRRIOe  inteRNa.  jllase) 


0053 

0054 

REF 

29 

LAST 

527 

20.2326 

20.2327 

3 7755 
0 0006 

1 

1 

CAF  3IT7 

EX_T_END 

astronaut  +x  translation 

request 

TEST. 

0055 

20,2330 

02  031 

1 

RAND 

31 

0056 

20,2331 

0 0006 

1 

EXTEND 

0057 

REF 

1 

20,2332 

1 2415 

1 

3ZF 

♦xtransl 

0058 

REF 

18 

LAST 

553 

20.2333 

3 7754 

0 

CAF 

81TB 

astronaut  -X  translation 

Request 

TEST. 

0059 

20,2334 

0 0006 

1 

EXTEND 

0060 

20,2335 

02  031 

1 

RAND 

31 

0061 

20,2336 

0 0006 

1 

EXTEND 

0062 

REF 

1 

20,2337 

1 2422 

0 

3ZF 

-XSEmSE 

ROO&3  , CHEC<  for  ullage  or  ascent  burn: 


0064  REF  1 20.2340  3 2606  0 JLL/+X  CAF  BIT5a68  CHECK  FOR  ULLAGE  OR  ASCeNT  BURN:  (EITHER 

0065  REF  A3  LAST  535  20,2341  7 0077  0 HAS<  DApanOLS  BIT  REQUIRES  *X  SENSE  FOR  ROTATION  JETS) 

0066  REF  2_47  LAST  545  __20,2342  10  000  0 CCS  A BlTs:  ULLAGE  BIT  ( + X TRANSLATION  ASKED) 

0067  REF  1 20,2343  1 2411  0 TCF  +XSEI ECT  BiTs:  ASCENT  BURN  (NO  TRANSLATION  ASKED) 

Roo68  lm  is  eijHeR- in  pqWeReP ^descent  or  in  coasting,  fliOHt  Select,  Jets  which  are  paired  in  force  couples. 

0070  REF  2 LAST  544  20,2344  50  061  0 INDEX  NETACNDX  PICK  UP  FORCE-COUPLE  TABLE  INDEX  AND  THE 

0071  REF  1 20,23A5  3 2626  1 CAF  NORMIPOL  NUMBER  OF  POLICIES  TO  CHECK  (PACKED). 

R0072  UNPACK!  THE  RELATIVE  ADDRESS  OF  THE  BEST  POLICY  ANO  THE  NUMBER  OF  ALTERNATE  POLICIES  TO  CHECK  WITHIN  THE  LOOP. 


R0074  this  3, its  are  PACKED  THUSLY  OXYYY,  WHERE  X BECOMES  C(LOOPCTR)  AND  YYY  BECOMES  C(POLRELOC).  BITS8.9  ARE  ZERO. 


0076 

REF 

135 

LAST 

553 

20,2346 

54  001 

1 

NJMBALTS 

TS 

L 

SAVE  F'ULL  WORD  TO  GET  BITS  lO-lp,  LATER,  , 

0077 

ref 

4 

LAST 

154 

20,2347 

7 5342 

0 

MASK 

L3W7 

MASK  BITS  GIVING  INDEX  VALUE  FDR  BEsT 

0078 

REF 

1 

20,2350 

54  063 

0 

TS 

PDLRfLOC 

POLICY  (W.R.T.  TOP  OF  POLTABLE) . 

0079 

REF 

38 

LAST 

538 

20,2351 

3 7756 

1 

CAF 

BIT6 

EXTRACT  BITS  10-12  OF  ORIGINAL  wORD; 

0080 

20,2352 

0 0006 

1 

EXTEND 

THIS  value  IS  used  AS  A LOOP  CDJNTER  TO 

0081 

REF 

136 

LAST 

555 

20,2353 

7 0001 

1 

MP 

L 

TEST  ALL  the  FEASIBLE  JET  POLICIES  FDR 

0082 

REF 

1 

20,2354 

54  064 

1 

3ESTP0LS 

TS 

LQDPrTR 

THE  GIVEN  request.  (ALSO  TOP  Dr  LOOP.) 
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L 

Q<R> 

AKES  Jet 

select 

AMD  failure  control 

LOGIC 

USER'S  OWN  PAGE  NO,  3 S3  E6 

P0083 

LOOP 

' IP 

SET  UP  "TRAN5NUW"  AND 

RiJEJCT 

A1.L 

. PAIi.£.i  PJILLCLESJ . 

OOaA 

rEF 

2 

LAST 

555 

20,2355 

50  063 

1 

index 

polrfloc 

PICK  UP  NEXT  POLICY  TO  CHECK  FO:?  FAILURE 

0085 

REF 

1 

20,2356 

3 2704 

0 

OAF 

POLTABLE 

(MUST  DO  A "CAE"  THEN  "CCS"  FOR  RANGE.) 

0086 

REF 

2 48 

LAST 

555 

20,2357 

10  000 

0 

CCS 

A 

IF  POLICY  table  entry  IS  NEGATIVE,  THEN 

0087 

REF 

1 

20,2360 

54  065 

0 

CHKFAILS  IS 

THISPOLY 

A flag  is  set  to  do  some  translation 

0088 

20^36.1 

1 2364 

0 

TCF 

_ +3  . . 

WITH  THE  ROTATION  POLICY  SELECT-0.  IF 

0089 

REF 

3 

LAST 

555 

20,2362 

54  072 

0 

TS 

TRANSNOW 

requested.  POLTABLE  values  are  CCS-A3LE. 

0090 

REF 

1 

20,2363 

1 2360 

1 

TCF 

chxfails 

TRANSNOW  (ONCE  ON)  STAYS  ON  FOR  THIS  CSP 

0091 

REF 

2 

LAST 

88 

20,2354 

7 0102 

0 

«IAS< 

CHS'IASK 

COMPARE  THISPOLY  WITH  BITS  OF  FAILED  JET 

0092 

REF 

249 

LAST 

556 

20,2365 

10  000 

0 

CCS 

A 

IF  C(A)  = +0,  then  there  ARe  NO.  FAILURES 

0093 

20,^2366 

1 2370 

0 

TCF_  . 

♦ 2 

IN  THIS  POLICY  AND  THE  LM  DAP  U3ES  IT.. 

0094 

REF 

1 

20,2367 

1 2427 

0 

ICF 

POLFnUND 

IF  C(A)  IS  NOT  +0,  IT  IS  POSITIVE  AND 

0095 

20,2370 

0 0006 

1 

EXTEND 

first  the  relative  address  indexer  is 

0096 

REF 

3 

LAST 

556 

20,2371 

26  063 

0 

OIM 

PQLRf LOC 

decremented  by  one  for  the  NEXI  policy. 

0097 

REF 

2 

LAST 

555 

20,2372 

10  064 

1 

CCS 

LOOPCTR 

then  a check  is  made  for  any  mote  USA3LE 

0098 

REF 

1 

20,2373 

1 2354 

0 

TCF 

3ESTP0LS 

POLICIES,  IF  NO  MORE,  C(LOOPCTR)  = ,.0. 

R0099 

***«»  JET  FAILJRe  abort  SEQUENCE.  «*»»» 

0100 

REF 

139 

LAST 

5 5.5 

.20,23.74 

3 7767 

0 

A30RTJET  CAF 

EERO 

TURN  OFF  ALL  JETS. 

0101 

20.2375 

0 0006 

1 

EXTEND 

0102 

20,2376 

01  005 

0 

/IRITE 

5 

0103' 

20,2377 

0 0006 

1 

EXTEND 

0104 

20,2400 

01  006 

0 

nRITE 

6 

0105 

ref 

3 

LAST 

315 

20,2401 

3 5660 

1 

CAF 

PRI0^»7 

abort  priority. 

0106 

REF 

19 

LAST 

491 

20,2402 

0 5505 

1 

rc 

NOVAC 

CALL  JETABORT  THROUGH  EXECUTIVE. 

0107 

REF 

11 

LAST 

555 

E6 

eban<= 

JTSONNOlM 

0108 

20,2403 

02113 

0 

2CAOR 

JETABORT 

C0108 

ref 

1 

20,2404 

16066 

0 

0109 

REF 

5 

LAST 

496 

20,2405 

4 7751 

1 

cs 

50DAPG0 

SET  GODAPGO  TO  TURN  LM  DAP  OFF  WHEN  THIS 

OHO 

REF 

44 

LAST 

555 

20,2406 

7 0077 

0 

*5AS< 

0AP3OOLS 

BIT  IS  checked  in  THE  NEXT  P-AXIS  RUPT. 

0111 

REF 

45 

LAST 

556 

20,2407 

54  077 

0 

IS 

0AP300LS 

0112 

REF 

.A5 

LAST 

55I 

20,2410 

1^733 

1 

TCF 

resume 

R01125 

»»»**  END  JEl 

■ FAIlUR 

E ABORT  sequence. 
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L 

0»R- 

•AXES  Jet  select  and  failure  control 

LDGIC 

USER*S  own  PAUE  no.  4 S3  E6 

Pni  1 3 

fNTFR  HERE  AFTER 

ULLAj£/i)SC£Nl 

■ DETECTION: 

OllA 

REF 

46  last  556 

20,2411 

4 0077  0 

♦XSELECT 

:s 

DAPBnOLS 

CHECK  FOR  ULLAGE  BI T6/DAPB00LS  si. 

0115 

ref 

-^4.  last  A5«>  _ 

20j24I2  _ 

7 7756  O 

MAS,4 

JELAcEfi 

_ iF  jhe  uxlaqejbit  is  0.  then  the  i'M  is 

0116 

REF 

250  last  556 

20,2413 

10  000  0 

CCS 

A 

IN  AN  ASCENT  BURN  AND  NO  ♦X  TRANSLATIDN 

0117 

REF 

1 

20,2414 

1 2417  0 

TCF 

♦XSENSE 

has  been  REOUESTED  (SEE  ULL/+X) . 

Rons 

enter  here  for  *X 

TRANSLATION! 

0119 

REF 

10  LAST  528 _ 

. _2.0_,2415 

3, 7745  -0 

+XTRAN5L 

CAF 

NEGMAX 

indicate  *X  translation  for  CCS  LATER. 

0120 

REF 

3 LAST  555 

20,2416 

54  071  0 

IS 

ANYTBANS 

(ANYTRANS  IS  A VOLATILE  SWITCH.) 

R0121 

ENTER  HERE  FOR  *X 

SE'LSE  jets;  _ 

0122 

REF 

3 LAST  555 

20,2417 

50  061  0 

♦XSENSE 

index 

NETArNDx 

PICK  UP  +x  SENSE  table  INDEX  ANy  THE 

0123  ■ 

REF 

1 

,20,2420 

3 2646  1 

CAF 

♦SEN5TAB 

_ number  of  alternate  POLICIES  TO  CHECK. 

012A 

REF 

1 

20*2421 

1 2346  0 

TCF 

NJMBaLTS 

GO  TO  begin  failure  CHECKING  (ROTATION). 

R0125 

enter  here  for  -X 

TRANSLATION; 

0126 

REF 

34  last  545 

_ 20*2422 

3 7743  0 

-XSENSE 

CAF 

posmax 

INDICATE  -X  translation  FOR  CCS  LATER., 

0127 

REF 

4 LAST  557 

20,2423 

54  071  0 

rs 

ANYTRANS 

(ANYTRANS  IS  A VOLATILE  SWITCH.) 

0128 

REF 

4 LAST  557 

20*2424, 

5o  06J.  0 

aNOEX  „ 

NEJArNOX 

PICK  UP  -X  sense  table  index  any  THF 

0129 

REF 

1 

20,2425 

3 2666  0 

CAF 

-SENSTAb 

number  of  alternate  policies  TO'  CHECK. 

0130 

REF 

2 LAST  55 7 _ 

_ 20*2426 

1 2346  0 

TCF 

NUMBaLTS 

GO  TO  BEGIN  FAILURE  CHECKING  (ROTATION). 

Ro131 

enter  here  after 

A rotation  POLICY  HAS 

been  fojno: 

0132 

REF 

2 LAST  556 

20*2^27 

30  065  1 

PDLFOUND 

CAe 

THISoOLY 

Get  positive-valued  policy  tablt  entry 

0133 

20*2430 

0 0006  1 

EXTEND 

which  is  insured  Against  failure. 

0134 

REF 

32  LAST  526 

20,2431 

7 7760  0 

MP 

8IT4 

UNPACK  BITS  12-14  OF  TABLE  ENTRY  SET  THE 

0135 

REF 

251  LAST  557 

20,2432 

50  000  1 

INDEX 

4 

number  of  Q-AXIS  JETS  FROM  TOROJE  TABLE. 

0136 

REF 

1 

20,2433 

3 2607  1 

CAF 

TORXtABL 

SAVE  For  torque  vector  reconstruction 

0137 

REF 

3 LAST  549 

20,2434 

55*607  0 

TS 

NO.D.lETS 

AND  FOR  DETERMINING  1/NETACC, 

0138 

ref 

107  last  555 

20,2435 

30  001  0 

CAE 

L 

Unpack  bits  9-11  of  table  entry  which 

0139 

20,2436 

0 OOOfe  1 

extend 

ARE  NOW  bits  12-14  OF  THE  L-REjISTER. 

0140 

REF 

33  LAST  55T 

20,2437 

7 7760  0 

MP 

3IT4 

(BIT15  OF  L IS  0 DUE  TO  SIGN  A37EFMENT.) 

0141 

REF 

252  LAST  557 

20,2440 

50  000  1 

INDEX 

A 

GET  NUMBER  OF  R-AXIS  JETS  FROM  rOR(3UE 

0142 

REF 

2 LAST  557 

20,2441 

3 2607  1 

CAF 

TORXtABL 

TABLE.  SAVE  FOR  TORQUF  VECTOR  7FC0N- 

0143 

REF 

2 LAST  549 

20,2442 

55*610  0 

TS 

NO.RJETS 

STRUCTION  and  FOR  GETTING  1/NETaCC. 

R0144 

P1C< 

OUT  rotation 

JE.rs_  FROM,  table  entry 

; 

0145 

REF 

3 last  557 

20,2443 

30  065  1 

CAE 

THISPOLY 

UNPACK  BITS  1-8  OF  TABLE  ENTRY  (DONE 

0146 

REF 

9.  LASX  A08 

20  *2444 

7 4564  0 

MAS< 

LO/Jr 

MOST  EASILY  BY  THE  MASKING  OPERATION). 

0147 

REF 

33  LAST  530 

20,2445 

6 7745  0 

AD 

BIT15 

SET  SIGN  TO  INDICATE  Q.R-AXES  JETS. 

633«f36A 

L 

0U8 
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Q»R-A<ES  JET  select  AnD  FAILURE  CONTROL  LOGIC  USER'S  OWN  PAGE  NO,  5 S3  E6 

REF  12.-LA5T  556 20.2AA6  55t47I_Q IS J,T53NNQW SET  P(2LICY_  UP  TOR  .IMMEDIATE  USE. 


633i.36A  YUL  STSTEM  FOR  ''GC:  REVISION  0 OF  PROGRAVl  BURST123  BY  NASA  2021106-031 

DEC  7, 

1967 

(MAIN) 

PAGE 

559 

L Q»R-AXES  JET  SELECT  An|D  FAILURE  CONTROL  LOGIC 

USER'S  Own  page 

NO. 

6 

S3 

E6 

P0U9  entry  point -FOR.  ♦Ji_rRM3^m-_X_TRANSj_.R£_3U£5T  ALoN£_; 


R01A95 

(Also 

CONTINUATION  0?  TRANSLA T I ON-W I TH-ROT AT  1 ON 

LOGIC.) 

0150 

REF 

71  last  5A1 

20,2447 

3 7762  0 */-XTRAN 

caf 

Two 

SET  UP  LOOP  TO  TEST  ALL  THREE  POSSIBLE 

0151 

REF 

3 last  556 

20,2450 

54  064  1 

TS 

LOOPrTR 

TRANSLATION  POLICIES,  IF  4 JETS  ASKEO. 

0153 

REF 

5 last  557 

20,2451 

10  071  0 

CCS 

anytrans 

TEST  FOR  translation  RE(JUESTS:  -0  UNJSEO 

015A 

ref 

1 

20,2452 

1 2456  0 

ICF 

-xpolicy 

posMAx;  -X  translation. 

0155 

REF 

1 

-.-20,2453 

1_25A3  0_  -- 

rCF 

LATER JET 

♦ZERO;  NO  translation. 

R0156 

enter 

HERE  FOR  +X 

TRANSLATION 

POLICIESi 

0157 

REF 

72  LAST  559 

20,2454 

3 7762  0 *XPOLICy 

CAF 

Two 

NEGMAX;  +X  TRANSLATION. 

0158 

20,2455 

1 2457  1 

rcF 

,2 

SET  POLRELOC  FOR  +X  TRANS.  INDEXING. 

R0159 

enter 

HERE  FOR  -X 

translation 

POLICIES; 

0160 

REF 

15  LAST  5A„1  - 

_2.0-j-24&6_  - 

3 7766  1 -XPOUCY 

CAF 

fiyf  . 

SET  POLRELOC  fOR  -X  TRANS,  INDEXING. 

0161 

REF 

4 last  556 

20,2457 

54  063  0 

TS 

POLRfLOC 

(INITIAL  VALUE  ALWAYS  FOR  4-JET  POLICY.) 

Ro162 

TEST 

for  translation  to  be  combined  with  Rotation  jets. 

0163 

REF 

4 last  556 

20,2460 

10  072  0 

CCS 

TRANaNOW 

TEST  IF  translation  WITH  ROTATION  IS 

016A 

REF 

1 

20,2461 

1 2526  0 

TCF 

TRANCONJ 

requested,  if  so.  over-ride  4-JFT  TEST- 

R0165 

determine  if  LM  dap  is  in  2 ON 

! 4 JET  TRANSLATION 

mode; 

0166 

REF 

47  LAST  557 

20 ,2A62 

4 0077  0 

cs 

0AP3OOLS 

TEST  FOR  2/A-JET  TRANSLATION  MOOE  IN 

0167 

REF 

1 

20,2463 

7 7760  0 

mask 

ACC40R2X 

BIT4/DAPBOOLS  (ASTRONAUT  DSky  iNpJT) 

0168  - 

REF  253  LAST  557 

la  000  0 

CCS 

A 

O:  2 JET  MODE  (SKIP  OUT)  , 

0169 

REF 

2 LAST  559 

20,2465 

1 2526  0 

TCF 

TRANfONT 

i:  4 JET  MODE  (CONTINUE). 

Ro170 

test 

translation 

POLIC-IES  FOR 

JlT  FAILURES; 

0171 

REF 

5 LAST  559 

20,2466 

50  063  1 TRANNEXT 

INDEX 

POLRELOC 

PICK  UP  POLICY  FOR  ♦/-X  TRANSLATION 

0172 

REF 

1 

. 20,2467 

3 2676  1 

CAF 

TRANPOLY 

FROM  TABLE  (INDEXED  WITHIN  REQJfSTED 

0173 

REF 

4 LAST  557 

20,2470 

54  065  0 

IS 

THISPOLY 

range  of  POLICIES);  test  for  failures 

017A 

REF 

3 LAST  556 

20,2471 

7 0102  0 

MASK 

CH5MASK 

IF  No  FAILURES,  CIA)  : +0.  IF  POLICY 

0175 

REf  25A  last  559 

20,2472 

10  000  0 

CCS 

A 

CANNOT  BE  USED,  c(A)  IS  pOSITIVi^. 

0176 

REF 

1 

20,2473 

1 2524  1 

TCF 

TRANFNTD 

IF  FAILED,  CHECK  FOR  STORE  GOOD  TRANS. 

Ro177  SPeCUL  tests  ARF  NFEOED  for  translation  0URIN5  ROTATION;. 


0178 

0179 

REF 

REF 

5 last  559  20*2474  10  072  0 

1 20,2475  -L2514  1 

CCS 

TCF 

TRANsNOW 
TRANSI0.R_  __ 

TEST  FOR  translation  DURING  ROTATION 
IF  SO,  GO.  TEST  THIS  POLICY  ...FOR . iSE  NOw. 

R0180 

TEST 

POR  ONLY  translation  REQUEST: 

0181  REF  3 last  555  " 20,2'>76  lo  070  1 CCS  TRAMnNLY  TEST  FOR  PORE  TRANSLATION  ReOOESI 
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0182  REF  _ 1_ 20.2A77  1 2510  0 iCf TRANnRQT IF  SO,  GI VE  TRANSLAU ON NO  ROXaT I0N„  _ 

R0183  special  test  FOR  GOOD  A-JET  TRANSLATION: 

Ol8A  REF  73  LAST  559  " 20,2500  T~7762  1 CS  TrtO  TEST  IF  POLICY  IS  USING  FOUR  JETS  (WHICm 

0185  REF  4 last  559  20,2501  6 0064  0 AD  LOOPCTR  IS  EQUIVALENT  TO  LOOPCTR  =2).  IF  4-JET 

0186  20,2502  ' 0 0006  1 __  EXIENO  . . . ^ . THIS  POLICY  MUST  BE  USED  AS  JTS_ATCHG, 

0187  REF  1 20,2503  1 2506  1 3ZF  TRAN4JET  OTHERWISE,  MUST  CHECK  TRANSAVE  ^IRST. 

R0188  when  'JOT  4-J£T_lRANSLAT_L0N*_  CH£CK_£OJi„SAYED„  POLI CY : _ . _ 

0189  REF  3 LAST  555  20,2504  10  073  1 CCS  TRANSAVE  TEST  FOR  SAVED  POLICY;  IF  SAVED,  USE  IT, 

0190  REF  1 20.2505 1 2542  1 _ JCF  _ TRANUSED  IF  NOT  SAVED  Y£T,_US£  THIS  PJOLLCY. 

Roi91  use  this  policy  (either  4 JETS  OR  best  2 Jet): 


0192  REF  5 last  559^  20*2506  3q  0*5  1 tRAN4JET  CA£  THISPOLY  USe  THIS  UNFaILeD  POLICY  AS  tH£  TRANS- 

0193  REF  2 LAST  559  20,2507  1 2543  0 TCF  LATERJET  LATION  pOLlCy  AFTER  ROTATION, 


Roi94  for  translation  witHdJt  Rotation,  turn  jets  on  immediately  amD  Resume: 


0195 

REF 

6 

last 

560 

3i)  065 

_1 

TRANORDT 

CAe_ 

THISPOLY 

TURN  ON  unfailed  0,R-AXeS  JetS  A.S  A PURE 

0196 

20,2511 

0 0006 

1 

extend 

TRANSLATION  pOLICY  WITHOUT  ANy  TJETLAw 

0197 

20,2512 

01  005 

0 

write 

5 

CALCULATIONS  (AND  NO  TIME6  SETTING). 

0198 

REF 

36 

LAST 

556 

20*2513 

1 5733 

1 

TCF 

resume 

END  T5RUPT  SINCE  JETS  ON  FOR  FJi'L  CSP. 

R0199. 

test 

this  translation  for  use 

DURING 

ROTATION: 

0200 

REF 

7 

LAST 

560 

20,2514 

30  065 

1 

TRANSTDR 

CAe 

THISPOLY 

SAVE  THIS  POLICY  FOR  LATER  USE  AS  THE 

0201 

REF 

4 

LAST 

560 

20,2515 

54  073 

1 

rs 

TRANSAVE 

JTSATCHG  POLICY  UNLESS  II  IS  SJpeRCEDED. 

0202 

REF 

13 

last 

558 

20,2516 

7 1471 

0 

MASK 

JTSDnNOW 

TEST  FOR  USE  WITH  ROTATION  POLICY  MUST 

0203 

REF 

255 

LAST 

559 

20,2517 

10  000 

0 

CCS 

A 

HAVE  NO  jets  IN  COMMON  WITH  JTSoNNOW. 

0204 

REF 

3 

last 

559 

20,2520 

1 2526 

0 

TCF 

TRANCONT 

C(A)  POSITIVE  MEANS  POLICIES  CONFLICT. 

R0205 

COIN 

cident  translation  found. 

Go  FIND  1 

PURE  translation 

Policy  (for 

JSE  after  ROTATION) : 

0207 

REF 

8 

LAST 

560 

20,2521 

30  065 

1 

CAE 

THISPOLY 

USE  BOTH  ROTATION  AND  TRANSLATION  JETS 

0208 

REF 

14 

LAST 

560 

20,2522 

27*471 

0 

ADS 

JT  SONNOW 

AS  JTSONNOW  (BIT  15  IS  ALREADY  SET), 

0209 

ref 

1 

20,2523 

1 2535 

1 

TCF 

TRAnjsLAT 

GO  TO  start  finding  JTSATCHG  POLICY. 

R0210 

STOP 

search 

IF  Good 

translation  policy 

already  re 

CORDFD 

1 

0211 

REF 

5 

LAST 

560 

20  *2524 

10  073 

1 

tRancntd 

CCS 

TRANSAVE 

TEST  FOR  PREVIOUSLY  SAVED  TRANSi'AtION 

0212 

REF 

2 

LAST 

560 

20,2525 

1 2542 

1 

TCF 

TRANUSED 

POLICY,  IF  IT  EXISTS,  USE  IT. 

R0213  CONTINUE  FAILURE  CHECKING  LOOP: 


0214 


20,2526  0 0006  1 TRANCONT  EXTEND 


CONTINUE  the  TRANSLATION-FAIL  LyOP 


633<,36A 

yUL  SySTEM  FOR  agC: 

REVISION 

0 OF  program  BURST123  BY  NASA  2021106- 

031  DEC  7,  1967  (MAIN)  PAGE  561 

L 

Q. 9-AXES  JET  select 

AND  failure  control 

LOGIC 

USER'S  OWN  PAGE  NO.  8 S3  E6 

02X5 

REF  6 LAST  ^5R  _ 

• 2Ql2S2J 

26  063  0 

_ _ OlN  _ 

POLRELOC  - - 

decrement _IH£.JRJVNSLA1  ION  policy  index 

0216 

0217 

REF  5 LAST  560 

REF  1 

20.2530 

20.2531 

10  069  1 
1 2590  0 

CCS 

rcF 

LOOPCTR 

TRNRfSET 

AND  then  test  LOOPCTR  FOR  CONTINUATION 
OF  JET  FAILURE  TESTING. 

R0218 

IF  NO  translation  CAN  BE  FOUND  FOR  ROTATION  POLICT*  ALL 

IS  NOT  lost 

, otherwise.  Start  jet  failure  abort: 

0220 

REF  6 last  559  _ _ 

_ 20,2532_ 

LO-  azz  0-__ 

CCS  _ 

LRANSN07J  . 

. IF  failures  stop  translation  DJRInG 

0221 

REF  2 LAST  56° 

20,2533 

1 2535  1 

rCF 

TRANSLAT 

ROTATION'  CONTINUE  BY  FINDING  JTSATCHG. 

0222 

rEF  2 LAST  50? 

20,2539 

_ 1 2379  1 

_ - rcF 

abortjet 

turn  off  jets  And  abort. 

R0223 

BEoIN  SEARCH  FOR  JTSAICHG  POLICY: 

022^ 

0225 

REF  190  last  556 
REF  7 LAST  56l 

20.2535 

20.2536 

3 7767  0 
59  072  0 

tRanslat  caf 

IS 

Zero 

TRANSNOw 

SET  volatile  Flag  to  indicate  search  is 

FOR  JTSATCHG,  AFTER  TRANSNOyj  DONE. 

0226 

REF  2 last  52B 

20,2537 

1 2997  0 

ICF 

♦/-XTRAN 

GO  TO  RE-INITIALIZE  LOOP  FROM  SCRATCH. 

R0227 

"TOP  OF  1 nnp"  (For  all  BUt  First  pass) : 

0228 

0229 

REF  6 last  56l 
REF  1 

20.2590 

20.2591 

59  069  1 
1 2966  0 

TRNRESET  is 
ICF 

LOOPCTR 

trannext 

reset  loop  counter  to  continue  looping 

GO  TO  continuation  OF  LOOP  (AT  THE  TOP). 

R023O 

RECONSTRUCT  FLAGGED 

JET  policy; 

0231 

0232 
023-3 

REF  135  LAST  593 
REF  39  LAST  557 
REF  11  LAST  53O 

20.2592 

20.2593 

20,2599 

6 7763  1 

6 7795  0 

55'972  0 

TRANUSED  ad 

laterjet  ad 

TS 

ONE 

SlTls 

JTSATCHG 

RESET  POLICY  THAT  WAS  POSITIVE  AND  CCSEO 
SET  bit  15  TO  INDICATE  0,R-AxES  pOLICy. 
USE  FOR  JTSATCHG  TRANSLATION  PO'lCY. 

R023A 

tRans-orm  initial  pointer  to 

2-JET  policy: 

0235 

0236 

0237 

REF  136  LAST  56l 
REF  5 LAST  557 
REF  256  LAST  560 

20.2595 

20.2596 

20.2597 

3 7763  1 
7 0061  1 
10  000  0 

CAF 

NAS< 

CCS 

ONE 

NETArNDX 

A 

FROM  THE  INDEX  VALUE  INDICATIN3  NUMBER 

OF  Jets,  direction,  and  axis'  compute 
JHE  INDEX  VALUE  FOR  2 JETS  ABOUT  THAT 

0238 

0239 
021,0 

REF  6 LAST  561 

20.2550 

20.2551 

20.2552 

1 2553  1 
0 0006  1 
29  061  0 

ICF 

EXTEND 

AUG 

+ 3 

NETArNDX 

AXIS  (IN  THAT  DIRECTION),  CONTRIVANCE 
MAKES  THIS  EQUIVALENT  TO  IF  Bin  IS  ON, 

(indep.  of  sign)  augment  netacnox. 

R02A1 

tRans='orm  pointer  to 

correspond  to  jets 

actually  chosen, 

02<,2 

02<t3 

02AA 

REF  9 LAST  557 

REF  1 

20,2553 

20,2559 

20,2555 

1H607  0 
1 2556  1 
1 2567  0 

CCS 

rcF 

rcF 

NO.O.JETS 
♦ 2 

ALLR’iETS 

TRANSFORM  INDEX  TO  APPROPRIATE  VALUE  FOR 
THE  NUMBER  OF  JETS  SELECTED. 

IF  NO.OJETS  ZERO.  NO.RJFTS  IS  NONZERO. 

02^.5 

02i.6 

02<t7 

ref  257  LAST  56l 

ref  1 

20.2556 

20.2557 
20,2560 

10  000  0 
1 2561  0 
1 2569  0 

CCS 

rcF 

ICF 

A 

*2 

SMALaXIS_ 

IF  NO.QJETS  +/-1,  NO.RJETS  IS  ♦/-!  (BY 
DEFINITION)  SO  SUBTRACT  ONE  FROM  INDEX. 
GO  transform  for  1 U,V-AXIS  JET. 

0298 

0299 

0250 

REF  258  LAST  56l 
REF  7 LAST  56l 
REF  1 

20.2561 

20.2562 

20.2563 

10  000  0 
29  061  0 
1 2576  0 

CCS 

INCR 

rcf 

A 

NEI ACNDX 
NETACGET 

IF  STILL  nonzero  ON  THIRD  CCS,  NO.QJETS 
MUST  HAVE  BEEN  ♦/-9,  SO  ADD  ONE  TO  THE 
INDEX,  otherwise,  NO  CHANGE  (2  JETS). 

633436A 

YUL 

SYSTEM  FOR  AGC! 

REVISION 

0 OF  PROGRAM  BURST12D  BY 

NASA  2021106-031 

DEC  7*  1967  (MAIN)  PAGE  562 

L 

Q.R. 

■akes  Jet 

select 

AMD  failure  control 

LOGIC 

USER'S  OWN  PAGE  NO,  9 S3  E6 

0251 

20  *^56-4 

_0_  0006 

1_ 

smalaxis  -xte 

ND - 

DECREMENT  index  FOR  1 JET  AROUNO  pIUER 

0252 

REf 

8 

LAsT 

56l 

20,2565 

26  061 

1 

OlM 

NETAcNdX 

the  u-  or  V-  Axis* 

0253 

REF 

2 

last 

56l 

20,2566 

1 2576 

0 

ICF 

NETACGET 

(GO  PICK  UP  inverse  of  NET  ACCe.ERAT 1 ON) 

0254 

REF 

3 

last 

55Y 

20*2567 

11'610 

0 

ALLRJeTS  CCS 

NO. R. JETS 

when  no.qjets  Zero*  test  no.rjets  which 

0255 

ref 

74 

LAsT 

560 

20,2570 

7 7762 

1 

MAs< 

TrtO 

Is  only  +/-2  OR  *-/-4.  NOTE  lAsT  THREE 

0256 

20.2571 

1 2573 

_0 

rcF 

±Z 

BITS  OF  THESE  AFTER  CCS  OOl  OR  Oil. 

0257 

REF 

75 

LAST 

562 

20,2572 

7 7762 

1 

MAS< 

TrtO 

ONLY  BITE  distinguishes  BETWEEN  THE  TWO. 

0258 

20,2573 

0 0006 

1 

EXTEND 

IF  BIT2  = 0*  THEN  TWO  JETS,  NO  CHANGE. 

0259 

20*25T4 

1_  2576 

0 

3ZF 

•*2 

IP  BIT2  = 1*  THEN  POUR  JETS,  SO  THE 

0260 

REF 

9 

LAST 

562 

20,2575 

24  061 

0 

INCR 

NETArNDX 

INDEX  MUST  be  INCREMENTED. 

R0261  P1C<  JP  AND  SA\/E  1/NETACC  FOR  TJFTLAWI 


0262 

REF 

10 

LAST 

562 

20,2576 

50  061 

0. 

NETACqET 

index 

NETArNDx 

USE  THE  INDEX  VALUE  FOR  THE  EXA'T  JETS 

0263 

REF 

1 

20,2577 

31*706 

1 

CAE 

1/NETACS 

USED,  PICK  UP  the  appropriate  1/NEtACC 

.02  64 

REF 

8 

LAST 

551 

20,2600 

54  066 

0 

rs 

1/NETACC 

AND  SAVE  POR  USE  BY  THE  TJETLAW. 

R0265 

RETURN- 

TO  APPR_0PR.IA1£ 

: TJETLAW 

0266 

REF 

1 

20*2601 

3 2505 

0 

CAF 

BBANKSET 

ALWAYS  Return  to  the  fixed  bank  of  the 

0267 

REF 

108 

LAST 

557 

20^2602 

54  001 

.1 

TS 

L 

(3,r-axes  reaction  control  System  lm  oAp. 

0268 

REF 

2 

LAST 

535 

20*2603 

30  062 

0 

CAE 

TJETaDR 

USE  VARIABLE  GENADR  WITH  WHICH  TO 

0269 

20*2604 

52  006 

0 

3TCB 

cross  banks  to  return. 

0270 

REF 

8 

LAST 

549 

E6 

EBAn<= 

0ME5AO 

0271 

REF 

2 

LAST 

518 

20,2605 

36066 

1 

bbankset 

3BC0N 

3RAXTS 

BBCON  of  O.R-AXES  RCS  LM  DAP, 

0272 


20*2606  00240  1 3ITS668  OCTAL  00240 


ULLAGE  and  ASCENT  BURN  DAPBOOLS  BITS 
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OtR-AKES  JET  SEUECT  AMO  FaILURE  CONTROL 

LOGIC 

USER'S  Own  page  no. 

10 

S3  E6 

P0273 

table  of  Q.R-JET  NUM3HRS_.AND 

DIkECTIONSI 

02TA 

20*2607 

00000 

1 

TDRKTA3L  DEC 

0 

FROM  THE  3 

PACKED  BITS 

IN  A 

wORs  FROM 

0275 

20,2610 

OOOOl 

0 

DEC 

t.l  . 

poltable, 

THE  POLTypEp 

PROGRAM  SELECTS 

0276 

20,2611 

77776 

1 

DEC 

-1 

the  appropriate  no.ojets  or 

no.rjets 

0277 

20,2612 

00002 

0 

DEC 

♦2 

AS  follows: 

0278 

. , , ,20j_2fcl3_ 

J11T5 

.1 . 

. DEC 

••7 

000:  NO  JFTS 

0279 

20,2619 

00009 

0 

DEC 

001:  ,1  JET  on:  *2 

JETS 

lOl:  ,9  JETS 

0280 

20,2615 

77773 

1 

DEC 

010:  -1  JET  100:  -2 

JETS 

110:  -9  JETS 

R0281 

RELATIVE  addresses  AMO  NUWBER 

DF  alternate  POLIcl-S  ARE 

LISTfD  in  the 

following  tables,  each 

ENTRY 

HAS  the  form 

R0283 

oxyyy  where  X indicates  the 

NJMBER  of  alternate  dOLICIES 

AND 

R0284 

YYY  IS 

THE  RELATIVE  ADDRESS  IN  P0LTA3LF  OF  THE 

"OPTIMAL"  POLICY. 

R0286 

force-couple  policies: 

0207 

20,2616 

03003 

1 

DCIAL 

03003 

.+  2_  Q„AXI5 

JEJ-S  _ 

0288 

, 20,2617 

09009 

1 

octal 

09009 

+9  U-AXIS 

JETS 

0289 

20,2620 

03010 

0 

DCTAL 

03010 

-2  O-AXIS 

JETS 

0290 

, 20,2621 

09011 

0 

octal. 

09011 

-9  Q-AXIS 

JETS 

0291 

20,2622 

03015 

0 

DCTAL 

03015 

♦2  R-AXIS 

JETS 

0292 

20,2623 

09016 

1 

octal 

09016 

♦9  R-AXIS 

JETS 

.0293 

20,2629 

03022 

1 

octal 

0302? 

-2  R-AXIS 

JETS 

0299 

20,2625 

09023 

1 

OCTAL 

0902? 

-9  R-AXIS 

JETS 

0295 

20,2626 

02026 

1 

NORMLPOL  OCTAL 

02026 

♦2  U-AXIS 

JETS 

0296 

20,2627 

02026 

1 

octal 

02026 

+2  U-AXIS 

JETS 

0297 

20,2630 

02031 

1 

octal 

02031 

-2  U-AXIS 

jets 

0298 

20,2631 

02031 

1 

octal 

O2O3I 

-2  U-AXIS 

JETS 

0299 

20,2632 

02039 

1 

octal 

-02039 

♦2  V-AXIS 

JETS 

0300 

20,2633 

02039 

1 

octal 

O2O39 

♦2  V-AXIS 

JETS 

0301 

20,2639 

02037 

1 

OCTAL 

02037 

-2  V-AXIS 

JETS 

0302 

20,2635 

02037 

1 

OCTAL 

02037 

-2  V-AXIS 

JETS 
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L 

PD3B3 

Q»9-AkE5 
♦X  5FMSE 

JET  select 

policies; 

A\|0  failure  control 

LOGIC 

USER’S  OWN  PAGE 

NO.  11 

S3  E6 

030A 

20*2636 

03043  0 

octal 

03043 

+ 2 

Q-AXIS 

JETS 

0305 

20,2637 

04044  0 

_ OCTAL 

_04_044 

♦ 4 

Q-AXIS 

JETS 

0306 

20,2640 

03050  1 

OCTAL 

03050 

-2 

Q-AXIS 

JETS 

0307 

20,2641 

04051  1 

octal 

04051 

-4 

Q-AXIS 

JETS 

0308 

20,2642 

03055  1 

octal 

03055-  - - 

♦ 2 

R-AXiS 

JETS 

0309 

20,2643 

04056  0 

OCTAL 

04056 

♦ 4 

R-AXIS 

JETS 

0310 

20,2644 

03062  0 

octal 

03063 

-2 

R-AXIS 

JETS 

03U 

20.2645 

04063  0 

XTAL_ 

04063 

-4  R-AXIS  JETS 

0312 

20,2646 

01025  1 

♦SENSTAB  octal 

01028 

♦ 1 

U-AXIS 

JETS 

0313 

20,2647 

02026  1 

octal 

02026 

♦ 2 

U-AXIS 

JETS 

0314 

20,2650 

01030  0 

octal 

01030 

-1_ 

U-AXiS 

JETS 

0315 

20,2651 

02031  1 

octal 

02031 

-2 

U-AXIS 

JETS 

..-J  ■ ■■  ’ 

0316 

20,2652 

01033  0 

OCTAL 

01033 

♦ 1 

V-AXIS 

JETS 

0317 

20,2653 

02034  1 

0203a 

t? 

V-AXIS 

JETS 

0318 

20,2654 

01036  0 

octal 

01036 

-1 

V-AXIS 

JETS 

0319- 

20,2655 

02037  1 

OCTAL 

02037 

-2 

V-AXIS 

JETS 

R0320 

-X  SEMSE 

POLICIES: 

0321 

„ 20, 2656 

03067  -0 

OCTAL  . 

03067 

♦2 

Q-AXlS 

JETS 

0322 

20,2657 

04070  1 

octal 

04070 

+ 4 

Q-AXIS 

JETS 

0323 

20,2660 

03074  1 

OCTAL 

03074 

-2 

Q-AXIS 

JETS 

0324 

2 0 1 2 66 1 

04075  1 

OCTAL 

04075 

-4 

Q-AXIS 

JETS 

0325 

20,2662 

03101  1 

OCTAL 

03101 

+ 2 

R-AXiS 

JETS 

0326 

20,2663 

04102  0 

OCTAL 

04102 

♦ 4 

R-AXIS 

JETS 

0327 

20,2664 

03106  0 

OCTAL 

03106 

-2 

R-AXIS 

JETS 

0328 

20,2665 

04107  0 

OCTAL 

04107 

-4 

R-AXiS 

JETS 

0329 

20,2666 

01111  1 

-SENSTAB  octal 

01111 

+ 1 

U-AXiS 

JETS 

0330 

20,2667 

02112  1 

octal 

02113 

♦ 2 

U-AXIS 

JETS 

0331 

20,2670 

01114  1 

octal 

01114 

-1 

U-AXIS 

JETS 

0332 

20,2671 

02115  0 

octal 

02118 

-2 

U-AXiS 

JETS 

0333  _ 

20,2672 

01117  1 

octal 

01117 

♦ 1 

V-AXIS 

JETS 

0334 

20,2673 

02120  0 

OCTAL 

02120 

+ 2 

V-AXIS 

JETS 

0335 

20,2674 

01122  1 

octal 

01122 

-1 

V-AXIS 

JETS 

0336 

20,2675 

02123  0 

octal 

02123 

-2 

V AXIS 

JETS 
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L 

P0337 

q.r-axes  jet  select  and  Failure  control 
X-AXIS  translation  PD-lCiLSL  _ _ _ 

LOGIC 

USER'S  Own 

PAGE 

NO.  12 

S3 

E6 

0338 

0339 

20.2676 

20.2677 

00042 

00210 

1 

J. 

TRANPOLY 

OCTAL 

OCTAL 

+00042 

♦00210 

2 10 
6 14 

* +x 

* 

TRANSLATION 

JETS 

0 

1 

0340 

20.2700' 

00252 

1 

octal 

♦00252 

2 6 

10  14 

2 

0341 

_ ^ _20.2701 

o_oioa. 

1__ 

OCTAL 

- +00104 

- -3  13 

* -X 

translation 

JETS 

3 

0342 

20.2702 

00021 

1 

octal 

♦00021 

1 9 

« 

0343 

20.2703 

00125 

1 

octal 

♦00155 

1 5 

9 13 

* 

5 
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L O.R-AKES  JET  select  AND  FaiTu^' CONTROL  LOGIC  USER^i^  OWN^PAGt  NO.  13  ^ S3  E6 

P03<(A  ROTATION  JET  PlkLUESl _ _ _ ______  _ _____  


R03A5  FORCE  COUPLE  POLICIES: 


03A6 

03^t7 

034B 

20.2704 

20.2705 

20»2706 

14025  0 
14203  0 
14221  0 

pdltable  octal 

OCTAL 

_-2CT..AL 

+14025 

♦14203 

♦14791 

5 

2 

9 

9 

14 

14 

♦O-AXIS 

FORCE  C0J3LES 

n 

1 

? 

0349 

20,2707 

14007  0 

OCTAL 

♦14007 

2 

5 

3 

0350 

20,2710 

24227  0 

OCTAL 

♦24227 

2 

5 

9 

14 

# 

4 

0351 

20,2711 

20051  1 

octal 

♦20051 

6 

10 

-Q-AXIS 

FORCE-COJsLES 

5 

0352 

20,2712 

20102  0 

OCTAL 

♦201 02 

1 

13 

* 

6 

03^3 

20,2713 

20141  1 

OCTAL 

♦20141 

10 

1,3 

7 

035A 

20,2714 

20012  0 

OCTAL 

♦20012 

1 

6 

10 

0355 

20,2715 

30152  1 

OCTAL 

♦30142 

1 

6 

10 

13 

* 

11 

0356  • 

20,2716 

01641  0 

OCTAL 

♦01641 

10 

14 

Ik 

♦R-AXIS 

FORCE-COJoLES 

12 

0357 

20,2717 

01406  1 

OCTAL 

♦01406 

1 

5 

13 

0358 

20,2720 

01445  0 

OCTAL 

♦ 0 1 

5 

10 

Ik 

14 

0359 

20,2721 

01602  1 

OCTAL 

♦01602 

1 

14 

15 

0360 

20,2722 

02646  1 

octal 

1 

5 

10 

14 

# 

16 

0361 

20,2723 

02121  1 

OCTAL 

♦02171 

9 

13 

Ik 

-R-AXIS 

FORCE-C0J7LES 

17 

0362 

20,2724 

02013  1 

OCTAL 

♦0201 3 

2 

6 

# 

20 

0363 

20,2725 

02103  1 

OCTAL 

♦02103 

2 

l3 

Ik 

21 

0364 

20,2726 

02031  1 

OCTAL 

♦02031 

6 

9 

ik 

27 

0365 

20,2727 

03133  0 

OCTAL 

♦03133 

2 

6 

9 

13 

# 

23 

R0366 

force  couple  and  +X  sense  policies: 

0367 

20.2730 

73372  0 

OCTAL 

-04405 

5 

ik 

♦UtAXJ5 

F0RCE-C0J3LFS 

2^ 

0368 

20,2731 

73176  0 

OCTAL 

-04501 

14 

ik 

AND 

♦X  SENSL 

25 

0369 

20,2732 

62172  1 

OCTAL 

-15505 

5 

14 

ik 

26 

0370 

20.2733 

66676  0 

octal 

-11101 

13 

ik 

-U-AXIS 

FORCE-COJRLES 

27 

0371 

20,2734 

66766  0 

OCTAL 

-1101 1 

6 

ik 

AND 

♦X  SENSt 

30 

0372 

20,2735 

55666  1 

OCTAL 

-2211 1 

6 

13 

ik 

31 

0373 

20,2736 

67375  1 

OCTAL 

-10402 

1 

ik 

♦V-AXIS 

F0RCE-C0J7LES 

32 

037A 

20,2737 

67336  0 

OCTAL 

-10441 

10 

ik 

AND 

♦X  SENSE 

33 

0375 

20,2740 

56335  1 

OCTAL 

-21442 

1 

10 

ik 

34 

0376 

20.27A1 

72756  0 

OCTAL 

-05021 

9 

ik 

-V-AXlS 

fokce-cojoles 

35 

0377 

20.27A2 

72774  0 

OCTAL 

-05003 

2 

* 

AND 

♦X  SENSE 

36 

0378 

20,2743 

61754  0 

OCTAL 

-16073 

2 

9 

* 

37 
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L 

OtR-AXES  JET  select  A'JU  FAILURE  CONTROL  L3GIC 

USER'S  OWN  PAGE 

NO. 

U 

S3 

E6 

P0379  tX^SF’^6E  policies; 


0380 

03b1 

20,2799 

20t2795 

19025  0 
IA221  Q_  - _ 

octal 
octal 

♦19035 

t_192?-l 

5 

9 

JL9_. 

Ik 

fk 

♦O-AxIS 

♦ X 

SENSE 

jETS 

90 
. -A1 

0382 

20,2796 

19007 

0 

octal 

+19007 

2 

5 

* 

92 

0383 

20,2797 

19203 

0 

OCTAL 

♦19203 

2 

19 

Ik 

93 

038A 

2Qj27^0_ 

' 29227 

0 , . 

. octal 

+2927X 

2 

5_ 

. 9 

19 

# 

44 

0385 

20,2751 

20102 

0 

OCTAL 

♦20102 

1 

13 

Ik 

-U-AXIS 

♦ X 

sense 

JETS 

95 

0386 

20,2752 

20191 

1 

OCTAL 

♦20191 

10 

13 

* 

44 

0387 

20,2753 

20012 

0 

octal 

♦20012 

1 

6 

Ik 

97 

0388 

20,2759 

20051 

1 

octal 

♦20051 

6 

10 

ik 

50 

0389 

20,2755 

30152 

1 

OCTAL 

♦30152 

1 

6 10 

1 3 

jk 

^ 1 

0390 

20,2756 

01906 

1 

octal 

♦01906 

1 

5 

Ik 

♦R-AXIS 

♦ X 

SENSE 

JETS 

52 

0391 

20,2757 

01995 

0 

OCTAL 

♦01995 

3 

10 

Ik 

53 

0392 

20,2760 

01602 

1 

OCTAL 

♦01602 

1 

19 

Ik 

59 

0393 

20,2761 

01691 

0 

octal 

♦01591 

10 

19 

* 

55 

0399 

20,2762 

02696 

1 

OCTA_L  _ 

1 

5 

10 

19 

ik 

56 

0395 

20,2763 

02121 

1 

OCTAL 

♦02121 

9 

13 

Ik 

-R-AXIS 

♦ X 

SENSE 

JETS 

57 

0396 

20,2769 

02103 

1 

OCTAL 

♦02103 

2 

13 

ik 

60 

0397 

20,2765 

02031 

1 

OCTAL 

♦02031 

6 

9 

ik 

61 

0398 

20,2766 

02013 

1 

OCTAL 

♦02013 

2 

6 

* 

62 

0399 

20,2767 

03133 

0 

. OCTAL  _ 

♦ 03133^__  . . 

2 

6 

9 

13 

* 

63 

633<t36A 
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L 

POAaQ 

QiR-AXES 

-X  semse 

JET  select 
Poi  iciEs: 

AMU 

FAILURE  CONTROL  LOGIC 

USER'S  OWN  PAGE  NO. 

15 

S3 

E6 

OAOl  . 

20 

.2770 

14203 

0 

OCTAL 

♦142n3 

2 

14 

* 

+0-AXIS 

-X 

sense 

JETS 

64 

0402 

20 

.2771 

14221 

0 

OCTAL 

*14221 

i. 

0403 

20 

.2772  ■ 

14007 

0 

OCTAL 

+14007 

2 

5 

66 

0404 

20 

.2773 

14025 

0 

OCTAL 

♦14025 

5 

9 

67 

0405 

20 

.2/74 

24227 

0 

OCTAL 

♦2.4227.. 

2 

.5 

9.14  _* 

70 

0406 

20 

.2775 

20051 

1 

OCTAL 

♦20051 

6 

10 

Ik 

-U-AXIS 

-X 

SENSE 

JETS 

71 

0407 

20 

.2776 

20141 

1 

..OCTAL 

_ .10 

13^ 

Ik 

72 

0408 

20 

.2777 

20012 

0 

octal 

+2001 2 

1 

6 

Ik 

73 

0409 

20 

,3000 

20102 

0 

octal 

+20102 

1 

13 

ik 

74 

0410 

20 

.3001 

3QL5.2 

1 

octal 

+30152 

1 

6 

LO  13  .* 

75 

0411 

20 

.3002 

01641 

0 

octal 

+01641 

10 

14 

kk 

+R-AXIS 

-X 

SENSE 

JETS 

76 

0412 

20 

.3003 

01445 

0 

OCTAL 

♦01445 

5 

10 

Ik 

77 

0413 

20 

.3004 

01602 

1 

OCTAL 

+01602 

1 

14 

* 

100 

0414 

20 

.3005 

01406 

1 

octal 

+01406 

1 

5 

Ik 

101 

0415 

20 

,3006 

__02646 

1 

. _ octal. 

.1 

5 

10  14.* 

102 

0416 

20 

,3007 

02013 

1 

OCTAL 

+02013 

2 

6 

* 

-R-AXIS 

-X 

SENSE 

lETS 

103 

0417 

20 

,3010 

02103 

1 

OCTAL 

+02103 

2 

13 

ik 

104 

0418 

20 

.3011 

02031 

1 

OCTAL 

+02031 

6 

9 

* 

105 

0419 

20 

,3012 

02121 

1 

OCTAL 

+02121 

9 

13 

106 

0420 

20 

,3013 

03133 

0 

OCTAL 

+ 03U3 

2 

6 

9 13  * 

107 

0421 

20 

,3014 

73176 

0 

OCTAL 

-04601 

14 

* 

+U-AXIS 

-X 

SENSE 

lETS 

no 

0422 

20 

,3015 

73372 

0 

OCTAL 

-04405 

5 

111 

0423 

20 

.3016 

62172 

1 

OCTAL 

-15605 

5 

14 

# 

112 

0424 

20 

,3017 

66766 

0 

OCTAL 

-non 

6 

kk 

-U-AXIS 

-X 

SENSE  JETS 

113 

0425 

20 

,3020 

6667  6 

0 

OCTAL 

-11101 

13 

ik 

114 

0426 

20 

.3021 

55666 

1 

octal 

-221  11 

6 

13 

# 

115 

0427 

20 

,3022 

67336 

0 

octal 

-10441 

10 

+V-AXIS 

-X 

SENSE 

JETS 

116 

0428 

20 

.3023 

67375 

1 

OCTAL 

-104O2 

1 

kk 

117 

0429 

20 

.3024 

56336 

1 

OCTAL 

-21442 

1 

10 

* 

120 

0430 

20 

.3025 

72774 

0 

OCTAL 

-05003 

2 

-V-AXIS 

-X 

SENSE 

JETS 

121 

0431 

20 

,3026 

72756 

0 

OCTAL 

-05021 

9 

* 

122 

0432 

20 

.3027 

61754 

0 

OCTAL 

-16023 

2 

9 

kk 

123 
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L RCS  failure  MoMItOR  USER'S  OWN  PAGE  NO,  I S3 

ROODS  PROQRaJI  DESCRIfillQN DA-IEI-  7 JaN.  6J 

ROOlO  AUTHOR!  J 5 MILLER  (MIT  INSTRUMENTATION  LAB) 


ROOIS  THIS  routine  IS  ATTACHED  TO  TARJ^Tt  AND  IS  eNTEREO  FVERY  960  MS,  ITS  FUNCTION  IS  TO  EXAMINE  THE  STATE 

R0025  OF  TH=  LOW  8 BITS  OF  CHaN  32  TO  SEE  IF  RCS-JET  FAILURE  BITS  HAVE  ArreAReD  OR  DISArrEARED,  wHEN  A STATE  CHANGE 

R0035  IS  Detected  which  persists  for  2_samples_(to  filter  jut  _noj3y_signals)  , ^an  lmp  command  is  sent  (But  at  most  one 

Rooas  such  command  Pen  sample)  to  isolate  tHe  appropriate  Jet  pair  if  the  failure  sicsnal  has  just  appeared,  if,  on 

Roosi  the  other  hand,  the  disappearance  of  a fail-bit  is  detected,  the  fVeNT  is  presumed  to  Be  the  result  of  the 
Roo53  gRoono  Having  seni  an_lw  Command _to_open  tHe  isd.ation  valvf  and  nd  subsequent  failure  having  been  det^cteo  by_ 

R0055  the  D-TECTION  CIRCUITRY.  IN  EITHER  CASE,  THIS  F A I L JRe-MON I TOR  PROGRAM  RESPONDS  BY  UPDATING  ITS  RtCORD  oF  THe 

Ro057  state  of  the  ISOLATION  VALVeS,  AND  ALSO  tMe.  PAIR  OF  WORDS  It  MAINTAINS  FOR  US£  BY  THe  DAP  IN  THe  JET-POlICY 
roo59  selection  logic, __  ^ 

R0060  A few  Words  about  lmp.reset  commands:  in  the  cycle  in  which  a valve-closure  command  is  issued,  the 

Roo62  corresponoing  reset  command  is  Stored  in  the  Register  "Jet^ffei'i.  this  rrgistfR  is  fxaminfd  at  the  beginning  of 

Roo64  each  rcsmonit  cycle,  and  if  a Command  is  waiting.  It  is  SeNt  immediately,  this  causeS  ReSet  commands  tO'  3e 

R0066  issued  at  About  960  M.S  ArTER  the  set  commands,  this  TECHNIOuE  assures  that  no  more  than  one  jN-ReSeT  s-t- 

Ro068  command  is  on  AT_ANY  r_iM£._(ALTHoUGH  GRqUND  ACt  TON  S _ W_I  LL  Be  SuPeRLMPOSeD  ON  THIS,  HOWeVeRT. 

R0070  calling  SEQUENCE; 


Roots  tc  rcsmonit  (IN  interrupt  mode,  every  96o  ms.j 

R0080  EXIT: 


Rooes  TCF  RCSMONEX  (ALL  PATHS  eXIt  VIA  SJCH  AN  INSTRUCTION.  RCSMONeX  IS  PRESENTLY  EQUATED  TO  RESUME.) 

R0095  ERASA3LE  INITIALIZATION  REqUIREu: 

ROIOS  VIA  SLAPi;  JETRESET  = -0  (RESET-CMD  BUFFER  EMPTY) 

ROllO  . THI3CH32  s *0  (NO  FAILURES  3EWSED  YET) 

ROUS  CHSMASK,  CH6MASK  = *0  (O'S  IF  JETS  ARf  OK) 

R0120  ’.MPJFAIL  = *0  (ISO.ATION  valves  all  OPEN) 


R0185  OUTPUT! 

R0190  CHSMASK  6 CHSMASK  UPDATED  (I'S  WHERF  JETS  NOT  JLQ  3f  USED) 

R0195  THISCH32  SET  TO  INVERTED  LOW  8 BItS  OF  CHAN  32  (HIGH  7=0) 

R0200  LMPJFAlL  UPDATED  (I'S  WHEN  ISOLATION  COMMANDS  HAVE  BEEN  SENT) 

R020S  JETRESET.  CONTAINS^ reset-commands  TO  BE  SENT  NEXT  CYrLE  THRU. 

R0210  debris: 


R0215  a,  L,  0,  6 RCSMONTI  - 4 (PRESENTLY  EOUATED  TO  RJPTpEGi  - 4) 

R0220  SUBROUTINES  CALLED! 


R022S  STORCOM  (PART  OF  ILMP  ROUTINE) 
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L 

RCS 

failure  I 

MONITOR 

USER*S  OWN  PAGE  NO,  2 S3 

— naio  - 

0235 

12.3166 

3AN< 

_I2 

REF 

33 

LAST 

446 

EO 

eban<= 

STATf 

NO  switched  erasable  used. 

02a0 

REF 

^ 2 

LAST 

88 

L2  »3J.66_ 

__1L'_L6Z 

1 _ RCSMQNIT 

:cs_. 

OEI  RESET 

. CHECK  whet  HEB._  A RESET  IS  WAIT  INS, 

02A5 

ref 

1 

12,3167 

0 5063 

1 

TC 

STORfOM  -1 

THERE  IS  A Reset  to  send,  do  it. 

0250 

REF 

I9l 

LAST 

561 

12,3170 

4 7767 

1 

:s 

ZERO 

0255 

REF 

3 

LAST 

570 

12  ,3i  ir 

55*162 

1 

TS 

jeireset_ 

deactivate  the  buffer. 

0330 

REF 

192 

LAST 

570 

12,3172 

4 7767 

1 aFTRESET 

:s 

ZERO 

0335 

12,3J73_ 

0 0006 

L . 

EXTEND 

pick  up  6 INVERT  INVERTED  CKANNsL  32. 

03A0 

12,3174 

06  032 

0 

RXOR 

32 

03A5 

REF 

10 

LAST 

557 

12,3175 

7 4564 

0 

MAS< 

L048 

KEEP  UET-FAIL  BITS  ONLY. 

0355 

REF 

2 

LAST 

88 

12,3176 

57*163 

1 

XCH 

THISrH32 

0360 

REF 

1 

12,3177 

54  071 

0 

TS 

RCSMONT2 

HANG  ON  TO  PREVIOUS  CH32  STATE. 

0365  , 

REF 

3 

LAST 

57O 

12,3200 

_ 7 1163 

0 

MAS< 

THISrH32_ 

- 

0370 

REF 

109 

LAiST 

562 

12,3201 

54  001 

1 

TS 

L 

FORM  PTL  + PTL. 

0375 

REF 

2 

LAST 

88 

12,3202 

4 0101 

0 

:s 

LMPJFAIL 

( P = PREVIOUS  CH  32  STATE, 

0380 

REF 

110 

LAST 

57O 

12,3203 

7 0001 

1 

MAS< 

L 

T = THIS  CH  32  STATE. 

0385 

REF 

1 

12,3204 

54  072 

0 

TS 

RCSMnNT3 

L = LMP  ISOLATION  VALVE  CMO  STATE  ) 

0390 

ref 

2 

LAST 

570 

12,3205 

4 0071 

0 

:s 

RCSM0NT2 

0395 

ref 

lU 

LAST 

57O 

12,3206 

54  001 

1 

TS 

L 

0400 

REF 

4 

LAST 

57O 

12,3207 

4 1163 

0 

:s 

THISCH32 

0405 

REF 

112 

LAST 

57O 

12,3210 

7 0001 

1 

«1AS< 

L 

0410 

REF 

3 

LAST 

570 

12,3211 

7 0101 

0 

MASK 

LMPJpAIL 

0415 

REF 

2 

LAST 

570 

12,3212 

26  072 

0 

ads 

RCSM0NT3 

BITS  here  NZ  IK  ACTION  IS  DUE  NOW. 

0420 

12,3213 

0 0006 

1 

EXTEND 

0425 

ref 

1 

12,3214 

1 5733 

1 

3ZF 

rcsmonex 

QUIT  NOW  IF  NO  ACTION  REQUIRED. 

0430 

12,3215 

0 0006 

1 

EXTEND 

0435 

REF 

1 

12,3216 

3 3221 

0 

DCA 

RC5M0NA0 

0440 

12,3217 

52  006 

0 

DTCB 

0445 

rlf 

34  last  570 

EO 

"BAN<=  StAtf  no  switched  ERASABLE  USED. 

0450 

C0450 

ref 

I 

12.3220 

12.3221 

02576  1 
54060  0 

RCSMONAD  zCADR  RCSMON 
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L 

OA55 

RCS 

failure  I 

MONITOR 

26i2576 

-SANK. 



USER'S  OWN  PAGE  NO.  3 S3  EO 

0A57 

REF 

3 

LAST 

570 

26,2576 

3 0072 

1 rcsmon 

CA 

RCSM0NT3 

0A60 

26,2577 

0 0006 

_1 

FXTFND 

0465 

REF 

30 

LAST 

555 

26,2600 

7 7755 

0 

MP 

3IT7 

MOVE  BITS  8 - 1 OF  A TO  14  - 7 TF  L. 

0470 

REF 

113 

LAST 

570 

26,2601 

56  001 

0 

XCH 

L 

ZERO  TO  L IN  THE  PROCESS. 

0475 

REF 

114 

LAST 

571 

26,2602 

24  001 

0 -3 

INCR 

L 

0480 

26,2603 

6 0000 

1 

OOJBLE 

BOUND  TO  get  AN  OVERFLOW,  SINCE  WE 

' 0485 

26,2604 

-54  000 

-0 

3VS< 

ASSURED  INITIAL  NZ  IN  A. 

0490 

26,2605 

1 2602 

0 

rcF 

-3 

0495 

REF 

115 

LAST 

571 

26  «_2606 

- 10-  001 

L 

CCS-  _ 

L . . . - - 

-PICK  UP  C(L)-1. 

0500 

26,2607 

6 0000 

1 

30UBLE 

0505 

REF 

1 

26,2610 

54  073 

1 

IS 

RCSMnNTi, 

STORE  FOR  later. 

0510 

REF 

116 

LAST 

571 

26,2611 

50  001 

0 

INDEX 

L 

0515 

REF 

19 

LAST 

555 

26,2612 

3 7753 

1 

CA 

BIT8  -1 

0520 

REF 

4 

LAST 

57l  _ 

26,2613 

54  072 

0 

IS  -- 

RCSMnNT3 

SAVE  THE  relevant  BIT.  (8  - 1) 

0525 

REF 

LAST 

570 

26,2614 

7 0101 

0 

MASK 

LMPJFAIL 

0530 

ref 

259 

LAST 

56l 

26,2615 

10  000 

0 

CCS 

A 

0535 

REF 

1 

-26,2616 

1 2637 

0 

TCF 

LMP3IT=1 

0540 

26,2617 

0 0006 

1 

EXTEND 

LMPBIT  = 0. 

0545 

REf 

2 

LAST 

571 

ZAa2AZ0_ 

5 0073 

0 

- 1ND-£,X_- 

RC5M/TNT4 

0550 

REF 

1 

26,2621 

3 2654 

1 

DCA 

KILLPAIR 

command  to  Isolate  a pair,  s its  reset. 

0552 

■ REF 

LAST 

570 

26,2622 

23*162 

0 

.XCH 

JETRfSET 

PUT  the  reset  command  away  for  next  time 

0555 

REF 

2 

LAST 

57O 

2,6  *2-62  3 

0 5064 

0 

IC 

STDRCOM 

SEND  the  isolation  COMMAND, 

0560 

REF 

5 

LAST 

571 

26,2624 

3 0072 

1 

CA 

RCSM0NT3 

0565 

REF 

5 

last 

-571  „ . 

-26,262-5 

26  101 

0 

ADS 

LMPJ.E.AIL 

SET  THE  BIT  SHOWING  COMMAND  SENT. 

0575 

REF 

4 

LAST 

55^ 

26,2626 

4 0102 

0 

cs 

CH5MASK 

SET  THE  JET-FAIL  BITS  IN  CHsMASK  !, 

0580 

REf 

3 

UAST 

571 

26,2627 

'50  073 

0 

index 

RCSM0NT4 

CH6MASK. 

0585 

ref 

1 

26,2630 

7 2673 

0 

MASK 

FAILTABL 

0590 

REF 

5 

LAST 

571 

26,2631 

26  102 

0 

ADS 

CH5MASK 

0595 

REF 

LAST 

501 

26,2632 

4 0103 

1 

CS 

CH6MASK 

0600 

ref 

LAsT 

57I 

26,2633 

50  073 

0 

index 

RCSM0NT4 

0605 

REF 

2 

last 

57I 

26,2634 

7 2674 

1 

MASK 

FAILTABL 

0610 

REF 

5 

LAST 

571 

26,2635 

26  103 

1 

ADS 

CH6MASK 

0615 

REF 

2 

LAST 

57O 

26,2636 

1 -5733 

1 

TCF__  _ 

RCSMONEX 

DONE. 

633it36A 

YUL 

SYSTEM  FOR  *00: 

REVISION 

0 OF  PROGRAM  BURST12D  BY 

NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE 

572 

L 

RCS 

FAILURE  MONITOR 

USER'S  OWN  PAGE  NO.  4 S3 

EO 

06A0 

REF 

6 

LAST  57I 

26,2t37 

4 0072 .0  . 

lmpbit=i  :s 

R0SMONT3 

THE  QROUND  HAS  RE-ENABLED  A PAU, 

06A5 

REF 

6 

LAST  57I 

26,2640 

7 0101  0 

MAS< 

LiMPJFAIL 

DON'T  USE  ADS  BECAUSE  OF  THE  -0  CASE. 

0650 

REF 

7 

LAST  572 

26,2641 

54  101  0 

TS 

lmpjfail 

0660 

REF 

5 

last  571 

26,2642 

50  073  0 

INDEX 

RCSM0NT4 

TURN  OFF  THE  JET-FAIL  BUS  IN  CM5MAS< 

6 

0665 

REF 

3 

LAST  57I 

26,2643 

4 2673  0 

CS 

FAILTABL 

CH6MASK. 

0670 

ref 

6 

LAST  571 

26j2644 

7 0J02  0 

MAS< 

CH5MASK 

0675 

REF 

7 

LAST  572 

26,2645 

■ 54  102  0 

TS 

CH5MASK 

0680 

REF 

6 

LAST  5JZ_ 

_ 2ii.2t46_ 

50  .073  0 

INDEX 

RCSM0NT4 

0685 

REF 

A 

LAST  572 

26,2647 

4 2674  1 

CS 

FAILTABL  +1 

0690 

REF 

6 

LAST  571 

26,2650 

7 0103  1 

MAS< 

CH6MASK 

0695 

REF 

7 

LAST_5_lZ 

. 2_6_l265J^ 

_ 5j4  103.  1 

IS  . 

CH6MASK 

0700 

REF 

3 

LAST  57I 

26,2652 

1 5733  1 

TCF 

RCSMONEX 

DONE. 

0775 

ref 

37 

LAST_  560  

5733 

- RCSMOnEX  -EQUALS-JLE3.JME 

change  THIS  TO. ATTACH  SOMETHINj- ON. 
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L 

RC5  FAILURE  MONITOR 

USER'S  OWN  page 

NO.  5 

S3  EO 

P0780 

IN  THE  UPPE^  WORD  OF 

Each  entry _ DF  TH£_<1,LLPaJR  „U3LE  1.S- .the 

lnp  Command  code 

TO 

isolate  a UEI.PaIR. 

R0790 

BIT  15  = 1 TO  ALLOW  JSE  OF  TH£ 

"STORCOM"  LMP 

routine. 

THE  lower  word 

OF  each  entry  contains  the  reset 

-'OMMAND 

R0800 

CODE  3LUS  ONE.  WHICH  CORRESPONDS  TO  THE  UPPER 

WORD. 

(THE  extra  +1  IS 

removed  by  the  CCS 

at  rcsmonit.) 

0825 

26,2653 

40250 

1 <ILLPAIR  20CT 

40250  00252 

2A,  UETS  10  6 

11. 

CMOS  168  6 

159. 

C0825 

26.265A 

00252 

1 

0830 

26,2655 

40170 

0 

20CT 

40170.00372  . 

2B.  UETS_  9 6 

12. 

CMOS  120  6 

l7l.  . 

C0830 

26,2656 , 

00172 

0 

0835 

26,2657 

40134 

0 

20CT 

40134  00136 

lA,  JETS  13  6 

15. 

CMOS  92  6 

93. 

C0B35 

26,2660 

00136 

J3 . 

08A0 

26,2661 

40154 

0 

20CT 

40154  00156 

IB.  UETS  14  6 

16. 

CMOS  108  6 

109. 

C08A0 

26,2662 

00156 

0 

08A5 

26,2663 

4015J, 

1 

20CT 

40156  00160 

3B.  UETS  6 6 

7. 

CMOS  110  6 

111. 

C08A5 

26.2664 

00160 

0 

0850 

26,2665 

40310 

1 

20CT 

40310  00312 

4B.  UETS  1 6 

3. 

CMOS  200  6 

201. 

C0850 

26,2666 

00312- 

1 

0855 

26,2667 

40136 

1 

20CT 

40136  00140 

3A,  UETS  5 6 

8. 

CMOS  94  6 

95. 

C0855  • 

26,2670 

00140 

1 

0860 

26,2671 

403.50 

0 . 

- . -2P-CJ 

40350  00352 

_ 4A.  JETS  26 

-CMOS  2-3.2.  6 

233. 

C0850 

26,2672 

00352 

0 

f*0905 

failtabl  eNtRIes  Contain  the  bit  por 

CH5v1AS< 

IN  tHe  uppeR  word,  and  tHe  bit  por 

CH6MASK  IN  T^ 

l£  LOWeR. 

0915 

2L6,l267J  . 

00040 

0 failtabl  .20.CT 

..  ..Q.O.0An  00010- 

C0915 

26,2674 

00010 

0 

0920 

26,2675 

00020 

0 

20CT 

00020  00020 

C0920 

26,2676 

00020 

0 

0925 

26,2677 

00100 

0 

20CT 

00100  00004 

C092'5 

26,2700 

00004 

0 

0930 

26,2701 

00200 

0 

20CT 

00200  00200 

C0930 

26,2702 

00200 

0 

0935 

26,2703 

00010 

0 

20CT 

oooin  00001 

C0935 

26,2704 

00001 

0 

09<t0 

26,2705 

00001 

0 

20CT 

00001  00002 

C09A0 

26,2  106 

00002 

0 

09A5 

26,2707 

00004 

0 

20CT 

0000a  00040 

C09A5 

26,2710 

00040 

0 

0950 

26,2711 

00002 

0 

20CT 

00002  00100 

C0950 

26,271_2^  _ 

J3Q1Q0 

0 
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L <ALMftN,  filter  FOR  UM  3AP  USER'S  OWN  PAGE  NO.  i S3 


ROOOl 

the 

FOLLOWlwG_T!5RUPI 

Em  TRY  BEGliaS  THE  PROSRAM  WHI 

JCH  ISUTIALITFS  J 

nHE__KALMAM.  FxLT_ER_AND_SETS  _UP  A Js-AxiS  jUPT  TO 

R0003 

OCCUR  20  MS  1 

FROM  ITS 

BEGINNING, 

0004 

REF 

1 4 

LAST 

547 

E6_ 

fban<= 

_QI 

0005 

21,2000 

3AN< 

21 

0006 

REF 

1 

21,2000 

3 2402 

0 

FILTINIT 

CAF 

MS3OF 

RESET  timer  immediately  - DT  = 3OM5 

0007 

REF 

9 

LAST 

521 

21,2001 

54  030 

_Q_ 

TS 

TlviEr; 

0008 

REF 

14 

LAST 

519 

21,2002 

22  016 

0 

lXCH 

BAN<RUPT 

interrupt  lead  in  (CONTINUED) 

0009 

21.2003 

0 0006 

_1_ 

EXTEND 

OOlO 

ref 

12 

LAST 

519 

21,2004 

22  012 

1 

3XCH 

3RJPT 

oou 

__2i»2_005 0 CL006 

L 

_EXTEND 

SET  UP  FOR  P-AXIS  RUPT 

0012 

REf 

1 

21,2006 

3 2100 

1 

3CA 

pAX/fILT 

0013 

REF 

12 

LAST 

551 

21,2007 

53'001 

0 

DXCH 

T5ADR 

0014’ 

REF 

1 

21,2010 

3 2014 

0 

CAF 

mostpass 

SET  UP  TO  Permit  dt  calculation  during 

0015 

ref 

1 

21,2011 

55*544 

1 

TS 

STEERAdR 

KALMAN  filter  INITIALIZATION  PAss. 

0016 

REF 

1 

21,2012 

1 3675 

1 

rcF 

CLEARCHg 

TURN  OFF  0,R-AXES  RCS  UETS, 

0017 

REF 

1 

_2_1'2013 

_ D_2322_ 

0 

FIRSTADR 

oENAOR 

FILFIRST 

Rooie 

tHe 

Following  tsrupt 

entry  begins  the  kALMaN  filt 

rR  PRO! 

gram,  this  Section  also  sets  up  a tsRupt  to  occjr  20  ms 

Ro020  ■ 

FROM 

ITS  Bfginning  ano  Sets  it 

TO  GO 

TO 

tHe  Location  at 

TH_£  yOP  I 

3F  the  post  filter  Rupt  list. 

0022 

REF 

1 

21,2014 

02060 

0 

mostpass 

3ENADR 

otcai  c 

WORD  IN  FILTPASS  FOR  THESE  PASSES 

0023 

REF 

2 

LAST 

574 

21,2015 

3 2402 

0 

FILTER 

CAF 

MS30F 

RESET  timer  immediately  - DT  = 3OMS 

0024 

REF 

10 

last 

574 

21,2016 

54  030 

0 

TS 

Times 

0025 

REF 

15 

LAST 

574 

21,2017 

22  016 

0 

•-XCH 

BAN<rUPT 

interrupt  Lead  in  (continued) 

0026 

21,2020 

0 0006 

1 

EXTEND 

0027 

REF  - 

13 

LAST 

574 

21,2021 

22  012 

1 

3XCH 

3RJPT 

0029 

21,2022 

0 0006 

1 

EXTEND 

SET  RUPT  ADDRESS  TO  TOP  OF 

0030 

ref 

1 

21,2023 

3 1575 

1 

3CA 

PFRPTI  ST 

POST  filter  rupt  list 

0031 

REF 

13 

LAST 

574 

21,2024 

53*001 

0 

3XCH 

T5ADP 

00311 

REF 

14 

LAST 

574 

21,2025 

4 1000 

1 

CS 

T5ADR 

IF  THE  TRIM  GIMBAL  CONTROL  RUPT  IS  NEXT, 

00312 

ref 

1 

21,2026 

6 2406 

1 

ad 

5Ts2CAdR 

reduce  The  length  of  thIs  times  rjpt. 

00313 

21,2027 

0 0006 

1 

EXTEND 

00314 

21,2030 

1 2032 

0 

3ZF 

♦ 2 

00315 

21,2031 

1 2034 

0 

TCF 

♦ 3 

00316 

REF 

1 

21,2032 

3 2401 

0 

CAF 

MS20F 

RESET  timer  IMMEDIATELY  - DT  = aOMS 

00317 

ref 

11 

LAST 

574 

21,2033 

54  030 

0 

TS 

TIME5 

0032 

REF 

2 

LAST 

574 

21,2034 

53*575 

0 

3XCH 

PFRPTLST 

rotate  2Cadr*s  in  post  filter  rjpt  list 

0033 

REF 

3 

LAST 

574 

21,2035 

53*603 

1 

3XCH 

PFRPtLST 

+ 6 

0034 

ref 

4 

LAST 

574 

21,2036 

53*601 

0 

3XCH 

PFRPTLsT 

♦ 4 
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0035 

SEF 

LAST 

57^ 

21 .2037 

5:i»577 

L 

PXCH 

-PE.RPILST  *2- 

0036 

R0037 

0038 

REF  1 

BEGIN  the  ICAL 
REF  5 LAST 

21.2090  1 3703  1 

MAN  FILT-K  BY  READING  COU  ANoLtS  AND 

TCF 

-TIME. 

COJNtDWN 

decrement  passctr 

553 

21.2091 

0 6013 

0 

filstart 

tc 

T6JDRCHK 

CHECK  T6  CLOCK  FOR  P-AXIS  ACTIVITY 

0039 

21.2092 

0 0006 

1 

EXTEND 

OOaO 

REF 

20 

last 

533 

21.2093 

3 0039 

0 

DCA 

CDJY 

STORE  CDUY  AND  COUZ  AT  PI  AND  IN  2.S  COM 

OOaI 

REF 

1 

21.2099 

_53'591 

1 

DXCH  - 

STDRCDUY 

00i,2 

21.2095 

0 0006 

1 

EXTEND 

BEGIN  READING  THE  CLOCK  TO  GET  TIME 

00a3 

21.2096 

00  009 

0 

read 

if 

INCREMENT. 

OOAA 

ref 

1L7 

LAST 

571 

21.2097 

59  001 

1 

rs 

L 

OOA5 

21.2050 

0 0006 

1 

EXTEND 

00A6 

21.2051 

06  009 

0 

RXOR 

if 

CHECK  TO  SEE  IF  CH  9 WAS  IN  TRANSITION 

0097 

21.2052 

0 0006 

1 

EXTEND 

- when  JT  was  FIRST  READ. 

0098 

21.2053 

1 2057 

0 

3ZF 

*if 

BRANCH  IF  TIME  WAS  THE  SAME  IN  2 READS. 

0099 

21.2059 

0 0006 

1 

EXTEND 

0050 

- 21.2055 

00  009 

0 

READ 

0051 

REF 

118 

LAST 

575 

21.2056 

59  001 

1 

TS 

L 

THIS  time  READ  ALWAYS  GIVES  GDOd  nO. 

0052 

REF 

2 

LAST 

57A 

21.2057 

0 1599 

0 

rc 

StEEoADR 

SKIP  DTCALC  DURING  INITIAL  PASS 

0053 

REF 

119 

LAST 

575 

21.2060 

9 0001 

1 

dtcalc 

:s 

L 

0059 

ref 

1 

21.2061 

6 1593 

1 

Ad 

DAPTIME 

A CONTAINS  The  time  difference  (DT) 

0055. 

REF 

2 

LAST 

575 

21,2062 

23*593 

1 

.XCH 

DAPTIME 

SINCE  THE  LAST  FILTER. 

0056 

21,2063 

0 0006 

1 

EXTEND 

0057 

21,2069 

6 2067 

1 

3ZMF 

♦ 3 

0058 

REF 

9 

LAST 

959 

21.2065 

6 7799 

1 

AD 

NEGl/2 

THIS  IS  adding  -1.0  TO  -DT  AND  ACCOUNTS 

0059 

REF 

5 

LAST 

575 

21,2066 

6 7799 

1 

AD 

NEGl/2 

FOR  AN  OVERFLOW  INTO  CHANNEL  5 

R0060 

scaling 

OF  DeLTF  T 

FoRi  KALMAN 

FILTER 

IS 

L/B  SECOND.  

0061 

21,2067 

0 0006 

1 

EXTEND 

TIME  NOW  SCALED  AT  5.12  SECONDS 

0062 

REF 

31 

LAST 

571 

21,2070 

7 7755 

0 

MP 

BIT7 

first  rescale  10  5.12/69 

0063 

ref 

1 

21,2071 

9 2376 

0 

CS 

.69 

0069 

21,2072 

0 0006 

1 

EXTEND 

THEN  RESCALE  TO  5. 12/ (69*. 69)  DR 

0065 

ref 

120 

last 

575 

21,2073 

7 0001 

1 

MP 

L 

5.12/90,96  WHICH  IS  THE  SAME  AS 

0066 

REF 

1 

21.2079 

1 3707 

0 

TCF 

TIMEnONE 

DT  SCALED  AT  1/8.  JUMP  VIA  STEERAD2. 

R0067 

SET 

JA 

-ILTEF 

WEIGHTING  VECTOR  FOR  THIS 

filter  pass. 

0068 

REF 

1 

21,2075 

11'597 

1 

CCS 

WPDInTER 

TEST  FOR  weighting  VECTOR  SteADy-STATE 

0069 

rEf 

1 

21,2076 

1 2102 

1 

TCF 

MDVEWGTS 

pointer  NOT  YET  ZErO  (MULTIPLE  DF  THREE) 

0070 

REF 

15 

last 

57A 

E6 

EBAN<= 

IDT 

0071 

21,2077 

02255 

1 

PAX/FILT 

2CADR 

PAXIc 

(ROOM  FOR  2CADR  IN  CCS  HOLES) 

C0071 

ref 

2 

LAST 

991 

21,2100 

3 A066 

0 

0072 

REF 

1 

21.2101 

1 2113 

1 

TCF 

FLTZAXIS 

steady-state  already,  NO  UPDATING  AGAIN 

0073 

ref 

27 

LAST 

5 A3 

21,2102 

9 6311 

0 

MDVEWGTS 

cs 

Thref 

SET  UP  POINTER  FOR  THIS  PASS 

0079 

REf 

2 

LAST 

575 

21,2103 

27*597 

1 

ADS 

WP3lN7ER 

(NEVER  GETS  BELOW  ZERO  HERE) 

633it36A  YUL  SYSTEM  FOR  AGC:  ^^EVISION  0 OF  PROGRAM  BURST123  BY  NASA  2n21106-031 
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L 

KAlMAm 

FILTER 

; for  lM 

3Ap 

USER*S  OWN  page  no.  3 S3  E6 

0075 

2X»ilflA 

0 0006 

-1  - 

.-  EXTEND 

_ _ -WPO inter  15.  INDEX  5 87  first  TIME  HE.RE 

0076 

REF 

3 

LAST 

575 

21,2105 

5 1547 

0 

INDEX 

aPOInTER 

AND  IS  Decreased  by  3 every  filter  pass 

0077 

REF 

1 

21,2106 

3 2413 

0 

DCA 

^iVECTOR 

UNTIL  THE  steady-state  IS  REACHaq. 

0078 

REF 

2 

LAST 

53 

21,2107 

.53*551 

0 

3XCd.  . 

</-0 

MOVE  IN  NEW  WO.Wl 

0079 

REF 

A 

LAST 

576 

21, 2110. 

51*547 

0 

INDEX 

/YPOImTER 

ooeo 

ref 

2 

last 

576 

21,2111 

3 2414 

1 

caf 

^VECTOR  +? 

0081 

REF 

1 

2_1_.2.112„ 

55-*  552 

0 

TS  --  - 

aI2-  - - - 

MOVE  IN  NEW  W2 

0082 

REF 

76 

LAST 

562 

21,2113 

3 7762 

0 

FLTZAXIS  CAF 

Two 

SET  UP  indexer  For  D.P,  pickup  4ND  to 

0083 

REF 

8 

LAST 

53  A 

2U2X1A_ 

-54  066 

0 

IS 

ORCNtR 

INDICATE  Z-AXIS  FILTER  PASS 

008A 

REF 

1 

21*2115 

1 2121 

0 

rcF 

FLTYAXIS 

0065  . 

REF 

193 

LAST 

570 

21,2116 

3 7767 

0 

oDYFILTR  CAF 

EERO 

SET  INDEXER  FOR  Y-AxlS 

0086 

REF 

9 

LAST 

576 

21,2117 

54  066 

0 

rs 

ORCNTR 

0087 

REF 

6 

LAST 

575 

21*2120 

0 6013 

0 

TC 

T6JDBCHK 

CHECK  T6  CLOCK  FOR  P-AXIS  ACTIVITY 

0088 

REF 

XD 

-50-  06A  1 F-LT-Y-AxiS  LNOFy 

DRCNTR 

0089 

REF 

1 

21,2122 

53*554 

0 

DXCH 

CDJYFIL 

THETA  IS  D.P.  scaled  AT  2 Pi  RADIANS 

OO9O 

ref 

1 

21,2123 

52  073 

1 

3XCH 

CDJ 

0091 

REF 

_u 

LASJX 

576 

21,2124 

50  066 

INDEX 

orcntR 

0092 

■ REF 

1 

21,2125 

53*560 

1 

DXCH 

dcdjvfil 

THETA  IS  D.P.  SCALED  AT  PI/4  RAD/SEC 

0093 

REF 

1 

21,2126 

52  062 

1 

DXCH 

CDJDOT 

OO9A 

ref 

12 

last 

576 

21,2127 

50  066 

1 

INjjEx 

ORCNTR 

0095 

REF 

1 

21,2130 

53*564 

0 

DXCH 

02CDUYFL 

THETA  IS  D.P.  SCALED  AT  PI/8  RAD/SEC 

0096 

REF 

1 

21,2131 

52  064 

1 

DXCH 

CDJ2nOT 

0097 

REF 

13 

LAST 

576 

21,2132 

50  066 

1 

tNDEX 

ORCNTR 

...  73 

0098 

REF 

1 

21,2133 

31*567 

1 

CAE 

Y300T 

theta  is  S.P.  scaled  at  PI/2  RAD/SEC 

0099 

REF 

1 

21*2134 

57*570 

1 

XCH 

COJ3n)OT 

Roloo 

note 

that  the 

ftIteRe 

0 variables  are 

Read  deStRoctk^ely 

FOR  aPeeD  and  efficiency  AND  THAT  Y3DOT  IS  NOT  UPDATED, 

R0I02 

SO  It  most  be 

READ  NDN-DeSJRUCTI VeLY 

BUT 

Need  not  be  restoReh  aftfR 

each  KALMAN  FILTER  PASS, 

633<,36A  yUL 

SrSTEM  FOR  Agc; 

REVISION 

0 OF  PROGRAM  BURST120  BY 

NASA  2021106-031  DEC  7,  lg67  (MAIN)  PAGE  577 

L 

POIO^ 

kalviam  Filter  for  lm  3ap 
INTEjTA^TLQN  f/TRAPOLAHON  £QUAU0R5: 

USER'S  OWN  page  no.  4 S3  E6 

0105 

OlOA 

REF 

2 

LAST 

576 

21.2135 

21 .2136 

30  063 
n nnofs 

1 

<UMNFLTR  :AE  COJ2OOT 

PXTFMn 

A SCALED  AT  PI/8  (USE  S.P.) 

0107 

REF 

16 

LAST 

575 

21.2137 

7 1542 

1 

MP 

DT 

ADT  SCALED  AT  Pl/64  OR  .5ADT  AT  PI/128 

0108 

21.2140 

0 0006 

1 

EXTEND 

0109 

ref 

38 

LAST 

48  7 _ _ 

21j2L141  ^ 

7 7752 

_1 

MP  _ 

...  3-LII.Q 

rescale  by  RIGHT  SHIFT  5 

0110 

REF 

2 

LAST 

576 

21.2142 

6 0061 

0 

AD, 

COJDDT 

W ♦ .SADT  scaled  at  PI/4 

0111 

21.2143 

0 0006 

1 

EXTEND 

0112 

REF 

17 

LAST 

577  _ 

21.2144 

7_  1542^ 

.1 

MP  . 

DT 

(W  ♦ ,5ADT)DT  scaled  at  Pl/32 

0113 

21.2145 

0 0006 

1 

EXTEND 

Oll^t 

REF 

13 

LAST 

553 

21.2146 

7 7753 

0 

MP- 

B1T9 

RESCALE  BY  RIGHT  SHIFT  6 (KEEP  D.P.) 

0115- 

REF 

2 

LAST 

576 

21j2l47 

^0  .073 

.1 

..  . . DAS 

CDJ 

CDU  .=  .CDU  ♦ (W  t .5ADT)DT  SCALED  AT  2P1 

0116 

REF 

2 

LAST 

576 

21.2150 

31'570 

1 

CAE 

CD J3DOT 

ADOT  SCALED  AT  PI/2(7) 

0117 

2L.2151 

0 0006 

1 

EJtlEJlD 

0118 

REF 

18 

LAST 

577 

21.2152 

7 1542 

1 

*1P 

DT 

.5ADOTDT  SCALED  AT  PI/2(11) 

0119 

REF 

8 

LAST 

16A 

21,2153 

54  065 

0 

TS 

1TEMP5 

(SAVE  FOR  ALPHA  INTEGRATION) 

0120 

21.2154 

0 0006 

EXTEND 

0121 

REF 

32 

LAST 

575 

21.2155 

7 7755 

0 

MP 

BIT7 

RESCALE  BY  RIGHT  SHIFT  8 

0122 

REF 

3 

LAST 

577 

21,2156 

6 0063 

1 

AD 

CDJ2D0T 

A + .5AD0TDT  SCALED  AT  PI/8 

0123 

21 ,2157 

0 0006 

1 

extend 

0124 

REF 

19 

LAST 

577 

21,2160 

7 1542 

1 

«IP 

DT 

(A  + .5AD0TDT)DT  scaled  AT  PI/64 

0125 

21,2161 

0 0006 

1 

EXTEND 

01-26 

REF 

31 

LAST 

553 

^21 .2162 

7 7751. 

1 

MP 

BlTll 

rescale  by  RIGHT  SHIFT  4 (KEEP  D.P.) 

0127 

REF 

3 

LAST 

577 

21,2163 

20  062 

1 

DAS 

cdjddt 

W s W ♦ (A  ♦ .5AD0T0T)DT  SCALED  AT  Pl/4 

0128 

REF 

9 

LAST 

577 

21.2164 

30  065 

1 

. . CAE 

ITEMP5 

ADOTDT  SCALED  AT  PI/2(10)  (FROM  ABOVE) 

0129 

21.2165 

0 0006 

1 

EXTEND 

0130 

REF 

20 

LAST 

571 

21,2166 

7 7754 

1 

MP 

BITS 

RESCALE  BY  RIGHT  SHIFT  7 (KEEP  D.P.) 

0131 

REF 

LASJ_ 

_577_„, 

il.2167 

20  064 

1 

DAS 

CDJ2DOT 

A = A ♦ ADOTDT  scaled  AT  PI/8 

633(,36A  YUL  SYSTEM  FOK  Aqc;  REVISION  0 OF  PROGRAM  BURST123  BY  NASA  2021106-031 
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L KALMAN  filter  FOR  LM  JAP  USER'5  OWN  PAGE  NO.  5 S3  E6 


PQ132 

WrlNG  VfCTDR 

ADJilSTMElNJ  ELJatIQNSJ  _ 

0133 

21*2170 

0 0006 

1 

EXTEND 

CONVERT  CDU  INTEGRATED  VALUE  FR-jM  DOJBLE 

013A 

REF 

3 

LAST 

57T 

21.2171 

3 0073 

0 

JCA  ,, 

PRECISION  SCALED  AT  2pl  IN  ONES  COMpLE- 

0135 

REF 

1 

21,2172 

0 2307 

1 

rc 

DNETnTWO 

MENT  to  single  precision  scaled  AT  PI 

01355 

REF 

lA 

LAST 

576 

21,2173 

10  066 

0 

CCS 

DRCntR 

0136 

REF 

25-0 

LAST 

5il 

21,2|74 

50  000 

A 

_ indek_ 

A 

IN  TWOS  COMPLEMENT.  THEN  DIFFERfNCE  WITH 

01365 

REF 

2 

LAST 

575 

21,2175 

31*540 

1 

CAE 

STDRCDUY 

0137 

21,2176 

0 0006 

1 

EXTEND 

stored  CDU  REGISTER  READING  TO  SET  A 

0138 

REf 

10 

LAsT 

577 

21,2177 

20  065 

0 

. . MSvJ  __ 

ITXMP5 

single  precision  ones  COMPLEMENJ  REsJi T 

0139 

REF 

1 

21,2200 

55*545 

0 

TS 

DPDIfF 

scaled  at  pi  radians  (UPPER  HALF) 

oiao 

REF 

LAST  578 

21,2201 

4 0073 

A 

:s 

_CDJ_*l_ 

create  low  ORDER  WORD  OF  D.P,  DIFFERENCE 

OKI 

21,2202 

6 0000 

1 

50JBLE 

ONES  complement  SCALED  AT  Pi  RADIANS  AND 

01A2 

REF 

2 

LAST 

578 

21,2203 

57*546 

1 

kch 

OPDIfF 

+ 1 

USE  S.P.  result  above  as  HIGH  DRDeR  WORD 

0K3 

21,2204 

0 0006 

1 

extend 

DPDIFF  IS  D.P.  AT  PI 

OlAA 

REF 

3 

LAST 

578 

21,2205 

3 1546 

1 

DCA 

DPDIfF 

01A6 

REF 

Ll 

UAST_ 

578 

21,2206 

22  _ 065 

1 

LXCd 

JLEME5-. 

SAVE  LOW  order  word  FOR  D.P.  MJvTLPJ-Y 

01A7 

21,2207 

0 0006 

1 

EXTEND 

0U8 

REF 

3 

LAST 

576 

21,2210 

7 1550 

1 

MP 

WO 

CDU  : CDU  + DPDIFF  (D.P.)  » WO  (S.P.) 

01A9 

SEF 

LAsr_ 

578 

21. 2211 

_20  073_J^ 

DAS 

CDJ 

0150 

REF 

12 

LAST 

578 

21,2212 

30  065 

1 

CAE 

1 TEMPS 

WO  IS  SCALED  AT  2 

0151 

21,2213 

0 0006 

1 

EXTEND 

DPDIFF  IS  RESCALED  TO  PI 

0152 

REF 

A 

LAST 

578 

21,2214 

Z 15_5„0 

1 

MP 

WO 

WO*DPDIFF  IS  SCALED  AT  2PI  (AS  C.DJ) 

0153  • 

ref 

6 

LAST 

578 

21,2215 

26  073 

1 

ADS 

CDJ  *1 

015A 

ref 

121 

LAST 

575 

21,2216 

54  001 

1 

TS 

L 

0155 

21,2217 

1 2221 

0 

TCP 

♦ 2 

0156 

ref 

7 

LAST 

578 

21,2220 

26  072 

0 

ADS 

CDJ 

0157 

REF 

A 

LAST 

578 

21,2221 

31*545 

1 

CAE 

DPDIfF 

rescale  DPDIFF  TO  PI/128 

0158 

21,2222 

0 0006 

1 

EXTEND 

0159 

REf 

21 

last 

577 

21,2223 

7 7754 

1 

MP 

BITS 

DpDIfF  (D.P.)  4 128 

0160 

REF 

13 

LAST 

578 

21,2224 

22  065 

1 

^XCH 

n EMd5 

0161 

REF 

5 

LAST 

578 

21,2225 

31*546 

1 

CAE 

DPDIFF 

+ 1 

0162 

21,2226 

0 0006 

1 

EXTEND 

0163 

REf 

22 

LAsT 

578 

21,2227 

7 7754 

1 

MP 

BITS 

0l6A 

REF 

lA 

LAST 

578 

21,2230 

6 0065 

1 

AD 

ITEMP5 

0165 

REF 

15 

LAST 

578 

21,2231 

22  065 

1 

lXCH 

ITEMdS 

0166 

21,2232 

0 0006 

1 

extend 

• • 

0167 

REf 

2 

last 

53 

21,2233 

7 1551 

0 

MP 

W1 

CDU  = CDU  + dPdIFF  (D.P,)  * Wl  (S.P.) 

0168 

ref 

A 

last 

577 

21,2234 

20  062 

1 

JAS 

CDJOnT 

0169 

REF 

16 

LAST 

578 

21,2235 

30  065 

1 

CAE 

ItEMP5 

W1  IS  SCALED  AT  32 

0170 

21,2236 

0 0006 

1 

EXTEND 

DPDIFF  IS  RESCALED  TO  PI/128 

0171 

REF 

3 

LAST 

578 

21,2237 

7 1551 

0 

MP 

W1 

WlxDPDIFF  IS  SCALED  AT  PI/4  (AS  CDUDOT) 

0172 

ref 

5 

last 

578 

21,2240 

26  062 

1 

ADS 

CDJDnT 

+ 1 

0173 

REF 

122 

LAST 

578 

21,2241 

54  001 

1 

TS 

L 

OI7A 

21,2242 

1 2244 

0 

TCF 

+ 2 

0175 

REF 

6 

LAST 

578 

21,2243 

26  061 

1 

ADS 

CDJDnT 
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L 

KALMAnj  I 

FILTER  for 

LM  OAP 

USER'S  OWN  PAGE  NO.  6 S3  E6 

0176 

REF 

6 

LAST 

578 

- - - 2-1  j 2244- 

-31*545 

1 

-CAE 

DPOIFF.  . 

rescale  DPDIFF  TO  P-I/64 

0177 

21,2245 

0 0006 

1 

EXTEND 

0178 

REF 

33 

LAST 

577 

21,2246 

7 7755 

0 

*1P 

3IT7 

DPDIFF  (D.P.)  • 64 

0179 

REF 

17 

LAST 

578 

21.2247 

22  065 

-L- 

XCH 

1 TEMPS 

0180 

REF 

7 

LAST 

579 

21,2250 

31*546 

1 

CAE 

DPOIFF  +1 

0181 

21,2251 

0 0006 

1 

EXTEND 

0182 

ref 

34  1 AST 

579 

21,2252 

7 7755 

0 

v|P 

RI  TT 

0183 

REF 

18 

LAST 

579 

21,2253 

6 0065 

1 

AD 

ITEMP5 

018A 

ref 

19 

LAST 

579 

21,2254 

22  065 

1 

LXCH 

IT  EMo5 

0185 

21,2255 

0 0006 

1 

EXTEND 

• • • • 

0186 

ref 

2 

last 

576 

21,2256 

7 1552 

0 

*1P 

W2 

CDU  = CDU  ♦ DPdIFF  (D.P.)  * W2  (S.P.) 

0187 

ref 

5 

last. 

-577 

- 21-12257 

ZQ-  064 

a 

3AS-.  - 

-CDJ200T  . - 

0188 

REF 

20 

LAST 

579 

21,2260 

30  065 

1 

CAE 

ITEMP5 

W2  IS  scaled  at  8 

0189 

21,2261 

0 0006 

1 

EXTEND 

0190 

REF 

3 

LAST 

57P- 

- 21,2262 

7 1552 

0 

MP 

W2  

W2»DPDI-FF  is  scaled  at  PI/8.(A5  CDJ2DDT) 

0191 

REF 

6 

LAST 

579 

21,2263 

26  064 

1 

ADS 

C0J2D0T  +1 

0192 

REF 

123 

LAST 

578 

21,2264 

54  001 

1 

TS 

L 

0193 

21,2265 

1 2267 

1 

TCF 

♦ 2 

019A 

REF 

7 

LAST 

579 

21,2266 

26  063 

0 

ADS 

CDJ200T 

Ro195 

RESTORE 

VARIABLES 

ANO  TEST  FOR  Completion  or  aooiiional 

AXIS. 

0196 

REF 

B 

LAST 

578 

21,2267 

52  073 

1 

FILTAXIS 

DXCH 

CDJ 

0197 

ref 

15 

LAST. 

578 

21,2270 

50  066 

1 

index 

DRCNtR 

Theta  is  d.p.  scaled  at  2 pi  rajians 

0198 

REF 

2 

LAST 

576 

21,2271 

53*554 

0 

3XCH 

COJYFIL 

0199 

REF 

7 

LAST 

578 

21,2272 

52  062 

1 

3XCH 

COJDOT 

0200 

REF 

16 

LAST 

579 

21,2273 

50  066 

1 

INDEX 

3RCNTR 

theta  is  D.P,  scaled  at  PI/4  RAD/SEC 

0201 

REF 

2 

LAST 

576 

21,2274 

53*560 

1 

DXCH 

DCDJYFIL 

0202 

REF 

8 

LAST 

579 

21,2275 

52  064 

1 

DXCH 

CDJ2nOT 

• • 2 

0203 

REf 

17 

last 

579 

21,2276 

50  066 

1 

INDEX 

DRCNtR 

THETA  IS  D.P.  Scaled  at  pi/a  Raj/sec 

020A 

REF 

2 

LAST 

576 

21,2277 

53*564 

0 

DXCH 

02CDmYFL 

0208 

ref 

18 

LAST 

-579 

21,2300 

10  066 

0 

CCS  - -- 

DRCNTR 

0209 

ref 

1 

21,2301 

1 2116 

1 

rcF 

GOYFTLTR 

IF  2,  Y-AXIS  still  TO  GO 

0210 

REF 

15 

LAST 

579 

21,2302 

4 1000 

1 

cs 

IF  THE  TRIM  GIMBAL  CONTROL  RUPT  IS  NEXT, 

0211 

REF 

2 

LAST 

574 

21,2303 

6 2406 

1 

AD 

0TS2CADR 

DO  THE  Q,R-AXIS  STATE  TRANSFORMATIONS 

0212 

21,2304 

0 0006 

1 

EXTEND 

AND  THE  20  MS  STATE  EXTRAPOLATION 

0213 

ref 

1 

21,2305 

1 2603 

1 

3ZF 

31M3AL 

0214 

REF 

38 

LAST 

572 

21,2306 

1 5733 

1 

TCF 

RESJME 

otherwise,  resume 

P0215 

SUBROJTINE  for  EILJ_£R  which  TA<ES  1 complement  NJMBeR  INTO  A 2 COMP. 

0216 

21,2307 

20  001 

1 

dnetotwo 

DDDJBL 

SEE  RTB  OP  CODES  IN  BANK  15  FOR  NOTES  ON 

0217 

REF^ 

251 

last 

518, 

21,2310 

10  000 

0 

CCS 

A 

THIS  computation. 

0218  REF  137  LAST  56l  21,2311  6 7763  1 AD  ONE 

0219  21,2312  1 231A  1 ICF  *2 

0220  21.2313  A 0000  0 ZQ^L 

0221  ref  21  LAST  57^  21,23lA  5A  065  0 TS 
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ozzz 

21>Z315 

1 2321 

J, 

rCF 

^ 

0223 

ref 

252 

last 

579 

21,2316 

50  000 

1 

INDEX 

A 

022A 

REF 

3 

LAST 

363 

21.2317 

3 7799 

1 

:af 

limits 

0225 

REF 

?? 

last 

579 

21.2320 

26  065 

0 

AfiS 

ITEMP5 

0226 

REF 

159 

LAST 

553 

21.2321 

0 0002 

0 

IC 

3 

return 

R0227 

THIS 

program 

_INITJjAL12E5  the  5ALMAN 

-LLTER 

PROGRAM.  _ 

0228 

REF 

3 

LAST 

57l> 

21.2322 

23*593 

1 FILFIRST  LXCH 

DAPTIME 

INITIALIZE  time. 

0229 

REF 

1 

21.2323 

3 2900 

1 

caf 

PQINT=90 

INITIALIZE  THE  WEIGHTING  VECTOR  POINTER 

0230 

REF 

5 

LAST 

57t> 

21.2329 

55*597 

1 

TS 

WPDInTER 

0231 

REF 

2 

LAST 

579 

21.2325 

3 2019 

0 

CAF 

MOSTPASS 

Set  up  For  next  passes 

. 0232 

ref 

3 

lAst 

575 

21.2326 

55*599 

1 

TS 

STEFRAdR 

0233 

21.2327 

0 0006 

1 

EXTEND 

SET  UP  POST  FILTER  RUPT  LIST 

023A 

REF 

1 

21.2330 

3 2909 

0 

OCA 

OGTSfADR 

0235 

REF 

6 

LAST 

57_5 

2_1j2  3 3_1 

51*575 

0 

OXCH 

PFRPTLST 

0236 

21.2332 

0 0006 

1 

EXTEND 

0237 

ref 

2 

last 

579 

21.2333 

3 2100 

1 

OCA 

PAX/fILT 

0238 

REF 

7 

LAST 

58° 

21.2339 

53*677 

1 

OXCH 

PFR?JLST._*2  _ 

0239 

21.2335 

0 0006 

1 

EXTEND 

02a0 

REF 

3 

LAST 

580 

21.2336 

3 2100 

1 

OCA 

PAX/fILT 

02A1 

ref 

8 

LAST 

58° 

21.2337 

53*603 

1 

OXCH 

PFRPTLST  +6 

02A2 

21.2390 

0 0006 

1 

EXTEND 

02a3 

ref 

3 

last 

579 

21.2391 

3 2907 

0 

oCA 

ST  S2cAoR 

02AA 

REF 

9 

LAST 

580 

21.2392 

53*601 

0 

OXCH 

PFRPTLST  +A 

02  AS 

21.2393 

0 0006 

1 

EXTEND 

CHANGE  POST  P FILTER  TO  FILTER 

02A6 

REF 

1 

21.2399 

3 2911 

1 

OCA 

POSTPFIL 

02A7 

REF 

3 

last 

99^ 

21.2395 

53*573 

0 

OXCH 

PFILTADR 

02A8  . 

REF 

3 

LAST 

578 

21.2396 

31*590 

1 

CAE 

STDRCDUY 

02A9 

21.2397 

0 0006 

1 

extend 

0250 

REF 

38 

LAST 

590 

21.2350 

7 7796 

1 

MP 

BITU 

0251 

REF 

3 

LAST 

579 

21.2351 

53*559 

0 

OXCH 

CDJYFIL 

INITIALIZE  the  STATE  VECTOR  TO  CDJ  VALUE 

02^2 

REF 

1 

21.2352 

31*591 

0 

CAE 

STORrDUZ 

0253 

21.2353 

0 0006 

1 

extend 

025A 

ref 

39 

LAST 

500 

21.2359 

7 7796 

1 

MP 

BIT19 

0255 

REF 

1 

21.2355 

53*556 

1 

OXCH 

CDJZFIL 

0256 

ref 

19A 

LAST 

576 

21.2356 

3 7767 

0 

CA 

ZERO 

0257 

21.2357 

1 2363 

1 

rcF 

+ 9 

RATES  initialized  BY  RATEINIT. 

0258 

ref 

3 

LAST 

579 

21.2360 

55*560 

1 

IS 

DCDJyFIL  +1 

0259 

REF 

1 

21.2361 

55*561 

0 

TS 

DCDJZFIL 

0260 

REF 

2 

LAST 

580 

21.2362 

55*562 

0 

TS 

DCDJ7FIL  +1 

02tl 

REF 

3 

LAST 

21.2353 

55*563 

1 

TS 

D2CD1JYFL 

0262 

ref 

A 

last 

580 

21.2369 

55*569 

0 

TS 

D2C0UYFL  +1 

0263 

REF 

1 

21.2365 

55*565 

1 

TS 

02CDUZFL 

026A 

REF 

2 

LAST 

500 

21.2366 

55*566 

1 

TS 

D2CDUZFL  *1 

02&5 

ref 

2 

last 

576 

21.2367 

55*567 

0 

TS 

Y3D3T 

0266 

ref 

1 

21.2370 

55*571 

1 

TS 

Z3D3T 

0267 

REF 

A 

LAST 

996 

21.2371 

55*523 

0 

IS 

NEGJQ 

0258 

REF 

A 

LAST 

522 

21.2372 

55*525 

0 

TS 

NEGJR 

YUL 

system  for  agc: 

REVISION 

0 OF  program  BURST12D  3Y  NASA  2021106-031 

dec  7,  1967  (Main)  page  58l 

L 

KALMA'Ii  filter  FOR  LM 

5AP 

USER'S  OWN  PAGE  NO.  8 S3  E6 

02683 

REF 

2 LAST  56  _ . 

. 21j2i73 

55*733  0 

15 

0A20OTMP  _ 

initialize  temporary  storage  For  oaccoqt 

02686 

0269 

ref 

REF 

1 

39  LAST  579 

21.237A 

21.2375 

5?«735  0 
1 5733  1 

TS 

rcF 

RACOOTMP 

RtSJME 

ANd  RACCDOT  values  coming  from  3Ts. 

0270 

21.7^76 

Z6366  I 

.66  _o££ 

.0.66000. 

0271 

0272 

0273 

21,2377 

21,2600 

21j2601 

16000  1 
00132  1 
37776  0 

BIT12-13  OCTAL 
P0INT=90  OEC 
MS20F_._  octal  _ 

l60on 

90 

377-76  . - 

POINTER  initialized  ONE  GROUP  PAST  END 

027A 

0275 

0276 

REF 

20  LAST  57T 

21,2602 

21,2603 

37775  0 
E6 

02566  0 

M530F  OCTAL 

EBAN<= 

_ OaTSFAOR  2CAQR 

37775 

OT 

OG.TS  . 

C0276 

0277 

0278 

REF 

REF 

REF 

1 

3 last  575 
21  i-AST  581 

21,2606 

21,2605 

62066  1 
02255  1 
- E6 

PAXISAOR  3ENA0R 
EBAN.<= 

PAXIa 

DT 

0279 
C0279 

0280 

ref 

REF 

1 

22  LAST  58l 

21,2606 

21,2607 

02572  0 
62066  1 
E6 

5TS2CA0R  2CADR 
EBAN<=. 

oTS 

01  _ _ 

0281 

C0281 

REF 

1 

21,2610 

21,2611 

02015  1 
62066  1 

POSTPFIL  2CADR 

FILTcR 
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P0282  the  <ALMaN  filter  WEIoHTINF  Vectors  AP,F_Ll_5I£D__,IA_XHE_f DLL0WTN!3_JABLf  along  with  the  TIMe^FROM  the  last  filter 

R028A  initialization  FOR  WHICH  tHeY  ARE  TO  Be  JSeD.  (THE  VECTORS  ARE  STORED  IN  ORDERED  TRIPLES  (W0.Wi,W2)  n 

R0286  DESCeHOING  0RD£R  IN  TIME  WITH  THE  STEADY  STATE  VAuUeS  AT  THE  TOP.) 

R0286A  START  CODING  FOR  MODJLt  3 REMA<E.  AUGUST  1967)HHt5lART  CODIN5FOR  MODULE  3 REMAKE*  AUGUST  1967<HHnnH**»*»»»»*«*)Ht» 

R02865  WEIGHrlNG„VECTO_R_S£l_L 07/26/67  _9JQ7  . 

R02B7  THE  COMPONENTS  Are  SCALeD  AS  FOLLOWS: 

R 0285 WO  ; SCALED  AT 2 

R0289  W1  ; scaled  at  32 

R029O  W2  : scaled  at  b 


0291 

21*2412 

02352 

1 

WVECTOR  DEC 

0.07A79 

WO 

AT 

RELATIVE 

TIME 

; 1.50 

SECS.  OR 

MORF 

0292 

21*2413 

00203 

0 

DEC 

0.00799 

W1 

AT 

relative 

TIME 

: 1.50 

SECS.  OR 

MORE 

0293 

21*2414 

00665 

1 

DEC 

0.02665 

W2 

AT 

RELATIVE 

TIME 

; 1.50 

SECS^  OR 

MORE 

O29A 

21,2415 

04136 

1 

DEC 

0.13072 

WO 

AT 

RELATIVE 

TIME 

: 1.45 

SECONDS 

0295 

21,2416 

00553 

1 

DEC 

0.02213 

W1 

AT 

RELATIVE 

TIME 

: 1.45 

SECONDS 

0296 

21.2417 

03154 

1 

DEC 

0_.  10086 

W2 

AT 

RELATIVE 

TIME 

i 1»45 

SECONDS 

0297 

21,2420 

04231 

0 

DEC 

0.13435 

. WO 

AT 

RELATIVE 

TIME 

: 1.40 

SECONDS 

0298 

21,2421 

00601 

0 

DEC 

0.02350 

Wl 

AT 

RELATIVE 

TIME 

: 1.40 

SECONDS 

0299 

21.2422 

03423 

1 

DEC 

0.11054 

W2 

AT 

RELATIVE 

TIME 

i 1.40 

SECONDS 

0300 

21,2423 

04330 

0 

DEC 

0.13816 

WO 

AT 

RELATIVE 

time 

: 1.35 

SECONDS 

0301 

21,2424 

00631 

0 

DEC 

0.02499 

Wl 

at 

RELATIVE 

time 

: 1.35 

SECONDS 

0302 

21.2425 

03707 

1 

DEC 

o_.  12154 

W2 

AT 

RELATIVE 

TIME 

: 1.35 

SECONDS 

0303 

21,2426 

04431 

0 

DEC 

0.14215 

WO 

AT 

RELATIVE 

time 

: 1.30 

SECONDS 

0304 

21,2427 

00664 

0 

DEC 

0.02662 

Wl 

AT 

RELATIVE 

TIME 

: 1.30 

seconds 

0305 

21,2430 

0^,224 

1 

DEC 

O.I34O3 

W2 

at 

RELATIVE 

TIME 

: 1.30 

SECONDS 

0306 

21,2431 

04535 

0 

DEC 

0.14632 

WO 

at 

RELATIVE 

TIME 

: 1.25 

SECONDS 

0307 

21,2432 

00721 

0 

DEC 

0.02841 

Wl 

AT 

RELATIVE 

TIME 

: 1.25 

seconds 

0308 

21,2433 

04575 

1 

DEC 

D.l4fl26 

W2 

at 

RELATIVE 

TIME 

; 1.25 

seconds 

0309 

21,2434 

04644 

0 

DEC 

0.15066 

WO 

AT 

RELATIVE 

TIME 

: 1.20 

seconds 

0310 

21,2435 

00761 

1 

DEC 

0. 03035 

Wl 

AT 

RELATIVE 

TIME 

: 1.20 

seconds 

0311 

21.2436 

05207 

1 

DEC 

0.16446 

W2 

AT 

RELATIVE 

TIME 

: 1.20 

SECONDS 

0312 

21,2437 

04756 

1 

DEC 

0.15516 

WO 

AT 

RELATIVE 

TIME 

: 1.15 

SECONDS 

0313 

21,2440 

01024 

0 

DEC 

0.03247 

Wl 

AT 

relative 

TIME 

: 1.15 

SECO'IDS 

0314 

21,2441 

05665 

1 

DEC 

0.18293 

W2 

AT 

RELATIVE 

TIME 

! 1.15 

SECONDS 

0315 

21,2442 

05072 

1 

DEC 

0,15980 

WO 

AT 

relative 

TIME 

: 1. 10 

SECONDS 

0316 

21,2443 

01072 

0 

DEC 

0,03477 

Wl 

AT 

RELATIVE 

TIME 

: 1.10 

SECONDS 

0317 

21,2444 

06416 

1 

DEC 

0.20395 

W2 

AT 

RELATIVE 

time 

; 1.10 

seconds 

0318 

21,2445 

05207 

1 

DEC 

0.16452 

WO 

AT 

RELATIVE 

TIME 

: 1.05 

seconds 

0319 

21,2446 

01142 

1 

DEC 

0.03726 

Wl 

AT 

RELATIVE 

time 

: 1.05 

seconds 

0320 

21,2447 

07224 

1 

DEC 

0.22781 

W2 

AT 

RELATIVE 

TIME 

1 1.05 

SECONDS 

0321 

21,2450 

05325 

0 

DEC 

0,16926 

WO 

AT 

RELATIVE 

TIME 

: 1. 00 

seconds 

0322 

21,2451 

01216 

0 

DEC 

0,03991 

Wl 

at 

RELATIVE 

time 

: 1,00 

seconds 

0323 

21,2452 

10116 

0 

DEC 

0.25475 

W2 

AT 

RELATIVE 

TIME 

: 1.00 

seconds 

0324 

21,2453 

05442 

0 

DEC 

0. 17393 

WO 

AT 

RELATIVE 

TIME 

; 0.95 

seconds 

0325 

21,2454 

01274 

1 

DEC 

0,04272 

Wl 

AT 

RELATIVE 

TIME 

: 0.95 

SECONDS 

0326 

21,2455 

11073 

0 

DEC 

0.28488 

W2 

at 

RELATIVE 

TIME 

: 0.95 

SECONDS 

0327 

21,2456 

05553 

1 

DEC 

0.17839 

WO 

AT 

RELATIVE 

TIME 

: 0.90 

seconds 
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0328 

_ 21.2957 

0L353 

0 

_.  DEL 

. 0.,  0.9  562  

. W1 

.AT 

RELATIVE 

TIME 

0.90 

SECO'IOS 

0329 

21.2960 

12139 

1 

OEC 

0.31809 

W2 

AT 

relative 

TIME 

0.90 

StCDvos 

0330 

21.2961 

05656 

1 

DEC 

0.18297 

WO 

AT 

RELATIVE 

TIME 

0.85 

SECDviOS 

0331 

__  21i29j62 

01933 

1 

...  DEC  . 

- 0.09853 

W1 

AT 

RELATIVE 

time 

0.85 

SECJ'VDS 

0332 

21,2963 

13295 

0 

3EC 

0.35383 

W2 

AT 

RELATIVE 

time 

0.85 

SEtOvDS 

0333 

21,2969 

05797 

0 

DEC 

0.18597 

WO 

AT 

RELATIVE 

TIME 

0.80 

SECDmDS 

0334 

Zlj^2k&5 

01.5.11 

0 . .. 

. DEC. 

0.05132- 

..Wl 

AT 

RELATIVE 

TIME 

0.80 

SECOvDS 

0335 

21,2966 

19909 

1 

3EC 

0.39087 

W2 

AT 

RELATIVE 

TIME 

0.80 

SECOvOS 

0336 

21,2967 

06023 

0 

3EC 

0.18867 

WO 

AT 

RELATIVE 

TIME 

0.75 

SECDmDS 

0337 

_ 21, 2970 

01561 

1 

3ECL 

O.O5380 

Wl 

AT 

RELATIVE 

TIME 

0.75 

SECONDS 

0338 

21,2971 

15529 

0 

DEC 

0.92701 

W2 

AT 

RELATIVE 

TIME 

0.75 

seconds 

0339 

21,2972 

06060 

1 

3EC 

0,  1 9fi90 

WO 

AT 

RELATIVE 

TIME 

0.70 

SECONDS 

0390 

21j2973_  _ 

03.622. 

0 

DEC 

.0.05576 

...Wl. 

AT 

RELATIVE 

time 

0.70 

SECONDS 

0391 

21,2979 

16535 

0 

3EC 

0.95880 

W2 

AT 

RELATIVE 

TIME 

0.70 

seconds 

0392 

21,2975 

06079 

1 

3EC 

0.191 17 

WO 

AT 

RELATIVE 

TIME 

0.65 

seconds 

0393 

_ 21,297.6 

01696 

1 

3EC 

0.05698 

Wl 

AT 

RELATIVE 

TIME 

0.65 

SECONDS 

0399 

21,2977 

17323 

0 

3EC 

0.98160 

W2 

AT 

RELATIVE 

TIME 

0,65 

seconds 

0395 

21,2500 

06076 

0 

3EC 

0.19127 

WO 

AT 

RELATIVE 

TIME 

0.60 

SECONDS 

0396 

21,2501 

01659 

1 

3E^C 

0.05736 

Wl 

AT 

RELATIVE 

time 

0.60 

SECONDS 

0397 

21,2502 

17536 

1 

3EC 

0.99013 

W2 

AT 

RELATIVE 

time 

0.60 

SECONDS 

0398 

21,2503 

06100 

0 

3EC 

0.19192 

WO 

AT 

RELATIVE 

TIME 

0.55 

SECONDS 

0399 

21,2509 

01696 

1 

3EC  . 

. .0.05702 

Wl 

AT 

RELATIVE 

TIME 

0.55 

SECONDS 

0350 

21,2505 

17266 

0 

3EC 

0.97989 

W2 

AT 

RELATIVE 

TIME 

0.55 

seconds 

0351 

21,2506 

06126 

1 

3EC 

0.19273 

WO 

AT 

RELATIVE 

TIME 

0.50 

SECONDS 

0352 

21^2507 

.01635. 

0 

3EC 

0.05699 

Wl 

AT 

RELATIVE 

TIME 

0.50 

SECONDS 

0353 

21,2510 

16267 

0 

3EC 

0.99869 

W2 

AT 

RELATIVE 

TIME 

0,50 

SECONDS 

0359 

21,2511 

06225 

1 

3EC 

0.19660 

WO 

AT 

RELATIVE 

TIME 

0.95 

seconds 

0355  - 

21,2512 

01636 

0 

3EC 

0.05699 

Wl 

AT 

RELATIVE 

time 

0.95 

seconds 

0356 

21,2513 

19600 

1 

3EC 

0.39895 

W2 

AT 

RELATIVE 

TIME 

0.95 

seconds 

0357 

21,2519 

06925 

1 

3EC 

0.20993 

WO 

AT 

RELATIVE 

TIME 

0,90 

seconds 

0358 

21,2515 

01679 

0 

3EC 

0,05837 

Wl 

AT 

RELATIVE 

TIME 

0,90 

seconds 

0359 

21,2516 

12552 

0 

3EC 

0.33958 

W2 

AT 

RELATIVE 

TIME 

0,90 

SECONDS 

0360 

21,2517 

06753 

0 

3EC 

0.21796 

WO 

AT 

RELATIVE 

TIME 

0.35 

SECONDS 

0361 

21,2520 

02022 

0 

3EC 

0,06360 

Wl 

AT 

RELATIVE 

TIME 

0.35 

SECONDS 

0362 

21,2521 

10356 

0 

3EC 

0.26952 

W2 

AT 

RELATIVE 

TIME 

0.35 

SECONDS 

0363 

21,2522 

07997 

1 

3EC 

0.23678 

WO 

AT 

RELATIVE 

TIME 

0.30 

SECONDS 

0369 

21,2523 

02300 

0 

3EC 

0.07919 

Wl 

AT 

RELATIVE 

TIME 

0.30 

seconds 

0365 

21,2529 

06209 

1 

3EC 

0.19555 

W2 

AT 

RELATIVE 

TIME 

0.30 

SECONDS 

0366 

21,2525 

10390 

1 

3EC 

0.26366 

WO 

AT 

RELATIVE 

TIME 

0.25 

SECONDS 

0367 

21,2526 

02767 

0 

3EC 

0.09322 

Wl 

AT 

RELATIVE 

TIME 

0,25 

SECONDS 

0368 

21,2527 

09210 

0 

3EC 

0,13332 

W2 

AT 

RELATIVE 

TIME 

0.25 

SECONDS 

0369 

21,2530 

11961 

1 

3EC 

0.29988 

WO 

AT 

RELATIVE 

TIME 

0,20 

SECOmDS 

0370 

21,2531 

09030 

0 

3EC 

0 ..12695 

Wl 

AT 

RELATIVE 

TIME 

0.20 

SECONDS  . _ .. 

0371 

21,2532 

02966 

1 

3EC 

0.08199 

W2 

AT 

RELATIVE 

TIME 

0.20 

SECONDS 

0372 

21,2533 

13107 

0 

3EC 

0,39809 

WO 

AT 

RELATIVE 

time 

0.15 

seconds 

0373 

21,2539 

05760 

0 

3EC 

0.18652 

Wl 

AT 

RELATIVE 

TIME 

0.15 

SECONDS 

0379 

21,2535 

01255 

1 

3EC 

0.09182 

W2 

AT 

RELATIVE 

TIME 

0.15 

SECONDS 

0375 

21,2536 

15119 

1 

3EC 

0,91088 

WO 

AT 

RELATIVE 

TIME 

0,10 

seconds 

0376 

21,2537 

11619 

1 

3EC 

0,30592 

Wl 

AT 

RELATIVE 

TIME 

0,10 

seconds 

0377 

21,2590 

003  72 

1 

3EC 

0.01526 

W2 

AT 

RELATIVE 

TIME 

0.10 

seconds 

633436A  YUL  SYSTEM  FOR  Agc:  REVISION  0 OF  PROGRAM  BURST12D  BY  NASA  2021106-031 


DEC  7»  1967  (MAIN)  PAGE  58A 


L 

KALMAN,  filter  FOr  LM  DAP 

USER»S  OWN  PAGE  NO, 

11 

i 

0378 

_21,25jA1. 

.l72iA  1_ 

DEC 

_ Q♦-A7a^5 

Wi),_AT  RELATIVE  TIME  : 

0.05 

SECONDS 

0379 

21,Z5A2 

22205  0 

DEC 

0.57O6A 

wi  at  relative  time  j 

0.05 

seconds 

0380 

2i,25A3 

00035  1 

DEC 

0.0017A 

W2  AT  RELATIVE  TIME  ; 

0.05 

SECONDS 

R03805  »*END  coding  for  mod JtE  _3__REMA<Ej  AUGUST  1967a»»»»END  CODING,  FOR  MODULE  3 REMAKE,  AUGUST  l967*********»»*»»)HtiHm 


633i,36A  YUl  SYSTEM  TOR  *GC:  REVISION  0 OF  PROGRAM  BURST12D  3Y  NASA  2021106-031 


DEC  7.  1967  (MAIN)  PAGE  585 


P0381 

0382 

0383 
03833 
03836 
03839 

038A 

0385 

0386 

0391 

03911 

03912 

03913 
039U 

0392 

0393 

R039A 

0395 

0396 

0397 
C0397 

0398' 

0399 

OAOO 

0A003 

0^005 

OAOl 

OttOZ 

OA03 

0A0301 

0A0302 

ROA0305 


R0A0309 

R0A0312 

0A0315 

0A0318 

OA0321 


<almam  Filter  for  lm  oap  user's  okn  page  no.  12  S3  E6 


pUVIMY  trim  r.lMBAL  RUJT; 


REF 

2 

LAST 

57A 

21 »25A4 

3 2A01  0 

Dots  :af 

MS20F 

RESET  timer  IMMEDIATELY  - DT  : 20MS 

REF 

12 

LAST 

57A 

21.2EA5 

5A  030  0 

TSl  . - 

TLME5  - - 

REF 

16 

LAST 

57A 

21.25A6 

22  016  0 

-XCH 

BANKRUPT 

INTERRUPT  LEAD  IN  (CONTINUED) 

21.25A7 

0 0006  1 

EXTEND 

ref 

LAST 

57A 

- 21.25M 

-22-  012  1 

3X-CH- 

3RJ-3T  - 

21.2551 

0 0006  1 

EXTEND 

SET  UP  FILTER  RUPT 

ref 

2 

last 

58-0 

-21.2552 

-3  24  U 1 

OCA 

POSTpFiL 

REF 

16 

LAST 

579 

21.2553 

53.001  0 

DXCH 

T5ADR 

REF 

2 

LAST 

58l-  . 

21 .255A 

4 1735  0 

:s 

RACDOTMP 

STORE  NEW  values  OF  QACCDOT.  RA'CDOT  NOrt 

ref 

2 

LAsT 

A9S 

21.2555 

55*535  1 

TS 

RACCoOT 

That  loo  ms  have  passed,  (remember  that 

REF 

3 

LAST 

58l 

21.2556 

4 1733  0 

cs 

OACDOTMP 

THESE  are  stored  COMPLEMENTED.) 

ref 

3 

LAST  _5iZ 

- 21.2557 

55*533  1 

IS 

OA-CCDQT  

REF 

AO 

LAST 

58I 

21.2560 

1 5733  1 

rcF 

resume 

REF 

-23 

LAST 

5Bl 

F6 

FBAN<= 

DT 

20.3030 

3AN< 

20 

DUMMY  FILTER- HJPT.  AFTER  Q*R-AXES  RUPT! 


20,3030 

37775 

0 

M530120 

OCTAL 

3777s 

REF 

7 LAST 

529 

E6 

-BANKS 

TDR 

20,3031 

02255 

1 

PAXBNK20 

2CADR 

PAXIS 

REF 

4 

LAST 

581 

20,3032 

34066 

0 

REF 

1 

20,3033 

3 3030 

1 

FILDUMMY 

:af 

MS301-20 

RESET  TIMER  IMMEDIATELY  - DTs  30  MS 

REF 

13 

LAST 

585 

20,3034 

54  030 

0 

rs 

TIMES 

REF 

17 

LAST 

585 

20,3035 

22  016 

0 

.XCH 

BANKRUPT 

INTERRUPT  LEAD  IN  (CONTINUED) 

20,3036 

0 0006 

1 

EXTEND 

SAVE  THE  LAST  U ON  ALL  T5PUPT  LEAD  IN'S 

ref 

-15 

LAST 

585 

20,3037 

22  012 

1 

3XCH 

DRJPT 

20,3040 

0 0006 

1 

extend 

SET  UP  PAxlS  RUPT 

ref 

1 

20,3041 

3 3032 

0 

DCA 

PAX3NK20 

REF 

17 

LAST 

585 

20,3042 

53*001 

0 

DXCH 

T5ADR 

rEf 

1 

20,3043 

0 3106 

0 

TC 

TDRDUEVK 

REF 

41 

LAST 

585 

20,3044 

1 5733 

1 

rcF 

RESUME 

START  CODING  FOR  MODULE  3 REMA<E,  AUGUST  1 967)Ht* S T ART  CODING  FOR  MODULE  3 REMAKE.  AUGUST  IRET******************* 


CODING'  FOR  RATE  HOLD  MODE  WRITTEN  OVER. 


FRdM  eNGINOFi,  MAKE- 5UR£  FLAGS  FOR-  EXTRAORDINARY  GtS  ARF  D-'iuin. 


REF 

REf 

5 LAST  479 
35  1-AST  523 

20.3045 

20.3046 

3 5632 
56  003 

0 

1 

RESETCTR  CA 
xru 

EBANK6 

FRANK 

SAVE 

CALLERS  EBANK. 

REF 

8 LAST  478 

20,3047 

54  066 

0 

IS 

1TEMP6 

SAVE 

L IN  CASE  THIS  WAS  1STENG0-. 

633^i36A  YUL  SYSTEM  FOR  AGC!  REVISION  0 OF  PROGRAM  BURSII23  BY  NASA  2021106-031 


DEC  7,  1967  (MAIN)  PAGE  586 


L <ALMA(J,  filter  for  LM  3AP  USER'S  OWN  PAGE  NO.  13  S3  E6 


040324 

ref 

1 1 LAST 

557 

20,3050 

3 7745 

0 

_EA£ 

Negmax 

0A0327 

REF 

5 

LAST 

522 

20,3051 

55'7A4 

0 

TS 

TRIMrNTR 

0A033 

REF 

195 

LAST 

580 

20,3052 

3 7767 

0 

:af 

ZERO 

040333 

REF 

J3 

last 

5?2 

20,3053 

55*745 

I . 

_L5 

j 1 by^Ml  I K 

0A0336 

ref 

9 

LAST 

585 

20,3054 

3 0066 

1 

:a 

ITEMP6 

RESTORE  CALLERS  EBANK. 

040338 

REF 

36 

LAST 

585 

_ 20j3_055  ^ 

54  _003 

0 - 

IS  _ 

_EBAN1£l.__  _ . 

0A035 

REF 

2 30 

last 

5S0 

20,3056 

0 0002 

0 

IC 

3 

return  to  caller  of  ENGINOFF  OR  ENGINOFl 

R0A0352 

FROM 

APSENGO^ 

1 - : 

STORE  IGNITION  TIME  FOR 

THe 

ENGINoFF  delay  LOGIC. 

o 

o 

U2 

U1 

REF 

6 

LAST 

481 

20,3057 

„55  _*  3_i  Q 

0 

20INSRTA 

IS. 

dvselect 

STORE  PGNSCADR  IN  DVSeLeCT 

0A0356 

20,3060 

0 0006 

1 

extend 

0A0358 

REF 

20 

LAST 

523 

20j3061 

3 0025 

0 

5CA 

TIME2_  

store  current  time  in  /TEMP3/ 

0A036 

REF 

2 

LAST 

523 

20,3062 

53*760 

0 

DXCH 

/TEMP3/ 

OA0362 

REF 

1 

20,3063 

1 2204 

1 

rcF 

20INSRT  +1 

RoA036A 

FROM 

rNGINoFF 

■ - 1 

prepare  for  transfer 

TO 

the 

eNoIndff  Delay  logic. 

OA0366 

20i3064 

0 0006 

L 

20INSRTB 

extend 

SAVE  Q FOR  AN  INDEFINITE  TIME  - IT 

0A0368 

REF 

3 

LAST 

522 

20,3065 

22  376 

0 

DXCH 

/TEMPI/ 

points  to  SWRETURN  OR  ISWRETRN. 

0A037 

REF 

6 

LAST 

585 

2 0 ♦ 3066 

3 5632 

0 

CAF 

EBANK6 

040372 

REF 

37 

LAST 

586 

20,3067 

56  003 

1 

XCH 

EBANX 

GO  TO  EBANX  6 AND  STORE  CALLERS  E3AN<. 

040374 

REF 

2 

LAST 

523 

20,3070 

55'756 

0 

TS 

/TEMP2/ 

040376 

ref 

4 

LAST 

523 

20,3071 

3 1763 

1 

:a 

TMInAPS 

IF  TmInAps  is  negative  OR  ZERO  DO  NOT 

040378 

20,3072 

0 0006 

1 

EXTEND 

delay  the  ENGINOFF  CALL. 

04038 

REF 

1 

20,3073 

6 3076 

0 

3ZMF 

20IN5RTC 

040381 

REF 

34 

LAST 

523 

20,3074 

0 5225 

1 

TC 

POSTUUMP 

4TMINAPS  OK,  DUMP  TO  THE  DELAY  i.OGICx 

040382 

REf 

1 

20,3075 

36173 

1 

:aor 

I7INSRT 

040383 

REF 

3 

LAST 

586 

20,3076 

3 1756 

1 

23INSRTC 

:a 

/TEMp2/ 

RESTORE  EBANK  AND  RETURN  TO  ENGINDFF. 

040384 

REF 

38 

LAST 

586 

20,3077 

54  003 

0 

TS 

EBANX 

040385 

REF 

3 

LAST 

523 

20,3100 

1 2264 

1 

TCF 

ENGINOFF  +1 

R040386 

following  coding 

Left  in  place  to  preserve 

relative  ADDRESSEc. 

040392 

REF 

6 

LAST 

492 

20,3101 

54  771 

1 

TS 

DELCDUX 

IF  0,  DONE  DELCDUY  AND  ZERO  DELCDUX. 

0404 

ref 

2 last 

585 

20,3102 

0 3105  0 

♦5 

TC 

lORStjEVK 

040401 

ref 

42  LAST 

585 

20,3103 

1 5733  1 

TCF 

RESUME 

OAOA()2  REF'  32  LAST  53A  20,3l0A  0 A736  1 TC  CCSHOLE 


RQAOAI  »*EN3  COOING  FpR  MODULE  3 REMA<E.  AUGUST  1967)OHtintEND  COOlNS  FOR  MODULE  3 REMAKE.  AUGUST  1967)HnnHHt**»)'iHtiHHKiHUt 


533<.36A 

YUL  system  tor  AGC:  revision  O QF  program  BURST12D  8Y  NASA  2n2110fe-031 

DEC  7. 

1967 

(MAIN) 

PAGE 

587 

L 

P04049 

<ALMA\|,  filter  for  LM  3Ap 

this  SJBROUTINE^COMPJ'TES  JET_  torque  _CONlRlfcUlX3N_i:fi_SAt£ 

USER'S  Own  page 

NO< 

U 

S3 

E6 

0A0A99 

0A05 

0A06 

REF 

REF 

8 

1 

LAST 

585 

20.3105 

20.3106 

20.3107 

4 1612 
6 3213 
' 0 QQ06 

1 

1 

JL 

tDroueyc  :s 

AD 

-XTEND 

tqr 

CSPImKF 

tqr  IS  scaled  the  same  As  time  6 

0A07 

ref 

1 

20,3110 

6 3126 

1 

3ZMF 

FJLLCSP 

0A08 

REF 

9 

LAST 

587 

20,3111 

3 1612 

0 

:a 

T3R 

0<»09 

2a,.31.12. 

FXTFND 

0410 

REF 

25 

LAST 

493 

20,3113 

7 7757 

1 

MP  . 

BITS 

0411 

REF 

124 

LAST 

57V 

20,3114 

30  001 

0 

CAE 

L 

0412 

20,3115 

0 0006 

1 

=XTFN0 

0413 

REF 

1 

20,3116 

7 3210 

0 

MP 

16/2SKF 

0414 

REF 

10 

LAST 

587 

20,3117 

55'612 

1 

TS 

TQR 

04141 • 

Z0,312Q 

0 0006_i_ 

EXTEND 

04142 

ref 

10 

lAst 

566 

20,3121 

22  066 

1 

3XCH 

1 T EMd6 

0415 

REF 

1 

20,3122 

0 3140 

1 

TC 

JETTSUB 

0416 

REF 

196 

LA5L5A6 

?0  • 1 

3 7767 

.0 

..  . ...C&f 

ZERO 

0417 

ref 

11 

LAST 

567 

20,3124 

55*612 

1 

TS 

TJR 

0418 

REF 

11 

LAST 

587 

20,3125 

0 0066 

1 

TC 

ITEMP6 

RETURN  TO  TORQUEVX  CALLER 

0419 

20,3126 

4 0000 

0 

FJlLCSR  cDM 

WE  COME  HERE  WHEN  TQR  GREATER  TRAN  .ISEC 

0420 

ref 

34 

LAST 

533 

20,3127 

54  062 

1 

TS 

ITEMP2 

0421 

REF 

1 

20,3130 

3 3211 

0 

CA 

CSPATl 

CSP  (.1  SEC)  SCALED  AT  1. 

04211 

REF 

12 

LAST 

587 

20j3131 

55'612 

1 

TS 

TOR 

TEMPORARY,  LATER  TQR:.1=TUR 

04212 

20,3132 

0 0006 

1 

EXTEND 

04213 

REF 

12 

last 

587 

20,3133 

22  066 

1 

3XCH 

I TEMd6 

0422 

ref 

2 

LAST 

587 

20,3134 

0 3140 

1 

TC  . 

JETTsUB 

0423 

REF 

35 

LAST 

587 

20,3135 

30  062 

0 

CAE 

ITEMP2 

0424 

REF 

13 

LAST 

587 

20,3136 

55*612 

1 

TS 

TQR 

0425 

REF 

13 

LAST 

587 

20,3137 

0 0066 

1 

TC 

ITEMP6 

RETURN  TO  TORQUEVK  CALLER. 

R04251 

A SIJ3T0UT1NE 

WHICH 

,gwen  tor 

scaled  AT 

1,  FINDS  JeTRATE 

AND  SUMRATE. 

0426 

20,3140 

0 0006 

1 

JETTSU3  EXTEND 

0427 

REF 

5 

LAST 

561 

20,3141 

7 1607 

0 

MP 

NO.Q  lETS 

0428 

ref 

125 

LAST 

587  , 

.20,3142 

30  001 

0 

CAE 

L 

0429 

20,3143 

0 0006 

1 

EXTEND 

0430 

ref 

1 

20,3144 

7 1614 

1 

MP 

1 JACfQ 

0431 

REF 

3 

LAST 

520 

20,3145 

55*605 

1 

TS 

JETRATEQ 

temp  STORE  OF  ACCxNJETSwTQR  FOR  Q AXIS. 

0A32 

REF 

3 

LAST 

517 

20,3146 

27*624 

1 

ADS 

SJMRATEQ 

SUMRATE  =SUMRATE+ACC*NJETS«TQR,  WHICH  IS 

0433 

ref 

14 

lAst 

587 

20,3147 

31*612 

0 

cae 

tqR 

The  accumulated  jet  firing  a:-,  over 

0434 

20,3150 

0 0006 

1 

e:xtend 

A TWO  SECOND  INTERVAL. 

0435 

REF 

LAST 

562 

20,3151 

7 1610 

0 

MP 

NO.R.lETS 

SAME  AS  ABOVE  FOR  R AXIS  THIS  TIME. 

0436 

REF 

126 

LAST 

587 

20,3152 

30  001 

0 

CAE 

L 

0437 

20,3153 

0 0006 

1 

EXTEND 

0438 

ref 

1 

20,3154 

7 1615 

0 

MP 

1 JACrR 

0439 

REF 

3 

LAST 

520 

20,3155 

55*606 

1 

TS 

JETRATER 

0440 

REF 

2 

LAST 

517 

20,3156 

27*625 

0 

ADS 

SJMRATER 

633(,36A  ylJL  SYSTEM  FOR  *GC;  REVISION  0 OF  pROoRAM  BURSI123  6y  NASA  2021106-031 
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L <ALMft\|,  filter  for  LM  DAP  USER'S  OWN  PAGE  NO,  15  S3  E6 


0A4O02 

rEf 

7 

LAST 

517 

20»3157 

- U '.732 

1 

ccs_ 

AosrnuwT 

_ _TE6.r  TO_SEE  IF  AOSTASK  TS  COMING.  JP! 

044004 

REF 

1 

20,3160 

1 3167 

0 

tcf 

WATERATE 

NO,  SKIP. 

044006 

REF 

4 

last 

58  ? 

2:o,jxti 

4 1605 

1 

cs 

J£.T  RATED 

remove  the  mosj  recent  jetrates  frovlthe 

044008 

REf 

3 

LAST 

517 

20,3162 

55*622 

1 

TS 

SAyRATEO 

SUMRATEs  and  SET  UP  INITIALIZATION  OF 

04401 

REF 

4 

LAST 

587 

20,3163 

27*624 

1 

ads 

SJMRATEQ 

THE  SUMRATES  FOR  THE  NEXT  2 SECOND 

044012 

REF 

4 

LAST 

587 

20,3164 

4_16La6_ 

.1 

:s 

JETRAT£R 

INTERVAL.  (SAVED  AS  NEGATIVESjJ 

044014 

REF 

2 

LAST 

517 

20,3165 

55*623 

0 

rs 

SAVRATER 

044016 

REF 

3 

LAST 

587 

20,3166 

27*625 

0 

ADS 

SJMRATER 

0441 

REF 

5 

LAST 

520 

20,3167 

31*641 

0 

WAtERATE 

:a£ 

WFDRqR 

wforqr  is  scaled  at  16  but  the  algorithm 

0442 

20,3170 

0 0006 

1 

extend 

USES  W/2  THUS  THE  SCALING  IS  3 HERE. 

0443 

REF 

15 

LAST 

587 

20,3171 

7_  16.12 

1 

VIP 

TJR 

0444 

REF 

3 

LAST 

495 

20,3172 

6 1643 

1 

AD 

(1-0/8 

THE  algorithm  IMPLEMENTED  IS.... 

0445 

20,3173 

0 0006 

1 

EXTEND 

JETRATE  = TQR»NJET4ACC»(1-K+W»T3R/2) 

0446 

REF 

34 

LAST 

557 

20,3174 

7.  7760. 

0 

VlP 

. 3IJ4_  

FOR  the  Q and  R axes  RESPECTIVELY. 

0447 

REF 

70 

LAST 

533 

20,3175 

22  061 

0 

.XCH 

ITEMdI 

THE  FINAL  SCALING  OF  JETRATE  U PI/4. 

0448 

REF 

5 

LAST 

588 

20,3176 

31*605 

0 

CAE 

JETRATEQ 

0449 

20,3177 

0 0006 

1 

EXTEND 

0450 

REf 

71 

last 

588 

20,3200 

7 0061 

1 

vlP 

ITEvlpl 

0451 

REF 

6 

LAST 

588 

20;3201 

55*605 

1 

rs 

JETRATEQ 

0452 

REF 

5 

LAST 

_5_88 

20,3202 

31*606 

0 

CAE 

JETRATER 

0453 

20,3203 

0 0006 

1 

EXTEND 

0454 

REf 

72 

last 

588 

20,3204 

7 0061 

1 

v)P 

IlEviPl 

0455 

REF 

6 

LAST 

688 

20,3205 

55*606 

1 

TS 

JETRaTER 

0456 

ref 

201 

LAST 

586 

20,3206 

0 0002 

0 

TC 

Q 

04566 

20,3207 

00632 

0 

lOOMSCAL 

DEC 

0.025 

0457 

20,3210 

24366 

1 

16/25KF 

DEC 

0.64000 

0458 

20,3211 

03146 

1 

CSPATl 

DEC 

0.10000 

04585 

20,3212 

77754 

1 

-DELAYT 

DEC 

-19 

-11.875  MS  SCALED  AS  TIME6. 

0459 

20,3213 

00240 

1 

C5P1NKF 

DEC 

0.00O77 

633t,ib>^ 

YUL 

system  for  ''gc:  revision 

0 OF  PROGRAVI  BURSTlED  BY  NASA  2n21106-031 

DEC  7,  1967  (MAIN)  PAGE  539 

L 

KALMAM 

filter  for 

LM  3AP 

USER'S  ONN  PAGE  NO.  16  S3  E6 

P095901 

this 

IBRUPT 

TA<tS 

TH?  SgUARF  root  -AND  CALLS-  JOiOJEV_< 

6^5902 

REF 

2 

last 

585 

20,3219 

3 3030 

1 

03RUTDJM  CAF 

MS301 20 

FILDUMMY  ENTRY  EVERY  TIME  WE  DO  S3.  ROOT 

0't590A 

REF 

19 

LAST 

585 

20,3215 

59  030 

0 

ts 

TIMES 

0^15906 

REF 

16 

LAST 

585 

20.3216 

23  016 

0 

_XCH 

3ANCRUPT 

095908 

20,3217 

0 0006 

1 

EXTEND 

09591 

REF 

16 

LAST 

585 

20,3220 

22  012 

1 

3XCH 

3RJPT 

095912 

20,3221 

0 0006 

1 

EXTEND 

095919 

ref 

2 

last 

585 

20,3222 

3 3032 

0 

5CA 

PAX3NK20 

095916 

ref 

18 

LAST 

585 

20,3-223 

SJL'OOL 

_0 

iXC-H 

T5ADR 

095918 

20,3229 

0 0006 

1 

EXTEND 

09592 

ref 

7 

1 AaT 

551 

20,3225 

9 1512 

-JL 

3CS 

TERMb 

095922 

REF 

21 

last 

515 

20,3226 

0 5270 

1 

TC 

IBN<CALL 

095929 

REF 

2 

LAST 

5O8 

20,3227 

59525 

1 

CADR 

DAPSORT 

095926 

ref 

22 

LAST 

55 1 

20,3230 

6 L510 

1 

AD- 

TERMA 

095928 

20,3231 

6 0000 

1 

3DJBLE 

RESCALE  TO  T6  SCALING 

095929 

20,3232 

0 0006 

1 

EXTEND 

09593 

ref 

1 

_ 2-0,3233 

7 32^^ 

1 

•1P_ 

25-4i7K.F 

095932 

ref 

16 

LAST 

588 

20,3239 

55'6l2 

1 

TS 

T3R 

095933 

REF 

1 

20,3235 

6 3212 

0 

AD 

-OELAYT 

TOR  SHOULD  HOLD  THE  COMPLETE  ON. TIME. 

095939 

REf 

21 

last 

530 

20,3236 

55'975 

1 

TS 

tdfjtchg 

095936 

ref 

3 

LAST 

586 

20,3237 

0 3105 

0 

TC 

T0R3UEVK 

095938 

ref 

2 

LAST 

53 1 

20jl32-90- 

31*659 

1 

CAE-  - 

CH5T-FMP 

09599 

ref 

15 

last 

560 

20,3291 

7 1971 

0 

vlAS< 

JTSOfjNOW 

095992 

REF 

35 

LAST 

586 

20,3292 

0 5225 

1 

rc 

POSTJUMP 

- 095999 

ref_ 

20,3293 

365-00 

1 

caor 

F-ROMROOT 

0^59‘t6 


20,32^4  31000  0 25/32<F  3EC 


0.78125 


633436A 

YUL  SYSTEM  FOR  Agc ; REVISION 

0 OF  PROGRAM  BURST120  BY  NASA  2021106-031 

DEC 

7,  1967  (MAIN)  PAGE  590 

L 

<ALMAM,  filter  R“R  LM  DAP 

USER*S  own  page  NO.  17  S3  E6 

P0460 

SOBROJTINE!  DXSPDiaV_ 

MOD^  -NO-.— 0 -DA.tXX-N0V-£iiS-E8— 1-4-*  -L966 

R0A61 

AUtHOTI;  JONATHAN  0,  AODeLSTON 

(ADAMS  ASSOCIATES) 

RoA62 

R0464 

R0466 

this  subroutine  Sets  tHe  icdu  drive  bits  eVeRV  other  time  It  is  called. 
"DISP-ACt"  to  indicate  the  passing  of  100  MS,  SINCE  this  flag  is  tested 
tHf  icdu  is  driven  ONLY'  An  MS  AFTER  "EIGHTBAL"  ENABLED  IT. 

IT  ALWAYS  changes  tHe  VALUg  OF 
BY  "eIGHtBAL"  in  THe  P-AXIS  tsRupt. 

R0467 

calling  sequences  (F^OM  "DUMMYFIL"  and 

"FILTER") : 

A0468 

A0469 

L , TC  OlSPDRIV 

L +1  (RETURN) 

(MUST  be  from 

SAME  BANK) 

R0A70 

subroutines  called:  none. 

normal 

,exit:  by  t:  d to  l . 

R0471 

ALARM/ABORT  MODES:  NONE. 

INPUT: 

PRESENT  VA-Ue„IN  .DISPLACT  . 

Ro472 

output:  opposite  value  of  "DISPLACt"  and  icdu  bits  (<JHeN  necessary). 

R0A73 

debris:  a.o. 

0474 

0475 

REF  24  last  585 

E6 

21.2561 

EBAN<=  ot 
3AN<  21 

0476 

0477 

REF  2 LAST  488  21,2561 

21*2562 

11*515  0 
1 2567  0 

DISPDRIV  CCS  OlSPi'ACT 

ICF  +5 

test  phase  of 

(NO  DRIVING  ON 

EIGHTBAL  . 

THIS  PASS.)  RESET  FLAG. 

0478 

0479 

0480 

ref  1 21,2563 

21.2564 

21.2565 

3 2571  0 
0 0006  1 
05  014  1 

CAF  OCT  70000 

EXTEND 

*/0R  14 

SET  ICDU  drive 

BITS. 

0481 

0482 

REF  138  LAST  579  21,2566 

REF  3 LAST  590  21,2567 

3 7763  1 
55*515  0 

CAF  ONE 

TS  DiSPlACT 

RESET  FLAG. 

0483 

rEF  202  last  588  21,2570 

0 0002  0 

TC  0 

return 

048^  21»257r  70000  0 OCT70000  OCTAL  7000ri  ICDU  DRIVE  BITS  OF  CHANNEL  14. 


633<(36A  YUL  system  FOR  *GC;  REVISION  0 OF  PROGRAM  BURST12D  3Y  NASA  2n2UOft-031 


OEC  7.  1967 


(MAIN)  page  591 


L TRIM  5'IMBAL  CONTROL  SYSTEM 


USER'S  OWN  PAGE  NO.  1 S3 


00001  21.2572 sank 21 

00002  ref  25  LAST  590  E6  EBAN<=  3T 

Roool  control  reaches  this  aoint  under  either  oe  tHe  following  i«o  conditions  once  the  Descent  engine  and  the  digital 

R 0 0 03  AUTQPXLaT^-ARE-BOTH  QNi ^ 

ROOOA  A)  the  trim  3IMBAL  CONTROL  LAW  WAS  ON  DURING  THe  PRcVIOUS  O.R-AXIS  TIME5  INTERRUPT  (OR  THe  DARIDLER 

R0006  initialization  was  Set  For  trim  GIMBA,  control  AmO  this  is  the  first  PASS),  OR 

POOOB  B)  tHF  Q,R-AXIS  RCS  Jfi  CONTROL  LAW  AT T I TUPE  .STEERJ NG  Mqde_  ReOUCeP  J-.H£  AtUtLDE  ERROR  TO  LeSS  THAN.  _ 

RoolO  iDegree  on  each  axis  on  Its  last  times  interrupt. 

Rooil  THe  following  T5RUPT  ENTRY  BeGLns.  THB- tR^ ^^^^AL  CONTROL  LAW.  SINCE  -IT  IS.ASSUMeD  THAI  JHe  LeM  W1LL_  R-MAIN 

R0013  under  trim  GIMBAl  control,  a iCAlMAN  filter  RUPI  is  set  JP  to  begin  30  MS  from  The  trim  GIMBAl  RUPT. 


0015 

REF 

3 

LAST 

57A 

2U2S72. 

3 £902_  D . G 

IS 

CAF 

MS30F. 

RESET  timer  IMMEDIATELY:  DT  s 33  MS 

0016 

REF 

15 

LAST 

589 

21.2573 

59  030 

0 

IS 

TIMES 

0017 

REF 

19. 

LAST 

589 

_21 . 257A 

22  016 

0 

-XCH 

BANCRUPT 

INTERRUPT  Lead  in  (CONTINUED) 

0018 

21,2575 

0 0006 

1 

EXTEND 

0019 

REF 

17 

LAST 

589 

21,2576 

22  012 

1 

3XCH 

3RJPT 

0020 

21,2577 

0 0006 

1 

EXTEND 

0021 

REF 

3 

LAST 

585 

21,2600 

3 2911 

1 

DCA 

POSTpFIL 

0022 

ref 

19 

LAST 

589 

21,2601 

53'001 

0 

2XCH 

T5ADR 

0023, 

REF 

1 

21,2602 

1 2679 

1 

TCF 

GTSTEST 

SKIP  OVER  XF0RM5  UNTIL  REORGANIZATION 

002A 

21,2603 

0 0006 

1 5 

imbal 

EXTEND 

GET  D.P.  FILTERED  CDUY  vALUe  ONES  COMP) 

0025 

REF 

LAST 

580 

21,2609 

3 1559 

1 

OCA 

CDJYFIL 

scaled  at  2PI  RADIANS 

0026 

REF 

2 

LAST 

578 

2.1 ,2605 

.0.  2307 

1 

TC 

DNETOTWO 

FORM  s.p.  value  in  twos  complemfnt  at  pi 

0027 

21,2606 

0 0006 

1 

EXTEND 

0028 

REF 

- 6 

LAST 

533 

21,2607 

20  767 

0 

MSJ 

CDJYD 

FORM  Y-AXIS  error  IN  ONES  COMPLEMENT 

0029 

REF 

2 

LAST 

53A 

21,2610 

55*967 

1 

IS 

3DIFF 

(SAVE  IN  Q-AXIS  ERROR  LOC : EFFICIENCY) 

0030 

21,2611 

0 0006 

1 

extend 

GET  D.P.  Filtered  cduz  value  (Ones  comp) 

0031 

ref 

2 

LAST 

58° 

21,2612 

3 1556 

0 

DCA 

COJZFIL 

scaled  at  2PI  RADIANS 

0032 

REF 

3 

last 

59I 

21,2613 

0 2307 

1 

TC 

DNETOTWO 

Form  s.p.  value  in  twos  complement  at  pt 

0033 

21,2619 

0 0006 

1 

EXTEND 

003A 

ref 

3 

LAST 

533 

21,2615 

20  770 

0 

MSJ 

CDJZD 

FORM  Z-AXIS  error  IN  ONES  COMPLEMENT 

0035 

REF 

1 

21,2616 

55*970 

1 

TS 

ROIFF 

(SAVE  IN  R-AXIS  ERROR  LOC:  EFFICIENCY) 

R0036 

trans 

'ORM  Y.i 

I CDU 

ERRORS  TO  THE  Q,R-AXES. 

0037 

21,2617 

0 0006 

1 

EXTEND 

GET  BOTH  Y AND  Z CDU  ERRORS  AT  3l  RAD 

0038 

REF 

3 

LAST 

59I 

21,2620 

3 1970 

0 

DCA 

301  FF 

0039 

REF 

1 

21,2621 

0 3269 

1 

TC 

3TRANSF 

FORM  Q-ERROR  IN  A (SCALED  AT  PI  RAD) 

OOaO 

REF 

LAST 

59I 

21,2622 

53*970 

1 

5XCH 

3DIFF 

STORE  Q-ERROR,  GET  BOTH  Y,Z  CDJ  ERRORS 

OOifl 

REF 

1 

21,2623 

0 3279 

0 

TC 

RtRANSF 

FORM  R-ERROR  IN  A (SCALED  AT  PI  RAD) 

00A2 

ref 

2 

lAst 

59I 

21,2629 

57*970 

0 

XCH 

RDIFf 

STORE  R-ERROR 

R00A3  transform  the  FILTEREO  Y,Z  rates  to  THF  3.R-AXES. 

ROOAA  (THESE  may  BE  NEEDED  'OR  tHE  RATE  DERIVATION  FOR  THE  JETS  IF  THEY  MUST  BE  USED.) 
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L 

TRI*' 

1 51MBAL  ' 

control 

system 

USER*S  OWN  PAGE  NO.  2 S3  E6 

00A6 

REF 

3 LAST 

58P 

21,2625 

__3A.?3.61  1 

.CAE 

DCD_JzFIL.. 

. . get  FILTERED. Y, 2. rates  _ 

00a7 

REF 

127  last 

58  1 

21*2626 

54  001 

1 

IS 

L 

scaled  at  PI/4  radians/second 

00A8 

ref 

4 l^ST 

580 

21.2627 

31*557 

1 

:AE 

DcOJyFIL 

00A9 

REF 

2 last 

59 1 

21,26.30 

0 .3264 

1 

. TC  . . 

.JTRANSF 

FOR  O-AXIS  RATE 

OO5O 

REF 

9 last 

562 

21,2631 

55*416 

1 

rs 

DMESAO 

stored  scaled  at  PI/4  RADIANS/SECOND 

0051 

rEf 

4 J.AST 

692 

2 1 , 2_632  3 1 *36 1 

1 

CAE 

_DCDJ7flL  .... 

_ _ GET  .filtered  Y iZ  R.ATES  . _ 

0052 

REF 

128  LAST 

592 

21,2633 

54  001 

1 

TS 

L 

SCALED  AT  PI/4  RADIANS/SECOND 

0053 

REF 

5 LAST 

592 

21,2634 

31*557 

1 

CAE 

DCDJyFIL 

0054 

REF 

2 LAST 

5 9l_ 

j2.^1j  2.635 

.0^274 

0 

TC 

RlRANSF 

FOR  R-AXIS  RATE 

0055 

REF 

11  LAST 

549 

21,2636 

55*420 

1 

TS 

DME3AR 

stored  scaled  at  PI/4  RADIANS/SeCOND 

R0056 

tran|s=dhm  the  filter 

E3  Y,Z  ACCELErATtOmS  TQ  Til£  O.R-AXES. 

R0057 

(TheS£  May  be  needed 

TO  calculate  trim 

GIMBAL  OFF-TIMeS 

IF  Attitude 

error  HAS  gone  Beyond  trim  gimbal  Control.) 

0059 

REP 

3 last 

5aP 

. 21,2637 

. 31*565 

0 

CAE. 

02.CC)UZ.FL_  _ 

. Get  FILTERED  _Y,Z  ACCELERATIONS 

00&0 

REF 

129  LAST 

592 

21*2640 

54  001 

1 

rs 

L 

scaled  at  PI/8  RADIaNS/SEC0ND(2) 

0061 

ref 

5 last 

580 

21*2641 

31*563 

0 

CAE 

D2CDUYFL 

0062 

REF 

3 LAST 

592 

21,2642 

0 3264 

1 

JC 

3TRANSF 

form  q-axis  acceleration 

0063 

REF 

3 last 

49I 

21,2643 

55*417 

0 

TS 

ALPHaQ 

STORE  at  PI/8  RADIANS/SeC0ND(2) 

0064 

ref 

4 last 

592 

21,2644 

31*565 

0 

CAE 

D2C3UZFI 

. _ GET.  FlLTEaED  Yj2  accelerations  ..  . 

0065 

REF 

130  last 

592 

21,2645 

54  001 

1 

TS 

L 

scaled  at  PI/B  RADIANS/SEC0ND(2) 

0066 

REF  . 

6 LAST 

592 

21,2646 

31*563 

0 

CAE 

D2C0UYFL 

0067 

REF 

i last 

592 

21,2647 

0 3274 

0 

rc 

RTRAnSF 

FORM  R-AXIS  ACCELERATION 

0068 

REF 

3 LAST 

488 

21,2650 

55*421 

0 

rs 

alphar 

store  at  PI/8  RADIANS/SeC0ND(2) 

R0069 

extrapolate  theta  AnO  omega  OVER  100 

Ms 

PLUS  THE  20  MS  1 

DELAY  between  THE  KALMAn  FiLTER  AnD  TRIM  GiMBAL 

ROO7O5 

Control,  reflecting 

Mechanical  lag. 

OO7I 

REF 

10  LAST 

592 

21,2651 

31*416 

0 

CAE 

OMEoAQ 

0072 

21*2652 

0 0006 

1 

EXTEND 

0073 

ref 

1 - 

21*2653 

7 2672 

1 

MP 

OT  W 

0074 

REF 

5 LAST 

59I 

21.2654 

27*467 

1 

AOS 

3DIFF 

0075 

REF 

12  LAST 

592 

21*2655 

31*420 

0 

CAE 

0ME3AR 

0076 

21,2656 

0 0006 

1 

extend 

0077 

REF 

2 LAST 

592 

21,2657 

7 2672 

1 

MP 

DTW 

0078 

REF 

3 LAST 

59I 

21,2660 

27*470 

1 

ADS 

RDIFF 

0079 

REF 

4 LAST 

592 

21,2661 

31*417 

1 

CAE 

ALPHaQ 

0080 

21*2662 

0 0006 

1 

EXTEND 

0081 

REf 

1 

21*2663 

7 2673 

0 

MP 

OTA 

0082 

REF 

11  LAST 

592 

21*2664 

27*416 

1 

ads 

DME3flO 

0083 

ref 

4 LAST 

592 

21*2665 

31*421 

1 

CAE 

ALPHAR 

0084 

2 1 * 2666 

0 0006 

1 

EXTEND 

0085 

REF 

2 LAST 

592 

21*2667 

7 2673 

0 

MP 

DTA 

0086 

REF 

13  last 

592 

21,2670 

27*420 

1 

ADS 

3ME5AR 

533<t36A 


L 

0087 

0088 
0089 

R0090 

R0092 


0093 

0094 

0095 

0096 
R00965 

0097 
R00975 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 
R01095 
Ro1096 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 

R0126 
R0128  _ 

0129 

0130 
01305 
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TRIM  SIMBAL  control  SYSTEM  USER'S  OWN  PAGE  NO.  3 S3  E6 

RtF  43  LAST  586  ZljtZtJX 1_  5-733 _J tCt RESUME , _ _ „ „ 

21.2672  00754  1 DTW  3CT  00754  120  MS  SCALED  AT  4 

23.3673  „ 01727  1 or  A 3CT 01727  12tt  MS  SEALED  AT  2 _ _ 

test  to  See  it  trim  simbal  control  law  has  kePt  both  attItjof  errors  Below  the  i oegree  boundary  with  the  Resign 
oT  Rcs  CONTROL  Law  ddminance  or  is  still  Reducing  the  error. 


REF  2 last  474  21,2674  3 7762  0 3TSTEST  CAF  TRYGtMBL  VERIFY  THAT  GTS  IS  STILL  OPERATIVE. 

REF  A8  last  554  21,2675  7 0077  0 MAS<  0AP3OOLS 

REF  253  LAST  33O 21,2673  30  000  -0.  CCS  A 

REF  1 21,2677  1 2731  1 ICF  RCSCNTRL  GTS  NOT  OPERATIVE 

START  CODING  FOR  MODULE  3 REMA<E,  AUGUST  l967»iHtSTART  COOING  FOR  MODULE  3 REMAKE.  AUGUST  1967******»*»»»»»»**»*» 


REF  1 21,2700  1 3736  1 INSERT21  TCF  CHKCnTR  GO  CHECK  TRIMCNTR  (AT  END  OF  BANK  21). 

«*EN0  coding  for  module  3 remake,  august  1967»»»»*EN.D  COOiNilOR-.. MODULE  3 REMAicE,  AUGUST  1967»HnnHHt**»»»*»»»«„#ft 
REF  19  LAST  579  21,2701  54  066  0 LOOPTEST  TS  ORCNtR 

ref  20  LAST  593 21.2702  .-50-.0.66  1 IN.DJEX ORCNlii ... 

REF  6 LAST  592  21,2)03  11'467  1 CCS  OOIFF  SCALED  AT  PI. 

REF  1 21,2704  6 2727  1 AD  -TG3N0+1  -2  DEG  SCALED  AT  PI,  ♦ 1 BIT. 

21,2705  1 2707  1 TCF  +2 

REF  2 LAST  593  21,2706  6 2727  1 AD  -TG3N0+1 

21,2707  0 0006  1 EXTEND 

__  21,2710  6 2712  I 3ZM_F  __+_2  _ IS  ERROR  MAG  LESS.EUUAL  2 DEG.  

REF  I 21.2711  1 3715  0 TCF  TESTPCTR  NO.  MAY  CONT INUE .THOUGH. 

REF  21  LAST  593  21,2712  3 0066  1 CA  ORCNTR  YES.  TRY  RATE  MAGNITUDE. 

21.2713 631.QQ0_1 OQnJBLE _ 

REF  254  LAST  593  21,2714  50  000  1 INDEX  A 

this  TESJ_  BYP_ASSeS__THE  TEST  IN_  WS.FTEST.  CHeCK^  WSrT EST.  1 F BOliND  CHANGES,  

REF  12  LAST  59)i  21,2715  11*416  1 CCS  OMEGAQ  SCALED  AT  PI/4. 

ref  1 21.2716  6 2730  1 __AD  -RATRo+1  -.65  DEG/5EC  SCALED  AT  Pl/4  ♦ 1 BIT 

21.2717  1 2721  0 TCF  +2 

ref  2 LAST  593  21,2720  6 2730  1 AD  -RATrD+1 

Jl,2721  0 0006  3 EXTEND 

21,2722  6 2724  1 3ZMF  +2  IS  RATE  MaG  LESS, EQUAL  .65  DEG/SEC. 

ref  2 LAST  593  21,2723  1 3715  0 TCF  TESTPCTR  NO.  MAY  CONT I NUE , THOUGH. 

REF  22  LAST  593  21,2724  10  J)_66_  0 _ CCS  ORCNTR  YES.  THIS  AXIS  IS  FINE.  ARE  BOTH  DONE._ 

REF  1 21,2725  1 2701  1 TCF  LOOPTEST  TRY  THE  Q AXIS  NOW. 

REF  1 21,2726  1 3000  0 TCF  GTSRaXIS  USE  TRIM  GIMBAL  CONTROL. 

_21,2727  77512  1 -TGBND.l  0CJ„  77517  „ ^ _ -2  DE^SCALEO  AT  PIl*  1 BIT. 

21.2730  77423  1 -RATBD.l  OCT  77423  -.65  DEG/SEC  SCALED  AT  PI/4  ♦ 1 BIT 

ATTITUDE  error  IS  BeYOND  TRIM  GIMBAL  CONTROL  LAW  TANGe.  SET  UP  FOR  RCS  CONTROL  LAW  (Q,R-AXIS)  AND  CALCULATE 

times  TO  TURN  OFF  THE  GIMBAL  DRIVFS. 

21.2731  0 0006  1 RCSCNTRL  EXTEND  CHANGE  LOCATION  OF  NEXT  T5RUPT  FROM  FIL- 

rEF  1_  , ..  21,27_32  3 2756  1 OCA  _POsTorFL  ^ TEr  TO  FiLDUMMY,  AhEM.  DON'T  FOrGET. 

ref  20  LAST  59I  21,2733  53*001  0 OXCH  T5AOR  THAT  FILDUMMY  MOVED  TO  BANK20,  OICK  GOSS 


633A36A 

yul 

system  for  «GC! 

REVISION 

0 OF  PROGRAM  BURST120  SY  NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  599 

L 

TRIV 

1 5'IMBAl 

control 

SYSTEM 

USER*S  OKN  page  NO.  9 S3  E6 

0131 

0 0006  1 

_iXt£.NI2_ 

BEI  HP  POST _P-AXIS  T5RUPT  TO  GO  TO 

0132 

ref 

1 

21  12735 

3 2760  1 

DCA 

0RJ5F1LT 

DUMMYFIL  INSTEAD  OF  FILTER,  USr  2CADR 

0133 

REF 

9 

LAST 

580 

21.2736 

53*573  0 

OXCH 

PFILtADR 

BECAUSE  DUMMYFIL  NOW  IN  BANK  16. 

0135 

21 12737 

0 0006  1 

extend 

PREPARE  FOR  sEoUENCED  RESUMPTION!  OF 

0136 

REF 

21 

LAST 

575 

21,2790 

3 0039  0 

DCA 

CDJY 

q,R-AxI5  RCS  CONTROL  RATE  DERIVATION 

0137 

REF 

9 

LAST 

^5J9„ 

2 1 , 2291_ 

5 i*  93  0 ^0  _ 

DXCH 

OLDYfQRQ 

BY  PROVIDJNG  OLD  CDU  READIMGS 

0138 

21,2792 

0 0006  1 

extend 

MOVE  Filtered  and  transformed  attitude 

0139 

REF 

7 

LAST 

593 

21.2793 

_i_lA20  0 

_ _ ?CA  _ 

_oojff  

ERRORS  INTO  ERASABLE  FOR  o.R-AxiS  RCS 

OKO 

REF 

9 

LAST 

595 

21,2799 

57*913  0 

XCH 

ER 

CONTROL  URGENCY  CALCULATIONS. 

oul 

REF 

30 

LAST 

599 

2 i *2  745 

23*911  1 

lXCH 

E 

0U2 

REF 

139 

LAST 

59O 

21,2796 

3 7763  1 

CAF 

ONE 

01A3 

REF 

71 

LAST 

523 

21,2797 

0 5663  1 

TC 

RAITI  1ST 

Q1A31 

REF 

26 

LAST 

591 

E6 

EBANXs 

_DI 

OlAA 

21,2750 

02763  1 

2CADR 

che<Rriv 

DO  TGOFF  calculation  IN  WAITLIST  TAS< 

COUA 

ref 

1 

21,2751 

92066  1 

OKS 

21^2752 

0 0006  1 

EXTEND 

GO  TO  Q.R-AXES  CONTROL  IMMEDIAT-LY 

0K6 

REF 

1 

21,2753 

3 2762  0 

DCA 

TGENTRY 

0K7 

21,2759 

52  006  0 

DTCB 

0K9 

REF 

16 

last 

589 

E6 

;BAN<= 

JTSONNOW 

NO,  SURELY  YOU  JeST,  NOT  EBANK  5,  AGAIN? 

0U93 

21,2755 

03033  1 

POSTQRFL  2CADR 

FILDllMMY 

WATCH  OUT  FOR  BANK  SWITCHING  D.  GOSS 

C01993 

REf 

2 

1 AST 

519 

21,2756 

90066  0 

01995 

ref 

7 

LAST 

520 

E6 

eban<= 

AOSOTERM 

0150 

21,2757 

03692  1 

ORJPFILT  2CADR 

OJMMYFIL 

NECESSARY  BECAUSE  DUMMYFIL  IN  3aN<  16. 

C0150 

REF 

2 

LAST 

991 

21.2760 

39066  0 

01501 

REF 

27 

LAST 

599 

E6 

:BAN<= 

DT 

0151 

21,2761 

02715  0 

TSENTRY  2CADR 

ST  ILI  RCS 

C0151 

REF 

9 

LAST 

539 

21,2762 

36066  1 

Ro152 

start  Coding 

For  MoDJi-E  3 REMA<E.  AUGUST 

1967)hh,5tart  Coding  for  module 

3 RfMAKF.  august 

0153 

REF 

1 

21,2763 

11*736  0 

CMEKDRIv  CCS 

PASSrTR 

ENOUGH  FILTER  PASSES  FOR  DRIyE  DONE? 

01531 

REF 

1 

21,2769 

1 2766  0 

tcf 

COLDFILT 

NO.  JUST  STOP  DRIVES. 

01532 

REF 

1 

21,2765 

1 3795  0 

rcF 

/JARMfILT 

YES,  CALCULATE  TIMES  (END  OF  BANK). 

0159 

REF 

197 

LAST 

587 

21,2766 

3 7767  0 

COLDFILT  CAF 

ZERO 

FILTER  not  WARM  YET.  TURN  OFF  DRIVES. 

0155 

REF 

5 

LAST 

580 

21,2767 

55*523  0 

TS 

Negjo 

0156 

REF 

5 

LAST 

580 

21,2770 

55*525  0 

rs 

NEGJr 

0157 

REF 

9 

LAST 

5Bt> 

21,2771 

55*533  1 

rs 

OACCDOT 

OI58 

REF 

3 

LAST 

585 

21.2772 

55*535  1 

TS 

RACCnOT 

0159 

REf 

2 

last 

995 

21,2773 

0 3293  1 

TC 

WRCHN12 

0160 

ref 

LAST 

523 

21,2779 

1 5727  1 

TCF 

TAS<OVER 

0l6ll 

ref 

33 

LAST 

586 

21,2775 

0 9736  1 

TC 

CCSHOLE 

FILLER  (TO  PRESERVE  ADDRESSES) 

^01612 

ref 

39 

last 

599 

21,2776 

0 9736  1 

TC 

CCSHOLE 

filler  (TO  PRESERVE  ADDREssEs) 
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L 

TRIM 

1 5'IMBAL  control 

SYSTEM 

user's  own  page  no.  5 S3  E6 

Pn  1 

the 

.VORITHM 

R0163 

DEL 

= S3N (OMEGA. K + 

S3N(ALPHA)ALPHA(2)/2)  ONLY  +1/-1 

ROI6A 

NEGOSJM  = ERROR. IC(2) 

♦ OFL(OMEaA.K.DEL 

♦ ALPHA(2)/2JX3/2)  + ALP-HA(0-MeGA 

.K.DEL  + ALPHA(2)/3-1 

R0166 

DRIVE  = -SGN(NEOUSUM) 

0167 

21.2777 

7650A  1 

-.0A265  OEC 

-. 0A266 

0158 

rEf 

77  last  576 

21.3000 

3 7762  0 

GTsrAxIs  caf 

TwO 

SET  INdEXEr  FOr  r-AxIs  CALCULATIONS 

0169 

REF. 

23  LAST  593 

jaC-NlR-  . _ - _ 

0170 

REF 

1 

21.3002 

1 3712  1 

TCF 

JSJALXIT 

0171 

REF 

I98  LAST  59A  _ 

_ 2 1.3  00  3_ 

.3  7767  0 

oOQTRlMG  CAF 

-Zero  - 

-SET  -I-NDEXER  FOR  _0-AXl_S-  CALCULATIONS 

0172 

REf 

2A  lAsT  59S 

21.300a 

5A  066  0 

. rs 

orcntr 

0173 

21j31105- 

tt. -0006—1 

TiTS(3AXlS  EXT-END 

017A 

REF 

25  LAST  595 

21.3006 

5 0066  1 

INDEX 

ORCNTR 

PICK  UP  K AND  K(2)  FOR  THIS  AXIS 

0175 

REF 

A LAST  52 

21,3007 

3 1527  0 

OCA 

<0 

0176 

REF 

1 

21.3010 

52  062  1 

OXCH 

<C£NIRAL 

0177 

21.3011 

0 0006  1 

EXTEND 

0178 

ref 

26  last  595 

21.3012 

5 0066  1 

index 

orcntr 

PICK  UP  omega  and  alpha  for  thIs  axis 

0179 

REF 

13  last  593 

21.3013 

3 1A17  1 

OCA 

omegaq 

0180 

REF 

1 

21.301A 

52  06A  1 

OXCH 

/(CENTRAL 

0181 

REF 

27  LAST  59S 

21.3015 

10  066  0 

CCS 

orcntr 

RDIFF  IS  STORED  IMMEDIATELY  FOL.OwING 

0182 

ref 

265  LAsT  593 

21.3016 

50  000  1 

index 

A 

odiff.  with  no  separating  cell. 

.0183 

REF 

8 LAST  59A 

21.3017 

3UA67  0 

CAE 

ODIFF 

R018A 

QDIFF  IS  LESS.EDUAL 

2 DEG.  AND  IS  scaled  At  180  D-S.  RESCALE  AT  1 8Q/6A 

DEG.  = 2 + 13/16  deg,  = PI/6A  RADIANS. 

0187 

21.3020 

0 0006  1 

extend 

RESCALE  difference  BY  MULTIPLYING  BY 

0188 

ref 

35  LAST  579 

21.3021 

7 7755  0 

MP 

aiT7 

2(6) 

0189 

ref 

1 . 

21.3022 

22  071  1 

^XCH 

ETHEtA 

OI9O 

ref 

2 LAST  595 

21.3023 

30  061  0 

CAE 

<central 

TEST  ON  MAGNITUDE  OF  ACCDOT 

0191 

ref 

1 

21 .302A 

6 2777  1 

AD 

-.0A766 

0192 

21.3025 

0 0006  1 

EXTEND 

0193 

REF 

1 

21.3026 

6 303A  0 

3ZMF 

ACCOnTSM 

BRANCH  IF  ACCDOT  IS  SMALL 

019A 

REF 

AO  LAST  580 

21.3027 

3 77A6  0 

ACCDOTLG  CAF 

3IT1A 

ACCDOT  IS  COMPARITIVELY  LARGE 

0195 

ref 

1 

21.3030 

5A  072  0 

TS 

SFl 

SET  UP  Scale  factors 

0196 

REF 

23  LAST  553 

21.3031 

3 7750  1 

CAF 

BITI? 

0197 

REF 

1 

21.3032 

5a  073  1 

WSFTEST  TS 

SF2 

ROI975 

LODPrrST  Cooing  bypasses  the 

omega  MAGnITDDE  test,  bjt  a change  in  the 

tfst  bounds  Could  Rfouirf  its  usf  again. 

R0198 

CCS  WCENTRAL 

TEST  on 

MAGNITJDE  OF  OMEGA 

R0199 

AD  -.0AA38 

R01991 

TCF  +2 
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R01992 

AD 

-.04438 

R0200 

R0201 

Ro?n? 

extend 

BZMF 
TCF  _l 

ASFTE5T 

WLARot 

IF  SMALL 

, GO  td  a^pha  test 

02025 

REF 

1 

21.3033 

1 3050 

0 

TCF 

ASFTfST 

OMEGA  IS  ALWAYS  BOUNDED  BY  .65  DEG/SEC. 

0203 

REF 

3 

LAST 

595 

21,3034 

30  061 

0 

ACCDOTSM  CAE 

<central 

rescale  if  accdot  is  small 

0^04 

21,3035 

0 0006 

1 

EXTEND 

0205 

ref 

26 

LAST 

587 

21,3036 

7 7757 

1 

MP 

BITS 

rescale  K by  multiplying  by  2(4) 

0206 

REF 

4 

LAST 

596 

21,3037 

22  061 

0 

L.XCH 

<central 

0207 

REF 

5 

last 

596 

21,3040 

iO  061 

0 

_ _ CAE  _ . 

CCENTRAL  _ 

0208 

21,3041 

0 0006 

1 

EXTEND 

0209 

21,3042 

7 0000 

0 

SQUARE 

0210 

REF 

1 

21.3043 

54  062 

A 

TS 

_^2CL'ttaA_L 

0211 

REF 

39 

LAST 

577 

21,3044 

3 7752 

0 

CAF 

BlTiO 

SET  UP  variable  scale  FACTORS 

0212 

REF 

2 

LAST 

59b 

21,3045 

54  072 

0 

TS 

5F1 

0213 

REF 

Ji5 

LAST 

5fl8 

21.3046 

JJ76EL1  • 

_____  CAF  __ 

B1T4 

02K 

REF 

1 

21,3047 

1 3032 

1 

TCF 

WSFTfST 

GO  TEST  ON  magnitude  OF  OMEGA 

0215 

REF 

1 

_ _2ii3050 

- 10  Oi)4 

1 

4SFTEST  CCS 

ACENtRAL 

TEST  ON  magnitude  OF  ALPHA 

0216 

REF 

1 

21,3051 

6 3057 

0 

AD 

-.08882 

02161 

21,3052 

1 3054 

1 

TCF 

+ 2 

02162 

REF 

2 

LAST 

595 

21.3053 

6 3057 

0 

AD 

-»0ja8fi2 

0217 

21,3054 

0 0006 

1 

EXTEND 

0218 

REF 

1 

21,3055 

6 3060 

1 

3ZMF 

WAREsCAL 

IF  SMALL,  GO  TO  W,A  RESCALING 

0219 

ref 

1 

21,3056 

. 1 30Jl^ 

0 

TCF 

WLARGE 

IF  LARGE,  DO  SAME  AS  IF  W LARGE 

R0220 

-.04438 

DEC 

-.04438 

0221 

21.3057 

75120 

0 

-.08882  DEC 

-.08882 

0222 

REF 

2 

LAST 

595 

21,3060 

30  063 

1 

WARESCAL  CAE 

wcentral 

RESCALE  omega  BY  MULTIPLYING  BY  2(4) 

0223 

21,3061 

0 0006 

1 

EXTEND 

022A 

ref 

27 

LAST 

596 

21,3062 

7 7757 

1 

MP 

BITS 

0225 

REF 

3 

LAST 

596 

21,3063 

22  063 

1 

.XCH 

WCENtRAL 

0226  - 

REF 

2 

LAST 

596 

21,3064 

30  064 

0 

CAE 

ACENtRAL 

RESCALE  ALPHA  BY  MULTIPLYING  BY  2(3) 

0227 

21,3065 

0 0006 

1 

extend 

0228 

REF 

36 

LAST 

596 

21,3066 

7 7760 

0 

MP 

8IT4 

0229 

REF 

3 

LAST 

596 

21,3067 

22  064 

0 

-XCH 

ACENtRAL 

0230 

ref 

1 

21,3070 

1 3101 

0 

TCF 

algdrthm 

0231 

REF 

3 

LAST 

596 

21,3071 

30  072 

1 

WLARgE  cae 

SFl 

RESCALE  variable  SCALE  FACTORS 

0232 

21.3072 

0 0006 

1 

EXTEND 

0233 

ref 

21 

LAST 

553 

21,3073 

7 7747 

0 

MP 

BIT13 

SFl  = SFU2(-2) 

0234 

ref 

last 

596 

21,3074 

54  072 

0 

TS 

SFl 

0235 

REF 

2 

last 

595 

21,3075 

30  073 

0 

CAE 

5F2 

0236 

21,3076 

0 0006 

1 

EXTEND 

0237 

ref 

39 

LAST 

555 

21,3077 

7 7756 

0 

MP 

BIT  6 

SF2  s SF2#2(-9) 

0238 

REF 

3 

LAST 

596 

21,3100 

54  073 

1 

TS 

SF2 
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0239 

REF 

2 

LAST 

595  ^ 

- 21i3L0I 

- 30  073- 

1 

ALGiORLdYLCAE__ 

ELHETA  . _ 

GET  rescaled  ERROR  THETA 

n2A0 

02A1 

02A2 

REF 

2 

LAST 

596 

21.3102 

21.3103 

21.3104 

0 0006 
7 0062 
0 nn06 

1 

1 

_L_ 

EXTEND 

MP 

EXTEND 

<2CNTRAL 

FORM  K(2)*THETA  in  D.P. 

02A3 

REF 

LAST 

596 

21.3105 

■ 7 0073 

1 

MP 

SF2 

CALCULATE  AND  STORE 

02AA 

REF 

1 

21.3106 

54  070 

1 

TS 

<2THfTA 

K (2)»THETA»SF2  in  K2THETA 

02A5 

REF 

LAST 

596 

21.3107 

3 0063 

1 

CA 

WCENTRAL 

CALCULATE  AND  STORE 

02A6 

21.3110 

0 0006 

1 

EXTEND 

k»0(mega»sfi  in  OmEgA.K 

02A7 

REF 

6 

LAi-L5^96 

_MP 

CCENTRAI 

02A8 

21.3112 

0 0006 

1 

EXTEND 

02A9 

ref 

5 

LAST 

596 

21.3113 

7 0072 

0 

MP 

SFl 

0250 

ref 

i. 

21.3114 

54  061 

_L 

-•  - _ -I  S__. 

-DMEGIUX 

0251 

REF 

LAST 

596 

21.3115 

3 0064 

0 

:a 

ACENTRAL 

0252 

21.3116 

0__0006 

1 

extend 

BY_  REDESlGNATl_ON_  0F_  The  SCAlE  FACTOR, 

0253 

REF 

266 

LAST 

595 

21.3117 

7 0000 

0 

MP 

A 

THIS  PRODUCT  BECOMES  ALPHA(2)/2 

025A 

REF 

1 

21.3120 

54  072 

0 

TS 

A2CNTRAL 

INSTEAD  OF  ALPHA (2) 

0255 

REF 

5 

LAST 

597 

21.3121 

10  064 

1 

CCS 

ACENTRAL 

0256 

REF 

2 

LAST 

597 

21.3122 

3 0072 

1 

CA 

A2CNTRAL 

0257 

21.3123 

1 3125 

0 

-tcf 

.2 

0258 

REF 

3 

LAST 

597 

21.3124 

4 0072 

0 

cs 

A2CNtRAL 

NOW  the  a register  contains 

0259 

REF 

2 

LAST 

597 

21.3125 

6 0061 

0 

AD 

DMEoA.K 

KwOMEGA  ♦ ALPHA*ABS(ALPHA) /2 

0260 

REF 

257 

LAST 

597 

21.3126 

10  000 

0 

CCS 

A 

0261 

REF 

40 

LAST 

522 

21.3127 

3 7763 

1 

CA 

BlTl 

DEL  = SIgNuM(A)  , (2ER0  wHEN  A IS  ZERO), 

0262 

21.3130 

1 3132 

0 

ICF 

♦ 2 

PLUS  ONE  OR  MINUS  ONE  OTHERWISE. 

0263 

REF 

41 

LAST 

59T 

21.3131 

4 7763 

0 

CS 

3IT1 

026A 

REF 

1 

21.3132 

54  065 

0 

rs 

DEL 

0265 

REF 

2 

LAST 

597 

21.3133 

10  065 

0 

CCS 

DEL 

0266 

REF 

3 

LAST 

597 

21.3134 

3 0061 

0 

CA 

DMEGa.K 

0267 

21i3135 

1 3137 

0 

. ICf 

tZ 

0268 

REF 

LAST 

597 

21,3136 

4 0061 

1 

CS 

DMEGa.K 

DELWOMEGA.K  REPLACES  OMEGA.K 

0269 

REF 

5 

LAST 

59T 

21,3137 

54  061 

1 

TS 

DMEGA.K 

0273 

REF 

LAST 

59T 

21.3140 

6 0072 

1 

AD 

A2CNTRAL 

DEL»OMEGA.K  ♦ ALPHA(2)/2 

0279 

REF 

2 

LAST 

552 

21,3141 

57*521 

0 

XCH 

FUNCTION 

STORED  IN  FUNCTION 

0275 

REF 

5 

LAST 

597 

21.3142 

3 0072 

1 

CA 

A2CNTRAL 

0276 

21,3143 

0 0006 

1 

EXTEND 

CALCULATE  ALPHA (2) /3 

0277 

ref 

1 

21,3144 

7 3304 

1 

MP 

0278 

REF 

6 

LAST 

597 

21.3145 

6 0061 

0 

AD 

DMEGA.K 

0279 

21,3146 

0 0006 

1 

EXTEND 

0280 

REF 

6 

LAST 

597 

21.3147 

7 0064 

1 

MP 

ACENTRAL 

K (2)»THETA+ALPHA* (DEL*0MEG.K  + AL3HA (2)23) 

0281 

REF 

2 

LAST 

597 

21.3150 

26  070 

1 

ADS 

K2THETA 

FIRST  AND  SECOND  TERMS  SUMMED  HsRE, 

R02815 

the 

FOLLOWING  section  ..CALCULATES  ,707MDeL»FUNCT  1 DN  ( 3/2 ) 

AND  adds  it  to 

the  other  two  terms  of  NeCUSUM.. 
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tRin 

3'IMBAL 

control 

SrSTEM 

USeR*S  own  page  no.  8 S3  E6 

0282 

ref 

21 

last 

_553  ^ 

21,3131 

3 BOil  Jl  _ 

.'A 

SR.  

CALL  .SEQUEnCE  for  SPROOT.  REQUJ.RCS  THAT 

0283 

REF 

268 

LAST 

597 

21,3152 

6 0000 

1 

AD 

A 

SR  Be  PRESERVED  BY  THE  CALLER. 

028A 

REF 

4 

LAST 

5B0 

21,3153 

57*540 

1 

XCH 

STDRrDUY 

THE  KALMAN  FiLlER  STORES  INTO  THE  CELL 

0285 

REF 

3 

LASr 

597_ 

2I,il3A 

J X521 

0 

CA  . 

FJNCTION 

STORCDUY  before  USING  IT  OTHERWISE. 

0286 

ref 

3 

last 

553 

21,3155 

0 5417 

0 

TC 

SPROOT 

0287 

REF 

5 

LAST 

598 

21,3156 

23*540 

1 

lXCH 

STDRrDUY 

0288 

REF 

_22^ 

_LA5JL 

_198 

21,3157 

22  021 

_L. 



_SR 

0289 

21.3160 

0 0006 

1 

EXTEMD 

0290 

ref 

4 

last 

598 

21,3L61 

. 7^  .1521. 

1. 

. MP.  ...  ... 

FUNCTION.  . 

0291 

REF 

6 

LAST 

598 

21,3162 

57*540 

1 

XCH 

stdrcduy 

0292 

REF 

3 

LAST 

597 

21,3163 

10  065 

0 

CCS 

DEL 

0293 

REF 

1 

21,3164 

.3  3.3  05_ 

1 

CA 

,707r,TS 

THIS  CELL  CONTAINS  SQUARE  ROOT  OF  1/2 

0294 

21,3165 

1 3167 

0 

ICF 

+ 2 

0295 

REF 

2 

LAST 

598 

21,3166 

4 3305 

0 

CS 

.707GTS 

02a6_ 

21.3167 

0 0006 

_L_ 

;Xt£.AlD 

0297 

REF 

7 

LAST 

598 

21,3170 

7 1540 

0 

MP 

STDRrDUY 

0298 

REF 

3 

LAST 

597 

21,3171 

6 0070 

0 

AD 

<2THETA 

NEGUSUM  IS  COMPLETE. 

0299 

REF 

269 

LAST 

598 

21*3172 

10  000 

0 

CCS 

A 

SIGNUM(NEOUSUM)  IS  NEUATIVE  oF  THe  SIGN 

0300 

REp 

42 

LAsT 

597 

21,3173 

3 7763 

1 

CA 

Bill 

Which  will  be  attached  to  The  new  value 

0301 

REP 

1 

21,3174 

1 3176 

0 

ICF 

PUSDrIVE 

OF  Q(R)ACCOOT. 

0302 

REP 

43 

LAST 

598 

21,3175 

4 7763 

0 

CS 

BITI 

0303 

REF 

28 

last 

5.95 

_2.1, 31.76 

. 50  066 

1 

POSDRIi/e  IND_£X 

DRCNtR 

SIGN  OF  New  Q(k)ACCDOT  OPPOSES  rHIS  SIGN 

0396 

REF 

6 

LAST 

594 

21,3177 

55*523 

0 

rs 

NEGJq 

0397  __ 

21,3200 

4 0000 

0 

COM 

0398 

21,3201 

0 0006 

1 

extend 

SEND  back  jerk  TERM 

0399 

REF 

14 

LAST 

587 

21,3202 

5 0066 

1 

INDEX 

ITEMP6 

0400 

REF 

4 

LAST 

52 

21,3203 

7 1532 

0 

MP 

ACCDOTQ 

0401 

REF 

15 

LAST 

598 

21,3204 

50  066 

1 

INDEX 

ITEMP6 

0402 

REF 

LAST 

585 

21,3205 

23*733 

1 

LXCH 

DACDdTMP 

STORE  for  100  MS,  THEN  RELEASE  TO  FILTER 

0403 

REF 

29 

LAST 

598 

21,3206 

10  066 

0 

CCS 

DRCNTR 

LOOP  COUNTER 

0404 

REf 

1 

21,3207 

0 1737 

0 

rc 

SlEctlAW 

2ND  PASS,  (for  Q-AXIS) 

R0405 

transform  Jerks  back 

10  GIMBAL  AXES, 

0406 

ref 

5 

LAST 

694 

21,3210 

4 1533 

1 

CS 

DACCnOT 

scaled  at  PI/2(7>*  and  COMPLEMENTED. 

0407 

21,3211 

0 0006 

1 

iXTENd 

0408 

ref 

2 

LAST 

136 

21,3212 

7 1400 

0 

MP 

MR12 

SCALED  AT  2 

0409 

REF 

3 

LAST 

580 

21,3213 

55*567 

0 

rs 

Y3DDT 

OAIO 

REF 

4 

LAST 

594 

21,3214 

4 1535 

1 

CS 

RACCOOT 

scaled  at  Pl/2(7),  AND  COMPLEMENTED. 

0411 

21,3215 

0 0006 

1 

EXTEND 

0412 

REF 

2 

LAST 

136 

21,3216 

7 1402 

1 

MP 

MR13 

scaled  at  2 

0413 

REF 

4 

LAST 

598 

21.3217 

27*567 

0 

ADS 

Y3DDT 

0414 

REF 

5 

LAST 

598 

21,3220 

27*567 

0 

ads 

Y3D0.T 

SCALED  AT  PI/2(7) 

0415 

REF 

6 

LAST 

598 

21,3221 

4 1533 

1 

CS 

DACCDOT 

scaled  at  PI/2(7),  AND  COMPLEMENTED. 

0416 

21,3222 

0 0006 

1 

EXTEND 

0417 

REF 

2 

LAST 

49 

21,3223 

7 1401 

1 

MP 

MR22 

SCALED  AT  1 
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04  ] A 

REF 

2 

1 AST 

arO 

21.3224 

561571 

1 

rS 

Z3D0T 

0A19 

REF 

5 

LAST 

598 

21,3225 

A 1535 

1 

CS 

RACCOOT 

scaled  at  PI/2(7),  AND  COMPLEMENTED. 

OA20 

21,3226 

0 0006 

1 

EXTEND 

0421 

REF 

2 

LAST 

A? 

21,3227 

7 -1A03 

0 

MP 

-MS23.  

scaled  at  1 

0A22 

REF 

3 

LAST 

599 

21,3230 

,27>571 

1 

ADS 

Z3D3T 

scaled  at  PI/2(7) 

0423 

REF 

3 

LAST 

59A  _ 

- iLjJ23l 

a-3^2-A3 

1 

_ _ rc  __  _ 

_ WRC-UU2- - 

_ SEND.  GIM6AL  DRIVES  TO  _ SERVOS  _ 

0A2A 

REF 

44 

LAST 

593 

21,3232 

1 5733 

1 

TCF 

RESJmE 

WAIT  UNTIL  NEXT  TRIM  GImBAL  RJsT 

' RoA25  waitlist  TASKS  TO  SET- JJRLM  GIMBaL  TURN  OFF  BITS. 


0A25 

REF 

199 

last 

595 

21 t3233 

3 7767 

0 

dffgimd 

CAF 

Zero 

SET  Q-AXIS  FLAG  TO  ZERO 

0427 

ref 

7 

LAsT 

598 

21j3234 

55  '523 

0 

IS 

NEG.ln  

0428 

21,3235 

1 3240 

0 

rcF 

♦ 3 

0429 

•REF 

2D0 

LAST 

599 

21,3236 

3 7767 

0 

DFFGIMR 

CAF 

ZERO 

SET  R-AXIS  FLAG  TO  ZERO 

0430 

REF 

6 

LAST 

594 

21,3237 

5B'525 

0 

rs 

NEGUcl  -- 

0431 

REF 

LAST 

599 

21 >3240 

0 3243 

1 

TC 

ARC^N12 

FLAGS  TO  CHANNEL  BITS 

0432 

ref 

57 

last 

594 

21,3241 

1 5727 

1 

TCF 

TAS<nvER 

R0433 

the 

WRCHN12  : 

SUBROUT  I S 

IE  SETS  1 

31TS  9,10,11 

,12  OF 

channel 

12  ON  the  basis 

OF  the  contents  of  NEGUQ,NEGUR  WHICH  ARE 

R0435 

the 

negatives  of  the 

TRIM  GIMBAL  DESIReU 

drives 

• 

0436 

21,3242 

07400 

1 

BoIM 

OCTAL 

0743n 

0437 

REF 

16 

LAST 

598 

0066 

CHNL12 

equals 

I TEMP6 

0442 

REF 

8 

LAST 

599 

21,3243 

11'523 

0 

WRCHN12 

CCS 

NESJo 

0443' 

ref 

40 

last 

596 

21,3244 

3 7752 

0 

CAf 

31 1 liS 

0444 

21.3245 

1 3247 

1 

TCF 

♦ 2 

0445 

ref 

14 

LAST 

577 

21,3246 

3 7753 

1 

CAF 

3IT9 

0446 

ref 

1 

21,3247 

54  066 

0 

rs 

CHNLl  2 

0447 

REF 

- 7 

LAST 

599 

21,3250 

11'525 

0 

CCS 

NEGJR 

0448 

ref 

24 

LAST 

595 

21,3251 

3 7750 

1 

CAF 

Bin? 

0449 

21,3252' 

1 3254 

0 

TCF 

*2 

0450 

REF 

32 

LAST 

577 

21,3253 

3 7751 

0 

CAF 

BITll 

0451 

REF 

2 

LAST 

599 

21,3254 

26  066 

0 

ADS 

CHNL12 

(STORED  result  NOT  USED  AT  PRESENT) 

04511 

REF 

1 

21 >3255 

4 3242 

1 

CS 

3GIM 

04512 

21,3256 

0 0006 

1 

EXTEND 

04513 

21,3257 

03  012 

1 

WAND 

12 

04514 

REF 

3 

LAST 

599 

21.3260 

3 0066 

1 

CA 

CHNL12 

0452 

21,3261 

0 0006 

1 

EXTEND 

0453 

21,3262 

05  012 

1 

WOR 

12 

0454 

REF 

2D3 

LAST 

59O 

21,3263 

0 0002 

0 

TC 

0 

SIMPLE  Return  always 

RO455 

Q*R- 

transf  transforms  a Y,Z  I 

S1M6AL  COORDINATE  VftRIABLE 

PAIR  (IN  A,L)  TO 

pilot  coordinates  (Q/R),  RetURNtD  in  a. 

R0457 

(The 

matrix  I 

M from  GIMBAl  to 

pilot  axes 

IS  ASSJMEj  to  be  qONF  BY  T4RUPT 

ANo  scaled  at  *1.) 

0A59  REF  17  LAST  59R 


0066  3RERAS  equals  IIEMP6 
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0A60 

REF 

1 

2 1 .3_2j54 

22  066  i 

3TRANSF 

lXCH 

ORERAS 

_ SAVE.  Z-AXiS,  VARIABLE 

0461 

21»3265 

0 0006  1 

EXTEND 

0462 

REF 

4 

LAST 

533 

21.3266 

7 1405  0 

MP 

M21 

(Y-AXI5)»M21 

0463 

REF 

2 

LAST 

600 

21,3267 

56  066  1 

XCH 

dreras 

SAVE,  GET  Z-AXIS  VARIABLE 

0464 

21.3270 

0 0006  1 

EXTEND 

0465 

REF 

6 

LAST 

533 

21.3271 

7 1401  1 

MP 

M22 

(Z-AXIS)*M22 

0466 

REF 

3 

LAST 

600 

21j,3272 

6 Q0A6  1 

AD 

dreras 

SUM  = (Y_AXIS)»M21  ♦ (Z-AXIS)«M22 

0467 

REF 

234 

LAST 

599 

21.3273 

0 0002  0 

TC 

0 

RETURN  with  SUM  IN  A 

0468 

REF 

4 

LAST 

0 

O' 

0 

21_*3_27iL 

2^  066  1 - 

RTRANSF 

lXCH 

dreras 

SAVE  Z-AXIS  VARIABLE 

0469 

21.3275 

0 0006  1 

EXTEND 

O47O 

REF 

4 

LAST 

533 

21.3276 

7 1406  0 

MP 

M31 

(Y-AXIS)»M31 

0471 

REF 

5 

LAST 

600 

21.3277 

56  066  1 

XCH 

DRERaS 

SAVE.  GET  Z-AXIS  VARIABLE 

0472 

21.3300 

0 0006  1 

EXTEND 

0473 

REF 

5 

LAST 

533 

21.3301 

7 1403  0 

MP 

M3  2 

(Z-AXIS)»M32 

0474 

REF 

6 

LAST 

600 

21,3302 

6 0066  1 

AD 

DRERaS 

SUM  = (Y-AXIS)*M3L  ♦ (Z-AXIS)»M32 

0475 

REF 

235 

LAST 

600 

21,3303 

0 0002  0 

TC 

3 

RETURN  with  SUM  IN  A 

0475^4 

21.3304 

25253  1 

.66667 

OEC 

04755 

21.3305 

26501  1 

,707GtS 

DEc 

0.70711 

0476 

21,3306 

25253  1 

(2/3) 

DEC 

0#  6&a67 

633<>36A 


L 

P0A78 

R0A781 

R0A79 

ROASO 

R0A805 

ROA8O6 

R0A81 

R0883 

R0A85 

ROA87 

R0A89 

R0999 

R0896 

Rq998 

RO50O 

R0501 

■Ao50Z 

A0603 

A050A 

A0505 

A0506 

A0507 

A0508 

A0509 

Ro520 

R0522 

R052A 

Ro525 

R0526 

R0528 

R0530 

RQ531 

R0532 

R053A 

R06355 

R0536 
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subroutine:  T&OfPCAL  --  MaD._NQ._l  date:  AJ0JSI_22,  1966  _ _ __  

start  coding  for  MODJCE  3 REMA<e,  AUGUST  1967»»*START  COOING  FOR  MODULE  3 REMAKE.  AUGUST  1967«»*»»*»»»»»»)m»«»*» 


PR05Ri(M  DESIGN  BY:  RICHARD  D.  GoSS  (MIT/IL) 

program  IMpLEMENtAT10N_b_YJ_-JQMAXHA1!LD_.  ADDeLSTON  (ADAMS  ASSOrlATFS) 

MODIFIED  30  NOV  66.  TO'  USE  ACCDOTQ  AND  ACCDOTR.  CRAIG  WORK 

modified  AUGUST  '67  TJ  CHA.NGE__C_ALLING  SEOJeNCe  ANO  MA<e  MAXTIMe  ERASABLE  __  _P£TER  WEISSMAN 


THIS  subroutine  CALCULATES  THE  TRIM  GIMBAL  SHUTDOWN  TiME  FOR  EITHER  THE  0 OR  THE  R AXIS  (DEPEnDinD  Om  HE 
calling  SEQUENCE).  HIS  TIME  IS  SCALED  FOR  IMMEDIATE  USE  By  A WAITLIST  CALL  AS  SHO_WN  IN  THe  CALLING  SeqUeNCeS. 
IF  TH=  TIME-TO-60  IS  MORE  THAN  'DRIVeLIM'.  IT  IS  lIMITED  TO  .MAXTIME'.  IF 

xHe  tIme-to-go  Is  Less  than  ten  milliseconds,  the  shutdown  is  performed  immediately  and  tHe  waitlist  call  is 

BY-PASSED. 


THeSe  TIME-TO-GO  calculations  are  DeSIGNe^  to  drive  the  trim  GIMBAL  TO  A POSITION  WHeRe  THe  DeSCeNT  eNGINe  WILL 


fNU  A'-v- - KM  1 1 UIN  . Tnl5  OUD  K JU  | 1 f* 

initiated  only  WH£N  the  trim  gimbal  control  law 
the  use  of  reaction  control  system  uets. 

15.  ^ALLt'!^_^;J_NI..T_.rKQn 

HftS  Lost  cd'jtRol  oF 

inh  WMlILlOi  THON  V.nhNy«iv  WHIV^M  19 

the  lem  Vehicle  attItode  and  must  Return  to 

calling  sequences: 

CAF 

ZFRD 

INDFX  FDR  0-AXIS. 

TC 

TgOFfCAL 

CAF 

NeGMaX 

RETURN  HERE  FOR  NO  Q DRIVE. 

TS 

(QTIME) 

RETURN  here  with  TIME  IN  A (DECaSeCONOS) 

CAF 

TrtO 

INDEX  FOR  R-AXIS. 

TC 

tgoffcal 

CAF 

negmax 

RETURN  Here  for  no  r drive. 

TS 

(RTIME) 

return  here  with  time  in  a (DECASeCONDS) 

SUBROUTINES  CALLED:  NONE.  BUT  WRCHNL12  IS  CALLED 

after 

both  ?goffcall 

CALLS. 

NORMA.  EXITS:  TO  WAITLIST  CALL  OR  BeYOND  2CADR  IN  CALLING  SeoUENCf 

AS 

specified  above. 

alarm  or  ABORT  EXIT  MODES:  NONE 

input:  1.  THE  AXIS  INDEXER:  0 FOR  Q.  2 FOR  R (SEE  CALLING  SfoUENCfS) 

2.  THE  signed  IImE  DERIVATIVE  OF  ACCELERATION  (QACCDDT  OR  RACCDOT)  SCALeD  AT  pl/2(7)  RAD/SEC(3). 

3,  the  acceleration  approximation  from  thf  Descent  kalman  filteP  transformed  to  pilot  axe_s  (alphaq  or 
ALPHAR)  scaled  at  =I/8  RAD/SEC(2). 


A.  channel  12  contains  thf  gimbal  Drives  and  other  bitS. _ 

OUTPUT  5.  THE  NEGATIVE  GImBAL  DRIVE  FLAG  (NEGUQ  AND  NEGUR)  WHERE  A +1  BIT  REQUESTS  POSITIVE  GIMBAL  DRIv- 

(ANGULAR  acceleration  DECREASING),  A -1  BIT  REDUeStS  NfGATIVE  GIMBAL  DRIVE  (ANG.  ACC,  INCREASING). 
A ZERO  INDICATES  NO  DRIVE. 

6.  TIME  Required  to  zero  offset,  scaled  for  Q(r)Gimtimr. 
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R0537 

TRIM  5'IMBAl  control  SYSTEM 

FRASA3LF  Storage  configuration  (nffdfd 

BXJHE  INO 

rXJNG  ' 

*t-EJ.lQnS)i_ 

USER'S  Own  page  nO*  12  S3  E6 

A0538 

A0539 

NEGUQ 
(SpwQRD) 

erase 

rOJALS 

+ 2 

NEGUQ  tl 

negative  of  q-axis  gimbal  drive 

any  s.p.  erasable  NUMBERt  NOw  TRRSTCMO 

A05A0 

NEGUR 

equals 

NeGJD  +2 

negative  of  r-axis  gimbal  drive 

A05a1 

agcdotd 

= RASE 

+ 2 - 

_ Q-UERK  TERM  scaled  AT_PL/2(7)-  RAD/SEC(3) 

A05A2 

A05a3 

(SPWOrO) 

accdotr 

equals 

equals 

ACCQOTQ  +l 
ACCDoTQ  +2 

ANY  S.P.  erasable  NUMBER  NOIn  QACCDOT 
R-UERK  term  scaled  AT  Pl/2(7)  RAD/SEC(3) 

A05AA 

ACCDOTQtACCDOTR  ARE  MAGNITUDES. 

A05A5 

A05A6 

AlPHAQ 

(5PW0RD) 

erase 

equals 

+ 2 

ALPHAQ  +1 

Q-AXIS  acceleration  SCALED  AT  Pl/8  R/S2 
ANY  S.P.  erasable  NUMBER.  NOW  DMESAR 

A05A7 

alphar 

equals 

ALPRAQ  +2 

R-AXIS  acceleration  SCALED  AI  =1/8  R/S2 

Ao5A8 

R05A9 

debris:  U*  Q.  ITEMPI*  JIEMP_2*  J I_EMP6 

note:  now  OMeGAP.OMEGAO  precede  ALPHAQ 

O55O 

REF 

1 

21,3307 

5A  061 

1 

tSqffcal 

ts 

QRNDXER 

■ Q OR  R AXIS  indexer 

0551 

REF 

2 

LAST 

602 

21,3310 

50  061 

0 

index 

QRNDXER 

GET  UERK  term  MAGNITUDE  SCALED  AT 

0552 

REF 

5 

LAST 

598 

21,3311 

31*532 

1 

CAE 

ACCDOTQ 

PI/2(7)  IN  RADIANS/SEC(3) . 

0553 

21,3312 

0 0006 

1 

EXTEND 

UNLESS  theta  TRIPLE-DOT  MAGNITUDE  IS  NON 

055A- 

REf 

1 

21,3313 

6 3373 

0 

3ZMF 

TGOFfNOW 

-ZERO,  sLT  drive  TO  ZERO  NDW. 

0555 

REF 

1 

21,331a 

5A  062 

1 

TS 

N/ACrDOT 

SAVE  NON-7ERO  DENOMINATOR. 

05551 

REF 

3 

LAST 

602 

21.3315 

50  061 

0 

index 

QRNDXER 

initialize  the  AOSTERM  which  WIuL  Be  UP- 

05552 

REF 

5 

LAST 

592 

21,3316 

31'A17 

1 

CAE 

ALPHAQ 

DATED  IN  the  DUMMYFIL  CALCULATION  FOR 

05553 

21*3317 

0 0006 

1 

EXTEND 

USE  IN  THF  ORAXIS  RATF  DERIVATION.  SFT 

0555A 

rEf 

1 

21,3320 

7 3A03 

1 

MP 

.1-.05K) 

AOSTERM  TO  AlPhA*CSP» ( 1-.5»K) , WHERE  cSP 

05555 

REF 

131 

LAST 

592 

21,3321 

56  001 

0 

XCH 

L 

IS  .1  SEC,  K IS  .5  then  AOSTERM  IS,  SET 

05556 

REF 

A 

LAST 

602 

21.3322 

10  061 

1 

CCS 

QRNDXER 

TO  .075XALPHA,  SCALED  AT  PI/A. WHILE 

05557 

REF 

270 

LAST 

598 

21,3323 

50  000 

1 

index 

A 

alpha  is  scaled  at  pI/8(  the  Constant  is 

05558 

REF 

8 

LAST 

59A 

21,332a 

23'66A 

1 

LXCH 

AOSQtERM 

scaled  at  2. 

0556 

REF 

5 

LAST 

602 

21,3325 

50  061 

0 

INDEX 

QRNDXER 

GET  acceleration  SCALED  AT  PI/8 

0557 

REf 

6 

last 

602 

21,3326 

31'A17 

1 

CAE 

AlPHAQ 

RAD/SEC(2). 

0558 

21,3327 

0 0006 

1 

EXTEND 

IF  acceleration  is  already  zero,  exit. 

0559 

REF 

2 

LAST 

602 

21,3330 

1 3373 

1 

3ZF 

TGOFFNOW 

otherwise,  proceed  WITH  NON-ZERD  ALPHA. 

0550 

21,3331 

0 0006 

1 

EXTEND 

SET  NEGUQ  TO  THE  SIGN  OF  ALPHA,  THEN  USE 

0561 

REF 

1 

21,3332 

6 3336 

1 

3ZMF 

negalph 

the  magnitude  of  ALPHA  TO  COMMUTE  TIME 

0562 

ref 

18 

LAST 

599 

21,3333 

54  066 

0 

rs 

ITEMP6 

0563 

REF 

AA 

LAST 

598 

21.333A 

3 7763 

1 

CAF 

BITI 

056A 

21,3335 

1 33A1 

0 

rcF 

+ A 

0565 

REF 

271 

LAST 

602 

21,3336 

A 0000 

0 

negalph 

C5 

A 

0566 

ref 

19 

LAST 

602 

21,3337 

5A  066 

0 

TS 

I TEMP6 

0567 

REF 

A5 

LAST 

602 

21 ,33A0 

A 7763 

0 

CS 

BITI 

0568 

REF 

6 

LAST 

602 

21 ,33A1 

50  061 

0 

INDEX 

QRNDXER 

STORE  the  drive  DIRECTION  FLAG 

0569 

REF 

9 

LAST 

599 

21 ,33A2 

55*523 

0 

rs 

NEGUQ 

time  = magnitude  OF  (ALPHA/ACCDDT) , 

A05691 

MINUS  THe  sign  of  Q(R)ACCD0T  Left  in  a. 

05692 

21 ,33A3 

0 0006 

1 

extend 

STORE  ACCdOT  to  REFLECT  THE  cHAmGE  IN 

05693 

REF 

7 

LAST 

602 

21 ,33AA 

5 0061 

0 

INDEX 

QRNDXER 

GIMBAL  DRIVE  DIRECTION  (POSSIBLE).  THIS 
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0569^ 

REF 

6 

LAST  6^2 

i -153-2 

0 

-«1P 

A-CCDoTQ 

-CAN  BE  ESSENTIAL  FOR  DUMMYFIL,  IN  CASE 

05695 

REF 

8 

LAST 

602 

21.3346 

50  061 

0 

INDEX 

QRNDXER 

Q(R)ACCDOT  IS  NOT  INITIALIZED  BEFORE 

05696 

REF 

7 

LAST 

598 

21,3347 

23*533 

0 

-XCH 

DACCdOT 

EXECUTING  DUMMYFIL. 

O57O5 

REF 

2 

LAST 

602 

2.1 13350 

30  062 

0 

:.AE 

-NZ.A-CcD-O-T  - 

WI.LL  ALPHA/ACCDOT  EXCEED  MAX  DRIVE  TIMET 

0571 

21,3351 

' 0 0006 

1 

Extend 

0572 

REF 

1 

21,3352 

7 1747 

0 

MP 

DRIYfLIM 

MAX  drive  TIME  AT  16  SEC  (ERASA3LE  LOAD) 

0573 

21.3353 

0 0006 

_1 

extend 

057A 

REF 

20 

LAST 

602 

21,3354 

60  066 

1 

su 

ITEMP6 

I5*ACCD0T  - ABS(ALPHA)  AT  Pl/8 

0575 

21,3355 

0 0006 

1 

EXTEND 

0576 

REF 

1 

-2i,3356 

6 3370 

-0 

3ZMF 

USEMAX 

large  T.  use  MAX  DRIVE  TIME  INSTEAD. 

0577 

REF 

21 

LAST 

603 

21,3357 

30  066 

1 

CAE 

ITEMP& 

DRIVE  IME  = ABS(ALPHA/ACCDOT) 

0578 

21,3360 

-0  - 00-06 

1 

-XTEND 

REScALE  QuO-TIEiNJ  TO  T IMER IERASA3LE  LOAD) 

0579  ■ 

REF 

9 

LAST 

603 

21,3361 

5 0061 

0 

INDEX 

DRNOXER 

05795 

REF 

2 

LAST 

56 

21,3362 

7 1750 

0 

MP 

DRWFACQ 

(10  SCALED  AT  2(10))  X (DAMPING  FACTOR) 

0560 

21,3363 

0 0006 

1 

FXTFND 

0581 

REF 

3 

last 

603 

21,3364 

10  062 

1 

DV 

NZACCDOT 

0582 

- - 2-1,3365 

0 0006 

1- 

zerotest 

£XL£ND 

Be  S-U-RE -WAITLIST  TIME  IS  GReATET  THAN  0. 

0583 

ref 

3 

last 

602 

21,3366 

6 3373 

0 

3ZMF 

TGOffNOiV 

058A 

21,3367 

1 3371 

0 

rcF 

+ 2 

IT  IS,  RETURN.  - 

0585 

REF 

1 

21,3370 

31*755 

1 

jsemax 

CAE 

MAXTIME 

USE  MAXIMUM  DRIVE  TIME. 

0586 

ref 

236 

LAST 

600 

2„1,3J:?1 

50  002 

0 

♦2 

INDEX 

0 

RETURN  TO  0+1  wITH  TIME  IN  A. 

0588 

21,3372 

0 0001 

0 

rc 

1 

0589 

REF 

231 

LAST 

59R 

21,3373 

3 7767 

0 

T jOFFNOw 

CAF 

ZERO 

MAKE  SURE  PLUS  ZERO  FOR  DRIVE  FuAG 

0590 

REF 

10 

LAST 

603 

21,3374 

50  061 

0 

INDEX 

DRNDXER 

TURN  OFF  DRIVE  FLAG  NOW 

0591 

ref 

10 

LAST 

602 

21,3375 

55'523 

0 

T5 

NEGUO 

0592 

REF- 

2 37 

last 

603 

21,3376 

0 0002 

0 

TC 

0 

RETURN  TO  0 ( WITHOUJ  A DRIVE  TIME). 

0593 

REF 

35 

LAST 

594 

21,3377 

0 4736 

1 

TC 

CCSHOLE 

(FILLER) 

R05931 

»*EN3  coding 

for 

MODJLE  3 REMA<E,  AUGUST 

1967*k*»»END  coding  FOR 

MODULE 

3 Remake,  august  I967*h*****»***»»*k4»»»»» 

O59A 

REF 

73 

LAST- 

5-8  B 

- -006 L 

ORNDXeR 

rQJALS 

iT-EMol  - 

indexer  For  q or  r axis 

0595 

REF 

36 

last 

587 

0062 

nzaccddt 

equals 

ITEM02 

temporary  storage  for  non-zero  accdot 

0596 

21,3400 

50437 

1 

-2MINUL 

DEC 

-12D00 

- 2 minutes  scaled  for  WAITLIST 

0597 

21,3401 

60777 

0 

-2MIN256 

DEC 

-.96875 

- 2 minutes  scaled  at  256 

0598 

21,34C)2 

31000 

0 

128/164 

OCTAL 

31000 

128/163.84  CONVERTING  256  TO  WAlTLlST/2 

0599 

21,3403 

01146 

0 

.1-.05O 

DCTAL 

01146 

.0375=. 075  SCALED  AT  2 

R4000 

START  COOING 

FOR 

MODULE  3 REMA<e,  AUGUST 

1967«ih*START  coding  FOR 

MODULE 

3 REMAKE,  AUGUST  l967»»***»*»»»iHt»»*»)HHf 

4001 

REF 

LAST 

522 

21,3404 

1 1*764 

1 

TESTCNTR 

CCS 

SIMPrNTR 

USE  BIGBOX  FOR  PASSCTR  INITIALIZATION 

4002 

REF 

1 

21,3405 

1 3410 

0 

TCF 

BIGiIOAD- 

until  simpcntr  Is  +o.  Then  usE  countbdx. 

4OO3 

REF 

1 

21  * 3^06 

31*743 

0 

CAE  ■ 

COUNTBOX 

4OO4 

REF 

1 

21,3407 

- 1 

0 

rcF 

LQAorNTR 

633«»36A 
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REVISION 
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^005 

rEf  1 

21.3410 

31*766  1 3IGL0A3 

cae 

BiGnnX 

4006 

REF  2 LAST  603 

21,3411 

1 3612  0 

rCF 

LOAOCNTR 

R4007 

»*£N0  CODING  FOR  MODJLt  3 REMAKE i AUGUST  l967»iHHf»EN0 

COOING  FOR 

MODULE 

3 REMAKE,  AUGUST  1967ihhhhhhh*»»»»»*hh*»*« 

R4008 

the  next  five  cells 

ARE  left 

IN  FOR  SPACING. 

4022 

REF  5 last  590 

21,3412 

27*522  1 

i\DS 

function 

+ 1 

multiplier  as  C(A).  multiply  THESE  AND 

4023 

REf  132  last  602 

21,3413 

54  001  1 

rs 

L 

USE  only  hIGh  order  part  of  product. 

4024 

21  i3_4U 

1 3416  0 

ICF 

♦ 2 

ADD  S.P,  LOW  PRODUCT  TO  LOW  PARf  OF  HIGH 

4025 

REF  6 LAST  60A 

21,3415 

27*521  1 

ADS 

FUNCTION 

PRODUCT.  CHECK  OVERFLOW,  CARRY,  UNO 

4026 

REF  208  last  &03 

21 ,34l6 

0 0002  0 

rc 

0 

RETURN. 
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ROOOl 

PROGRAM  NAMEL  A05IjAS1i  __ 

_MOD»  NO.  _l date;,  NQVFMB 

ROOO2 

AUTHORT  JONATHAN  D.  AODELSTON 

(ADAMS  ASSOCIATES) 

ROOO3  . 

Roods 

Rooot 

THIS  "WAITLIST  TASK"  IS  EXECUTED  EVERY  2 SeCONOS  OURING  ASCenT  (APS)  tjURNS.  IT  ESTIMATES  THE  ACCELERATION  DJE 
TO  TH-  engine  Of"F-SET.  TO  USE  THESE  ESTIMATES,  1 1 ALSO  CALCULATES  TERMS  TO  ADD  INTO  THe  LM  DAP  RATE  DERIVATION 
AND  Weighting  factors  FnR  thf  fstimatf  of  aos  and  For  the  rate  derivation,  finally.  It  also  sets  up  "aosjob" 

Rooo9 

through  the  executive  to  calculate  functions  of  the  Aos. 

ROOlO 

calling  SEQUENCE: 

AOOll 

A00I2 

L -1  CAF 

L rC 

2SECSDAP 
WAlTI  1ST 

A0013 

aooia 

A0015_. 

EBAN<= 

L *'1,  *2  2CADR 
L.*3  (RETURN) 

AOSO 

AOSTASK 

R0OI6 

NORMA.  EXIT  MODE:  "TASXOVeR" 

alarm/aoort  mooe:  none. 

R0017 

ROOI8 

R0019 

INPUT  APSGOING/DAPBOOLS 
AOSQ,AOSR 
COEFCTR 

R0020 

R0021 

R0022 

OLDWFOROtOLDWFORR 

SUMRATEOtSUMRATER 

OMEGAQ.OMEGAR 

R0023 
R002A  _ 

OUTPUT  AOS3,AOSR,AOSJ,AOSV 
AOSQTERM’AOsRTHRM 

R0025 

R0026 

sumrateo*sumrater 

XCOEFCTR 

R0027 

debris:  A,L,ITEMPi,ir-MP2. 

R0028 

THE'FDLLOWING  LM  DAP  ERASArLES 

ARE  ZEROED  IN  THE  STARtDAP  SECTION  OF 

THe  dapidler  program  and  the  CoASIASC 

ROO3O 

ROO32 

SECTION  OF  the  AOSTASCi.  THE  ORDER  MUST  BE  PRESERVED  FOR 
SECTIONS  AND  ELSEWHERE. 

: the  indexing 

1 Methods  which  are  employed  in  those 

A0O33 

A003A 

A0035 

AOSO  erase 

AOSR  equals 

AOSU  equals 

+ 3 

AOSO  +1 
AOSO'  *2 

ASCENT  OFFSET  ACCELERATION  ESTIMATES: 
ESTIMATED  EVERY  2 SECONOS  BY  AOSTASK. 
U.V-AXES  ACCS  formed  BY  VECTOR  ADDITION. 

A0036 

AOsv  equals 

AOSO  +3 

SCALED  at  PI/2  R AD  I ANS/ SECOND ( 2 ) . 

AOO37 

AOSCJTERM  -RASF 

+ 1 

(.1-.05K) AOS 

A0038 

aosrterm  equals 

AOSOtERM  +1 

scaled  at  pI/a  radians/second. 

A0039 

NJ+0  -Rase 

♦ 7 

2 UET  over-ride  FLAGS: 

aooao 

aooai 

AOOA2 

NJ-Q  EQOALS 

nJ+r  equals 

NJ-R  fQJALS 

NJ.O  ♦! 
NJ+3  +2 
NJ+3  +3 

whenever  the  offset  acceleration  about 

AN  AXIS  IS  so  high  THAT  2 JETS  -OJLD  NOT 
CONTROL  ATTITUDE  SUCCESSFULLY,  THEN  NJ 

NJ+U 


HQJALS  NJ*3 


FOR  THAT  AXIS  (IN  THE  DIRECTIO'I  OPPOSING 


633if36A 

yul  system  for  a6c; 

REVISION  0 OF  program  BURST123  BY  NASA  2n211O6-031 
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(MAIN) 

page  606 

L 

AOOAA 

aosta5<  And  aosJob 

NJ-U 

_ rOJALS  NJtD  *5  _ 

USER'S  OWN  PAGE  NO.  2 

AOS)  I5_SEITO_i.  OIKERWISf. 

S3 

THE  VALUE 

A00A5 

A00^t6 

NJ*V 

NJ-V 

rOJALS  NJ+3  +6 
equals  NJ+3  +7 

IS  Zero,  these  flags 
FROM  being  Requested 

PREVENT 
TO  FIGHT 

TWO  UETS 
THE  AOS. 

633436A 

YUL 
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REVISION 
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L 
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P0047 

A05T  A 

IS_ executed 

3NLY  during  PoWlRED 

ASCFNT.  if  no  LDNGfR  in  PO/JfRFD  ASCfNT.  stop  THf  cycling  of  AOstASY  and 

R0049 

SET 

’ 

VARIABLES  FOR 

COASTING 

ASCENT. 

0050 

20,3245 

^ 3ANK 

JiO 

0051 

REF 

7 

LAST  53V 

E6 

EBAN<= 

AOSD 

R0052 

<EEP 

TRACK  OF  XENGTH 

3F  BURN 

FDR  determination  OF  WEIGHT 

ING  Eactor  <: 

0053 

REF 

5 

last  5l7 

20.3245 

3l'650  0 

ADSTASK  CAE 

KCDeFCTR 

TEST  KCOEFCTR  FOR  INITIAL  PASS 

0054 

20.3246 

0 QQ06  1 

EXTEND 

0055 

REF 

1 

20.3247 

1 3376  1 

3ZF 

ZEROrOEF 

GO  TO  DISCONTINUITY  SECTION  FOR  COEFFA. 

0056 

ref 

1 

XO.. 3,250, 

,.6-3427  0-, 

AD 

5.E..C.-39.9.  . 

TEST  KCOEFCTR  FOR  CONSTANT  RANGr  jjHlCN 

0057 

20.3251 

0 0006  1 

EXTEND 

Occurs  when  duration  of  burn  is  equal  to 

'0058 

20.3252 

6 3254  1 

3ZMF 

♦ 2 

OR  GREATER  THAN  400  SECONDS.  (SINCE 

0059 

ref 

1 

20,3253 

1 3402  0 

rcF 

KONEnOW 

KCOEFCTR  IS  EVEN,  399  IS  THE  BR-A<  PT.l 

R0060 

form 

iveighting  factor  FOR  asceNt  offset 

acceleration  FILTER:  COpFFA  = 

0»00125(T)  ♦ 0«25 

00&2 

REF 

1 

20.3254 

3 34l6  1 

CAF 

0,001 25 

COEFFA  : 0.00125(T)  ♦ 0,25 

0063 

20.3255 

0 0006  1 

EXTEND 

0064 

REF 

6 

last  607 

20j3256 

7 ,1650  1 

MP 

KCOEFCTR 

KCOEFCTR  s T SCALED  AT  2(*14) 

0065 

REF 

22 

LAST  59G 

20,3257 

3 7747  1 

CAF 

3IT13 

(BIT13  = 1/4  = 0.25  SCALED  AT  1.) 

0066 

REF 

133 

LAST  609 

20,3260 

6 0001  0 

AD 

L 

0067 

REF 

1 

20,3261 

54  062  1 

cdeffast  rs 

CDEFFA 

(VOLATILE  STORAGE,) 

R0068 

FORM 

/WEIGHTING  factor  FOR  RATE  DERIVATION!  K = O.OOlAlT) 

+ 0.44 

0069 

ref 

1 

20,3262 

3 3417  0 

CAF 

0.0014 

K = 0.0014(T)  ♦ 0,44 

0070 

20,3263 

0 0006  1 

EXTEND 

0071 

REF 

7 

LAST  607 

20,3264 

7 1650  1 

MP 

KCOEFCTR 

KCOEFCTR  = T SCALED  AT  2(*14) 

0072  - 

REF 

1 

20,3265 

3 3424  0 

CAF 

0.44 

0073 

REF 

134 

LAST  607 

20,3266 

6 0001  0 

AD 

L 

0074 

REF 

1 

i.O,., 32,6.1 

54  061  .1. 

T5. 

< 

(VOLATILE  STORAGE.) 

0075 

20,3270 

4 0000  0 

COM 

0076 

REF 

35 

LAST  557 

20,3271 

6 7743  0 

AD 

POSMAX 

(1  BIT  ERROR  DOES  DOES  NOT  COMPOUND.) 

0077 

REF 

8 

LAST  520 

20,3272 

55*642  1 

rs 

(l-<) 

(1-K)  scaled  AT  1. 

0078 

20,3273 

0 0006  1 

extend 

0079 

ref 

25 

LAST  59V 

20,3274 

7 7750  0 

MP 

31112 

0080 

REF 

A 

LAST  588 

20,3275 

55*643  0 

IS 

(1-0/8 

(1-K)/8  is  (1-K)  SCALED  AT  8. 

0081 

rEf 

2 

last  607 

20,3276 

30  061  0 

CAE 

WFOrp  = WFOROR  = K/DT  5 K/.l  = lOK 

0082 

20,3277 

0 0006  1 

EXTEND 

SCALED  AT  16/SECOND. 

0083 

REF 

1 

20,3300 

7 3425  0 

MP 

0 • 6 2 B 

(CHANGES  scale  FACTOR  FROM  1 T3  16/SEC.) 

0084 

REF 

7 

LAST  499 

20,3301 

55*690  0 

rs 

/(FDRP 

WFORP  IS  IDENTICAL  WFORQR  EXCEPT  FOR  THE 

0085 

REF 

6 

LAST  588 

20.3302 

55*641  1 

TS 

(YFORoR 

INITIALIZATION  IN  STARTDAP  OF  DaPIDLER. 

0086 

REF 

3 

LAST  607 

30,3303 

0 

0 

. cs  . . 

< 

FORM  (.1-.05K)  FROM  K SCALED  AT  1 F_Q3_ 

0087  20.3304  0 0006  1 ^XTEMD  " " THE  TORQUE  VECTOR  RECONSTRUCT  1 0 V &ND 
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0088 

REF 

1 

_2Q.3.3J05_ 

. 7 _ 3 4-21  _ 

1 

MP 

-H.-0-5  - - 

_ ALSO-JO-RM  (-.1-.05K.)  SCALED  AT  172  FDR 

0089 

REF 

1 

20,3306 

6 3422 

0 

AD 

0.1 

THE  OFFSET  ACCELERATION  TERM  IN  THE  RATE 

0090 

20,3307 

6 0000 

1 

DOUBLE 

EBANK6  FOR  USE  IN  T5RUPT  WHILE  THE 

0091 

REF 

1 

20,3310 

54  061 

1 

- - _TS 

.1--.05X  - - . 

latter  is  volatile  and  used  in  this  tas< 

R0092 

BEGIN 

ESTIMATE  OF  OFFSET  ACCELERAT I0^ 

1 FOR  o,r-axes: 

0093 

REF 

2 

LAST 

60  1 

20,3311 

30  062 

0 

CDEFFAl  :A£ 

COEFFA 

FORM  COEFFA(AOSQ) i 

009A 

20,3312 

0 0006 

1 

EXTEND 

. 0095 

REF 

8 

LAST 

607 

20^3313 

J 1660 

1 

MP 

AOSD 

first  term  Of  new  aosq  estimate: 

0096 

REF 

9 

LAST 

608 

20.3314 

55*660 

1 

IS 

AOSO 

scaled  at  PI/2  RADIANS/SEC0ND(2) . 

0097 

REF 

3 

LAST 

608 

3-0  062- 

0- 

--- CAE 

-COEFfA. 

form  coeffa(Aosr) : 

0098 

20.3316 

0 0006 

1 

EXTEND 

0099 

REF 

2 

LAST 

539 

20,3317 

7 1661 

0 

MP 

AOSR 

first  term  of  new  AOSR  estimate: 

0100 

REF 

3 

LAST 

608 

__  2 0,3  320 

-55-' 661 

0 

- TS 

AOSR 

scaled  at  PI/2  RADIANS/SEC0MD(2)* 

0101 

REF 

A 

LAST 

608 

20,3321 

4 0062 

1 

CS 

Coeffa 

Form  .5(i-coeffa)  scaled  at  2 from  the 

0102 

20,3322 

0 0006 

1 

- EX-T-E  NQ- 

coeffa  scaled  at  1.  coeffa  is  now  the 

0103 

REF 

23 

LAST 

607 

20,3323 

7 7747 

0 

MP 

3IT13 

same  as  2(C0EFFA)  scaled  at  2,  so  must 

OlOA 

REF 

2A 

last 

608 

20,3324 

6 7747 

1 

AD 

3ITU 

multiply  by  1/4  TO  GET  ,5(C0EFF4).  THEN, 

0105 

REF 

1 

20,3325 

54  062 

1 

IS 

.5-.5C0F 

ADD  1/4  AS  1/2  scaled  AT  ? FOR  RESULT. 

Ro106 

FlNISHi  1 

offset 

acceleration  estimates: 

RoioT 

AOS 

s 1 

:oeffa 

. (AOS 

) + .5(1 

-coeffa 

) (OMEGA  -DMESA 

sjmrate  ) 

R0108 

T 

T 

T- 

2 

t 

T T-2 

T 

0109 

REF 

lA 

LAST 

595 

20,3326 

4 1416 

1 

CS 

DMEoAQ 

save  PRESENT  -OMEGAU  FOR  NEXT  PASS  AND 

0110 

REF 

3 

LAST 

517 

20,3327 

57*626 

1 

XCH 

OLDWFORQ 

PICK  UP  -(LAST  OMEGAQ)  FROM  OLDwFORQ. 

0111 

20,3330 

0 0006 

1 

EXTEND 

0112 

ref 

5 

LAsT 

568 

20,3331 

61*624 

0 

SU 

SJMRATEQ 

FORM:  W - OLdW  - SUMRATE  = sUM  (0-AXIs). 

0113 

REF 

15 

LAST 

608 

20,3332 

6 1416 

0 

AD 

0ME3AQ 

scaled  at  PI/4  RADIANS/SEGOND. 

OllA 

20,3333 

, 0 0006 

1 

EXTEND 

0115 

REF 

2 

LAST 

608 

20,3334 

7 0062 

1 

MP 

.5-.5C0F 

AOSQ  = C0EFFA(A0SQ)*.5(1-C0eFFA) (SUMO) 

0116 

REF 

10 

LAST 

608 

20,3335 

27*660 

1 

ADS 

AOSO 

scaled  At  PI/2  RADIANS/SEC0ND(2) . 

0117 

rEf 

lA 

LAST 

59Z 

20,3336 

4 1420 

1 

CS 

OMEGAr 

SAVE  Present  -omegar  for  next  pass  And 

0118 

REF 

2 

LAST 

517 

20,3337 

57*627 

0 

mCH 

DLDWFORR 

PICK  UP  -(LAST  OMEGAR)  FROM  OLO^jFoRR. 

0li9 

20,3340 

0 0006 

1 

EXTEND 

0120 

REF 

A 

LAST 

588 

20,3341 

61*625 

1 

su 

SJMRATER 

FORM:  W - OLDW  - SUMRATE  = SUM  (R.AXIS). 

0121 

REF 

15 

LAST 

608 

20.3342 

6 1420 

0 

AD 

OMEGAR 

scaled  AT  Pl/4  RADIANS/SECOND. 

0122 

20,3343 

0 0006 

1 

EXTEND 

0123 

REF 

3 

LAST 

608 

20,3344 

7 0062 

1 

MP 

.5-.5C0F 

AOSR  = C0EFFA(A0SR)+.5(1-C0eFFA) (SUMR) 

012A 

REF 

A 

LAST 

608 

20,3345 

27*661 

0 

ADS 

AOSR 

scaled  at  PI/2  RADIANS/SEC0ND(2) . 

R0125 

calcj 

.ATE  THE 

: offset 

accelerations  for 

THE  u,v-axes: 

0126 

REF 

11 

LAST 

608 

20,3346 

31*660 

0 

CAE 

AOSO 

first,  calculate  AOSU; 

0127 

REF 

5 

last 

608 

20,3347 

6 1661 

1 

AD 

AOSR 
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0128 

20t335Q 

n nnoA 

_1 

EXTEND 

0129 

REF 

1 

20.3351 

7 3626 

0 

MP 

0.70711 

0130 

REF 

1 

20,3352 

55*662 

0 

rs 

AOSJ 

scaled  at  PI/2  RADIANS/SEC0ND(2) . 

0131 

REF 

12 

LAST  608 

20,3353 

6 1660 

1 

:s 

AOSO 

THEN,  CALCULATE  AOSV: 

0132 

REF 

6 

LAST  608 

20,335A 

6 1661 

1 

AD 

AOSR 

0133 

20,3355 

0 0006 

_1 

EXTEND 

013A 

ref 

2 

LAST  609 

20,3356 

7 3626 

0 

MP 

0.70711 

0135 

REF 

1 

20,3357 

55*663 

1 

TS 

AOSV 

scaled  at  PI/2  RADIANS/SEC0ND(2) . 

R0136 

FORM 

terms  for  Pate 

Derivation: 

0137 

REF 

2 

LAST  608  _ _ _ 

20,3360^ 

_3Q  ,061 

0 _ _ 

CAE  _ 

.l-.05< 

FORM  0-AXlS  RATE  DERIVATION  TERM; 

0138 

20,3361 

0 0006 

1 

EXTEND 

0139 

REF 

13 

LAST  609 

20,3362 

7 1660 

1 

MP’ 

AOSO 

AOSUTERM  I (.1-.05K) AOSQ 

OKO- 

REF 

9 

LAST  602  _ 

20,3363 

55*666 

0 

TS 

AOSOtERM,  . 

_ scaled  at  PI/6  RADIANS/SECOND. 

OUl 

rEf 

3 

last  609 

20,3366 

30  061 

0 

CAE 

.1>.05K 

form  R-AxiS  rate  derivation  term: 

0U2 

_ 20_i3365_ 

0 0006 

1 

EXTEND 

01i»3 

REF 

7 

LAST  609 

20,3366 

7 1661 

0 

MP 

AOSR 

AOSRTERM  : ( . 1-.05K ) AOSR 

01<(4 

REF 

3 

LAST  520 

20,3367 

55*665 

1 

TS 

AOSRtERM 

scaled  at  PI/6  RADIANS/SECOND. 

R01A5 

set 

ERASABLES  FOr  nE<I  2 SECOND  INTERVAL: 

01't6 

REF 

78 

LAST_  595_  _ __ 

20_l3J70  _ 

3 7762 

0 

CAF 

TrtO 

increment  burn  DURATION  TIMER  BY  2 SECS. 

0U7 

REF 

8 

LAST  607 

20,3371 

27*650 

1 

ADS 

<COEFCTR 

oi-^te 

20,3372 

0 0006 

1 

extend 

SET  UP,  SUMRATES  , 

01^(9 

REF 

4 

LAST  588 

20,3373 

6 1623 

0 

DCS 

SAVRATEQ 

0150 

REF 

6 

LAST  608 

20,3376 

53*625 

0 

DXCH 

SUMRATEQ 

0151 

rEf 

7 

last  517 

20,3375 

1 5735 

1 

TCF 

NOORsM 

R0152 

SPECIAL 

DISCONTINUITY  SECTION 

FOR  COEFFA  on  first  PASS: 

0153 

REF 

79 

last  609 

20,3376 

3 7762 

0 ZEROCOEF 

CAF 

Two 

initialize  burn  DURATION  TIME«  TO  TWO 

015A 

REF 

9 

LAST  609 

20,3377 

55*650 

1 

TS 

<COEpCTR 

seconds  FOR  the  DERIVATION  OF  <. 

0155 

REF 

232 

LAST  603 

20,3600 

3 7767 

0 

CAF 

ZERO 

for  the  First  pass,  set  coeffa  to  zero 

0156 

REF 

1 

20,3601 

1 3261 

0 

TCF 

COEFFAST 

SINCE  AOS  ESTIMATES  ARE  NOW  USELESS. 

R0157 

special 

K AND  COeFFA 

SETTINGS 

FOR  burns  lasting 

630  Seconds  or  more: 

0158 

20,3602 

0 0006 

1 ONEN0/< 

-XTEND 

K=l,  SO  1-K  AT  EITHER  SCALING  IS  ZERO. 

0159 

REF 

1 

20,3603 

3 3631 

1 

DCA 

DpZEROX 

(1-K)  SCALED  AT  1. 

0160 

REF 

9 

LAST  607 

20,3606 

53*663 

0 

DXCH 

(l-O 

(l-X)/8  SCALED  AT  8. 

0161 

REF 

2 

LAST  607 

20,3605 

3 3A25 

1 

CAF 

0.62s 

WFORP  s WFORQR  = X/DT  = K/.l  = I0<  = 10 

0162 

REF 

8 

LAST  607 

20,3606 

55*660 

0 

TS 

WFORp 

SCALED  AT  16/SECOND. 

0163 

REF 

7 

LAST  607 

20,3607 

55*661 

1 

TS 

WFORQR 
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016A 

REF 

2 

LAST  608 

20i_3j»10 

„3_  3422  0 

CAF 

0.1 

_ (.L-.Q5KJ  = .O.J05-_SINCE  K = 1. 

0166 

REF 

£* 

LAST  609 

20,3A11 

54  061  1 

rs 

.l-.risK 

scaled  at  1/2.  (VOLATILE  ST0RA5:.) 

0167 

REF 

A 

LAST  A87 

_ 20*3AL2 

J 5210  1 

CAF  . 

- 31T13-L4. 

. COEFFA  = 0.75  

0168 

REF 

5 

LAST  608 

20,3413 

54  062  1 

TS 

COEFFA 

SCALED  at  1.  (VOLATILE  STORAs?.) 

0169 

REF 

1 

20 

L33L1_0 

rCF 

COEFFAl  . 

. GO  Begin  offset  acceleratiofl estimate, 

R0170 

CONSTANTS  FOR  AOStASCT 

01705 

20.3415 

00000  1 

OCT 

0 

TO  PRESERVE  LOCATION  OF  1/ACCS. 

0171 

20,3416 

00024  1 

0.00125 

OEC 

0.001 25 

0172 

20,3417 

00027  1 

_ _0_.0014 

OEC... 

0.0.014 

0173 

20,3420 

00111  0 

0.00444  ' 

OEC 

0.00444 

017A 

20,3421 

01463  1 

0.05 

OEC 

O.O5 

0175 

20,3422 

03 146  1 

0..1 

OEC  . 

.0^1  , _ . . 

0176 

20,3423 

12000  1 

• 0.3125 

OEC 

0.3125 

0177 

20,3424 

16051  1 

0.44 

OEC 

0.44 

0178 

20,3425 

24000  1 

0.625 

OEC 

0.675 

0179 

20,3426 

26501  1 

0.70711 

OEC 

n. 70711 

0180 

20,3427 

77160  0 

dec-399 

OEC 

-399 

0181 

20.3430 

.00000  1 

D=2ER0X 

2DEC 

0 

C0181 

20.3431 

00000  1 

0182 

20,3432 

00310  0 

2SECSDAP 

OEC 

200 

0183 

20.i433_ 

20000  0 

!1-K1S_ 

.O.E_C_  _ 

..  0_.i . 

Ol8A 

20,3434 

02000  0 

OEC 

0.0675 
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POlaS  PROGRAM  NAME!  ^')-CHAMGJLR_  . MOD.  _NQ._  J DATE!  DECEMBER  9.  1966 

R0186  this  3R0GRAM  IS  A WAITLIST  .TAS<  WHICH  IS  INITIATEO  FROM  THE  atARtDAP  SECTION  OF  DAPIDLER,  IT  IS  EXECUTED 

RoIBB  between  the  first  Q.R-AXeS  TSRJPT  and  THf  second  3-AXIS  FSRJPT  (I.E.  IBO  MS  after  STARtDAP).  the  purpose  OF 

Roi90  wchangeR  is  to  Reset  the  variable  k (In  all  its  f^rmsi  for  the  rate  derivation  from  i to  o.s.  (U  also  sets  tHf 

R0192  nominal  lm  dap  Dt  to  IOO  ms.) 


R0193  calling  sequence  (FROM.  StARTDaP)  : 


A019A L .»! CAF IBOMiA 

A0195  L • TC  WAlTl  1ST 

A0196  EBAN<=  WFORQR 

A0197-  . - . L +1  2CADR-  WCHANGER 

A0198  L +2  (3BCON) 

A0199  L +3  (RETURN) 


R0200  subroutines  CALLED!  WCHANGE.  NORMAL  EXIT!  TASCoVER. 

R0201  INPUT:  None. _ alarm/aboRt  exits:  none.-. 

R0202  , OUTPUT!  WFORP t WFORQR v( 1 -<)'( 1 -<) /B , 


0203  REF  22  LAST  5B9  20,3435  0 5270  1 W-HANGER  TC  IBN<rALL  (WAITLIST  TASK  IS  IN  T3RUpT.) 

0204  REF  I 20,3436  40162  0 rCADR  WCHANGE  SUBROUTINE  DOES  SETTING  TO  SAVE  SPACE. 

R0205  WE  return  FR_0M  WCHANGE  WITH  RANDOM  FBANK,  BUT  WHO  CARES, 

0206  REF  5B  LAST  599  20,3437  1 5727  1 TCF  TASCnVER  END  THIS  TASK. 
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R0207  INERP OLY  COMPUTES  IXK.  lYY.  IZZ,  AnD  IN  DESCENT. «PYT-CG»  ArCDOTQ.  ACCPOTR .KQ«KQZ . KRDA Pj_&RZ, , 

R0209  after  THe  inertias  A7E  COMPUTED,  THEY  ARE  USeD  TD  COMPUTE  New  VALUES  OF 

R0210  UACC,  IJACCQ,  1JACC7,  UACCU,  IJACCV  AND  1/2JTSP. 

R0211  INeRPDLY  EXITS  By  ....  TCF  ENDOFJOB 


0212 

26,2713 

3AN< 

26 

0213 

ref 

1 

E6 

EBAN<= 

IXX 

0214 

REF 

?s 

LAST 

522 

26,2713 

3 7762 

0 

1/ACCS 

CA 

BIT2  ___ 

0215 

26,2714 

0 0006 

1 

EXTEND 

0216 

26,2715 

02  030 

0 

:?AND 

30 

0217 

REF 

272 

LAST 

602 

26,2716 

10  000 

0 

, CCS 

A 

CHOOSES  ASCENT  OR  DESCENT  COLF 

0218 

REF 

28 

LAST 

575 

26,2717 

4 6311 

0 

:s 

THREf 

0219 

REF 

16 

LAST 

542 

26,2720 

6 6306 

1 

AD 

SIX 

0_220 

REF 

1 

26.2721 

55*621 

1 

TS 

iNERfTRX 

0221 

rEF 

30 

LAST 

609 

26,2722 

3 7762 

0 

caf 

TrtD 

02  22 

REF 

1 

26,2723 

5_57  625_ 

0 

STCTR 

IS  _ 

INERrTR 

_ J = 2 , 1 , Q_  FOR  I ZZ-*-I  y V t-I XX 

0223 

26,2724 

0 0006 

1 

EXTEND 

0224 

REF 

2 

LAST 

612 

26,2725 

27_»  62 1, 

1 

DIM 

INERCTRX 

JX=5,4t3  OR  2,1,0  FOR  Z,Y,X  COE- 

0225 

ref 

2 

LAST 

33t> 

26,2726 

3 1320 

1 

stctri 

CA 

MASS 

IN  kgs  (+15) 

0226 

26,2727 

0 0006 

1 

EXTEND 

0227 

REF 

3 

LAST 

612 

26,2730 

5 1621 

0 

INDEX 

INERrTRX 

0228 

REF 

1 

26,2731 

7 3136 

1 

MP 

INERCONC 

0229 

REF 

4 

LAST 

612 

26,2732 

51*621 

0 

INDEX 

INERrTRX 

0230 

REF 

1 

26,2733 

6 3145 

1 

AD 

INERrONB 

■ 0231 

26,2  734 

0 0006 

1 

EXTEND 

0232 

ref 

3 

LAST 

612 

26,2735 

7 1320 

0 

MP 

MASS 

0233 

REF 

5 

last 

612 

26,2736 

51*621 

0 

INDEX 

INERrTRX 

0234 

ref 

1 

26,2737 

6 3154 

1 

AD 

INERrONA 

0235 

ref 

2 

LAST 

612 

26,2740 

51*620 

1 

INDEX 

INERrTR 

0236 

REF 

2 

LAST 

612 

26,2741 

55*452 

1 

iS 

IXX 

I (J)  = (C(JX)MASS  + B(JX) )MASS  + A(JX)  ( + 18) 

A0237 

I (-1) =L*PVT-CG  (+6) 

0238 

REF 

3 

LAST 

612 

26,2742 

11*620 

0 

CCS 

INERrTR 

COUNTER  2,1, 0,-1 

0239 

REF 

1 

26,2743 

1 2723 

1 

TCF 

STCTR 

0240 

REF 

1 

26,2744 

1 2746 

1 

TCF 

COMMfQS 

0241 

REF 

1 

26,2745 

1 3014 

0 

TCF 

LRESC 

0242 

26,2746 

0 0006 

1 

cdmmeqs 

EXTEND 

0243 

ref 

1 

26,2747 

3 3163 

0 

DCA 

TDRM.IET 

500  FT-LBS.  (+16)  PI 

0244 

26,2750 

0 0006 

1 

EXTEND 

0245 

REF 

3 

last 

612 

26,2751 

11*452 

1 

DV 

IXX 

0246 

REF 

6 

LAST 

493 

26+2752 

55'6l3 

0 

TS 

IJACr 

scaled  by  PI/4 

02A7 26,2753  0 0006  1 EXTEND 

OZ‘,8  REF  1 26,2754  3 3165  0 DCA 


TOR<lETl 


550  FT-LBS.  (+16)  PI 
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0250 

ref 

1 

e.Q%C  l3~3.  . 

26.2756 

11*453 

-i 

0 

DV 

lYY 

0251 

REF 

2 

LAST 

567 

26.2757 

55*614 

1 

TS 

1 JACru 

SCALED  BY  Pl/4 

0252 

26.2760 

0 0006 

1 

EXTEND 

0253 

REF 

2 

LAST 

612 

26.2761 

3 3165 

0 

3CA 

T0R<JET1 

550  FT-LBS.  (+16)  PI 

0254 

26iZ762_ 

Q 0006 

1 

EXTEND 

0255 

REF 

1 

26.2763 

11*454 

1 

DV 

IZZ 

0256 

REF 

2 

LAST 

587 

26.2764 

55*615 

0 

TS 

1 JACCR 

scaled  by  PI/4 

0257 

REF 

3 

LAST 

613 

26.2765 

6 1614 

0 

AD 

1 JACCO 

0258 

26.2766 

0 0006 

1 

EXTEND 

0259 

REF 

1 

_ 26i_27_6J 

I 31X0 

0 

• MP  

0.35356 

.70711  SCALED  BY  (+1) 

0250 

REF 

1 

26.2770 

55*616 

0 

TS 

IJACfU 

0261 

REF  ■ 

1 

26.2771 

55*617 

1 

IS 

1 jAcrv 

scaled  by  PI/4 

0262 

REF 

1 

26.2772 

3 3166 

0 

CAF 

4JT  ORK 

0253 

ref 

1 

Zb, 2173 

55*451 

1 

rs 

TEMPINER 

026A 

REF 

4 

LAST 

612  _ 

26j2774 

31«452 

0 

CAE  _ _ 

JXX  _ 

02545 

26.2775 

22  007 

0 

2L 

0265 

Zb, 211b 

0 0006 

1 

EXTEND 

0256 

ref 

2 

LAST 

613 

Zb, 2717 

11*451 

1 

OV 

TEMPtNER 

0267 

26.3000 

6 0000 

1 

DOUBLE 

0268 

ref 

8 

LAST 

509 

26.3001 

55*440 

1 

TS 

1/2JTSP 

scaled  by  1/PI  (+8) 

0269 

REF 

26 

LAST 

612 

26.3002 

3 7762 

0 

CAF 

3IT2 

0270 

26.3003 

0 0006 

1 

EXTEND 

0271 

26.3004 

_Q2_  030 

0 

RAND 

30 

0272 

ref 

273 

LAST 

612 

26.3005 

10  000 

0 

CCS 

A 

COMPUTE  L.PVT-CG  IF  IN  DESCENT 

0273 

REF 

1 

26.3006 

1 3010 

1 

TCF 

DES 

0274 

REF 

1 

26.3007 

1 3132 

0 

TCF 

CQNTi /AC 

0275 

REF 

140 

LAST 

594 

26.3010 

4 7763 

0 DES 

CS 

ONE 

0275 

REF 

4 

LAST 

612 

26.3011 

55*620 

0 

IS 

INERrTR 

0277 

REF 

6 

LAST 

612 

26.3012 

55*621  1 

TS 

INERCTRX 

0278 

REF 

1 

26.3013 

1 2726 

1 

TCF 

STCTRI 

0279 

REF 

3 

LAST 

613 

26t3014 

3 1451 

0 lreec 

CA 

TEMPINER 

scaled  at  (+6) 

0280 

26,3015 

0 0006 

1 

EXTEND 

0281 

REF 

37 

LAST 

596 

26.3016 

7 7760 

0 

MP 

31T4 

0282 

ref 

1 

26.3017 

23*450 

1 

LXCH 

L.PVT-CG 

SCALED  AT  2(+3) 

0283 

REF 

1 

26.3020 

3 3173 

1 

CA 

oFAet 

0284 

REF 

256 

last 

467 

26.3021 

54  144 

1 

TS 

MPAC 

FOR  DIVISION  later 

R0285 

this 

SECTION 

computes  the  rate  of  change  of  ACC 

EL-RAtION  DJe  to  the 

ROTATION  OF  THE  GIMBALS.  THE  EOUAtION  IMPLe 

R0287 

MENTE3 

IN  both  the 

Y.X  PLANE 

AND  THE 

2.x  plane 

IS  — D(ALPHA)/DT  = 

tL/i*d(delta)/dt  . where 

R0289 

r - 

= ENGINE  THRUST  FORCE 

R029O 

: PIVOT  To 

CG  DISTANCE 

OF  engine 

R0291 

= MOMENT  OF 

INERTIA 
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_0292-_ 

REF 

4 

LAST 

BB 

E5 

EMN-C=- 

ABDEl  V 

0293 

REF 

A 

last 

A80 

26,3022 

3 5661 

0 

CA 

EBANK5 

change  ebank  to  get  ABdELV 

029A 

REF 

27A 

LAST 

613 

26,3023 

22  000 

1 

■XCH 

A 

THIS  IS  NECESSARY  TO  PRESERVE  A WHILE 

0295 

REF 

39 

LAST 

586_  _ 

26,302A 

22  003 

1 

.XCH 

EB  ANic 

SWITCHING  EBANKS 

0296 

REF 

5 

LAST 

61A 

26,3025 

31*534 

1 

CAE 

ABDELV 

scaled  at  2(13)  CM/SEC(2) 

0297 

ref 

AO 

LAsT 

61A 

26,3026' 

22  003 

1 

-XCH 

EEANK 

restore  ebank  LEAV-ING  a unharmed 

0298 

REF 

5 

LAST 

613 

E6 

EBAN<= 

IXX 

0299 

26.3027 

0 0006 

1 

EXTEND 

0300 

REf 

A 

LAST 

612 

26,3030 

7 1320 

0 

MP 

mass 

Scaled  at  2(15)  kg. 

0301 

26j3031 

0 0006 

. 1 _ 

EXTEND 

0302 

REF 

257 

LAST 

613 

26,3032 

10  144 

1 

DV 

MPAC 

CONTAINS  GFACT 

R0303 

MASS 

IS 

divided  by  a 

CCeLERATION  of  GRAVIT'C  in 

3RD-R  TD  ' 

Match  the 

UNITS 

OF  IXX.IYY.IZZ,  WHICH  ARE  SLUG-Ft(2), 

R0305 

tHe 

RATIO  OF 

ACCfLfRATION  from  pipas  to  acceleration  of 

3RA\/tTY 

IS  the 

samf  IN  Metric  or  engineering  units,  so 

R0307 

that 

IS 

unconverted. 

2.20A62 

Converts  kg,  to 

LB.  ND«  ■ 

T IS  tN  A 

scaled 

AT  2(14) . 

0309 

26,3033 

0 0006 

1 

- -EXTEND 

0310 

REf 

1 

26,303a 

7 3174 

1 

MP 

DELDnT26 

.2  DEG/SEC  at  pI/64  RADlANS/SECDND 

0311 

26,3035 

0 0006 

1 

EXTEND 

0312 

REF 

2 

LAST 

613 

26,3036 

7_ 1450 

0 

MP 

L,PVT-CG 

scaled  at  8 FELT. 

0313 

26,3037 

0 0004 

0 

INHINT 

031A 

REF 

258 

LAST 

61A 

26.30A0 

52  145 

0 

DXCH 

MPAC 

since  this  is  a job,  MPAC  IS  AVAILABLE 

0315 

26,3041 

0 0006 

1 

EXTEND 

0316 

REF 

259 

LAST 

61A 

26,3042 

3 0145 

1 

DCA 

MPAC 

0317 

26,3043 

0 0006 

1 

EXTEND 

0318 

REF 

2 

LAST 

613 

26,3044 

11*454 

1 

DV 

IZZ 

SCALED  AT  2(18)  SLUG-FT(2) 

0319 

REF 

1 

26,3045 

55*534 

0 

TS 

ACCDnTR 

SCALED  AT  PI/2 (7) 

0320 

26,3046 

0 0006 

1 

extend 

0321 

REF 

25O 

LAST 

61A 

26j^3047 

3 0145 

1 

OCA 

MPAC 

0322 

26,3050 

0 0006 

1 

EXTEND 

0323 

REF 

2 

LAST 

613 

26,3051 

11*453 

0 

3V 

lYY 

scaled  at  2(18)  SLUG-FT(2) 

032A 

REF  ■ 

7 

LAST 

603 

26,3052 

55*532 

0 

TS 

ACCDnTQ 

SCALED  At  PI/2(7) 

0325 

26,3053 

0 0006 

1 

extend 

0326 

REF 

1 

26,3054 

7 3167 

0 

MP 

DGBF 

.3ACCD0TQ  scaled  AT  Pl/2(8) 

0327 

REF 

5 

LAST 

595 

26,3055 

55*526 

0 

TS 

<Q 

0328 

26,3056 

0 0006 

1 

EXTEND 

0329 

26,3057 

7 0000 

0 

square 

0330 

ref 

1 

26,3060 

55*527 

1 

TS 

<Q2 

KQ(2) 

0331 

REF 

2 

LAST 

6lA 

26,3061 

31*534 

1 

CAE 

ACCDnTR 

.3ACCD0TR  AT  PI/2(8) 

0332 

26,3062 

0 0006 

1 

EXTEND 

0333 

ref 

2 

LAST 

6lA 

26,3063 

7 3167 

0 

MP 

D3BF 

033A 

ref 

1 

26»3064 

55*530 

1 

rs 

<RDAp 

0335 

26,3065 

0 0006 

1 

EXTEND 

0336 

2 6 * 3066 

7 0000 

0 

SQUARE 

0337 

ref 

1 

26,3067 

55*531 

0 

rs 

<R2 

033702 


26.3070  0 0006  1 


EXTEND 


NOW  COMPUTE  QACCDOT.  RACCDOT.  THE  SIGNED 
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03370A 

. 26 

.3071. 

00.  012 

1 

-i£AJl_._ 

12 

JERK  .TERMS..  ..store  CHANNEL  12,  wiTH  GIM 

033706 

REF 

251 

LAST 

614 

26 

.3072 

54  145 

0 

TS 

MPAC  ♦! 

BAL  DRIVE  BITS  9 THROUGH  12.  SrT  LOOP 

033708 

REF 

27 

LAST 

613 

26 

.3073 

3 7762 

0 

:af 

3IT2 

INDEX  TO  compute  RACCDOT,  THEN  JACCDOT. 

03371 

B£F 

_L 

26 

.3074 

1 3076 

rcF 

lqdp-y 

033712 

REF 

233 

LAST 

609 

26 

.’3075 

3 7767 

0 

CAF 

Zero 

ACCDOTQ  AND  ACCDOTR  ARE  NOT  NEoATlVE, 

033714 

REF 

252 

LAST 

615 

26 

.3076 

5^  144 

1 

L0OP3 

TS 

MPAC 

BECAUSE  THEY  ArE  MAGNITUDES 

033716 

REF  2<.3 

LAST 

26 

.3077 

3 0145 

1 

CA 

MPAC  *1 

033718 

REF 

254 

LAST 

615 

26 

,3100 

50  144 

0 

INDEX 

MPAC 

MASK  CHANNEL  IMAGE  FOR  ANY  G1M3AL  MOTION 

03372 

REF 

1 

26 

.3101 

7 3125 

0 

MASX 

GlMBi  BTS 

033722 



.310? 

0 OQOft 

J. 

^X-T£iia 

033724 

REF 

1 

26 

.3103 

1 3117 

1 

3ZF 

ZACCDOT 

IF  NONE,  U(R)ACCDOT  IS  ZERO. 

033726 

ref 

255 

LAST 

615 

26 

,3104 

3 0145 

1 

:a 

MPAC  +1 

033728 

REF 

256 

LAST 

615 

26 

.3105 

50  144 

0 

INDEX 

MPAC 

GIMBAL  is  MOVING.  IS  ROTATION  POSITIVE. 

03373 

ref 

2 

last 

615 

26 

,3106 

7 3126 

0 

<IASX 

GIMBi'BTS  *1 

033732 

26 

,3107 

0 0006 

1 

EXTEMD 

033734 

REF 

1 

26 

,3110 

1 3114 

1 

3ZF 

FRST7ER0 

IF .NOT  POSITIVE,  BRANCH 

033736 

REF 

257 

LAST 

615 

26 

,3111 

50  144 

0 

INDEX 

MPAC 

POSITIVE  ROTATION,  NEGATIVE  U(R)ACCDOT. 

033738 

REF 

8 

LAST 

614 

26 

,3112 

4 1532 

0 

:s 

ACCOnTO 

03374 

REF 

1 

26 

.3113 

1_3120 

0 

ST  ArrnfiT 

033742 

REF 

258 

LAST 

615 

26 

,3114 

50  144 

0 

frstzero 

INDEX 

MPAC 

negative  rotation,  positive  U(R)ACCD0T. 

033744 

REF 

9 

LAST 

615 

26 

,3115 

3 1532 

1 

:a 

ACCOOTQ 

033746 

REF 

2 

LAST 

61.5  . 

26 

.3116 

1 3120 

0 

rcF  _ 

STACCDOT 

033748 

REF 

234 

LAST 

615 

26 

,3117 

3 7767 

0 

ZACCDOT 

CAF 

Zero 

03375 

REF 

259 

LAST 

615 

26 

,3120 

50  144 

0 

STACCDOT 

INDEX 

mpac 

033752 

REF 

8 

LAST 

603 

26 

,3121 

_ 55 '53.3 

1 

TS 

OACCnOT 

STORE  Q(R)ACCD0T,  COMPLEMENTED. 

033754 

ref 

2 70 

LAST 

615 

26 

,3122 

10  144 

1 

CCS 

mpac 

033756 

REF 

2 

lAst 

615 

26 

,3123 

1 3075 

1 

TCF 

LOOPS  -1 

NOW  dO  qaccdot. 

033758 

26 

,.3124. 

i .3131  0 

JCF. 

LOOP  completed.  RELINT  IS  SAFE  NOW. 

03376 

26 

.3125 

01400 

1 

5IMBLBTS 

octal 

01400 

033762 

26 

,3126 

00400 

0 

OCTAL 

00400 

because  of  trim  GIMBAL  POLARITY  CHANGE, 

033764. 

26 

,3127 

06000 

1. 

octal 

06.0on ..  

THESE  bit  values  CAUSE  Q(R)ACCOOT  TO  BE 

033766 

26 

,3130 

02000 

0 

OCTAL 

02000 

GENERATED  WITH  INVERTED  SIGN. 

0338 

26 

,3131 

0 0003 

1 

.REULN.L 

0339 

26 

,3132 

0 0006 

1 

CONTl/AC 

EXTEND 

0340 

ref 

1 

26 

.3133 

3 3172 

0 

OCA 

contcadr 

0341 

26 

,3134 

52  005 

0 

OTCF 

0342 

26 

,3135 

37573 

1 

DEC 

0.99191 

03a3 

26 

,3136 

77763 

0 

INERCONC 

DEC 

-.00071 

0344 

26 

,3137 

46570 

1 

DEC 

-.78q52 

0345 

26 

,3140 

46556 

0 

DEC 

-.79009 

0346 

26 

,3141 

00051 

0 

DEC 

0.00249 

0347 

26 

,3142 

54334 

1 

OEC 

-.61154 

03<t8 

26 

,3143 

34406 

1 

OEC 

-.60892 

0349 

26 

,3144 

46353 

0 

OEC 

-.79812 

0350 

26 

,3145 

05463 

0 

INERCONB 

OEC 

0.17497 

0351 

26 

,3146 

26214 

1 

OEC 

0.69605 

0352 

26 

,3147 

2J502A 

0 

OEC 

0.65726 

0353 

26 

,3150 

05676 

0 

OEC 

0.18347 
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035A 

26,3_1_51  _ 

05006  1 

OEC._  _ 

-0_.J.^66O 

0355 

26,3152 

12613  0 

DEC 

0.33662 

0355 

26,3153 

06366  0 

DEC 

0.20239 

0357 

26.315A 

00012  1 

m 

n 

o 

.2UC 

■■Q.0.QQ66 

0350 

26,3155 

75650  0 

DEC 

-.06778 

03  59 

26,3156 

76336  1 

5EC 

-.06906 

0350 

26,3157 

77760  1 

JJEC 

-.00192 

0361 

26,3160 

00063  0 

DEC 

0,00711 

0362 

26,3161 

77666  1 

DEC 

-.01326 

0363 

2^3162 

00067  J 

TORKJET 

2DEC 

0.002628512 

C0363 

26,3163 

31173  0 

036A 

26,3166 

00053  1 

torkjeti 

2DEC 

0.00^671365 

C036A 

26,3165 

30661  0 

0365 

26  f 3 1 66 

23712  1 

6JTOR< 

DEC 

.62170 

0366 

26,3167 

23166  0 

OoBF 

DEC 

0.6 

.3  SCALED  AT  1/2 

0367 

26,3170 

13261  1 

0.35356 

DEC 

0.35356  - 

0.70711  SCALED  AT  *1 

0368 

26'3l7l 

61660  1 

CONTCADR 

2FCA0R 

1/ACrONT 

C0368  REf  1 

26,3172 

03660  1 

0369 

26,3173 

00676  1 

gfact 

DCTAL 

.0Qi)76  _ . 

979.26/2,20662  SCALED 

AT  2(16) 

0370 

26,3176 

02215  0 

DELD0T26 

DEC 

.07111 

0,2  DEG/SEC  SCALED  AT 

PI/66  RAD/SEC 
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L 

P0371 

R0372 

R0373 

R037A 

Ro375 

R0376 

R0378 

R0379 

R0381 

R0383 

R0385 

R0386 

R0387 

R0388 


AOSTAS<  AND  AnSJOB  USER'S  OwN  PAGE  NO.  13  S3  E6 

PROGRAM  name:  IMCCD'tl MQU_.  NO,_2 DAIE:_  JANUARY  9_.  J.9A7  _ - 

PROGRAM  DESIGN  BY:  RICHARD  D.  GoSS  (MiT/Il) 

implementation  by L JONATHAN  Dj  ADDELSTON  (ADAMS  A5_S0CIAT£S1_  _ . , 

LAST  modification  BY:  JONATHAN  D.  ADDELSTON 

this  aROGRAM  _IS„PART  Dt- AN._EXECiJXLV£_JOB  AND  GALCjLATESi  _ 

1.  the  inverses  of  the  net  accelerations  ABOUT  ALL  aXES  (Q.R.U.V).  IN  ALL  DIRECTIONS  (♦/-),  AND  ALL 

COMBINATJlNS_.Of_  JETS  (2/4  FOR  Q.R  AND  1/2  FOR  J.V).  - - 

2.  THE  inverses  OF  THE  MINIMUM  ACCELERATIONS  FOR  TRf  URGfNCY  AND  TJETLAW  COMPUTATION,  DURING  AaS  BURNS. 

3.  THE  initial  INVERSE  NET  ACCELERATIONS  USED  FOR  THE  URGENCY  COMPUTATION,  DURING  APS  BURNS. 

4.  THE  NJ_F_-AG5_TO_ReOUXRE„  mandatory  JET  ACCELERATION  DURING  APS  BURNS. 

SUBROUTINES  CALLED:  INVACC. 


CALLING  SEOUENCEj  CONTROL  IS  TRANSFERRED  MeRE  FROMi  l/ACCS  SECTION. 

NORMA;.  EJUT:  . ENP0EUa3_. ALARM/ABIRT.^EXITS:  ^NONE. 

iNpJT:  AOSa,AOSR,AOSJ,AOSV, IJACCO, IJACCR, 1 JACCJ.l JACCV.ApSoOiNG/DApBOOLS. 


R0390  ' debris:  none 
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AND  AOSJoB 

?n.344Q 

3AM 

_2Q 
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0392 

REF 

19 

LAST  609 

E6 

fBAN<= 

A0S3 

R0393 

SET 

JJ 

LOOP  FOR  FOUR 

axes_^in 

THE  ORDER 

: V,U,JR.,.a.)  ! 

■0399 

REF 

29 

last  612  - 

20,3990 

3 6311  1 

1/ACCONT  :af 

rHREF 

jOBAxES  IS  USED  TO  PICK  UP  ONE  OF  FOJR. 

0395 

REF 

1 

_20,i99_l 

59  L99_  1 

nvLoo=  rs 

JOBAXES 

ADJACENT  registers,  ALSO  TO  COJNT  LOOP, 

R0396 

SET 

J3| 

"TABPLACE"  TO 

store  1/NElACC  table: 

0397 

20,3992 

0 0006  1 

. EXTEND 

TABPLACE  = 9(jOBAxES) 

0398 

REF 

20 

LAST  593 

20,3993 

7 7761  1 

*1P 

FOJR 

since  there  are  four  entries  Per  axis. 

0399 

REF 

1 

20i3it99 

22  146 

-XCH 

TA3PI  ACE 

R0900 

2 

ROAOl 

2(1J''CC 

) AOS 

, -0,02. 

RADIANS/SECOND 

greater  than 

zero 

R0902 

0. 

R.  Q 

,R 

R0903 

OR 

2 

ROAOA 

ejacc 

■f  AOS 

_ - O.OE 

RADIANS/SECOND 

oreateR  lhan 

ZERO 

R0905 

u, 

V ■ U 

,V 

0906 

REF 

2 

LAST  618 

20,3495 

50  199  _Q.„ 

INDiX 

jobaxes 

THE  indexed  pick-up  OF  JeT  ACCe'eRAT I ONS 

0907 

rEf 

4 

LAsT  613 

20,3996 

31*619  0 

CAE 

1 JACCQ 

Uses  the  following  happy  coincijence: 

0908 

REF 

1 

20,3997 

59  150  1 

rs 

TeMPaCC 

IJACCU  AND  IJACCV  ARE  SCALED  AT  Pl/2  AS 

09Q9 

REF 

3 

LAST  618 

20^3450 

50  199.0 

INDEX 

JOBAxES 

ARE  AOSU  AND  AOSV,  1 JACCQ  AND  , JaCCR 

0910 

REF 

15 

LAST  618 

20,3451 

6 1660  0 

AD 

A0S3 

are  scaled  at  pI/9  and  THeReFORt  are 

0911 

REF 

1 

20,3452 

59  151  0 

rs 

TEMPNET 

EQUIVALENT  TO  2(lJACCQ)  AND  2(ljACCR) 

0912 

REF 

1 

20,3453 

6 3753  0 

AD 

-.02R/S2 

scaled  at  Pl/2.  AS  ARE  AOSO  AND  AOSR. 

' 0913 

20,3454 

0 0006  1 

EX r END 

0919 

REF 

1 

20,3455 

6 3759  1 

3ZMF 

FIFTYI 

(BRANCH  FOR  CONSTANT  VALUE  OF  INVERSE.) 

R0915 

I/NEt+2 

= l/( 

2 (IJACC 

) *■  AOS  ) 

R0916 

0 

,R 

0,R 

3,R 

R0917 

OR 

R0918 

1/NEt+I 

= l/( 

IJACC 

+ AOS  ) 

R0919 

u 

,Y 

U,V 

u,v 

0920 

ref 

1 

20,3456 

0 3762  1 

rc 

iNVArC 

0921 

REF 

2 

LAST  618 

20,3457 

50  196  1 

FlFTYlR  INDEX 

TA3PI  ACE 

0922 

REF 

17 

LAST  57 

20,3460 

55*676  0 

TS 

1/NET+2Q 

scaled  at  2(  + 8)/PI  SECONDS (2 )/ R AO  I AN. 

R0923 

2 

R0929 

2(1J*CC 

) - AOS 

- 0.02 

radians/second 

greater  than 

ZERO 

R0925 

Q« 

R Q 

,R 

R0926 

OR 

2 

R0927 

IJACC 

- AOS 

- 0.02 

radians/second 

greatfr  than 

ZERO 

R0928 

U. 

V U 

,V 

0929 

REF 

9 

LAST  618 

20,3461 

50  199  0 

INDEX 

jobaxes 

THIS  SECTION  USES  THE  INDEXING  tRICKS  OF 

0930 

REF 

16 

LAST  618 

20,3462 

9 1660  1 

cs 

A0S3 

THE  FIRST  part  (ABOVE),  BUT  USES  THE 
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0^31 

REF 

1 

20,3A63 

--  5A  1A7  1 

IS 

. TE'IPAO.S 

0A32 

REF 

2 

LAST  618 

20,3A6A 

6 0150  0 

AD 

TEMPACC 

Oa33 

REF 

2 

LAST  6I8 

20,3a65 

5A  151  0 

TS 

TEMPnET 

0434 

REp 

2 

LAST  618 

20,3A66 

6 3753  0 

AD 

-.Q2R/S2 

0A35 

20,3A67 

0 0006  1 

extend 

0A36 

REF^ 

1 

2U,3A70 

6 3756  0 

3ZMF 

F1FTY2 

ROA37 

I/NET-2 

= l/( 

2(1JACC  ) 

- AOS  ) 

R0A38 

Q, 

R 

Q,R 

3,R 

Pna^Q 

HR 

ROAAO 

l/NET-l 

= l/( 

IJACC 

- AOS  ) 

ROAAI 

U, 

V 

U,V 

J,V 

0AA2 

REF 

2 

LAST  618 

20,3A71 

0 3762  1 

TC 

INVACC 

0AA3 

REF 

3 

LAST  618 

20,3A72 

50  1A6  1 

FIFTY2R  INDEX 

TA3PI  ACE 

0444 

REF 

1 

20,3A73 

55*700  0 

, TS 

1/NET-2Q 

R0AA5 

1/NET-A 

s l/(  ' 

AdjACC  ) 

- AOs  ) 

ROAA6 

Q,R  - 

□ , R - 

R0AA7 

OR 

R0AA8 

I/NET-2 

= l/(  , 

2(1JACC  ) 

- AOS  ) 

R0AA9 

U. 

V 

U.V 

U.V  . 

0A50 

REF 

3 

LAST  619 

20,3A7A 

30  150  0 

CAE 

TEMPaCC 

0A51 

20t3A75 

6 0000  1 

JOJBLE 

0A52 

REF  ■ 

A 

LAST  619 

20,3a76 

5A  150  1 

TS 

TEMPaCC 

0A53 

REF 

2 

LAST  619 

20,3A77 

6 01A7  0 

AD 

TEMPAOS 

0A5A 

REF 

3 

LAST  619 

20^3500 

5A  151  0 

IS 

TEMPwET 

0A55 

REF 

3 

LAST  619 

20,3501 

0 3762  1 

TC 

INVACC 

0A56 

REF 

A 

LAST  619 

20.3502 

50  1A6  1 

INDEX 

TA3?|  ACE 

0A57 

REF 

1 

20,3503 

55*701  1 

TS 

1/NFT-AQ 

R0A58 

1/NET+A 

= 1/  ( ■ 

A (IJACC  ) 

♦ AOS  ) 

R0A59 

Q, 

R 

Q,R 

Q,R 

ROA6O 

OR 

ROA6I 

I/NET+2 

= l/(  2(1JACC  1 

♦ Aas  ) 

R0A62 

U, 

V 

U.V 

u.v 

0A63 

REF 

3 

LAST  619 

20,350a 

A 01A7  1 

cs 

TEMPAOS 

OA5A. 

ref 

5 

last  619 

20,3505 

6 0150  0 

AD 

TEMPACC 

0A65 

REF 

A 

LAST  619 

20,3506 

5A  151  0 

TS 

TEMPNET 

0A66 

REF 

A 

LAST  619 

20,3507 

0 3762  1 

TC 

INVACC 

0A67 

REF 

5 

LAST  619 

20,3510 

50  1A6  1 

INDEX 

TA3PLACE 

0A68 

REF 

1 

20,3511 

55*677  1 

TS 

I/NEt+AO 

R0A69 

TEST 

FOR  end  of  loop: 

JEMPORARY  LOCATIONS  AS  FOLLOwSl 
"TEMPAOS"  SAVES  -AOS  FOR  THIS  Axis. 
"TEMPACC"  HAS  THE  JET  ACCELERATION. 
C(TEmPNET)  are  (JETACC-AOS)  fOR  DENOw. 

(BRANCH  FOR  CONSTANT  VALUE  OF  INVfRSe.) 


scaled  at  2(+8)/P1  SEC0NDS(2)/RaDIAN. 


FIRST,  from  2(UACC0,R)  FORM  A(1JACC3,R) 
OR  FROM  IJACCU.V  FORM  2(IJACCU,V)  AND 
SAVE  FOR  NEXT  INVERSE  CALCULATION. 
then,  COMPUTE  EITHER  A ( 1 JACCQ, R ) -A0S3,R 
OR  2 (1JACCU,V)-A0SU,V  SCALED  AT  PI/2. 


scaled  at  2(*8)/PI  SEC0NDS(2) /RADIAN. 


FIRST,  COMPUTE  EITHER  A (1 JACC3,R) *A0S3,R 
OR  2(1JACCU,V)+A0SU,V  AnD  SAVE  FOR  THE 
DIVISION  (SCALED  AT  PI/2  RADI ANS/ SECOND) 


SCALED  AT,2(>8)/Pi  RADI  ANS  (2 )/ SECOND. 


CCS 


OA70  REF  5 LAST  618 


20,3512  10  lAA  1 


Jobaxes 


IF  "JobaxeS"  pnz,  continue 
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0A71 

REF 

1 

20,3513 

_J^441 

..TCF 

JLNJTLD.QP  ..  . 

__  _JF  j'JQBAXES"  ZERO,  STOP. 

R0A72 

TEST 

-OR  ascent  Prop. 

ILSION  system  BURN: 

0A73 

REF 

3 

LAST  517 

20,3514 

3 7754  0 

:af 

APSGnING 

IF  LM  IS  IN  COAST  OR  IN  A DESCENT  BURN, 

0A7A 

REF 

49 

LAST  593 

20,3515 

7 0077  0 

MAS< 

DAP300LS 

then  the  aosjob  is  trivial  from  Here 

0A75 

REF 

2^75 

LAST  614 

20,3si6 

10  OOP  0 

:c5 

A 

AND  this  test  reduces  thf  computation 

0A76 

REF 

1 

20,3517 

1 3531  1 

rcF 

ASCJnB 

time  in  those  CASES. 

ROA77 

FILL 

IN 

descent  aURN_ 

3R___CqAST 

VALUES  uu.ic<ly: 

0A78 

REF 

18 

LAST  618 

20,3520 

31*676  1 

:ae 

I/NET+2Q 

FOR  Q-AXIS  urgency. 

OA79 

ref 

4 

LAST  537 

20,3521 

_53  * 717  _0 

rs 

1/ACCQ  . 

oabo 

REF 

2 

LAST  57 

20,3522 

31*702  0 

CAE 

1/NET+2R 

FOR  R-AXIS  URGENCY, 

0481 

REF 

1 

20,3523 

55*720  1 

TS 

1/ACCR 

0482 

20,3524 

0 0004.0 

INHInT 

0483 

REF 

50 

LAST  620 

20,3525 

4 0077  0 PDPNONJ 

:s 

OAP3nOLS 

SET  BIT  TO  INDICATE  DATA  GOOD. 

0434 

REF 

? 

LAST  488 

20,3526 

7 7761  1 

MAS< 

DATAGOOD 

0485 

REF 

51 

LAST  620 

20,3527 

26  077  0 

ADS 

DAP300LS 

0486 

REF 

59 

LAST  497 

20,3530 

1 5567  1 

tcf 

ENDOFJOB 

END  this  iteration  OF  AOSUOB, 

4 
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poabt 

IN  AS 

s-r  -UP  0.R 

-Axes  loop 

• 

OA88 

REF 

30 

LAST 

6l8 

20»353l 

3 6311 

1 

ASCJOB 

CAF 

THREF 

SET  UP  the  table  INDICES: 

0A89 

ref 

6 

LAST 

619 

20,3532 

54  144 

1 

oRjob 

IS  , 

J03AXE5 

0490 

20,3533 

6 0000 

1 

30J8LE 

AOS  TABLE  USES  "JOBAXES"  (ADJATENT), 

0491 

REF 

1 

20,3534 

54  145 

0 

IS 

NJPLACE 

NJ  TABLE  USES  "NJPLACE"  (ONE  APART), 

0492 

- -_20  >3535- 

6_00.QQ 

J. 

3OJBLE 

NET  JABLE  USES  "TABPLACe"  (THREE  APART), 

0493 

ref 

6 

LAST 

619 

20,3536 

54  146 

0 

IS 

TA3PI  ACE 

R0494 

.1 , 

R0495 

TEST 

ABVAL(AOS  ) 

- 0,02  RADIANS/SECOND  GREATER  THAN 

ZERO; 

R0496 

0>R 

0497 

REF 

7 

last 

621 

20,3537 

50  144 

0 

index 

J03AXES 

FORM  ABVAL(AOS  ) AND  SAVE  FOR  INVACC, 

0498 

ref 

17 

east 

618 

20,3540 

1 1 '660 

1 

CCS 

AOSO 

0499 

REF  141 

last 

613 

20,35-41 

6 7763 

1 

AD 

ONE 

0500 

20,3542 

1 3544 

0 

TCF 

♦ 2 

0501 

REF  1 

42 

LAST 

621 

20,3543 

6 7763 

1 

AD 

ONE 

0502 

REF 

5 

LAST 

619  , 

20,3544 

54  151 

0 

IS 

TLMPmET 

0503 

■REF 

3 

LAST 

619 

20,3545 

6 3753 

0 

AD 

-,02R/S2 

-0,02  RADIANS/SEC0ND(2)  at  PI/2 

0504 

20,3546 

0 0006 

1 

EXTEND 

0505 

REF 

1 

20,3547 

6 3760 

0 

3ZMF 

FIFTY3 

(BRANCH  FOR  CONSTANT  VALUE  OF  INVERSE,) 

R0506 

calcj 

.ATE  1/AMlN 

5 1/ABVALlAOS 

; 

R0507 

Q.R 

0,R 

0508 

REF 

5 

LAST 

619 

20,3550 

0 3762 

1 

TC 

INVArC 

(USE  SUBROUTINE  FOR  INVERSE.) 

0509 

REF 

8 

last 

621  _ 

-2-0.3551 

50  144 

0 

FIFTY3R 

INDEX 

J03AXE5 

0510 

REF 

6 

LAST 

543 

20,3552 

55'721 

0 

TS 

l/AVUNQ 

SAVE  FOR  USE  BY  URGENCY  CALCULATIONS. 

0511 

ref 

9 

LAST 

621 

20,3553 

4 0144 

1 

C5 

J0BAXE5 

2 - C (JOBAXES)  CAUSES  A BRAnCH  ONLY  WHEN 

0512 

REF 

31 

LAST 

612 

20,3554 

6 7762 

0 

AD 

TWO 

C(JOBAXES)  = 3 OR  2,  l.E.  WHEN  DOING 

0513 

20,3555 

0 0006 

1 

EXTEND 

U-  OR  V-AXIS  PASS  OF  LOOP  ONLY  SET  UP 

0514 

REF 

1 

20,3556 

6 3703 

0 

3ZMF 

JVNEXT 

1/AMINU  OR  1/AMINV,  RESPECTIVELY. 

R0515 

2 

R0516 

TEST 

2(1JACC 

) - 

A3VAL(A0S 

) - 0 

06 

RADIANS/SECONO 

greater  than  zero: 

R0518 

0,R 

Q 

,R 

0519 

REF 

6 

LAST 

621 

20.3557 

4 0151 

0 

CS 

TE'IPNET 

"TEMPNET"  IS  AbVAL(AOSQ,R) . 

0520 

ref 

10 

last 

621 

20,3560 

50  144 

0 

index 

J03AXES 

SAVE  -ABVAl(AOSQ.R)  FOR  USE  IN  THE 

0521 

REF 

1 

20,3561 

54  152 

0 

TS 

ABVLAOSQ 

U, V-AXIS  NJ  computation  below. 

0522 

REF 

LAST 

489 

20,3562 

6 1655 

0 

AD 

-.06R/S2 

-0,06  RADIANS/SEC0ND(2)  scaled  at  PIjZm 

0523 

REF 

11 

LAST 

62l 

20,3563 

50  144 

0 

INDEX 

JOBAXES 

0524 

REF 

5 

LAST 

618 

20*356^ 

6 1614 

0 

AD 

IJACrQ 

"IJACCQ.R"  SCALED  AT  Pl/4  RAD/S£C(2)  ARE 

0525 

20.3565 

0 0006 

1 

EXTEND 

2(lJACCQ,R)  scaled  AT  PI/2  RAD/SEC(2), 

0526 

REf 

1 

20,3566 

6 3630 

1 

3ZMF 

Override 

R0527 

SET  F 

-AC 

Not 

TO  request  Mandatory  four 

jet  operation  for  .q.+r  rotation 

DURING  this  APS  BURN  (FOR  NOW): 

633i»36A 

yul 

SYSTEM  FOR  AgC! 

; REVISION 

0 OF  PROGRAM 

BURST12D  by  NASA  2021106-031 

DEC  7*  1967  (MAIN)  PAGE  622 

L 

A0STA3< 

AND  AOSJOB 

USER*5  OWN  PAGE  NO.  18  S3  E6 

0529 

REF 

2 35 

LAST  615 

. 2_0v3567 

3 7767 

0 _ 

OAF 

ZERO  ^ 

,.NJ  =.  0_ALL0WS  the  URGeNCY  FUtiCtioNS  TO 

0530 

ref 

2 

last  621 

20,3570 

50  1A5 

1 

index 

NjPlACE 

actually  select  2 JET  ROTATION  AS  THE 

0531 

REF 

9 

LAST  5AA 

20,3571 

55*666 

1 

TS 

NJ+3 

OPTIMAL  POLICY. 

R0532 

TEST 

SIGNIAOS  ): 

R0533 

Q f R 

053A 

REF 

12 

LAST  621 

20*3572 

50  1A4 

0 

index 

JOSAXES 

the  sign  OF  AOSQ.R  DETERMINES  THE  RATIO 

0535 

ref 

18 

LAsT  621 

20,3573 

31*660 

0 

:AE 

A0S3 

TO  BE  COMPUTED  As  ThE  CORHECTIOV  FACTOR 

0536 

20.357A 

0 XI006 

1 

_ -XTEND 

IN  THE  urgency  FUNCTION  CALCULATION  AND 

■0537 

REF 

1 

20,3575 

6 3613 

0 

3ZMF 

JRGRAT2 

ALSO  SPECIFIES  THE  CORRECT  NJ  VALUES. 

R0538  first  case  FOR  URGENCY  RATIO: 


0539 

REF 

7 

LAST 

621 

20,3576 

50  196 

1 

JRGRATI  index 

TABPI  ACE 

choose  the  -2  JET  NET  ACCELERATION 

0590 

REF 

2 

LAST 

619___  20,3577 

31*700 

1 

cae 

17NFT-2Q 

INVERSE  FOR  USt  IN  URGENCY  COMPUTATION. 

0591 

ref 

13 

LAST 

622 

20*3600 

50  199 

0 

INDEX  . 

JOSAXES 

0592 

REF 

5 

lAst 

620 

20,3601 

55*717 

0 

TS 

1/Acro 

05925 

20,3602 

22  007 

0 

IL 

prevent  overflow  FOR  SMALL  A0S3S 

0593 

REF 

8 

LAST 

622 

20,3603  , 

50  196 

1 

index 

TASPi  ace 

0599 

REF 

19 

LAST 

620 

20j3609 

31*676 

1 

CAE 

1/NET+2Q 

l/NET+20,R 

0595 

20*3605 

0 0006 

1 

EXTEND 

RATIO  = 

0596 

ref 

9 

LAsT 

622 

20^3606 

5 0196 

1 

index 

TASPi  ace 

1/NET-20*R 

0597 

REF 

3 

LAST 

622 

20,3607 

11*700 

0 

DV 

I/NEt-20 

0598 

REF 

19 

LAST 

622 

20,3610 

50  199 

0 

INDEX 

JOSAXES 

0599 

REF 

9 

LAST 

539 

20,3611 

55*725 

1 

TS 

JRGRATQ 

0550 

rEf 

1 

20,3612 

1 3659 

1 

TCP 

Sw  I TisiJS 

GO  TO  SET  NJS. 

R0551 

SECOND  1 

CASE  1 

FOR  URGF.N 

ICY  ratio: 

0552 

REF 

10 

LAST 

622 

20  *36i3 

5o  iA6 

1 

JRGRAT2  index 

TASPI  ACe 

CHOOSE  the  +2  UET  NET  ACCELERATION 

0553 

REF 

.20 

last 

622 

20,3619 

31*676 

1 

CAE 

1/NEt  + 2(5 

INVERSE  FOR  USE  IN  URGENCY  COMPUTATION.  , 

0559 

20,3615 

22  007 

0 

ZL 

prevent  overflow  on  Zero  bzmf  sranch. 

0555 

ref 

15 

LAST 

622 

20,3616 

50  199 

0 

INDEX 

JOBAXES 

0556 

REF 

6 

LAST 

622 

20,3617 

55*717 

0 

TS 

1/ACro 

0557 

rEf 

11 

last 

622 

20,3620 

50  196 

1 

INDEX 

TASPI  AcE 

0558 

ref 

9 

LAST 

622 

20,3621 

31*700 

1 

cae 

l/NET-20 

1/NET-2Q*R 

0559 

20,3622 

0 0006 

1 

EXTEND 

RATIO  S 

0560 

REF 

12 

LAST 

622 

20,3623 

5 0196 

1 

INDEX 

TASPI  ACE 

1/NET+2Q*R 

0561 

ref 

21 

LAST 

622 

20,3629 

11*676 

0 

DV 

I/NET+20 

0562 

REF 

16 

LAST 

622 

20*3625 

50  199 

0 

INDEX 

JOBAxES 

0563 

REf 

5 

last 

622 

20*3626 

55*725 

1 

TS 

JRGRATQ 

0569 

REF 

1 

20*3627 

1 3700 

1 

rCF 

NXTNJZER 

GO  TO  SET  NJS. 

R0565 

SET 

F'.A! 

G TO 

indicate 

MANDATORY 

' USE  OF  1 

FOUR  Jets  to'  fight 

• thf  offsft 

acceleration: 

633<,36A 

YUL 

system  for  agc: 

REVISION 

0 OF  PROGRAM  BURST123  BY  NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  623 

L 

A0STA5< 

AND  ; 

AOSJOB 

USER*S  OWN  PAGE  NO.  19  S3  E6 

0567 

REF 

^43 

last 

621 

_2Oi3630 

3-  7763 

1- 

override  eaf  _ _ 

ONE  - 

(THIS  SHOULD- BE  DONE  BEFORE  THE  INHlNT.) 

0568 

20,3631 

0 0004 

0 

INHINT 

PREVENT  POSSIBLY  EPHEMERAL  MANDATORY  Nj 

A0569 

SETTING  FROM  AFFECTING  JET  SLLErTlON. 

0570 

REF 

3 

LAST 

622 

20,3632 

50  145 

1 

INDEX 

NJPLaCE 

NJ  s 1 FORCES  THE  URGENCY  FUNCTIONS  TO 

0571 

REF 

10 

LAST 

622 

20,3633 

55'666 

1 

TS 

NJ*3 

ACTUALLY  SELECT  4 JET  ROTATION  AS  THE 

A0572 

OPTIMAL  POLICY  (TO  FIGHT  THp  AOS). 

R0573 

TEST 

SIGNIAOS  ): 

R057A 

O.R 

0575 

REF 

17 

LAST 

622 

20,3634 

50  144 

0 

INDEX 

JOBAxES 

THE  SIGN  OF  AOSQ,R  DETERMINES  THE  RATIO 

0576 

Rtf 

19 

LAST 

622 

_20ji635 

Ji'eLfro 

0 - 

-CAE. 

A-DSD-  - - 

TO  BE  COMPUTED- As  ThE  CORRECTION  FACTOR 

0577 

20,3636 

0 0006 

1 

EXTEND 

IN  THE  urgency  FUNCTION  CALCULATION  AND 

0578 

REF 

1 

20,3637 

6 3663 

1 

• 3ZMF 

JRGRAT4 

ALSO  specifies  THE  CORRECT  NJ  VaLJES. 

R0579 

third  case  For  urgen 

CY  ratio: 

0580 

REF 

13 

LAST 

6 22  _ „ 

„20,36A0 

-30  146 

1 

JRGRAT3  index 

T-A3PLACE  - - 

CHOOSE  THE  -4.  jET  NET  ACClLFRATiON 

0581 

REF 

2 

LAST 

6lV 

20,3641 

31*701 

0 

CAE 

1/NET-4Q 

inverse  For  use  in  urgency  compjtation. 

0582 

REF 

18 

LAST 

623 

20,3642 

50  144 

0 

INDEX 

JOBAxES 

0583 

ref 

7 

last 

622 

20,3643 

55*717 

0 

TS 

1/AccU 

05835 

20,3644 

22  007 

0 

2L 

058A 

ref 

lA 

LAST 

623 

20,3645 

50  146 

1 

INDEX 

TAB^jIACE 

0585 

REF 

22 

LAST 

622 

20,3646 

31*676 

1 

CAE 

1/NET*20 

1/NET+2U,R 

0586 

20,3647 

0 0006 

1 

EXTEND 

ratio  = 

0587 

ref 

15 

last 

623 

20,3650 

5 0146 

1 

index  . 

TABPi  ACE 

l/NET-40, R 

0588 

REF 

3 

LAST 

623 

20,3651 

11*701 

1 

DV 

l/NET-40 

0589 

REF 

19 

LAST 

623 

20,3652 

50  144 

0 

INDEX 

JOBAXES 

0590 

REF 

6 

LAST 

622 

20*3653 

_ 55  *725  1 

TS 

JRoRATQ 

R0591 

reset  values 

OF  nJS 

FOR  Q,R-AXIS: 

0592 

REF 

236 

LAST 

622 

20,3654 

3 7767 

0 

S^ITNJS  CAF 

ZERO 

SET  NJ  = NJ  (FROM  ABOVE) 

0593 

REF 

A 

LAST 

623 

20,3655 

50  145 

1 

INDEX 

njplace 

•Q*-.R 

059A 

REF 

11 

LAST 

623 

20,3656 

57*666 

0 

XCH 

NJ  + 3 

AND 

0595 

REF 

5 

LAST 

623 

20,3657 

50  145 

1 

INDEX 

NJPLaCE 

NJ  = 0, 

0596 

ref 

2 

last 

5A1 

20  * 3660 

55*667 

0 

IS 

Nj-3 

+ Q * +R 

0597 

20  1 366 1 

0 0003 

1 

RELINT 

SINCE  NJS  NOW  VALID,  ALLOW  INTERRJPTS. 

0598 

REF 

2 

LAST 

621 

20,3662 

1 3703 

1 

TCF 

JVNFXT 

GO  test:  FOR  entry  to  U,V-AXES  LDGIC. 

R0599 

FOURTH!  CASE  FOR  URGENCY  RATIO: 

0600 

20,3663 

0 0003 

1 

JRGRAT4  RELINT 

SINCE  ALL  NJS  ALREADY  SET  ARE  NOW  KNOWN 

A0601 

TO  Be  valid,  allow  interrupts. 

0602  REF  16  LAST  623  20.366A  50  1A6  1 INOE)^  TABPiACE  CHOOSE  THE  JET  NET  ACCELERATION 


633<*36A 

YUL 

SYSTEM  FOR  Aoc : 

REVISION  C 

» OF  program  BURST123  BY  NASA  2021106-031 

dec  7*  i967  (MAIN)  PAGE  629 

L 

A05TA5<  AND  AOSJOB 

USER*S  OWN  PAGE  NO,  20  S3  E6 

0603 

ref 

2 last  619 

20,3665 

J 1 • 6.7.7 

0 

. ...  LA£ 

LY31ET  + 9T3 . 

INVERSE  FOR  USE  IN  URGENCY  COMP  iTATIOni. 

20.3666 

20.3667 

22  007 
50  199 

0 

INDEX 

0605 

REF 

20  LAST  623 

0 

JOBAXES 

0606 

R£F 

8 LAST  623  _ 

20,3670 

55*717 

0 

_ TS  . , 

L/AECQ 

0607 

ref 

17  LAST  623 

20,3671 

50  196 

1 

index 

TABPLACE 

0608 

REF 

5 LAST  622. 

2PjJ3.672  _ 

.31  • 700 

1 

.:.ae 

1/.NET-2Q. 

1/NET-ZQ,R 

0609 

20,3673 

0 0006 

1 

EXTEND 

RATIO  = 

0610 

REF 

18  LAST  629 

20,3679 

5 0196 

1 

INDEX 

TABPLACE 

l/NET-f9Q,R 

061i 

BEE 

JIM 

1/NEt*9Q 

0612 

REF 

21  LAST  629 

20,3676 

50  199 

0 

INDEX 

JOBAXES 

0613 

REf 

7 lAsT  623 

20,3677 

55*725 

1 

rs 

JR3RATQ 

R061A 

SET 

NJ  FOR  negative 

ROTATIONS: 

06-15 

REF 

2 37  LAST  62?  __ 

ZQ«37QQ_ 

3 7767 

.0 

nxtnjzer  :af 

Zero 

_.SeJ.^NJ  0-  ..T-0.  Le1._THe  U.R5rM.Y.._  . 

0616 

REF 

6 LAST  623 

20,3701 

50  195 

1 

INDEX 

NjpLACE 

-Q,-R  functions  select  2 jET 

0617 

REF 

3 LAST  623 

20,3702 

55*667 

0 

rs 

NJ.3 

.Q,-R  rotation 

R0618 

test 

-OR  END  OF  O.R- 

AXES  LOOP: 

0619 

REF  ■ 

22  last  t29 

20,3703 

10  199 

1 

JYNExT  CCS 

JO.BAxES  . 

jOBAxES  = 1 MEANS  GO  DO  U-AxIS, 

0620 

REF 

1 

20,3709 

1 3532 

1 

TCF 

ORJOB 

JOBAXES  = 0 MEANS  GO  DO  U,V-AXEs. 

633A36A 

YUL  system  for  A6C;  REVISION  0 OF  PROGRAM  BURST12D  BY  NASA  2021106-031 

DEC  7, 

1967 

(MAIN) 

PAGE 

625 

L 

aostas<  and  aosjob 

USER'S  OWN  PAGE 

NO. 

21 

S3 

E6 

P0621  AFTER  a.tR-AXESLj;OM&Li_tE.JjQ_Uj.V_-AX£S_LQ_(U_ET 


0622 

20.3705 

0 0004 

0 

JVJOB  INHINT 

prevent  possibly  ephemeral  optional  NJ 

A0623 

SETTING  FROM  AFFFCTING  .JET  5FIFCTJON, 

062A 

ref 

2 

LAST 

543 

20,3706 

55,672 

1 

rs 

NJ  + J 

first,  arbitrarily  set  the  U.V-AXIS  NJS 

0625 

REF 

2 

last 

541 

20,3707 

55*673 

0 

TS 

NJ.J 

TO  THE  ZERO  (OPTIONAL)  VALUE  UNTIL  THE 

0626 

REF 

2 

last  541 

20,3710 

-53 '^674 

1 

rs 

NU*V 

TESTS  ON  AOS  ARE  MADE  BELOW.  (ZERO  IS 

0627 

REf 

2 

last 

5^2 

20,3711 

55'675 

0 

rs 

NJ-y/ 

IN  A from  The  preceding  "CCS  JOBAXES".) 

R0628 

2 

R0629 

TEST 

IJACCQ  . 

- ABVAL(AOSO)  - 0 

.06  RADIANS/SeCONO  SREATEH 

: thAm  zero: 

0630 

REF  . 

6 

LAST 

621 

_ 20.3712 _ 

3i'6l4_ 

0 

_ - CA£_ 

iJAcru. 

IJACCQ  scaled  AT  Pl/4  RADIANS/SECOND (2) 

0631 

20,3713 

0 0006 

1 

extend 

multiplying  by  one-half  Changes  scaling 

0632 

REF 

41 

LAST 

59S 

20,3714 

7 7746 

1 

MP 

3IT14 

TO  PI/2  RADIANS/SEC0ND(2)  AS  AOSQ. 

0633 

REF 

5 

LAST 

621 

20.3715 

6 1655 

0 

AD 

-.O6R/S2 

-0.06  RADIANS/SEC0ND(2)  scaled  at  PI/2. 

063A 

REF 

2 

LAST 

621 

20,3716 

6 0152 

1 

AD 

ABVLAOSQ 

ABVLAOSQ  IS  -ABVAL(AOSQ)  AT  PI/2. 

0635 

20,3717 

0 0006 

1 

EXTEND 

0636 

REF 

1 

_ . 20,3720 

6 3731 

1 

3ZMF 

-PJ-PNJL 

(BRANCH  TO  TEST  ON  SIGN(AOSO).! 

RO637 

2 

R0638 

TEST 

LJACCR  . 

. ABvAL(AOSR)  - 0 

• Ob  RADlAN5/5tC0N5  ',REATE^ 

1 than  zero: 

0639 

REF 

3 

LAST 

613 

20,3721 

31*615 

1 

P0PNJ4  CAE 

iJACrR 

IJACCR  SCALED  AT  PI/4  RADI ANS/ SECOND ( 2 ) . 

064U 

20,3722 

_0  000-6 

1 

EXTEND 

multiplying  by  one-half  changes  scaling 

06Al 

REf 

42 

LAsT 

625 

20,3723 

7 7746 

1 

MP 

BITU 

TO  PI02  RAdIANs/sECON0(2)  As  AOciR. 

0642 

ref 

6 

LAST 

625 

20,3724 

6 1655 

0 

AD 

-.06R/S2 

-0.06  RADIANS/SEC0ND(2)  AT  PI/2. 

0643 

ref 

1 

20,3725 

6 0153 

0 

AD 

ABYLaOSR 

ABVLAOSR  IS  -BAVAL(AOSR)  AT  Pl/2.. 

0644 

20,3726 

0 0006 

1 

EXTEND 

0645 

ref 

1 

20,3727 

6 3742 

0 

3ZMF 

P0PN.I2 

(BRANCH  TO  TEST  ON  SIGN(AOSr).) 

0646 

ref 

1 

20.3730 

1 3525 

1 

TCF 

POPNONJ 

GO  SET  data  good  BIT. 

0647 

REF 

20 

last 

623 

20,3731 

11*660 

1 

POPNJl 

CCS 

A0S3 

SINCE  magnitude  OF  AOSQ  LARGE,  NONZERO. 

0648 

ref 

1 

20,3732 

1 -3737 

n 

TCF 

POPM”!^ 

0649 

REf 

36 

last 

603 

20,3733 

0 4736 

1 

TC 

ccshole 

0650 

REF 

3 

LAST 

625 

20,3734 

55, 672 

1 

TS 

NJ  + J 

Set  NJS  FOR  large  negative  aoso. 

0651 

ref 

3 

last 

625 

20,3735 

55*675 

0 

rs 

Nyl-V 

0652 

REF 

1 

20.3736 

1 3721 

1 

TCF 

POPN  14 

GO  CHECK  MAGNITUDE  OF  AOSR. 

0653 

REF 

3 

LAST 

625 

20,3737 

55*673 

0 

P0PNJ3 

IS 

Nj- J 

SET  N.jS  FOR  large  POSITIVE  AOS3. 

0654 

ref 

3 

LAST 

625 

20,3740 

55*674 

1 

TS 

Nj  + \/ 

0655 

REF 

2 

LAST 

625 

20,3741 

1 3721 

1 

TCF 

POPNJ4 

GO  CHECK  MAGNITUDE  OF  AOSR. 

0656 

REF 

8 

last 

609 

20,3742 

11*661 

0 

P0PNJ2 

CCS 

AOSR 

SINCE  magnitude  OF  AOSR  LARGE,  NONZERO. 

0657 

ref 

1 

20,3743 

1 3750 

1 

TCF 

P0PNJ5 

0658 

„ 

20,3744 

11642 

1 

accfifty 

DEC 

0,33679 

,5(50)  SEC(2)/RAD  SCALED  AT  2(*3)/Pl. 

633436A 

yul 

SYSTEM  FOR  Agc; 

REVISION 

0 OF  PROGRAM  BUR5T120  BY 

NASA  2021106-031 

OEC  7,  1967  (MAIN)  PAGE 

626 

L 

AOSTASK  AND  AOSJOB 

USER'S  OWN  PAGE  NO.  22  S3 

E6 

0659 

REF 

4 LAST  625 

. 20»_3745_ 

55  *6^72  1 

JS 

NJtJ 

. SLL_ N.JS_  _FQR  . LAHGE_  NEGAI IV E AOS R . 

0660 

ref 

4 last  625 

20,3746 

55'674  1 

TS 

Nj  + V 

0661 

REF 

2 LAST  625 

20,3747 

1 3525  1 

TCF 

POPNlnNJ 

END  NICELY. 

0662 

REF 

4 LAST  625 

20*3750 

■ 55'673  0 

P3PNJ5 

TS 

MJ-J 

SET  NJS  For  LARGE  POSITIVE  AOSR. 

0663 

ref 

4 last  625 

20,3751 

55*675  0 

IS 

Nj-V 

066A 

REF 

3 LAST  626 

20*3752 

1 J.525.  1_ 

TCF 

POPNONJ 

..END  N.ICE.LY.,„.  .. 

06645 

20*3753 

77456  0 

-•02R/S2 

OEC 

-.01773 

-0.02  RAD1ANS/SEC0N0(2)  AT  PI/2 

R0665 

the 

FOLLOWING  BRANCH 

E5  supply 

CONSTANT 

values: 

0666 

REF 

2 LAST.  4X8  _ 

__20jJ_154_ 3 3i44_  0. 

. ElFTOri.  _ 

CAF  . 

alcfifty 

0667  • 

REF 

1 

20*3755 

1 3457  0 

TCF 

FlFTYlR 

0668 

REF 

3 LAST  626 

2_0_*3756 

3 3744  0 

FIFTY2 

CAF 

ACCFiFIY 

0669 

REF 

1 

20,3757 

1 3472  1 

TCF 

FIFTY2R 

0670 

REF 

4 LAST  626 

20,3760 

3 3744  0 

FIFTY3 

CAF  _ 

AC.CFlFJY 

0671 

REF 

1 

20,3761 

1 3551  1 

rcF 

FIFTv3R 

633A36A 

YUL  SYSTEM  POR  AQC!  REVISION  O OF  PROGRAM  BURST120  BY  NASA  2021106-031 

DEC  7, 

1967  (MAIN) 

PAGE 

627 

L 

P0672 

A0STA3K  AND  AOSJOB 

SUBROUTINE  NAME!  INVACL  M0D._N0._3  _DArE:__PECEMBER_.3_.  1966  . ___ 

USER'S  OWN  PA(jE 

NO.  23 

S3 

E6 

R0673 

AUtHORi:  JONATHAN  D.  AODeLSTON  (ADAMS  ASSOCIATES) 

Ro674  this  subroutine  IS  C4.LeD  BY  AOSJOB  TO  CAUCULATE: 

R0675  P.5  _WH£Re:  TiLMiitiEJ_iS_SC‘'LEO  AT  71 /2  _RA0I  A'J<^/SECoN0  (2) 


R0676 

R0677 

C(A)  = 

TEMPNET  and  the 

FRACTION  IS  SCALED 

AT  2(+8)/PI  SEC(2)/RAD, 

R0678 

this  simple  computation  was  SUBROUTINIZED  due  to 

ITS 

FREOJENt  USE. 

R0679 

CALLING  SEQUENCE;  TC  INVACC_ 

R0680 

subroutines  called;  mone. 

NORMAL  EXIT  MOOt: 

ONE 

INSTRUCTION  after 

CALL. 

R0682 

ALARM  OR  ABORT  EXIT  MODES:  NONE. 

R0683 

INPUT:  TEMPNEI  &CALE0_  AT  PIZ2 

RaDIANS/SEC0NDS(,2)  . 

R068A 

output:  C(A)  scaled  at  2(+8)/PI  SEC0NDS(2) /RADIAN 

• 

R0685 

debris:  L,Q. 

0686 

REF  36  LAST  596  20,3762 

3 7755  I INVACC 

CAF 

_ _ 3_I  T7  . 

BIT7  IS  USED 

AS  THE  numerator  3.5  SINCE 

0687 

0688 
0689 

20,3763 

20,376A 

REF  7 last  621  20,3765 

22  007  0 
0 0006  1 
_10_151  _0_  _ 

ZL 

EXTEND 

2V LE.MN£^t_  _ __  ._ 

"TEMPNET"  IS 

scaled  at  pi/2  ano  the 

0690  REp  239  LAST  60^  20,3766  0 0002  0 ' TC  3 ^ ~ I NvERSE  I S SCALED  AT  2(*8)/pI. 


633't36A 


L 

PQ6905 

R0691 

0692 

0693 

0694 

0695 


0696 

0697 
C0697- 
R0698 
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AOSTASK  AND  A05J0B  USER'S  OWN  PAGE  NO.  2A  S3  E6 

START  cop  I NG_  F 0_R_  MODJ'-E  3 REMA<f.  AUGUST  1967lHHtSrART  CODING  FOR  MODULf  3 RfMAKF  . ^AUGUST.  . 1 96Z***A**»A» » »»» 


from  dpsengon:  set  Flags  for  critical  gts  entries. 


REF 

7 

LAST 

586 

20,3767 

Z0t3XL0 

55*310  0 
0 0006  1 

SETCNTR 

IS 

extend 

ovsei'ect 

SET  SWITCH  TO 

GO  TO  GIMBLMON 

REF 

REF 

1 

18 

LAST 

5a7 

20.3771 

20.3772 

3 3774  0 
52  006  0 

3CA 

3XCH 

GETAOR 
Z , 

SPACE  for  new 

coding  in  bank  17 

REF 

6 

LAST 

586 

E6 

rBANK= 

TRIMrNTR 

20,3773 

02157  0 

SETADR 

2cADR 

GETcnTR 

,sef_ 

20,3774 

36066  1 

»*EN0  CODING  FOR  MODULE  3 REMA<E,  AUGUST  l967»»)HHiEND  CDOI No'  FOR’MODULE  3 REMAKE,  AUGUST  1967»*jhhh,**»»»»»»»»»*« 
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L SPS  3AC<-UP  RCS  CONTROL 


USER'S  OWN  PAGE  NO.  1 S3 


0001 

21 .3417 

3ANK 

.21 

0002 

ref 

28 

last 

594 

E6 

EBAN<= 

DT 

0004 

REF 

4 

LAST 

549 

. 2L.3417 

4 0775  0 

S^SRCS  _ 

:s  __ 

QMESaUCL 

0005 

REF 

16 

LAST 

608 

21,3420 

6 1416  0 

AD 

DMESaQ 

0006 

REF 

8 

last 

547 

21,3421 

55*423  1 

rs 

EDDTO 

EDOT  = OMEGAQ  - OMEGAOD 

0007 

REF 

10 

LAST 

594 

21,3422 

6 1413  0 

AD 

Er 

0012 

21,3423 

0 0006  1 

extend 

F s 1/4  E ♦ EDOT 

0013 

REF 

1 

21,3424 

6 3464  _1 

3ZMF 

PLJSD 

DO  NEGATIVE  FOR  POSITIVE  F 

0014 

REF 

1 

21,3425 

3 3571  1 

CAF 

■NEG3 

STORE  direction  TO  THRUST  IN  IT=MP3 

0015 

REF 

22 

last 

509 

21,3426 

54  063  0 

oCOMPJTE 

rs 

1TEMP3 

0016 

REF 

9 

LAST 

629 

21,3427 

31'423  0 

:ae 

EDDTO 

00165 

21,3430 

0 0006  1 

EXTEND 

0017 

ref 

1 

21,3431 

7 3570  1 

MP 

ACDNST 

ACONsT  s 2**»(-ll)  X SQRT(1/2A  X PI/1024) 

00175 

REF 

276 

LAST 

620 

21,3432 

10  000  0 

CCS 

A 

0018 

REF 

1 

21.3433 

1 9455  1 

TCF 

LIMSOO 

00185 

21,3434 

1 3436  1 

rCF 

♦ 2 

0019 

REF' 

2 

LAST 

629 

21,3435 

1 3455  1 

TCF 

LlMSOQ 

00195 

ref 

277 

LAST 

629 

21,3436 

22  000  1 

1.x  Cri 

A 

..As  2*n*(3l  X S(3RT(1/2A  X PI/1024) 

0020 

21,3437 

0 0006  1 

L1MRET3 

EXTEND 

00205 

21,3440 

7 0000  0 

SQUARE 

0021 

ref 

37 

LAST 

603 

21,3441 

54  062  1 

TS 

1IEMP2 

JTEMP2  s (I/2A)  EP0T**2 

0022 

REf 

11 

LAST 

629 

21*3442 

6 1413  0 

AD 

ER 

0023 

REF 

2 

LAST 

629 

21,3443 

6 3571  1 

AD 

negd 

OB  IS  Specified  by  negd  in  spS  yiooE 

0025 

21,3444 

0 0006  1 

EXTEND 

0026 

REF 

1 

21,3445 

6 3472  0 

3ZMF 

JZERn 

0027 

ref 

10 

LAST 

629 

2 1 V 3^46 

31*423  0 

CAE 

EDDTn 

G WAS  POSITIVE,  NOW  TEST  EDOT 

0028 

21,3447 

0 0006  1 

EXTEND 

0029 

ref 

1 

21,3450 

6 3461  1 

3ZMF 

JLOW 

0030 

REF 

38 

LAST 

629 

21,3451 

6 0062  0 

AD 

1TEMP2 

EDOT  WAS  POSITIVE,  CALCULATE  HIGH  U CASE 

0033 

ref 

12 

last 

629 

21,3452 

6 1413  0 

AD 

ER 

0036 

REF 

21 

LAST 

543 

21,3453 

55*502  0 

TS 

JR5ENCYQ 

0037 

REF 

1 

21,3454 

1 3474  1 

TCF 

RCALC 

00374 

REF 

36 

LAST 

607 

21,3455 

3 7743  0 

LIMSQ3 

CAF 

POSMAX 

00375 

REF 

1 

21,3456 

1 3437  0 

TCF 

LIMRETO 

00376 

REF 

37 

LAST 

629 

21,3457 

3 7743  0 

LlMSQR 

CAF 

posmax 

00377 

REF 

1 

21,3460 

1 3514  0 

TCF  " 

LIMRETR 

0038 

REF 

13 

LAST 

629 

2 1 « 346 1 

6 1413  0 

JLOW 

AD 

ER 

EDOT  WAS  negative,  CALCULATE  LOW  J CASE 

0041 

REF 

22 

LAST 

629 

21,3462 

55*502  0 

TS 

JRQEnCYQ 

633^,36A  YUL  SYSTEM  FOR  *GC:  REVISION  o OF  PROGRA'1  BURSTIZd,  6Y  NASA  2n211o6-o3l 
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(MAIN)  Page  63q 


L SPS  3AC<-UP  RCS  CONTROL 


USER'S  OWN  PAGE  NO.  2 S3  E6 


00a2 

REF 

2 

LAST 

629  _ . 

-21  • 3463 

a 3474 

1 

-ICF 

_RCALC  . - - 

0043 

REF 

14 

LAST 

629 

21*3464 

4 1413 

1 

PtUSD 

:s 

ER 

004A 

ref 

1 5 

LAST 

630 

21*3465 

57*413 

0 

XCH 

ER 

0045 

REF 

11 

LAST 

629 

21*3466 

4 1423 

1 

:s 

EDDTo 

0046 

REF 

12 

LAST 

630 

21*3467 

57*423 

0 

kch 

EDDTn 

0047 

REF 

3 

LAST 

629 

21*3470 

4 3871 

0 

-C5 

NEGD 

0048 

ref 

1 

21*3471 

1 3426 

0 

rcF 

gcompute 

0049 

REF 

238 

last 

624 

21*3472 

-3  7767 

0 

J2ER0 

:af 

ze.Rd 

G = 0*  NO  URGENCY 

0050 

REF 

23 

LAST 

629 

21*3473 

55*502 

0 

IS 

JRSENCYQ 

0051 

ref 

6 

last 

549 

21*3474 

-4  077_6 

0 

R-CAlC.  . 

CS-  . 

D.M.E_5ArD 

repeat  calculations  for  r-AxiS 

0052 

REF 

16 

LAST 

608 

21*3475 

6 1420 

0 

AD 

0ME3AR 

0053 

REF 

5 

LAST 

547 

21*3476 

55*424 

0 

IS 

EDOTR 

0057 

rEf 

31 

lAst 

594 

21*3477 

6 1411 

1 

AD 

E 

F = 1/4  E ♦ EDOT 

0059 

21*3500 

0 0006 

1 

EXTEND 

00&0 

REF 

1 

21*3501 

6 3535 

1 

3ZMF_ 

PLJSqR.  _ . 

0061 

REF 

4 

LAST 

630 

21*3502 

3 3571 

1 

:af 

NEoD 

00&2 

REF 

21 

LAST 

520 

21*3503 

54  064 

1 

GCOMPUTR 

TS 

1TEMP4 

0063 

REF 

■6 

LAST 

630 

21*3504 

31*424 

1 

CAE 

EDDTR 

00635 

21*3505 

0 0006 

1 

EXTEND 

0064 

REf 

2 

lAst 

629 

21*3506 

7 3570 

1 

IP 

ACDNsT 

AcONsT  = 2*H*(-11)  X SQRTU/2A  X PI/1024) 

00645 

REF 

278 

LAST 

629 

21*3507 

10  000 

0 

CCS 

A 

0065 

REF 

1 

21.3510 

1 3457 

0 

TCF 

LlMSoR 

00655 

21,3511 

1 3513 

1 

TCF 

+ 2 

0066 

REF 

2 

LAST 

630 

21.3512 

1 3457 

0 

TCF 

limsor 

00665 

REF 

279 

LAST 

630 

21*3513 

22  000 

1 

lXCH 

A 

A s 2***(3)  X SURT(1/2A  X PI/1024) 

0067 

21*3514 

0 0006 

1 

LIMRETR 

EXTEND 

00675 

21*3515 

7 0000 

0 

square 

0068 

REF 

39 

LAST 

629 

21,3516 

54  062 

1 

T5 

ITEV1D2 

0069 

REF 

32 

LAST 

630 

21*3517 

6 1411 

1 

AD 

E 

0070 

REF 

5 

LAST 

630 

21*3520 

6 3571 

1 

AD 

ME50 

0072 

21*3521 

0 0006 

1 

EXTEND 

0073 

ref 

1 

21,3522 

6 3543 

0 

3ZMF 

JZERnR 

0074 

REF 

7 

LAST 

630 

21*3523 

31*424 

1 

CAE 

EDDTo 

0075 

21*3524 

0 0006 

1 

EXTEND 

0076 

ref 

1 

21,3525 

6 3532 

0 

3ZMF 

JLOWR 

0077 

REF 

40 

last 

630 

21*3526 

6 0062 

0 

AD 

II EMP2 

EDOT  WAS  POSITIVE*  CALCULATE  HIGH  U CASE 

0080 

REf 

33 

LAST 

630 

21*3527 

6 1411 

1 

AD 

E 

0083 

REF 

21 

LAST 

543 

21*3530 

55*504 

0 

TS 

JRGENCYR 

633i(36A 

YUL 

SYSTEM  FOR  AQC! 

; REVISION 

0 OF  PROGRAM  BURST120  SY  NASA  2021106-031 

DEC  7.  1967  (MAIN)  PAGE  631 

L 

SP5 

34C<-UP  1 

rcs  control 

USER'S  Own  page  no,  3 S3  E6 

ooa^ 

REF 

, 

21.3531 

1 3595 

_1_ 



JRSRECT 

0085 

REF 

39  LAST 

630 

21.3532 

6 1911 

1 

JLOWR 

AD 

E 

EDOT  WAS  negative.  CALCULATE  LO,/  J CASE 

0088 

REF 

22  LAST 

630 

21.3533 

55'509 

0 

TS 

JRoEnCYR 

0089 

ref 

2 last 

631 

21.3539 

1 3595 

1 

TCF 

JRSRFCT 

OO9O 

REF 

35  last 

63l 

21.3535 

9 1911 

0 

PtUSOR 

:s 

E 

OO9I 

ref 

36  JJIST 

631 

21.3536 

571911 

1 

XCH 

E 

0092 

REF 

8 LAST 

630 

21.3537 

9 1929 

0 

:s 

EDOTR 

0093 

REF 

9 last 

631 

21.3590 

57*929 

1 

KCH 

ED3TR 

009'» 

REF 

6 LAST  63P 

21.3591 

9 3571 

_Cl_ 

-CS_ 

NEGD 

0095 

REF 

1 

21.3592 

1 3503 

0 

TCF 

SCDMpUTR 

0096 

REF 

239  LAST 

630 

21_._3593 

a 7767^ 

0. 

jeeror... 

-CAF  _ 

-ZERO 

0097 

REF 

23  LAST 

631 

21.3599 

55*509 

0 

TS 

JRoEnCYR 

0098 

REF 

22  LAsT 

6^0 

^1j3595 

10  069 

1. 

JRGRECT 

CCS 

IT£MP4_  _ - 

-DJR_R  4J£MP9a_  nQN--ZERQ  - 

0099 

REF 

29  LAST 

631 

21.3596 

9 1509 

0 

CS 

JRGEnCYR 

DR  POS  : POSR  JETS  = URGENCY  NE3 

0100 

REF 

25  LAST 

631 

21.3597 

55*509 

0 

TS 

JRGENCYR 

URGENCYR  NEGATIVE 

0101 

ref 

23  LAST 

629 

21.3550 

10  063 

0 

CCS 

1TEMP3 

DO  = ITEMP3,  nON-ZERO 

0102 

REF 

29  LAST 

630 

21.3551 

9 1502 

0 

CS 

JRGENCYq 

Do  POS  s POSR  JETS  s NEGATIVE  JRGFNCY 

0103 

REF 

25  LAST 

631 

21,3552 

55*502 

0 

TS 

JRoENCYO 

OlOA 

REF 

1 

21.3553 

3 3572 

1 

CAF 

RESAdR 

RESADR  = JETSOn  AFTER  POLICY  LOCATION 

0105 

REF 

_3  LAST 

562 

21.3559 

59  062 

1 

TS 

T.jETADR 

0106 

REF 

6 last 

57s 

21.3555 

3 7799 

1 

CAF 

NEGI/2 

SET  URGLIMIT  = NEGMAX  FOR  ONLY 

0107 

REF 

10  LAST 

593  _ 

_ _ 2_1 ,3556 

59  066 

0 

TS  „ 

JRGLTMIT  - 

2 uet  response 

0108 

REF 

5 LAST 

626 

21.3557 

55*673 

0 

TS 

NJ-J 

SET  UETS  FOR  NO  OFFSET  CORRECTION 

0109 

REF' 

5 LAST 

626 

21.3560 

55*672 

1 

TS 

NJ.J 

0110 

REf 

5 last 

626 

21,3561 

55*675 

0 

TS 

MJ-V 

0111 

REF 

5 LAST 

626 

21,3562 

55*679 

1 

TS 

NJ  + V 

0117 

21 ,3563 

0 0006 

1 

EXTEND 

0118 

ref 

1 

21,3569 

3 3567 

0 

OCA 

JRGAyAOR 

0119 

21,3565 

52  006 

0 

3TCB 

0120 

ref 

17 

last 

£6 

EBAN<= 

OMEGaO 

0121 

C0I2I 

ref 

2 

LAST  539 

21.3566 

21.3567 

03159  1 
36066  1 

JRGAXAOR 

2CADR 

URGPLANE 

0122 

21,3570 

00016  0 

ACONST 

ogtal 

00016 

0l29 

0125 

REF 

1 

21.3571 

21.3572 

77511  1 
03730  0 

NEGD 

RESADR 

OEC 

REMAOR 

-O.Oi 11 
JETSON 

JETSON  IS  IN  U.R  TJETLAW 
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0126 

_8EF 

?Q 

1 AST 

629 

E6, 

EBAN<= 

JU 

0127 

REF 

6 

LAST 

533 

21,3573 

3 7762  0 

TRVGTS 

CAF 

JSEDRJTS 

IS  JET  USE  Mandatory. 

0128 

REF 

52 

LAST 

620 

21,3574 

7 0077  0 

MA5< 

DAP300LS 

0129 

REF 

280 

LAST 

630 

21,3575 

10  000  0 

j:cs 

A 

0130 

REF 

45 

LAST 

599 

21,3576 

■ 1 5733  1 

TCF 

resume 

YES.  RESUME. 

0132 

21,3577 

,0  0006  1 

EXTEND. 

NO.  CALL  IN  GTS,  IF  POSSIBLE. 

0133 

21,3600 

00  012  1 

READ 

12 

0134 

REF 

1 

21,3601 

7 3617  0 

*1AS<, 

BGIM-il 

ARE  GIMBALS  STILL  DRIVING. 

0135 

REF 

231 

LAST 

63_,2. 

,,  -21.,3.6Q2_ 

10  000  0 

ccs,„.. 

A 

0137 

REF 

LAST 

63Z 

21,3603 

1 5733  1 

TCF 

Resume 

GIMBALS  still  DRIVING.  TRY  AGAtN  LATER. 

0138 

REF 

3l 

LAST 

621 

, . 21,3604 

4_  6311  -0 

oDTOGtS 

:s  • 

three 

GIMBALS  stopped.  RESET  TIME5  COUNTER 

0139 

REF 

16 

LAST 

59l 

21,3605 

26  030  0 

ads 

times 

FROM  20  MS  TO  5O  MS. 

0140 

21  * 3606 

0 0006  1 

EXTEND 

NEXT  T5RUPT  IN  50  MS  IS  PAXIS. 

0141 

REF 

4 

LAST 

580 

21,3607 

3 2100  1 

_DCA  . 

PAX/FILT 

0143 

REF 

21 

LAST 

593 

21,3610 

53*001  0 

DXCH 

T5ADr 

0144 

rEF 

1 

21 f 36l 1 

i,i40A_0 

INSRT21A 

TCF 

TESTCnTJR 

determine  WHAT  T0_PUT_in  PASSCTS^  __  . . 

0145 

REF 

2 

LAST 

594 

21,3612 

55*736  0 

LDADCNTR 

rs 

PAS5CTR 

NMBR  PASSES  REQUIRED  TO  WARM  U?  FILTER 

0146 

21,3613 

0 0006  1 

EXTEND 

0147 

REF 

1 

21,3614 

3 3621  1 

DCA 

RATETNAD 

NEXT  T5RUPT  AFTER  NEXT  PAXIS  IS  RATEINIT 

0148 

REF 

5 

LAST 

594 

21,3615 

53*573  0 

DXCH 

PFILTADR 

CONTROL  FLOW  SWITCH  CELL  FOR  PAkIS  RJPT. 

0149 

REF 

47 

LAST 

632 

21  * 36 1 6 

1 5733  1 

TCF 

RESUME 

01495 

21,3617 

07400  1 

BGIM2I 

DCT 

07A0O 

TRIM  GIMBAL  BITS  IN  CHANNEL  12  ARE  9-12. 

0150' 

REF 

30 

LAST 

632 

E6 

EBAN<= 

DT 

0151 

21,3620 

03622  1 

rateinad 

ZCADR 

RAl EINIT 

RATE  INITIALIZATION  FOR  KALMAN  FILTER. 

C0151  REF  1 21,3621  42066  1 
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P01515 

0152 

REF 

1 

21 

.3622 

3 3645 

0 

rateinit 

CAF 

F1LTMS50 

RESET  timer  immediately  DT  s 53  MS. 

0153 

ref 

17 

LAST 

63Z 

21 

,3623 

_54  _030 

0 

IS 

TIMES 

015A 

REF 

20 

LAST 

59l 

21 

.3629 

22  016 

0 

lxch 

BANKRUPT 

interrupt  LEAD-IN  (CONTINUED) 

n 1 *55 

21 

.3625 

0 ,0006 

1 

s^XTEND 

0156 

REF 

18 

LAST 

59l 

21 

.3626 

22  012 

1 

3XCH 

DRJPT 

0157 

_ 21 

.3ij27^ 

0 0006 

1 

EXTEND 

FILTINIT  WILL  BE  NEXT  T5RUPI,  IN  5O  MS. 

0158 

ref 

1 

21 

.3630 

3 3644 

1 

:CA 

filinadr 

0159 

ref 

22 

LAST 

6 32 

21 

.3631 

53'001 

0 

3XCH 

TSADr 

0160 

REF 

1 

21 

.3632 

3 3635 

1 

:a 

BACKMOME 

ESTABLISH  RETURN  SWITCH  FROM  TH-  PROCESS 

0161 

ref 

4 

LAsT 

580 

21 

.3633 

55'544 

1 

Is 

STEERADR 

OF  reading  cduy.z  and  timer,  to  be  Used 

0162 

REF 

1 

_ 11 

.-UJjA 

,1_2042 

1 

rcF 

FILSTART  .1 

JH^FILUNIT  FOR  RATE  initialization  _ _ 

0163 

REF 

2 

LAST 

633 

21 

.3635 

03636 

1 

backhome 

5ENADR 

BACKHOME  .1 

01&A 

REF 

4 

LAST 

58° 

21 

.3636 

23*543 

1 

'.XCH 

dapt iMe 

RETURN  Here  to  store  data  uust  described 

0165 

21 

.3637 

0 0006 

1 

extend 

0166 

REF 

8 

LAST 

598 

21 

.3640 

3 1541 

0 

3CA 

STDRCDUY 

in  2S  COMPLEMENT,  SCALED  AT  PI 

0167 

REF 

2 

LAST 

56 

21 

.3641 

53*741 

0 

3XCH 

HOLDCDUY 

HOLD  FOR  rate  DERIVATION 

0168 

REF 

A8 

LAST 

632 

21 

.3642 

1 5733 

1 

rcF 

RESUME 

0169 

REF 

31 

LAST 

632 

E6 

eban<= 

DT 

0170 

21 

.3643 

02000 

0 

FILINADR 

2CADR 

FILTTNIT 

C0170 

ref 

1 

21 

.3644 

42066 

1 

0171 

21 

,3645 

37773 

0 

FILTMS50 

3CT 

37773 

50  MS  CONSTANT  FOR  TIMES 

0172 

REF 

1 

21*3646 

03647 

i_ 

H3MAGAI N 

3£MADR__eICLMAGA_IN 

0173 

REF 

A6 

LAST 

602 

21 

,3647 

3 7763 

1 

:a 

BlTl 

SET  UP  RATE  CALCULATION  LOOP,  Z AXIS  1ST 

017A 

REF 

30 

LAST 

598 

21 

,3650 

54  066 

0 

HOMELOOP 

T5 

ORCNTR 

0175 

21 

,3651 

6 0000 

1 

DOUBLE 

0176 

REF 

7 

LAST 

597 

21 

,3652 

54  061 

1 

TS 

KCENTRAL 

0177 

REF 

31 

LAST 

633 

21 

,3653 

50  066 

1 

INDEX 

3RCNTR 

0178 

REF 

9 

LAST 

633 

21 

,3654 

3 1540 

1 

:a 

STORCDUY 

2S  COMPLEMENT  AT  PI 

0179 

21 

,3655 

0 0006 

1 

EXTEND 

0180 

REF 

32 

LAST 

633 

21 

,3656 

5 0066 

1 

INDEX 

orcntr 

0181 

REF 

3 

LAST 

633 

21 

.3657 

21*740 

1 

•15U 

HOLDCDUY 

difference  in  IS  complement,  at  PL 

0182 

21 

’ 3660 

0 0006 

1 

EXTEND 

0183 

ref 

AO 

last 

596 

21 

,3661 

7 7756 

0 

VIP 

BITS 

difference  in  L,  at  PI/2(5) 

OleA 

REF 

135 

LAST 

607 

21 

.3662 

56  001 

0 

kch 

L 

ZERO  L,  prepare  for  DIVISION  BY  DJL 

0185 

21 

.3663 

0 0006 

1 

EXTEND 

0186 

ref 

32 

last 

633 

21 

.3664 

11*542 

1 

3V 

DT 

DT  IS  AT  1/8,  SO  RATE  IS  AT  Pl/4 

0187 

REF 

8 

LAST 

633 

_11 

.3665  50  061 

0 

JLNDEX 

KCENtRAL 

0188 

REf 

6 

last 

592 

21 

,3666 

53*560 

1 

DXCH 

DcDJyFIl 

STORE  S.P.  INITIAL  RATE  ESTIMATE 

0189 

REF 

33 

LAST 

633 

21 

.3667 

10  066 

0 

CCS 

DRCNtR 

ARE  BOTH  RATES  DONE  YET. 

0190 

REF 

1 

21 

,3670 

1 3650 

0 

TCF 

HDMELOOP 

NO,  NOW  DO  Y AXIS  . __  

0191 

REF 

1 

21 

,3671 

3 3674 

1 

CA 

ordinary 

YES.  SET  SWITCH  FOR  NORMAL  OPERATION 
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0192 

R^Ef_ 

1 

21t3672 

55'742 

_Q_ 

JTS 

STEERAD? 

0193 

REF 

2 

LAST 

574 

21.3673 

1 2323 

0 

rcF 

FILFIRST  +1 

0194 

REF 

5 

LAST 

632 

21 *367^ 

02075 

1 

ORDINARY 

3ENADR 

PAX/fILT  -2 

0195 

REF 

210 

LAST 

631 

21.3675 

3 7767 

0 

CLEARCH5 

:af 

Zero 

0196 

21.3676 

0 0006 

1 

extend 

0197 

21i36JJ_ 

01  005 

0 

WRJtE__ 

.5 . . _ 

0198 

REF 

2 

LAST 

633 

21.3700 

3 3646 

0 

:af 

HOMAr^AIN 

0199 

REF 

2 

LAST 

634 

21.3701 

55*742 

0 

TS 

STEERAD2 

0200 

REF 

2 

LAST 

63_3  __ 

J l ' 3 70Z_ 

1 i042 

1 

TCF 

FILSTART  +1 

. 0201 

REF 

10 

LAST 

58° 

21.3703 

53*575 

0 

countdwn 

OXCH  . 

PFRPtLSt 

0202 

REF 

3 

LAST 

632 

2l .3704 

11*736 

0 

CCS 

PASSCTR 

0203 

REF 

4 

LAST 

634 

21 .3705 

55*736 

0 

TS 

paSsctr 

0204 

ref 

3 

lAst 

634 

21 .37O6 

_ 1 2041 

1 

TCF 

FIL4TART 

0205 

REF 

33 

last 

633 

2I.37O7 

55*542 

1 

TIMEDOME 

TS 

DT 

0206 

REF 

3 

LAST 

634 

21*_3ZL0 

0 1742 

1 _ 

TC 

Steeradz 

0207 

REf 

6 

last 

634 

21.3711 

1 2075 

0 

rcF 

PAX/FILT  -2 

0208 

REF 

1 

21.3712. 

3 3720 

1 

JSUALXIT 

CA 

GOOADR 

0209 

REF 

2 

last 

598 

21.3713 

55*737 

1 

rs 

SLECTLAW 

0210 

REF 

1 

21.3714 

1 3005 

0 

TCF 

GTSOAXIS 

0211 

REF 

5 

last 

634 

21.3715 

11*736 

0 

TE5TPCTR 

CCS 

PASSCTR 

0212 

REF 

1 

21.3716 

1 3722 

1 

TCF 

SIMPCTRL 

0213 

REF 

2 

LAST 

593 

21.3717 

1 2731 

1 

TCF 

RCSCNTRL 

0214 

REF 

1 

21.3720 

03003 

1 

30QADR 

5ENA0R 

GOOTRIMG 

0215 

ref 

1 

21.3721 

03726 

1 

SiMPQAOR 

jENAdR 

SlIMPdTRG 

0216 

REF 

1 

21.3722 

3 3721 

0 

simpctrl 

CA 

SIMPOADR 

0217 

REF 

3 

LAST 

634 

21.3723 

55*737 

1 

TS 

SLECtLAW 

0218 

REF 

3-2 

LAST 

621 

21.3724 

3 7762 

0 

CAF 

TrtO 

0219 

ref 

1 

21.3725 

• 1 3727 

1 

TCF 

SIMPLOOP 

0220 

REF 

211 

LAST 

634 

21.3726 

3 7767 

0 

SIMPQTRG 

CAF 

ZERO 

0221 

REF 

34 

LAST 

633 

21.3727 

54  066 

0 

SIMPLOOP 

TS 

ORCNtR 

0222 

REF 

35 

LAST 

634 

21.3730 

50  066 

1 

INDEX 

ORCNTR 

0223 

REF 

7 

LAST 

602 

21.3731 

11*417 

0 

CCS 

ALPHAQ 

0224 

REF 

47 

LAST 

633 

21.3732 

3 7763 

1 

CA 

BlTl 

0225 

REf 

2 

LAsT 

598 

21,3733 

1 3176 

0 

TCF 

P05DRIVE 

0226 

REF 

48 

LAST 

634 

21,3734 

4 7763 

0 

cs 

3IT1 

0227 

REF 

3 

LAST 

634 

21.3735 

1 3176 

0 

TCF 

POSOrIVE 

USER'S  OWN  page  no.  6 S3  E6 


TURN  OFF  Q.R-AXES  RCS  JETS, 


SET  UP  TO  prevent  FILTERING  DURING  THE 
INITIALIZATION. 

TaJOBCHK  NOT  NEEDED,  CHANNEL  5 ZEROED, 
FINISH  cycling  POST  RUPT  LIST. 


decrement  PASSCTR, 


DT  STORED.  SCALED  AT  1/8. 

BYPA_SS  filtering  DURING,  INIJ,I  ALIZAJ  I ON. 


SET  LOOP  EXIT  FOR  SIMPLE  CONTROu  OR  NOT. 


EITHER  ZERO  (+)  , OR  POSITIVE 
USE  SIMPLE  CONIROL  - NULLIFY  AL^HA. 
TO  TO  Q.R  JETS, 


SET  UP  2ND  PASS  THROUGH  CONTROL  LOOP. 

SET  UP'IN(OEX'FOR  1ST  PASS  THROJSH  SIM 
PLE  control  L^W.  (R-AXIS) 

SET  IN(^__F0R_Q-AXIS 


CHOOSE  DRIVE  TO  NULL  ALPHA 


DRIVE  bits  go  to  THE  CHANNEL 
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P02285 

R0229 

R0230 

0231 

0232 

0233 
023A 
0235 

• 0236 
0237 

R0238  , 

0239 

02A0 

0291 

0292 

0293 
0299 

0295 
02955 

0296 
A0297 

0251 

0252 

0253 
0259 

0255 

0256 

0257 

0258 

0259 

0260 

R0261 

0262 


sPs  3AC<-up  Rcs  Control  user's  own  page  no.  7 S3  e& 

start  coding  F0R-MODJi,E__3_REMA<E,  AUGUST  1967«**STArT  CDOONi.  E-OR-MOdULE_  3 REMAKE*  AUGUST  1967*_**»»*»**»»»»»»»»»* 

FROM  3TS:  when  TRIMCRTK  active,  do  SIMPCTRL  IF  THE  FILTER  Is  NOT  WARM 

AND  DO  A T30FF  DRIVE  IF  IT  IS. 

REF  5 last  603  21,3736  11*769  1 CHKCNTR  CCS  SlMPfNTR  CHOOSE  SIMPCtRL  OR  NORMAL  GtS  C7NTR0L. 

REF  3 last  593  _ _ 2 1 ,J.73.7  _ i 37l5  0 ICF Tt5TPCT_R ^ SIMPCJRL  UNTIL  PASSCTR  IS  ZERO, THEN  EXIT 

REF  1 21,3790  1 3793  0 ICF  NORmCTRl  NORMAL  GTS  CONTROL. 

REF  37  LAST  625  21,3791  0 9736  1 TC  CCSHnLE 

REF  38- LAST  635 21 ,3.792 Q^T3i>_l TC CCSHQLE 

REF  99  last  63^  21,3793  3 7763 ’1  NORMCTRL  CAF  3IT1  RETURN  TO  NORMAL  GTS  CONTROL. 

REF-  21,3799 L_2JJii_l JCJE iJiSERiZl-*-! 

FROM  chekdriv:  allow  tuoffcal  Drives  and  disable  special  gts  indicators 


REF  1 21,3795  0 3307  0 WARMFILT  TC  tGoFfCAL  (A=  o*  INDEX  FoR  Q-AXIS  IN  TOOF^CAL) 

REF  12  last  586  21,3796  3 7795  0 CAF  NEgMax  RETURN  HERE  FOR  NO  Q DRIVE. 

REF  29  last  .631 21,3797  .59  063  0.  _ JS IT£_MR3 . . . RETURN- HERE.  W 1 IH.  T I.ME  IN  A (DECiSE-CONOS) 

REF  33  LAST  63^  21,3750  3 7762  0 CAF  TwO  INDEX  FOR  R-AXIS. 

ref  2 LAST  635  21,3751  0 3307  0 TC  TgOFFCAL 

REF  13  LAST  635  21,3752  3 7795  0 CAF  NEGMAX  RETURN  HERE  FOR  NO  R DRIVE. 

REF  136  LAST  633  21,3753  59  001  1 TS  L RETURN  HERE  WITH  TIME  IN  A (DECASeCONDS) 

REF  25  LAST  635  2_1,3759  30  063  1 CAE_  _ 1TEMP3 

REF  8 LAST  52l  21,3755  53«759  1 DXCH  OGIMTIMR  SET  fiMERS  SIMULTANEOUSLY  FOR  RESTART 

protection. 

REF  - 5 last  559 21,3756  .0  3293  1 TC  _ WRCHN12  START  DRIVES 

REF  7LAST  628  21,3757  11'7A9  0 CCS  TRlMrNTR  DEACTIVATE  TRIMCNTR  IF  IT  HAS  REACHED  -0 

: 2-1,3760  1 3765  1 TCF  *5 

REF  39  LAST  635  21,3761  0 9736  1 TC  CCSHOLE 

21,3762  1 3765  1 TCF  +3 

REF  19  LA3T  6_35  21,3763  3 7795  0 CAF  NlGMAX 

REF  8 LAST  635  21,3769  55*799  0 TS  TRlMrNTR 

ref  212  LAST  639  21,3765  3 7767  0 *5  CAF  ZERO  DEACTIVATE  GTSMNITR  NOW  THAT  ToOFFCAL 

REf  9 last  586  21,3766  55*795  1 TS  GTSmnITR  HAS  BEEN  DONE 

REF  59  LAST  6ll  21,3767  1 5727  1 TCF  TASXOVER 

**ENO  CODING  FOR. MODULE  3 REMA<E,  AUGUST  1967*»*»»END  CODING'  FOR  MODULE  3 REMAKE,  AUGUST  1967»»*******»»»x*»»»** 
21,3770  37777  1 CHKSUM21  OCT  37777 
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L ATTITJOE  maneuver  ROUTINE  USER'S  OWN  PAGE  NO.  1 S3 
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ROOOIS  MOD  1 DATE  11/7/66  BY  DON  <FENE 

R-0002  PROGRAM  DESCRIPTION 


R0003  (ALCMANU  is  a routine  which  generates  commands  For  the  iM  dap  to  change  the  attitude  of  the  spacecraft 

Roods  durinS'  free  fall,  it  is  designed  to  maneuver  the  spacecraft  from  its  initial  orientation  to  some  OesirtO 

R0007  ’ OFlFNrATION  SPeCIFIEO  SY  THE  PROGRAM  WHICH  CALLS  (ALCMANJ.  AVOIDING  6IMBAL  kOCK_  IN  _THE_  PROCESS.  LN^TH_E 

R0009  MOD  1 VERSIONt  THIS  DESIRED  ATTITUDE  CAN  3e  SPECIFIED  IN  ONE  OF  TWO  WAYS 

ROOlO  A!  BY  A._  SET  OF_  T_Hi<EE_  commanded  ..CDU  angles  

Rooii  31)-  BY  A Vector  in  stable  member  coordinates  along  which  THE  thrust  Vector  (given  in  spacecraft 

R0013.  coordinates  is  to  be  aligned. ^ 

RooiA  IF  tHe  first  Method  is  Used,  the  three  DeSir-d  cou  anglfS  must  be  stored  as  2!S  Complement  single 

R0016  precision  angles  in  the  three  consecutive  locations,  cphi.  cthfta,  CPSI.  WHeRf  

R0018  cphi  = commanded  OUTER  GIMBAL  ANGLE 

R0019  CTHETA  = commanded  INNER  GIMBAL  ANGLE 

R0020  CPSI  s commanded  MIDDLE  GIMBAL  ANGLE 

Roo21  THe  entry  Point  in  kalcmanu  for  this  method  js  <A-CMans  (Sff  section  Al) _ 

R0022  the  Second  method  may  be  used  for  pointing  the  thrust  axis  of  the  spacecraft.  in  this  case  THe  axis  to 

R0024  be  pointed  must  appear  as  a half  unit  double  precision  vector  in  successive  locations  of  ERASABi E memory 

Roo26  ^ beginning  with  the  location  Called  scaxis.  tHe  comPMPts  of  this  Vector  are  given  in  spacecraft  coordinates. 

Fo028  tHe  direction  IN  WHICH-  tHIS  AXIS  IS  TO  Be  POINTED  MUST  APPEAR  AS  A HALF  UNIT  DoUBLe  PRECISION  VeCTOR  IN 

Roo30  successive  locations  df  erasable  Memory  beginning  with  tHe  address  called  pointvsm,  the  components  qf 

R0032  this  vector  ARE  GIVEN  IN  STABLE  MEMBER  COORDINATES. 

R(50321 ^ , 

R0033  <AL^ANU  determines  THE  DIRECTION  OF  ThF  5INGLE  EQUIVALENT  ROTATION  (COF  ALTERNATELY  TERMED  U)  AND  THE 

R0035  magnitude  of  the  rotation  (AM)  TO  BRING  tHe  S/C  FROM  ItS  INITIAL  oRIeNTATION  TO  ItS  FINAL  ORIeNtAtIoN. 

R 0 0 3 7 _ this  direction  Remains  fixed  both  in  inertial  coordinates  and  in  commanded  s/c  axes  throughout  the 

R00385 

R0039  maneuver,  once  cof  and  am  have  Been  determined,  <alcmanu  then  examines  the  maneuver  to  see  if  it  Will  hring 

ROOAOS  - 

ROOAI  THe  S/C  through  GIMBAL  LOCK.  IF  SO,  CoF  AND  AM  ARE  ReADJUStfD  So  THAT  THE  S/C  WILL  UUST  SKIM  TH£  GIMBA. 

RoOA3  lock  20Ne  and  ALIGN  I He  X-AXIS.  IN  GENERAL  A FINAL  YAW  ABOUT  X WILL  Be  NeCeSSARY  TO  COMPLETE  THE  MANeJVfR. 

RoOaS  needless  to  say,  neither  the  initial  nor  the  FlNAu  orientation  can  Be  in  GIMBAL  LOCK. 

ROOA6I 

Rooa7  *or  proper  Attitude  control  tHe  digital  autopilot  must  re  given  an  attitude  reFeRence  which  it  can  track. 

R00A9  kalcmanu  does  this  by  generating  a reference  of  DfSIReD  GIMBAL  ANGLES  (CDUXD,  CDUYD,  CDUZD)  WHICH  ARE  UsDATED 

Roo'si  every  one  Second  during  the  Maneuver,  to  achieve  a smoother  sequence  of  commands  between  successive  updates, 

R0053  tHe  program  also  Generates  a set  of  incremental  cdu  angles  (deldcdU)  to  Be  added  to  cdu  desired  by  the  digital 

ROOS5  autopilot,  kalcmanu  also  calculates  the  Component  maneuver  rates  (qmegapd,  omegaqd,  omegard),  which  can 

R00565 


633«t36A 

► 

L 

R0057 

R00581 

R0059 

ROOil 

R0063 

Ro065 

Ro067 

R0069 

Rq071 

R0073 


R0079 

R0O75 

R0077 

R0079 

RO0BO5 

Roobi 

Ro083 

rooba 

ROOB5 

ROOB6 

R0087 

R0089 

R00905 

ROO9I 

R00925 

ROO93 

ROO99 

R00955 

RQ096 

R0O97 

ROO99 

Roioi 

R0IO3 

R0105 

ROIO6 

R01072 

RoloB 

ROllO 

R01105 

ROlll 

R01U5 


i 
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BE  Determined  simply_3y  mulilplyinG.  cof_  by  somf  scalar  (aratf)  corresponding  to  the  desireD-  Rotational  _?aie. 

AUtoMAtIL  MaNeUV=-RS  aRe  TIMeD  with  T"IE  Help  jF  waitlist  so  that  AFteR  a specified  interval  THe  V A>4D  z 
desired  rates  a«e  Set  to  zero  and  tHe  desireD  cdj  angles  (Cduyd,  cdjzd)_are  Set  euOal  to  the  final  deSiteD  cdj 
angles  (Ctheta,  cpsi),  if  any  yaw  Remains  dje  t3  gimbal  ldck  avoidance,  the  final  yaw  maneuver  is 
calculated  and  THe  Desired  yaw  rate  Set  to  soMe  fixed  value  (rollrate  = ♦ or  - 2 degrees  peR  seC). 

IN  this  case  only  an  incremental  CDUX  angle  (DeLFROLL)  IS^UdPLIe.D  to  TH^^DAP.  at  THe  end  of  the  Yaw 
maneuver  or  in  the  event  that  there  was  nD'  final  yaw,  cduxd  is  Set  eoual  to  cphi  and  the  X-AXIS  Desired 
rate  set  to  zero,  thus,  upon  Completion  df  the  maneuver  the  s/c  will  finish  up  in  a limit  cycle  about  the 

DESIRED  FINAL  GIMBAL  ANGLES.  - 


PROGRAM  LOGIC  FLOW 

CALCMANU  L5,  called  _AS  a high  priority  UOB  with  entry  POtNTS  at  KALCMAN3  AND  VeCPOINT.  It  first  PICKS 
UP  th-  current  odu  angles  to  Be  used  as  tHe  Basis  for  all  computations  involving  tHe  initial  s/c  orientation. 
IT  tHeN  Determines  t+e  direction  cosine  matRICps  relating  botH  tHe  initial  and  final  S/C  orientation  td  stable 

X w t 

memberi  axes  (Mi5,  mfs),  it  also  computes  the  matrix  Relating  final  S/c  axes  to  initial  s/c  axes  (Mfd.  tHe 
angle  of  rotation  (aMi)  is  then  extracted  From  this  matrix,  and  tests  aRe  maDe  to  determine  if 


A)  AM  LESS  than  .25  DEGREES  (MINANG) 

3)  AM  greater  than  170  DEGREES  (MAXANG) 


IF  AM  LESS  than  .25  DEGREES,  NO  COMPLICATED  AUTOMATIC  MANEUVERING  IS  NECESSARY.  tHeReFORE  We  CAN  SIMPLY 
SET  CDU  desired  EOUA-  TO  THE  FINAL  CDu  DeSIRED  AN5LES  AND  TERMINATE  THE  JOB. 


IF  AM  IS  greater-  than  .25  DEGREES  BUT  LESS  THAN  170  DEGREES,  THE  AXES  OF  THE  SINGLE  EQUIVALENT  ROTATION 
- ■ » 

(COF)  IS  extracted  from  THE  SKEW  SYMMETRIC  COMPONENTS  OF  MFl.  „ ^ * _S 

IF  AM  greater  than  170  DeGReeS  AN  ALTERNATE  METHOD  EMPLOYING  THE  SYMMETRIC  PART  OF  MFI  (MFISYM)  IS  USED 

TO  DEIERMINE  CQF. 

the  PROGRAM  then  CHECKS  TO  SEE  IF  THE  MANEUVER  AS  COMPUTED  WILL  BRING  THE  S/C  THROUGH  GIMBAL  LOCK.  IF 
SO,  A NEW  MANEJVeR_  IS_CALCULATED_WHICH  WILL  JUST  SKIM  THE  GImBAL  LOCK  ZONE  AND  ALIGN  THE  S/C  X-AXIS.  THIS 
method  ASSURES  THAT  THE  ADDITIONAL  MANEUVERING  TO  AVOID  GIMBAL  LOCK  WILL  Be  KEPT  TO  A MINIMUM.  SINCE  A FINAL 
P AXIS  YAW  WILL  BE  NECESSARY,  A SWITCH  IS  RESET  (STATE  SWITCH  31)  TO  ALLOW  FOR  THE  COMPUTATION  OF  THIS  FINAL 
YAW.  . 


AS  stated  Previously  kalcmanu  generates  a seduence  of  oesired  gimbal  angles  which  are  updated  every 

secon d . fHis  IS  accomplished  by  a small  Rotation  of  tHe  desired  s/c  frame  about  the  Vector  cof“  the  npw 
desired  reference  matrix  is  then. 


* * X 

Mis  = Mis  DEL 

N.l fj 
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Roil2  *<HeRe  del  is  the  matrix  corresponding  to  this  S'^AlL  rotation:  the  new  CDU  angles  can  tHeN  Be  extracted 

ROU35  * 

ROllA  FROM  Mils. 

Rons  ■ AT  the  BeS^NNINo'  OE  the  maneuver  the  autopilot  DeSIReD  rates  (OMeCAPD,  OMeGAUD,  OMeGARD)  and  the 

Roll?  MANeJ i/FR  T IMINGS  aRF  fStABLISHfD.  on  THF  F I RS T PASS  and  on  ALL  SUBSfQUfNT  UPDATfS  THf  CDU  dfsirfd 

R0U9  angles  are  LOADED  WITH  THe  APPROPRIATE  VALUES  AND  THe  INCREMENTAL  CDU  ANGLES  ARE  COMPUTED,  THE  AGC  CLOCKS 

Roizi  (TIMei  and  time2)  are  than  Checked  to  see  if  the  maneuver  «ii  l terminate  Before  the  next  update,  if 

Ro123  NOTt  CALCMANU  CALLS  -OR  ANOTHER  UPDATE  LRJN  AS  A JOB  (vItH  PRTORItV  TBD)  IN  ONE  SeCOND.  ANY  DELAYS  IN  T-tI5 

R0125  calling  sequence  ARE  AUTOMATICALLY  COMPENSATED  IN  CALLING  FOR  THE  NeXT  UPDATE. 

R01265 

R0127  _ IF  IT  IS  found  THAT  THE  MANfUVeR  IS  TO  TERMINATE  BeFORf  THE  NEXT  UPDATE  A ROUTINE  IS  CALLED  (AS  A a/AIT- 

Ro129  List  task)  to  stop  the  maneuver  at  the  appropriate  time  as*  explained  above. 

R013I 


R0132  CALLING  SEQUENCE 


RoI33  the  entry  Point  in  KaLCMANU  for  pointing  the  thrust  axis  of  tHe  spacecraft  is  VeCPOINT 

R013A5 

PD  135 CAf PRIO  XX 

R01355 

R0136  INHINT 

R0137 FINDVA.C 

R0138  2CADR  VECPD'INT 

R0139  RELINT 


RoIAO  the  calling  PROGRAM  MUST  ALSO  SPECIFY  THe  DeSIReD  MaNeUweRING  RATES,  PReSeNtLY  IN  THe  FORM  OF  A SHGLe 

Ro1A2  precision  number  (RATEInDeX),  which  is  loaded  WITH'  one  of  four  values  0,  2,  A,  OR  6,  CORRESPONDING  TO  ANGULAR 

ROIAA  rates  of  ,5,_2.  5.  ID  DEGREES/SeC.  THeRE  is  also  a STATE__SWnCH  (33>  WHICH  MAY^  Be  SeT  TO  IGNORE  ANY  FINAL  YAW 

R01A6  incurred  by  avoiding  G'ImbaL  lock. 

Roia7  with  this  Information  kalcmanu  will  then  generate  a sequence  of  three  cdu  desii^d  angles  (cduxd,  couyd, 

R01A9  CDUZO) • and  ThRFe  INCREMENTAL  ANGLES  (DELDCDU,  DELDCDUI,  DELoCDUZ)  As  WELL  As  THE  COMPONENT  MANEUVER  RATE5 
ROISl  (IN  5/C  AXES)  TO  BE  USED  BY  THE  LEM  DAP  IN  PERFORMING  THf  AUTOMATIC  MANEUVER. 

R01525  _ - _ 

R0I53  there  are  TWO  WAYS  IN  WHICH  KALCMaNU  MAY  3e  INItTATEO  CORRESPONDING  TO  THE  TWO  METHODS  oF  SPECIFYING  THe 

R01S5  desired  attitude  of  the  spacecraft.  if  method  1 IS  used,  the  commanded  GIMBAL  angles  must  be  PRECOMPUTtO  and 

R0157  stored  in  locations  C^HI,  CTHeTA,  CPSI.  the  user: SJ5R0GR^M_ must  then  Cle^iR  state  SWITCH  NO  33  TO  ALLOW  the 

R0159  attitude  maneuver  routine  to  Perform  any^inal  p,.aXis  yaw  Incurred  BY^AvoroiNG  gimbal  lock,  the  maneuver  is 
R0I6I  then  initiated  By  establishing  the  following  executive  uob 


R01615  * 

R0162  CAF  PRIO  XX 

R01625  

R0163  INHINT 

R0I6A  TC  FINDVAC 

RQI65 2CADR KALCMAN3 

R0166  RELINT 
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R0167 

THe  JSERiS  program  may  lIiHeR  continue  aR  .W_AIJ.FDR  LHj.  IiR-MlNATI.ON  D£  TH£  MANEUVER.  IF  THe  USER  WISHES  TD 

R0169 

wait,  he  may  put  his  job  TO  SLEEP  WITH  THE  FOLLOWING  INSTRUCTIONS 

R0171 

R0172 

R0173 

R0174 

TC  BANKCaI L 

_♦!  CADR  ATTSTALL 

-_*2  (BAD  RETURN) 

15002 RETURN) 

”0175 

Ro177 

jPON  Completion  df  the  maneuver,  the  program  will  Be  awakenfd  at  l*3  if  the  maneuver  was  completeo 
successfully,  or  at  -*2  IF  1He_mANEuV.ER  wAS  AbDRTeD,  this  ArORT  wOjLD  OCCuR  if  the  initial  or  final  attitude 

R0179 

WAS  I R.  GIMBAL  lock. 

Rni 7Q5 

ROIBO 

R01815 

”0182 

IF  THE  second  METHOD  Is  USED.  THL  OEsIrED  TH;?UsT  DIRECTION.  V . MUST  BE  COMPUTED  AND  STOrED  IN  THE  SIX 

F 

erasable  locations  Beginning  wuh  the  address  pointvsm.  ■ the  thrust  axis  must  Be  loaded  into  the  six  erasable 

R018A 

RQ186 

R0188 

locations  Beginning  with  sc  axis,  the  caller  mjsi  then  clear  (or  set)  state  switch  no  33  and  specify  the 
desireD  maneuvering  rate  as  Before,  the  maneuver  is  then  initiated  by  tHe  executive  call. 

R0189 

SUBROJITINFS 

R0190 

R0192 

calcmanu  jses  a number  of  interpretive  su3rojtines  which  May  Be  of  General  interest,  since  these  routines 
WERE  programmed  EXCLUSIVELY  FOR  KALCMANU,  THEY  ARp  NOT,  AS  YeT.  GENERALLY  AVAILABLE  FOR  USE  BY  OTHER  PROGRAMS. 

R019A 

R0195 

R01955 

MXM3 

R0196 
R0198  . 

this  subroutine  multiplies  TWO  3X3  matrices  and  leaves  the  Result  in  the  first  18  locations  of  the  push 

DOWN  'll  St.  T.E.* 

R0199 

R01992 

(M  M.  M ) 

(0  1 2) 

R0199A 

R0200 

R02005 

» ( ) * X 

M = (M  Mi  M ) = Ml  X M2 

(3  A 5) 

R02006 

R0201 

R02015 

( ) 
(M  M,  M ) 

( 6 7 8) 

R02018 

R0202 

n 

INDEX  register  Ki  BE  LOADED  wUH  THE  cO^iPlEvLENT  Or  THE  STARTING  ADDRESS  fOR  AND  X2  MUST  3e 

R02035 

R020A 

R0206 

X 

loaded  with  the  complement  of  the  STARtINS'  address  FDR  M2.  tHE  routine  uses  the  first  20  locations  of  the  push 

DOWN  ilHST.  THE  FIRST  ELEMENT  OF  THE  MATRIX  APPEARS  IN  POO.  PUSH  UP  FOR  M . 

R02075 

R0208 

R0209 

8 

transpos 

R0209S 
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R02l0 

THIS 

routine  transposes  a sXS  matrix  and  leaves  the  result  in  THE  PUSH  DOWN  LIST.  I.F.. 

R0212 

R0212A 

R0213 

* 

M 

X T 

^ 

R021A 

index  register 

Xi  MUST  CONTAIN  THE  COMPLeMeNT  OF  tHe  STARTING  ADDRESS  FOR  Ml,  PUSH  UP  FOR  THe  FIRST 

AND  SUB- 

. R02155 

ik 

R0216 

sedue'JiT  components  of  m.  this  subroutine  alsd  uses  the  first  20  Locations  of  the  push  down  list. 

R0218 

R0219 

0 

1 j 

TO  DCM 

R02195 

R0220 

this 

subroutine  converts  three  CDU  angles  IN  T(MPAC)  TO  A DIRECTION  COSINE  MATRIX  (SCALED  BY  2) 

.R£LA.YI.NS_ 

R0222 

tHe  corresponding  s/c  orientations  to  the  stable  Member  frame,  the  formulas  for  this  conversion  are 

R0224 

R0225 

• m 

- 

COSY  C0S7 

R02255 

0 

R0226 

M 

.. 

-COSY  SINZ  COSX  + SINY  SINX 

R02265 

1 

R0227 

M 

- 

COSY  SINZ  SINX  + SINY  COSX 

R02275 

2 

R0228 

M 

- 

SINZ 

R02285 

3 

RQ229^ 

M 

_ 

COSZ  COSX 

R02295 

A 

R0230 

M 

- 

-COSZ  SINX 

R02305 

5 

RjQ231 

5 

-SINY  COSZ 

R02315 

6 

R0232 

M 

- 

SINY  SINZ  COSX  ♦ Cosy  sinx 

R02325 

7 

R0233  ■ 

M 

-SINY  SINZ  SINX  ♦ COSY  COSX 

R02335 

8 

R023A 

where 

X 

= OUTER  GIMBAL  ANGLE 

R0235 

Y 

= INNER  GIMBAL  ANGLE 

R0236 

Z 

s M,IDDLE  GIMBAL  ANGLE 

R0237 

THE 

interpretation  of  this  matrix  is  as  follows 

R0238 

IF  A 

♦ A * 

A represent  the  components  of  a vector  in  s/c  axes  then  the  components  of  THe  same 

VECTOR  IN 

RO2A0 

X Y 

z 
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R02<)2 

X Y Z 

R0243 

lfl_l 

-lA-J 

ROE^tA 

( X) 

( X) 

R02AA5 

( ) 

( ) 

R02A5 

( 1 

# 

( 1 

R02A6 

(B  ) 

= M 

(A  ) 

R02A7 

( Y) 

( Y) 

R02A75 

I ) 

_( ) 

R02A8 

(B  ) 

(A  ) 

R02A9 

( Z) 

( Z) 

R0250 

THE  subroutine 

will  store 

THIS  MATRIX  IN  S£OUrNTlAL  LOCATIONS 

OF 

erasable  Memory  as  specified  by  Hr  calling 

R02515 

R0252 

program,  to  do  this  the  calling  .program  must  First  load  X2  with 

tHe 

complement  of  thf  Starting  address  fhr  m. 

R0255 

R0256  internally.  jHE  ROUTINE  USeS  THe  FIRSt  16  LOCATIONS  OF  THE  PUSH  DOWN  LIST.  ALSO  STEP  REGISTER  Si  A\lD  INDeX 

-Ra258.  REGIS-tES-Xi. 


R0259 

R0260 

R0261 

OCM  TO  CDJ 

R0262 

R026A 

R0265 

this  routine  extracts  the  CDU  angles  from  a OiRECTlON  COSINE  MATRIX  (M  sCALeD  BY  2) 

* 

5TABL-  MeMBfR  A^FS.  XI  MUST  CONTAIN  THf  COMPLfMfMT  OF  THf  StARtING  ADDRfSS  FOR  tHf 

Relating  s/c  axis  to 
subroutine  LEAVrS  THe 

R0267 

R0269 

corresponding  gimbal  angles  in  v(mpac)  as  Double  precision  i:s  complement  angles  scaled 
FOR  THIS  conversion  ARE 

BY  2P1.  the  Formulas 

R0270 

R0271 

Z = ARCSIN  (M  ) 

3 

R0272 

R0273 

Y = ARCSI'J  (-M  /COSZ) 

6 

Rozta 

R0275 

IF  M IS.  negative.  Y is  REPLACED  BY  PI  SGN  Y - Y 
0 

R0276 

R0277 

X = ARCSIN  (-M  /COSZ) 

5 

R0278 

R02785 

IF  M IS  NEGATIVE  X IS  REPLACED  BY  PI  SGN  X - X 
A 

R0279 

R0281 

R0263 

this  Routine  does  not  set  the  push  down  pointer,  but  usfS  thf  next  8 locations  of  the  push  down  list  and 

RETURNS  tHe  POINteR  TO'  ITS  ORIGINAL  SettHG.  THIS  PRoCeDURe  ALLOWS  tHe  CALLeR  TO  STORe  THe  MATRIX  AT  THE  TOP  OF 

the  push  down  list. 
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RQ2b4 

•)FLCQHP 

R0285 

Rn7R6 

ft 

R0287 

this 

routine 

COMPUTES  THE 

direction 

Cosine  matrix  (DeL)  relating  on 

RO209 

- 

R0290 

IS  roiated 

with  respect  to.  IH£ 

FIRSI  by 

AN  ANGLF.  a.  about  a UNIT  VfCTOR.  U.  THF  FORMULA  FOR 

THIS  matrix  is 

R0292 

R0293 

-- 

T 

ft 

R0294 

DEL 

s I 

CD'SA  + UU 

_( 1-COSA) 

♦ V_SINA  _ 

R0295 

X 

R0296 

where 

_ _ (1  0 

0) 

R0297 

I = 

(0  1 

0) 

R0298 

(0  0 

1) 

R0299 

2 

R0300 

UJ  

__u  u . 

U U ) . _ _ . 

R0301 

( X . 

X Y 

X Z) 

R03015 

( 

) 

R0302 

— T 

( 

2 

) 

R0303 

uu  = 

(U  u 

U 

U'  U ) 

R030A 

( Y X 

Y 

Y Z) 

R030A5 

( 

J 

R0305  ' 

( 

2 ) 

R0306 

(U  u 

U U 

U ) 

R03D7 

( z X 

7 Y 

Z 1 

SQ5.Qfl 10 mU i I 


R0309 

( 

Z 

Y ) 

R0310 

ft 

( 

) 

R031I 

SL  _ 

= (U 

0 

-U  ) 

R0312 

X 

( Z 

X) 

R03125 

( 

) 

R0313_ 

(-U 

u 

0 ) 

R031A 

( Y 

X 

) 

R0315 

R0316 

u 

= JNIT 

ROTATION  vector  RESOLvEO  INTO  S/C  AXES 

R03l7 

A 

5 ROTATION  ANGLE 

R03I8 

ft 

R0319 

the  interpretation  Of 

del  is  as 

FOLLOWS 

R0320 

IF  A , A 

, A Represent  the  component  of  a vector  in  thf  rotated  frame,  then  the  components  of  tHe  same 

R0322 

X Y 

z 

R0323 

VECTORI  IN  THE 

ORIGINA.  5/C 

AXES  (B  • 

B , 3 ) ARE 

R032A  X Y Z 
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R0325 

IH_1 

(A  1 

R0326 

( X) 

( X) 

R0327 

( ) * 

( ) 

R0328 

(B  ) B del 

(A  1 ^ 

R0329 

( Y) 

( Y) 

R03295 

( ) 

( ) 

R0330 

CB-J 

_LA_1 

R0331 

( Z) 

( Z) 

*^0332 

the  routine  WiLu  BTORE  THIS  MATRIX  (SCALeD  JnITY)  IN  SfoUfNTIAL  LOCATIONS  OF  ERASABLE  MeMORY 

BfGINnING  with 

R03335 

• 

R0334 

tHe  location  called  D£L.  in  order 

TO  USE  the  Routine,  the  calling  program  must  first  store  u (a 

half 

JnI  T 

^0337 

DOUBL-  precision  VECTOR)  IN  JHe  SET 

OF  erasable  locations  Beginning  with  the  addr£SS  called  cof. 

the 

Angle,,  a, 

R0339 

MUST  THEN  BE  LOADED  INTO  D(MPAC), 

Rn34Q 

internally*  the  pro_gram  also  uses  the  first  10 .Locations Ilf -tHe  PUSH  Down  J-ISt...  . . . 

R0342 

R0343  7EADCDUK 

R0344  


R0345  THIS  BASIC  LANGJAGe  SUBROUTINE  LOADS  T(MPAC)  WITH  THE  TmREE  CDJ  ANGLES. 

R0347 


R0348 

SIoNMPAC 

R0349 

R0350 

R0352 

THIS  IS  A 

Basic  language  subroutine 

WHICH  LIMITS  the  MAGNITUDE  OF  D(MPAC)  TO  ♦ OR  - DPOSMAX  ON  OVERFLOW. 

R0353 

PROGRAM  storage  ALLOCATION 

R0354 

1) 

FIXED  MEMORY 

1059  WORDS 

R0355 

2) 

ERASA3LE  MEMORY 

98 

R0356 

3) 

STATE  SWITCHES 

3 

R03S7 

4) 

FLAGS 

1 

P035a 

joa_  priorities 

R0359 

1) 

KALCMANU 

T3D 

R0360 

-2L 

ONE  SECOND  UPDATE 

ISO 

R0361 
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SETTING 

MEANING 
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SWITCH!  NO. 

BIT  NO. 

R0364 

R0365 
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14 

0 

MANEUVER  WENT  THROUGH  GiMBAL  LOCK 

R0367 

1 

maneuver  DID  NOT  Go  THROUGH  GIMBAL  LOCK 

R0369 

R0370 

it 

R0371 

32 

13 

0 

continue  UPDATF  PROCESS 

RF)372 

1 

START  UPDATE  PROCESS 

R0373 

33 

12 

0 

Perform  final  p-axis  yaw  if  required 

Ra375. 

1 

ignore  any  final  P-AXIS  YAW 

R0377 

R0378 

34. 

11 

0 

SIGNAL  END  OF  wALCMANU 

R0379 

1 
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R03925 


:phi 

OTHETA 

:psi 

30INTVSM  +5 

SCAXI5  *5 

DELDCDU 

DELDCDUl 

DELDCDU2 

rateTndx 
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10174 

34,2000 

3AN< 



10175 

ref 

1 

E3 

EBAN<= 

MIS 

10176 

34 

.2000 

1 2001 

0 

NOOP 

1018 

REF 

LAST 

A65 

34 

,2001 

0 6112 

0 

VECPOINT 

rc 

INTPdFT 

1019 

34 

,2002 

77634 

0 

RTB 

1020 

REF 

1 

34 

,2003 

73513 

1 

Reajcduk 

READ  THE  PRESENT  CDU  ANGLES 

1021 

REF 

1 

34 

.2004 

01533 

0 

STORE 

3CDJ1 

1022 

34 

.2005 

45164 

0 

AXC,2 

CALL 

compute  the  transformation  from  initial 

1023 

REF 

2 

LAST 

6A5 

34 

.2006' 

01535 

0 

MIS 

S/C  AXES  TO  STABLE  MEMBER  AXES  (MIS) 

102A 

REF 

1 

_ 34 

,2007 

- 70445 

0 

CD.JtQDCM_ 

1025 

34 

,2010 

61375 

1 

VLOAD 

VXM 

1026 

REF 

1 

34 

,2011 

01656 

0 

POINtVSM 

RESOLVE  THE  POINTING  DIRECTION  jS  INTO 

1027 

REF 

3 

LAST 

_6_A5 

34.2012 

01536 

0 

M15  - - 

INilJAL-  S/C  AXES 

1028 

34 

,2013 

41A56 

0 

JNIT 

PUSH 

1029 

34 

,2014 

53435 

0 

VXV 

JNiT 

TAKE  the  cross  PRODUCT  VF  X VI 

1030 

REF 

1 

34 

,2015 

01664 

1 

SCAXIS 

WHERE  VI  = SCAXIS 

10305 

34 

,2016 

57400 

1 

30  V 

VCOMP 

1031  • 

ref 

1 

34 

.2017 

70042 

0 

P1C<AXIS 

1032 

REF 

1 

34 

,2020 

25624 

-0  - 

STOVL 

_COF 

1033 

REF 

2 

LAST 

6A5 

34 

,2021 

01664 

1 

SCAXtS 

103A 

34 

,2022 

72441 

0 

JOT 

SLl 

1035 

. 34 

,2023 

77726 

1 

ARCcas 

1036 

34 

,2024 

77624 

1 

cdmpmatx 

CALL 

NOW  compute  the  transformation  srom 

1037 

REF 

1 

34 

,2025 

70564 

1 

OELCOMP 

FINAL  S/C  axes  to  INITIAL  S/C  AXES  = MFI 

1038 

34 

i2026 

75160 

1 

-AXJCj  1 

_AXC,:5, 

COMPUTE  THE  transformation  FROM  FINAL 

1039 

REF 

4 

LAST 

6A5 

34 

,2027 

01535 

0 

MIS 

S/C  AXES  TO  STABLE  MEMBER  AXES 

IOaO 

ref 

1 

34 

,2030 

01557 

1 

<EL 

lOAl 

34 

,2031 

TlAZtt  A 

call 

10a2 

REF 

1 

34 

,2032 

73417 

1 

MXM3 

MFS  IN  PO  LIST 

10A3 

34 

,2033 

45160 

1 

AXC,1 

calC 

lOAA 

34 

.2034 

00000 

1 

0 

EXTRACT  THE  CDU  ANGLES  FROM  THIS  MATRIX 

10A5 

ref 

1 

34 

,2035 

70711 

1 

DCMToCDU 

10A6 

34 

,2036 

77634 

0 

RT3 

10A7 

REF 

2 

LAST 

3A7 

34 

,2037 

33526 

0 

V1ST02S 

AND  USE  THEM  AS  THE  COMMANDED  CoU  ANGLES 

10A8 

REF 

1 

34 

.2040 

35632 

0 

STCALL 

CPHI 

10A9 

REF 

1 

34 

,2041 

70070 

1 

<ALCmAN3  +1 

PROCEED  AS  IF  WE  HAD  BEEN  GIVEN  COMMAND 

A1050 

CDU  angles 

1051 

34 

,2042 

50375 

0 

PICKAXIS 

VLOAO 

DOT 

IF  VF  X VI  = 0.  PUSH  UP  FOR  VF 

1052 

ref 

3 

LAST 

6A5 

34 

,2043 

01664 

1 

SCAXiS 

FIND  VF  . VI 

1053 

34 

,2044 

72240 

1 

3MN 

TLOAD 

IF  ANTIPARALLEL 

105A 

ref 

1 

34 

,2045 

70051 

1 

ROTiaO 

1055 

ref 

2 

LAST 

6A5 

34 

,2046 

01533 

0 

BCDJ' 

1056 

ref 

2 

LAST 

6A5 

34 

,2047 

35632 

0 

STCALL 

CPHL 

IF  VF  = VI 

1057 

REF 

2 

LAST 

6A5 

34 

,2050 

70070 

1 

<ALCmAN3  +1 

1058 

-34 

*2051 

47375 

0 

RDT180 

VLOAO 

VX-V 

laO  DEG  ROTATION  _IS  REQUIRED 

1059 

REF 

5 

last 

6A5 

34 

,2052 

01544 

0 

Mis  *6 

Y stable  member  axis  in  initial  s/C  axes 

1060 

ref 

1 

34 

,2053 

30414 

0 

HALFA 

1061 

34 

,2054 

47il6 

0 

JNIT 

VXV 

FIND  Y(SM)  X X(l) 

1062 

REF 

4 

LAST 

645 

34 

,2055 

01664 

1 

SCAXtS 

FIND  UNIT  (VI  X UNIT(Y(SM)  X X(l))) 
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Boy 
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REF 
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70064 

1 

PlC<y 

PLANE  containing  Y(SM)  AND  X(D  SO  THAT 

1065 

REF 

2 

LAST 

645 

34,2060 

15624 

0 XROT 

stodl 

COF 

MANEUVER  DOES  NOT  GO  THRU  GIMBA.  LOCK 

1066 

REF 

? 

LAST 

645 

36,2061 

30414 

0 

MALFfl 

1067 

34,2062 

77650 

1 

oOTD 

1068 

REF 

1 

34,2063 

70024 

0 

COMPmATX 

1069 

34,2064 

52175- 

0 PlCKX 

VLO-A-D 

-_50JO  _ _ 

PICK  the  X AXIS  IN  THIS  CASE 

10691 

REF 

3 

LAST 
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34,2065 

30414 

0 

HALFA 

10692 

REF 

1 

34,2066 

70060 

0 

XROT 

R10693 

FIRST 

entry 

3QINT 

- KALCMAN3 

R1070 

tHe:  three  Desired 

CDJt  ANqLeS 

must  EE 

Stored  as 

SI  'IGLE. 

PRECISION  TWOS 

COMPL£ME.N.t-  ANG.LES  IN  THe  THReE  SJCCeSS-Ive 

P1072 

LOCATIONS*  CPHI* 

ctheta,  CPSI 

• 

1073 

REF 

54 

LAST 

.64.5 

_ 34,2067 

0 6112 

0 <ALCMAN3  tC 

.I.NIPRET 

PICK  UP  the  current  cdu  angles  ANO 

107A 

34,2070 

77634 

0 

rtb 

COMPUTE  the  matrix  FROM  INITIAL  S/C 

1076 

REF 

2 

LAST 

645 

34,2071 

73513 

1 

REAOCDUK 

AXES  TO  final  S/C  AXES 

1077 

REF 

3 

LAST 

645 

34.2072 

. .01533 

0 

5T0RF 

BCDJ 

STORE  initial  S/C  ANGLES 

1078 

34,2073 

51535 

0 

SLOAD 

ABS 

1079 

REF 

4 

LAST 

646 

34,2074' 

01535 

0 

BCDJ  +2 

CHECK  magnitude  OF  MIDDLE  GIMBA.  ANGLE 

108l0 

34,2075 

51025 

1 

3SU 

0PL 

1081 

REF 

1 

34,2076 

30444 

0 

LOCCaNGL 

IF  greater  than  60  DEG,  ABORT  MANEUVER 

1082 

REF 

1 

34,2077 

70771 

1 

T003AD 

^ . IQ  8.3 

34,2100 

72364 

0 

AXC,2 

TLOAD 

lOsA 

REF 

6 

LAST 

645 

34,2101 

01535 

0 

MIS 

1085 

REF 

5 

LAST 

646 

34,2102 

01533 

0 

BCDJ 

108  .6  . 

34,2103 

. 77624 

1 . _ 

CALL 

COMPUTE  THE  TRANSFORMATION  FROM  INITIAL 

1087 

REF 

2 

LAST 

645 

34,2104 

70445 

0 

CDJTnDCM 

S/C  AXES  TO  STABLE  MEMBER  AXES 

1088 

34,2105 

51535 

0 

sload 

ABS 

CHECK  the  magnitude  OF  THE  DESIRED 

1089 

ref 

1 

34,2106 

- 01634 

1 - 

CPSI 

MIDDLE  GIM8AL  ANGLE 

1090 

34,2107 

51025 

1 

3SJ 

3PL 

IO9I 

REF 

2 

LAST 

646 

34,2110 

30444 

0 

loccangl 

IF  greater  than  60  DEG,  ABORT  MANEUVER 

1092 

REF 

2 

LAST 

646 

34,2111 

70771 

1 

T008AD 

llAl 

34,2112 

72364 

0 

AXC,2 

TLOAO 

1U2 

REF 

5 

LAST 

32 

34,2113 

01557 

1 

MFS 

PREPARE  TO  calculate  ARRAY  MFS 

11A3 

ref 

3 

LAST 

645 

34,2114 

01632 

1 

CPHI 

llAA 

34,2115 

77624 

1 

CALL 

1U45 

REF 

3 

LAST 

646 

34,2116 

70445 

0 

CDJTnDCM 

1250 

34,2117 

45160 

1 SECAD 

AXC.l 

CALL 

MIS  AND  MFS  ARRAYS  CALCULATED  S2 

12581 

ref 

7 

LAST 

646 

34,2120 

01535 

0 

MIS 

1259 

REF 

1 

34,2121 

73447 

1 

TRANsPOS 

1260 

34,2122 

77775 

1 

VLOAD 

1261 

34,2123 

77626 

0 

STADR 

1262 

ref 

10 

LAST 

32 

34,2124 

52161 

0 

STOVL 

TMI5  *12D 

1263 

34,2125 

77626 

0 

STADR 

1264 

REF 

11 

LAST 

646 

34,2126 

52167 

0 

STOVL 

TMIS  +6 

1265 

34,2127 

77626 

0 

STADR 

1266 

REF 

12 

LAST 

646 

34,2130 

76175 

0 

STORE 

TMIS 

TMIS  = TRANSPOSE(MIS)  SCALED  BY  2 

1267 

34,2131 

75160 

1 

AXC,1 

AXC,; 
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1276 
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5TADR 

1277 
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34,21*3 

76217  1 

STORE 

MFl 
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34,21** 

45001  1 

SETPD 
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transpose  MFI  IN  PD  LIST 

1279 
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00023  0 

18D 

12b0 

REF 

1 

34,21*6 

73456  1 - 

_ . Ifi-NSoSBCl 

1201 

34,21*7 

45575  1 

VLOAO 

STAOR 

1282 

ref 

1 

34,2150 

52161  0 

STOVL 

TMFI  ,12D 

1283 

34,2151 

_ _ STADR 

128* 

REF 

2 LAST  6*7 

34,2152 

52167  0 

STOVL 

TMFI  +6 

1285 

34,2153 

77626  0 

5TA0R 

12b6 

REF 

3 LAST  6*7 

34,215* 

.76175  0 

STORE 

TMFI 

TMFI  = TRANSPOSE  (MFI)  SCALED  3Y  4 

R1287 

R1288 

calcj 

-ATE  COFSCtW 

ANO  MFISYM 

R1289 

1290 

34.2155 

45345  1 

OLOAD 

DSJ 

1291 

REF 

* LAST  6*7 

34,2156 

01604  1 

TMFI  +2 

1292 

REF 

* LAST  6*7 

^ 3,*j2157 

01562  1 

.^2 

1293 

34,2160 

45325  1 

3D0L 

DSJ 

CALCULATE  COF  SCALED  BY  2/SIN(AM) 

129* 

REF 

5 LAST  6*7 

34,2161 

01564  1 

MFI  ,.4 

1295 

REF 

5 LAST  6*7 

34,2162 

01606  0 

TMFI  ♦* 

1296 

34,2163 

45325  1 

3DDL 

OSJ 

1297 

■REF 

6 LAST  6*7 

34,2164 

01614  0 

TMFI  *10D 

1298 

REF 

6 LAST  6*7 

34,2165 

01572  0 

MFI  +10D 

1299 

34,2166 

77666  1 

VDEF 

1300 

REF 

3 LAST  32 

34,2167 

01635  0 

STORE 

COFSi^EW 

equals  MFISKEW 

R130101 

R130102 

calcj 

-ATE  AM  AND 

PROCEED  ACCORDING  TO  ITS 

MAGNITJOE 

R130103 

130104 

34,2170 

43345  1 

5LOAO 

DAO 

130105 

REF 

7 LAST  6*7 

34,2171 

01560  0 

MFI 

130106 

REF 

8 LAST  6*7 

34,2172 

01600  0 

MFI  *16D 

130107 

34,2173 

43Z25  0 

OSJ 

OAfi 

130108 

ref 

1 

34,2174 

30426  1 

OUARtA 

130109 

REF 

9 LAST  6*7 

34,2175 

01570  1 

MFI  +8D 

13011 

REF 

2 LAST  32 

34,2176 

01645  1 

STORE 

CAM 

CAM  = (MFI0+MFJ4+MFI8-1)/2  HALF  SCALP 

130111 

34,2177 

77726  1 

ARCCOS 

130112 

REF 

1 

34,2200 

01643  1 

STORE 

AM 

AMsARCCOS(CAM)  (AM  SCALED  BY  2) 

130113 

34,2201 

51025  1 

5SU 

BPL 

130114 

REF 

1 

34,2202 

30410  1 

MINAmG 

130115 

REF 

1 

34,2203 

70214  1 

CHECXMAX 

13012 

34,2204 

77751  1 

TLOAD 

MANEUVER  LESS  THAN  ,25  DEGREES 

13013 

REF 

4 LAST  646 

34,2205 

01632  1 

CPHI 

GO  DIRECTLY  INTO  ATTIIUDE  HOLD 
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13016 

REF 

1 

34,2210 

30416 

1 

NIL 

13017 

REF 

7 

LAST 

509 

34,2211 

0Q77_5 

Jl. 

store 

omegapd 

ZERO  desired  rates 

13018 

REF 

1 

34,2212 

34772 

1 

stcall 

OELOCDU 

PREPARE  TO  END  MANEUVER  ON  GOOD  RETURN 

13019 

REF 

1 

34,2213 

70761 

0 

ENDNANU 

13D2 

34,2214 

45345 

_CH£Ck;mx 

OLOAQ 

13021 

ref 

2 

LAST 

64f 

34,2215 

01643 

1 

AM 

13022 

ref 

1 

34,2216 

30412 

0 

MAXAmG 

1J023 

34,2217 

77244 

0 

3PL 

YLOAD 

13024 

REF 

1 

34,2220 

70226 

0 

altcalc 

UNIT 

13025 

REF 

4 

LAST 

647 

34,2221 

01635 

0 

COFSKEW 

COFSKEW 

13026 

34,2222 

77656 

_L_ 

unit 

13027 

REF 

3 

LAST 

646 

34,2223 

01624 

0 

STORE 

COF 

COF  IS  THE  maneuver  AXIS 

13028 

34,2224 

77650 

1 

GOTO 

SEE  IF  maneuver  GOES  THRU  GIMBaI  L0C< 

13029 

REF 

1 

34.2225 

71006 

1 

LOCSi^  IRT_  _ 

1303 

34,2226 

53375 

0 

altcal: 

yload 

YAD 

IF  AM  greater  than  170  DEGREES 

13035 

REF 

10 

LAST 

647 

34,2227 

01560 

0 

MFI 

130^4_ 

REF 

7 

LAST 

647 

34.2230 

01602 

1 

TMFl 

13045 

34,2231 

77762 

1 

YSRl 

1305 

REF 

1 

34,2232 

25602 

1 

STOVL 

MFISvM 

1306 

REF 

11 

LAST 

6^8 

34,2233 

01566 

0 

MFI  .,6 

1307 

34,2234 

74455 

0 

yad 

YSRl 

1308 

ref 

8 

LAST 

648 

34,2235 

01610 

1 

TMFI  +6 

1309 

REF 

2 

LAST 

648 

34,2236 

25610 

1 

STOYL 

MFISvM  *6 

1310 

REF 

12 

last 

648 

34,2237 

01574 

0 

MFI  ,.120 

1311 

34,2240 

74455 

0 

yao 

YSRl 

1312 

ref 

9 

LAST 

648 

34,2241 

01616 

1 

TMFI  +12D 

1313 

REF 

3 

LAST 

6^0 

34,2242 

01616 

1 

STORE 

MFISyM  +12D 

mfisym=(mfi+tmfi)/2  scaled  by  a 

R1314 

R1315  _ 

R1316 

calculate  COF 

R1317 

1318 

34,2243 

70545 

1 

oload 

SRI 

1319 

ref 

3 

LAST 

647 

34,2244 

01645 

1 

CAM 

1320 

34,2245 

45325 

1 

3D0L 

OSU 

PDO  CAM  $4 

1321 

ref 

4 

LAST 

646 

34,2246 

30414 

0 

HALFa' 

1322 

REF 

4 

LAST 

648 

34,2247 

01645 

1 

CAM 

1323 

34,2250 

65204 

1 

30YB 

POOL 

PD2  1 - CAM  $2 

1324 

ref 

1 

34.2251 

73501 

1 

SIGNmPAC 

1325 

REF 

4 

LAST 

648 

34,2252 

01622 

0 

MFISYM  +16D 

1326 

34,2253 

56225 

1 

OSJ 

DDY 

1327 

34,2254 

00001 

0 

0 

1328 

34,2255 

00003 

1 

2 

1329 

34,2256 

65366 

1 

SORT 

PDDL 

COFZ  = Sort (MFISYM8-CAM) /1-CAM) 

1330 

ref 

5 

LAST 

648 

34,2257 

01612 

0 

MFISvM  +8D 

$ ROOT  2 

1331 

34,2260 

56225 

1 

OSU 

DDY 

1332 

34,2261 

00001 

0 

0 

1333 

34,2262 

00003 

1 

2 

1334 

34,2263 

65366 

1 

SORT 

POOL 

COFT  = SORT (MFISYM4-CAM) /( 1-CAM)  $R00T2 
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1335 

REF 

6 

LAST 

698 

39.2269 

QL602- 

1 

MFISYM  . 

1336 

39,2265 

56225 

1 

3SJ 

DDV 

1337 

39,2266 

00001 

0 

0 

13^8 

39.2267 

00003 

1 

2 

1339 

39,2270 

55566 

1 

SORT 

\/DEF 

COFx  = Sort (MFISYM-CAM) / (1-CAM)  $ROOT  2 

13A0 

39,2271 

77656 

1 

JNIT 

13A01 

REF 

if 

LAST 

698 

39,2272 

01629 

0 

STORE 

COF 

R13A12 

R13A2 

DETERMiINE  LARGEST 

C3F  AND  ADJUST  ACCORDINGLY 

R13A25 

13A3 

39,2273 

95395 

1 

C3FMAX50 

3L0AD 

DSJ 

13AA 

REF 

5 

LAST 

699 

39,2279 

01629 

0 

COF 

13A5 

REF 

6 

LA^l. 

699 

39,2275 

01626 

1 

COF  *Z_  . „ 

13A6 

39,2276 

71290 

1 

3MN  • 

DLOAO 

COFY  G COFX 

13A7 

ref 

1 

39,2277 

70306 

0 

C0MP12 

13A8 

REF 

7 

LAST 

699  _ 

_ 39,2300 

01629 

0 

COF 

13A9 

39,2301 

50025 

0 

3SJ  . 

3MN 

1350 

,ref 

8 

LAST 

699 

39,2302 

01630 

0 

COF  .9 

1351 

REF 

1 

_39j2303  - 

70363 

0 

MET--IQD3-  _ ^ - 

COFZ  G COFX  OR  COFY 

1352 

39,2309 

77650 

1 

GOTO 

1353 

REF 

1 

39,2305 

70337 

1 

METHnDl 

COFX  G COFY  OR  COFZ 

1359 

_ 39.2306 

95395 

1 

C0MP12 

OLOAD 

DSJ 

1355 

REF 

9 

LAST 

699 

39,2307 

01626 

1 

COF  +2 

1356 

REF 

10 

LAST 

649 

39,2310 

01630 

0 

COF  .9 

1357 

39,2311 

77690 

0 

3MN 

1358 

REF 

2 

LAST 

699 

39,2312 

70363 

0 

METHODS 

COFZ  G COFY  OR  COFX 

1359 

34fZ313 

&1I45 

0 

METH0D2 

OLOAD 

ePL 

COPY  MAX 

1360 

ref 

5 

last 

698 

39,2319 

01637 

1 

COFSkEW  +2 

UY 

1361 

ref 

1 

39,2315 

70321 

0 

J2P3S 

1362 

39,2316 

57575 

1 

VLOAD 

VCOMP 

1363 

REF 

11 

LAST 

699 

39,2317 

01629 

0 

COF 

1369 

RtF 

12 

last 

699 

39,2320 

01629 

0 

STORE 

COF 

1365 

39,2321 

511A5 

0 

J2P0S 

OLOAD 

3PL 

1366 

REF 

7 

LAST 

699 

39,2322 

01609 

1 

MFISYM  +2 

UX  UY 

1367 

REF 

■ 1 

39,2323 

70327 

0 

0<J21 

1368 

39,2329 

57545 

1 

OLOAD 

OCOMP 

SIGN  OF  UX  OPPOSITE  TO  UTL 

1369 

REF 

13 

LAST 

699 

39,2325 

01629 

0 

COF 

1370 

REF 

19 

LAST 

699 

39,2326 

01629 

0 

STORE 

COF 

1371 

39,2327 

51195 

0 

3<U21 

OLOAD 

3PL 

1372 

REF 

8 

LAST 

6^9 

39,2330 

01619 

0 

MFlSvM  +inD 

UY  UZ 

1373 

REF 

2 

LAST 

698 

39,2331 

71006 

1 

LOCSKlRT 

1379 

39,^332 

57595 

1 

oloao 

OCOMp 

SIGN  OF  UZ  OPPOSITE  TO  UY 

1375 

REF 

15 

LAST 

699 

39,2333 

01630 

0 

COF  .9 

1376 

REF 

16 

LAST 

699 

39,2339 

01630 

0 

STORE 

COF  .9 

1377 

39,2335 

77650 

1 

SOTO 

1370 

REF 

3 

LAST 

699 

39,2336 

71006 

1 

LOCSif  IRT 

1379 

39,2337 

51195 

0 

METH0D1 

OLOAD 

3PL 

COFX  MAX 

1380 

REF 

6 

east 

699 

39.2390 

01635 

0 

COFSicEW 

UX 

1381 

REF 

1 

39,2391 

70395 

1 

JlPOS 

633it36A  YUL  SYSTEM  FOR  Agc:  REVISION  0 OF  PROGRAM  BURSTlZD  BY  NASA  202110ft-03l 


DEC  7.  1967  (MAIN)  PAGE  650 


L ATTITJDE  MAnEUYEr  ROJTINE  USER'S  OWN  PAGE  NO.  15  S3  E3 


1382 

3A.234Z 

57575 

_L_ 

YLDAD 

YCOMn 

1383 

ref 

17 

last 

6A9 

34,2343 

01624 

0 

COF 

138A 

ref 

18 

LAST 

650 

34,2344 

01624 

0 

STORE 

COF 

1385 

34,2345 

51145 

_£L 

JIPOS 

OLOAQ 

BPL 

1386 

ref 

9 

LAST 

6A9 

34,2346 

01604 

1 

MFISvM  +2 

UX  UY 

1387 

ref 

1 

34,2347 

70353 

0 

0<Jl9 

1388 

34,2350 

' 57545 

_L_ 

QUOAD 

OCOMP 

1389 

REF 

19 

LAST 

650 

34,2351 

01626 

1 

COF  +2 

SIGN  OF 

UY  OPPOSITE  TO  UX 

1390 

REF 

20 

LAST 

650 

34,2352 

01626 

1 

store 

COF  +2 

1391 

34,2353 

51145 

3<U12 

_ QUOAD 

BPL 

1392 

REF 

10 

LAST 

650 

34,2354 

01606 

0 

'IFISyM  +4 

UX  UZ 

1393 

REF 

A 

LAST 

6A9 

34,2355 

71006 

1 

LOCSKIRT 

139A 

34,2356 

57545 

1 

QUOAD 

DCOMP 

SIGN  OF 

UZ  OPPOSITE  TO  UY 

1395 

ref 

21 

LAST 

650 

34,2357 

01630 

0 

COF  +4 

1396 

REF 

22 

LAST 

650 

34,2360 

01630 

0 

STORE 

COF  +4 

1397 

34,2361 

77650 

_L_ 

JQ10_ 

1398 

REF 

5 LAST 

650 

34,2362 

71006 

1 

LOCSKIRT 

1399 

34,2363 

51145 

0 

METH0D3 

QLOAd 

BPL 

COFZ  MAX 

1400 

ref 

7 LAST 

649 

34,2364 

_016A1 

0 

_CD_FSk£W_*4  .. 

UZ 

1401 

ref 

1 

34,2365 

70371 

0 

J3P0S 

1402 

34,2366 

57575 

1 

yload 

YCOMP 

1403 

REF 

23  LAST 

650 

34,2367 

01624 

0 

COF 

1404 

REF 

24  LAST 

650 

34,2370 

01624 

0 

STORE 

COF 

1405 

34,2371 

51145 

0 

J3P0S 

QLOAD 

BPL 

1406 

rEf 

U LAST 

650 

34,2372 

01606 

0 

'IF  1 SvM  <f4 

UX  UZ 

1407 

REF 

1 

34,2373 

70377 

0 

0<J31 

1408 

34,2374 

57545 

1 

QLOAD 

OCOMP 

1409  _ 

REF 

25  LAST 

650 

34,2375 

01624 

0 

COF 

SIGN  OF  UX 

OPPOSITE  TO 

UZ 

1410 

REF 

26  LAST 

650 

34,2376 

01624 

0 

store 

COF 

1412 

34,2377 

51145 

0 

D<U31 

QLOAD 

BPL 

1413 

REF 

12  LAST 

650 

34,2400 

01614 

0 

MFISvM  +10D 

UY  UZ 

1414 

REF 

6 LAST 

650 

34,2401 

71006 

1 

LOCSKIRT 

1415 

34,2402 

57545 

1 

QLOAD 

DCOMd 

1416 

REF 

27  LAST 

650 

34,2403 

01626 

1 

COF  *2 

SIGN  OF  UY 

OPPOSITE  TO 

UZ 

1417 

REF 

28  LAST 

650 

34,2404 

01626 

1 

STORE 

COF  +2 

1418 

34,2405 

77650 

1 

SOTO 

1419 

ref 

7 LAST 

650 

34,2406 

71006 

1 

LOCSKIRT 
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1A71 

35,3417 

3AN< 

35 

1472 

ref 

R LA5T  646. 

E3— 

- FRANXs 

Mis 

1A73 

35,3417 

77601  0 

MXM3  SETPO 

MXM3  multiplies  2 3X3  MATRICES 

1474 

35_i3420. . 

QQOiU  0- 

0. 

AND  LFAVFS  RFSULT  IN  PD  LIST 

1A87 

35,3421 

•64743  0 

OLOADx 

POOL, 

address  of  1ST  matrix  in  XRl 

UB8 

35,3422 

77762  1 

120,2 

address  of  2ND  MATRIX  IN  XR2 

1489 

35.3423 

77770  1 

- 

1A90 

35.3424 

55523  0 

2D0L» 

YDEF 

DEFINE  VECTOR  M2 (COL  1) 

■ 1A91 

35,3425 

77776  1 

0,2 

1492 

_35t3426 

64717  1 

- MXY» 

POOL*  - - - 

- MLX-M2(C0L  U 2N-PD 

1493 

35,3427 

00001  0 

0,1 

1494 

35,3430 

77760  0 

140,2 

1495 

35,3432 

64723  0 

3DDL* 

PDDI.R 

1496 

35,3432 

77766  0 

80,2 

1497 

35,3433 

77774  0 

2,2 

1498 

35j3434.  , 

-63666  2 

- - - - -Y-DEE 

MX-YJt  - 

define  vector  M2 (COL  2) 

1499 

35,3435 

00001  0 

0,1 

1500 

35,3436  . 

64723  0 

=DDLx 

PDOC* 

M1xM2(C0L  2)  IN  PD 

1501 

35,3437  ^ 

77756  0 

1502 

35,3440 

77764  1 

100,2 

1503 

35,3441 

55523  0 

3DDL* 

YDEF 

define  vector  M2(C0L  3) 

1504 

35.3442 

77772  0 

4.2 

1505 

35,3443 

41517  1 

MXYx 

PUSH 

M1XM2(C0L  3)  IN  PD 

1506 

35,3444 

00001  0 

0,1 

1507 

35,3445 

__776-5U_-l.  - 

GOTO 

1508- 

REF 

2 last  647 

35,3446 

73456  1 

TRNSdSPD 

REVERSE  ROWS  AND  COLS  IN  PD  AND 

R1509 

RETURN 

^ITH  M1XM2  IN  PD  LIST 

R1510 

1511 

35,3447 

76601  1 

T"*ANSP3S  SETPO 

YLOADx 

TRANSPOS  transposes  A 3X3  MATRIX 

1512 

35,3450 

00001  0 

0 

AND  LEAVES  RESULT  IN  PD  LIST 

1518 

-35,3451 

00001  0 

0*1 

MATRIX  ADDRESS  IN  XRl 

1519 

35,3452 

62713  0 

3DYL» 

PDYLx 

1520 

35,3453 

00007  0 

6,1 

1521 

35,3454 

00015  0 

lEDti 

1 522 

35,3455 

77606  1 

2USH 

MATRIX  IN  PD 

1528 

35  ♦ 3456 

65345  0 

T^NSPSPD  DLOAD 

POOL 

ENTER  WITH  MATRIX  IN  PD  LIST 

1529 

35,3457 

00003  1 

2 

1530 

35,3460 

00007  0 

6 

1531 

35,3461 

14003  1 

STODL 

2 

1532 

35,3462 

77626  0 

STADR 

1533 

35,3463 

63770  1 

STOOL 

6 

1534 

35  ♦ 3464 

00005  1 

4 

1535 

35,3465 

77725  1 

ADOL 

1536 

35  * 3466 

00015  0 

120 

1537 

35  • 3467 

14005  1 

STODL 

4 

1538 

35,3470 

77626  0 

STADR 

1539 

35,3471 

63762  1 

STODL 

120 

633«»36A 

YUL  SYSTEM  FOR  AQC;  REVISION 

0 OF  PROGRAM' 

BURST123  BY  NASA  7?;2 1 lOft-031 

DEC  7, 

1967  (MAIN) 

page  652 

L 

16^0 

ATTITJDE  maneuver  ROJiTINE 

35,34.12. 

. .00013 

0 ... 

..  ..  LOQ..  ...  .... 

user's  own  page 

NO.  17 

S3  E3 

15^(1 

1542 

1543 

35.3473 

35.3474 
35*3475 

77725 

00017 

14013 

1 

1 

_Q 

5DDL 

140 

5.TQDL mu 

1544 

35,3476 

77626 

0 

STADR 

1545 

35,3477 

77760 

0 

store  140 

1546 

35x3500 

71616 

.0.  . . 

R.VO 

RETURN  with  TRANSPOSED  MATRIX 

IV  PD  LIST 
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L 

15<t7 

ATTITUDE  maneuver  ROUTINE 

34.2407 

MANX 



USER'S  OwN  PAGE  NO.  18 

S3  E3 

15A8 

REF 

9 LAST  651 

E3 

EBAN<= 

MIS 

l55l 

iA.2<.Q7 

00013  0 

n.n.3R6<)»75 

C1551 

3A,2410, 

13563  0 

1552 

3A,2A11 

17070  0 

MAXANG 

2DEC 

0.472222222 

C1552 

34.2412 

34343  1 

1553 

34,2413 

20000  0 

halfa 

2DEC 

0.5 

C1553 

34  »24l4 

00000  1 

155A 

34,2415 

00000  1 

NIL 

2DEC 

0.0 

C155A 

34,2416 

00000  1 

1555 

34,2417 

00000  1 

2DEC 

0.0 

C1555 

34,2420 

00000  1 

1556' 

34,2421 

00000  1 

2 DEC 

0.0 

C1556 

34,2422 

00000  1 

15565 



^aooo  Q 

2D.EC_  -- 

.5*5 

C15565 

34,2424 

00000  1 

1557 

34,2425 

10000  0 

duarta 

2DEC 

.25 

C1557 

34.2426 

OQOOQ_1 _ 

R1569 

GIMBAL  LOCK  CONSTANTS 

R1570  . D = MSA  C0RRESP0NDJtii_IXL_6IMBAL  LOCK.  = 60  DEGREES 

R1571  NGL  = BUFFER!  ANGLE  (TO  AVOID  DIVISIONS  3r  ZERO)  = 2 DEGREES 


1572 

3‘*.^A27 

15666  0 

S3  -- 

2DEC  . 

..43.3S15 

. .s  siM.im 

C1572 

34,2430 

20443  0 

1573 

34,2431 

33555  1 

<3S1 

2DEC 

•86&03 

= SIN(D) 

C1573 

34.2432 

01106  1 

1574 

34,2433 

67777  1 

<4 

2DEC 

-.25 

= -COS(D) 

C1574 

34,2434 

77777  0 

1575 

34,2435 

04000  0 

<4SD 

2DEC 

.125 

= cos(d)cos(d: 

C1575 

34,2436 

00000  1 

1576 

34,2437 

00216  1 

SNGLCO 

2DEC 

.008425 

= SIN(NGL)C0S 

C1576 

34^2440 

363.23  0. 

1577 

34,2441 

17773  1 

CNGL 

2DEC 

.499695 

COS(NGL) 

C1577 

34,2442 

00057  0 

1578 

34,2443 

12525  0 

L3CKAN5L 

2DEC 

.3333333333 

J60DEGG 

C1578 

12525  0 

1579 

35,3501 

3AN< 

35 

1580 

REF  10 

last  653- 

E3 

iPAIl<  = 

MIS 

RI6OO 

ROUTI NE 

FOR  limiting 

t^e  size 

OF  mpac  on  overfloa 

1 TO  OP 

POSM.AX  OR  DP 

negmax 

Sa- 

il 

S2 

S2 

S2 

S2 


1602 

35_..-3501  . 

0 0006  L 

SIGNMPAC  -XTE.ND 

1603 

ref 

2 

LAST 

22b 

35,3502 

3 7743  0 

OCA  DPOsmAX 

1604 

REF 

271 

LAST 

615 

35,3503 

52  145  0 

3XCH  MPAC 

1605 

REF 

232 

LAST 

632  . . 

. ...35  i35fl.4_ 

10  OOP  0 

CCS  A 

1606 

REF 

213 

LAST 

635 

35,3505 

3 7767  0 

CAF  ZERO. 

1607 

REF 

4 

LAST 

361 

35,3506 

1 6544  0 

TCF  SLOAnZ  +2 

1608 

35,3507 

-L  3510  1 

TC£  *1 

1609 

35,3510 

0 0006  1 

EXTEND 

633436A 

YUl  system  for  AGC 

: REVISION 

0 OF  program  BURST120  BY  NASA  2n21106-031 

DEC  7,  1967 

(MAIN) 

PAGE 

65A 

L 

ATTITJDE  maneuver 

routine 

USER'S  Own  page  no. 

19 

S3 

E3 

1610 

REF  3 LAST 

653 

35j.35Xl 

A 77A3,  1 

DCS 

_DP0SMAX  

1611 

REF  5 LAST 

653 

35,3512 

1 65A2  0 

TCF 

5L0AD2 

R1612 

interpretive 

SJBRoUTI'IE  to  read  the  cdu 

angles 

1613 

161A 

1615 

REF  lA  LAST 
REF  272  last 

533 

653 

35,3513 
35,35lA 
___  35,3515 

3 003A  0 
5A  1A6  0 
_ 0 0006  1 

READCDJ<  :A 
TS 

EXTEND 

Co  Jz 
MPAC  *2 

LOAD  T (MPaC)  with  CDU 

ANGLES 

1616 

1617 

REF  30  LAST 
REF  1 

503 

35.3516 

35.3517 

3 0033  1 
1 655A  1 

3CA 

TCF 

CDJX  . 
TLOAn  +6 

AND  change  mode  TO  TRIPLE  PRECISION 

16172 

1620 

1621 

REF 

11 

LAST 

653 

3A,2AA5 

3A,2AA6 

E3 

66370  0 
00003  1 

EBAN<= 

CDUTODCM  AXT,1 
.TCT 

MIS 

SSP 

3 

1622 

REF 

16 

LAST 

A5A 

3^  t2447 

00051 

0 

51 

1623 

3A,2A50 

00001 

0 

OCT 

1 

SET  XHl,  SI,  AND  PD  FOR  LOOP 

162A 

3A,2A51 

00010 

0 

5T0RE_ 

7 

1625 

3A.2A52 

77601 

0 

5ETP0 

1626 

3A,2a53 

00001 

0 

0 

1627. 

3A,2A5A 

A7133 

0 

LOOPSIN  SLOAO* 

RT5 

1628 

3A,2a55 

00013 

0 

10D,{ 

1629 

REF 

lA 

LAST 

392 

3A,2A56 

33A57 

1 

CDJLnGIC 

1630 

3A.2A57 

00013 

0 

STORE 

100 

LOAD  PD  WITH  0 SIN(PHI) 

1631 

3A,2A60 

65356 

1 

SIN 

POOL 

2 COS(PHI) 

1632 

3A,2A61 

00013 

0 

lOD 

A SIN(THETA) 

1633 

3A,2A62 

A15A6 

0 

COS 

PUSH 

6 COS(THETA) 

163A 

3A,2A63 

71300 

1 

rix.i 

OLOAn 

8 SIN(PSI) 

1635 

REF 

1 

3A,2A6A 

70A5A 

0 

LOOPsIN 

10  COS(PSI) 

1636 

3A.2A65 

00007 

0 

6 

1637 

3A,2A66 

72A05 

0 

omp 

SLl 

1638 

3A,2A67 

00013 

0 

lOD 

1639 

3A.2A70 

10001 

1 

STORE 

0,2 

CO=COS(THETA)COS(PSI) 

16A0 

3A,2A71 

A13A5 

0 

OLOAO 

OMP 

16A1 

3A,2A72 

00005 

1 

A 

16A2 

3A,2A73 

00001 

0 

0 

16A3 

3A,2A7A 

A1325 

0 

5DDL 

OMP 

(PD6  SIN(THETA)SIN(PHI) ) 

16AA 

3A,2A75 

00007 

0 

6 

16A5 

3A,2A76 

00011 

1 

80 

16A6 

3A,2A77 

72A05 

0 

OMP 

SLl 

16A7 

3A,2500 

00003 

1 

2 

16A9 

3A,2501 

72A21 

0 

sDSJ 

SLl 

1650 

3A,2502 

00015 

0 

120 

1651 

3A.2503 

10003 

0 

STORE 

2,2 

Cl =-COS (THETA) SIN (PSI ) COS  (PHI) 

1652 

3A.250A 

A13A5 

0 

OLOAD 

OMP 

1653 

3A,2505 

00003 

1 

2 
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1654 

ATTITJOE  MANEUVER  ROUTINE 

34.2506 

00005  1 

_4 

USER'S  OWN  PAGE  NO.  20  S3  E3 

1655 

34 

.2507 

91325  0 

3D0L 

OMP 

(PD7  C05(PHI)SIN(THETAn  SCALEO  4 

1656 

34 

.2510 

00007  0 

6 

1657 

34 

.2511 

OOP 11  1 

_aD 

1658 

34 

.2512 

72405  0 

3MP 

SLl 

1659 

34 

.2513 

00001  0 

0 

1660 

34 

.2514 

77415  1 

PAD 

SLl 

1661 

34 

.2515 

00017  1 

140 

166A 

34 

.2516 

10005  0 

store 

4,2 

C2SC0S (THETA) SIN (PSI ) SIN (PHI ) 

16645 

34 

.2517 

17745—1 

1665 

34 

.2520 

00011  1 

80 

1666 

34 

.2521 

10007  1 

STORE 

6,2 

C3=SIN(PSI) 

16665 

34 

,2522 

.77745  1 • 

■ OLOAD 

1667 

34 

.2523 

00013  0 

100 

1668 

34 

.2524 

72405  0 

JMP 

SLl 

1669 

3L4 

.2525 

00003  1 

? 

1670 

34 

.2526 

10011  0 

STORE 

80,2 

C4=COS(PS1)COS(PHI) 

1671 

34 

.2527 

41345  0 

OLOAO 

OMP 

1672 

34 

,2530 

00013  0 

lOD 

1673 

34 

,2531 

00001  0 

0 

167A 

34 

,2532 

72476  1 

JCOMP 

SLl 

1675 

34 

,2533 

10013  1 

STORE 

100,7  . 

C5=-C0S(PSI)SIN(PHI) 

1676 

34 

,2534 

41345  0 

OLOAO 

OMP 

1677 

34 

.2535 

00005  1 

4 

1678 

34 

,2536 

00013  0 

100 

. 1679 

34 

,2537 

72476  1 

OCOMP 

SLl 

1680 

34 

,2540 

10015  1 

STORE 

1 2 D * 9 

C6=-SIN (THETA) COS (PSI) 

16805 

34 

,2541 

77745  1 

OLOAO 

1681 

34 

,2542 

72405  0 

OMP 

SLl 

(PUSH  UP  7) 

1682 

34 

,2543 

00011  1 

80 

1683 

34 

,2544 

41325  0 

3D0L 

OMP 

(PD7  C0S(PHI)SIN(THETA)SIN(PSI) ) SCALE4 

168A 

34 

.2545 

00007  0 

6 

1685 

34 

,2546 

00001  0 

0 

1686 

34 

,2547 

72415  1 

OAO  - 

SLl 

(PUSH  UP  7) 

1688 

34 

,2550 

77626  0 

5TADR 

C7=C0S (PHI) SIN (THETA) SIN (PSI) 

1689 

34 

,2551 

67760  1 

STORE 

140,7 

♦C0S(THETA)SIN(PHI) 

16895 

34 

,2552 

77745  i 

3LJJA0 

1690 

34 

,2553 

72405  0 

OMP 

SLl 

(PUSH  UP  6) 

1691 

34 

,2554 

00011  1 

80 

1692 

34 

,2555 

41325  0 

3D0L 

OMP 

(PD6  SIN(THETA)SIN(PHI)SIN(PSI))  SCAUE4 

1693 

34 

,2556 

00007  0 

6 

1699 

34 

,2557 

00003  1 

2 

1695 

34 

.2560 

72425  1 

OSJ 

SLl 

(PUSH  UP  6) 

1696 

34 

,2561 

77626  0 

STAOR 

1697 

34 

,2562 

67756  1 

STORE 

163*9 

C8=-SIN  (THETA)  SIN  (PHI)  SIN  (PSD 

1698 

34 

-I7616_  0 _ 

RV3 

+C0S(THETA)C0S(PHI)  _ _ _ ^ 

Rl700  CALCJ..ATION  OF  THE  MATRIX  DEL 


R1701  * * — T » 
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R1702  DEL  J=.  J ieMATTiX)XQSJAl_+UU  (l-COS^(jAnAJX_SiNJA)_ SCALED  ^. _ __  . _ 

R1703 

R170A  WHERE  u_is__A_uNli_y_EcToii  ICR  Scaled  2i--Ai-o__NG  xhe -Axt_s,  . OF  Rotation.  _ ^ _ 

R1706  A IS  the  AN5(-E  OF  ROTATION  (DP  SCALED  2) 

R1707 

R1708  . UPON  entry  THE  STARTING  ADDRF-SS  OF  U IS  COF.  AND.. A T.S,  I.N  MPAC  . _ 


1709 

34,2564 

41401  1 

DELCOM?  SETPO 

PUSH 

MPAC  CONTAINS  THE  ANGLE  A 

J.710 

34.2565 

OOQQl  0 

_JD 

1711 

34,2566 

65356  1 

SIN 

PDDL 

PDO  = 5IN(A) 

1712 

34,2567 

41546  0 

COS 

PUSH 

PD2  = COS(A) 

17125 

34,2570 

65302 _0 

5R2  ' 

pddl 

PD2  = COS(A) 

S8 

1713 

34,2571 

41021  1 

3DSJ 

30Y3 

171A 

REF 

5 

LAST 

648 

34,2572 

30414  0 

HALFa 

171A1 

REF 

2 

LAST 

648 

34,2573 

73501  1 

SIXNMPAC 

171A2 

34,2574 

77725  1 

3DDL 

PD4  = 1-COS (A) 

Rl7i5 

compute 

the 

diagonal 

components  of  Del 

1716 

REF 

29 

LAST 

650 

34,2575 

01624  0 

COF 

1717 

34,2576 

41316  0 

OSO 

DMP 

1718 

34,2577 

00005  1 

4 

1719 

34,2600 

52415  0 

OAO 

SL3 

UXUXd-COS(A)  ) 

$8 

. ,1720 

34.2601 

00003  1 

2 

1721 

34,2602 

77604  0 

30YB 

1722 

REF 

3 

LAST 

656 

34,2603 

73501  1 

SIGNmPAC 

1723 

REF 

2 

LAST 

645 

34,2604 

15560  0 

STOOL 

<EL 

UX  UXd-COS(A)) 

*COS(A) 

£l 

172A 

REF 

30 

LAST 

656 

34,2605 

01626  1 

COF  .2 

1725 

34,2606 

41316  0 

053 

DMP 

1726 

34,2607 

00005  1 

4 

1727 

34,2610 

52415  0 

OAO 

SL3 

UYUYd-COS(A)  ) 

£8 

1728 

34,2611 

00003  1 

2 

1729 

34.2612 

77604  0 

30YB 

1730 

REF 

4 

LAST 

656 

34,2613 

73501  1 

SI oMmPAC 

1731 

REF 

3 

LAST 

656 

34,2614 

15570  1 

stool 

<EL  +8D 

UY  UYd-COS(A)  ) 

♦COS(A) 

SI 

1732 

REF 

31 

LAST 

656 

34,2615 

01630  0 

COF  .,4 

1733 

34,2616 

41316  0 

0S3 

DMP 

17331 

34,2617 

00005  1 

4 

17332 

34,2620 

52415  0 

OAO 

SL3 

UZUZd-COS(A)) 

S8 

17333 

34,2621 

00003  1 

2 

17334 

34,2622 

77604  0 

30VB 

17335 

ref 

5 

LAST 

656 

34,2623 

73501  1 

SIGNMPAC 

17336 

REF 

4 

LAST 

656 

34,2624 

01600  0 

STORE 

<EL  +16D 

UZ  Uzd-COS(A)  ) 

♦COS(A) 

$1 

RlTiA 

COMPUTE 

THE 

OFF  DIAGONAL  TERMS 

OF  DfL 

1735 

34,2625 

41345  0 

OLOAO 

DMP 

1736 

REF 

32 

last 

656 

34,2626 

01624  0 

COF 

1737 

REF 

33 

last 

656 

34,2627 

01626  1 

COF  *2 
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1738 

1739 

— 

39,2631 

00005  1 



4 

17A0 

39,2632 

91325  0 

2DDL 

OMP 

D6 

UX  UY  (1-COS  A) 

S 9 

1741 

REF 

34 

last 

655 

39,2633 

01630  0 

^0F,j.9  - - - 

17A2 

39,2639 

00001  0 

0 

17A3 

39,2635 

93206  1 

3USH 

DAD 

D8 

UZ  SIN  A 

S 9 

1744 

l9iZ636 

00007  0 

ft 

17A5 

39,2637 

91112  0 

SL2 

B0y3 

17A6 

ref 

6 

LAST 

655 

39,2690 

73501  1 

SIGNmPAC 

1797 

ref 

5 

LAST 

655 

39,2691 

15566  0 

_.SI3X1L, 

__j;el_  +6  . - _ 

1798 

39,2692 

62921  1 

3DSJ 

SL2 

1799 

39,2693 

77609  0 

30YB 

1750 

REF 

7 

LAST 

657 

39,2699 

73501  1 

.515_NmPAC  __  . 

1751 

REF 

6 

LAST 

657 

39,2695 

15562  1 

STOOL 

<EL  *2 

1752 

REF 

35 

LAST 

657 

39,2696 

01629  0 

COF 

1753 

39,2697 

9a205  0 _ 

OMP  _ 

_DMP 

1759 

REF 

36 

last 

657 

39,2650 

01630  0 

COF  ,9 

■ 1755 

39,2651 

00005  1 

9 

1756 

39,2652 

65352  0 

SLL, 

Pddi* 

06- 

_UX  UZ  (-L-CQ5_  A I _ 

__  __$_4-_ 

1757 

REF 

37 

LAST 

657 

39,2653 

01626  1 

COF  *2 

1758 

39,2659 

91905  0 

3MP 

PUSH 

D8 

UY  SIN(A) 

1759 

39,2655 

00001  0 

0 

1760 

39,2656 

62915  0 

OAO  ■ 

SL2 

1761 

39,2657 

00007  0 

6 

1762 

39,2660 

77609  0 

AOYR 

1763 

REF 

8 

LAST 

657 

39,2661 

73501  1 

SIoNmPAC 

1769 

REF 

7 

LAST 

657 

39,2662 

15569  1 

stodl 

<EL  *9 

UX 

UZ  (l-COS(A) )+UY  SIN(A) 

1765 

629^1  L 

3D5U 

SL2 

1766 

39,2669 

77609  0 

30YB 

1767 

ref 

9 

LAST 

657 

39,2665 

73501  1 

S i oNmPAC 

1768 

REF 

8 

LAST 

657 

34  «2666 

15579  0 

STODL 

<EL  *120 

UX 

UZ  U-COS(A) )-UY  SIN(A) 

1769 

ref 

38 

LAST 

657 

39,2667 

01626  1 

COF  ,2 

1770 

39,2670 

91205  0 

OMP 

DMP 

1771 

ref 

39 

LAST 

657 

39,2671 

01630  0 

COF  *9 

1772 

39,2672 

00005  1 

9 

1773 

39,2673 

65352  0 

SLl 

POOL 

D6 

UY  UZ  (I-COS(A) ) 

i 9 

1779 

ref 

90 

LAST 

657 

39.2679 

01629  0 

COF 

1775 

39,2675 

91905  0 

OMP 

PUSH 

D8 

UX  SIN(A) 

1776 

39,2676 

00001  0 

0 

1777 

39,2677 

62915  0 

OAD 

SL^ 

1778 

39,2700 

00007  0 

6 

1779 

39,2701 

77609  0 

3OYB 

1780 

ref 

10 

LAST 

657 

39,2702 

73501  1 

SIGNmPAC 

1781 

REF 

9 

LAST 

657 

39,2703 

15576  1 

STODL 

<EL  +19D 

UY 

UZd-COS(A)  ) +UX  SIN(A) 

1782 

39,2709 

62921  1 

3DSJ 

SL2 

1783 

39,2705 

77604  0 

30YB 

1789 

REF 

11 

LAST 

657 

39,2706 

73501  1 

SIGNmPAC 

1785 

REF 

10 

LAST 

657 

39,2707 

01572  0 

STORE 

<EL  *10D 

UY 

UZ  (l-COS(A) ) -UX  SIN(A) 

1786 

39j.22i0._ 

77616  0 

■ ■■RV8 

633A36A 
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L 

ATTITJDE  MAnEUYEr  ROJiTInE 

USER'S  OWN  PAGE 

NO.  23 

S3  E3 

P1787 

DIRE 

CrION  COSINE  MATRIX  TO  CPU  ANGLE  ROUTINE  . _ . , _ 

R1788 

R1789 

R1790 

XI  covijAiNs  tHe  complement  of  the  Starting  address  for  matriv  (scaled  2) 
leaves  CDU  angles  scaled  2PI  IN  Y(MPAC) 

COS(M3A)  WILL  3E  LEFT  IN  51  (SCALED  1)  _ 

Rl79l 

tHe 

direction  cosine  matrix  Relating  s/c  axes  to  stable  memBfR  axes  can 

Be  written  as*** 

R1793 

R179A 

■R1795 

C =C0S(THETA)C0S(PSI ) 

0 

c =-C05jTHETA)SIN(PSljCTlS(PHI)+SI  (THET  A)  SI  N ( PHI ) 

R1796 

R1797 

R1798 

1 

C =C0S(THETA)SIN(PSI)SIN(PHI)  + 5 N(THETA)C0S(PHI) 

2 - - - 

R1799 

R1800 

Riaoi 

C =SIN(PSI) 

3 

C =C05(P5I)C06(PHI) 

RI802 

R1803 

R180A 

A 

C =-COS{PSI)5IN(PHI) 
5 

R1805 

R1806 

R1807 

C =-SIN(THETA)C0S(PSI) 

6 

C sSIN(THETA)SIN(PSI)CoS(PHI)+COS  THETA) SIN(PHI) 

R1808  7 

R1809  C s-SIN(tHET‘\)S1N(PSI)SIN(PHI)+C3‘  (THET<\)C05(PHI) 

R181Q a_ 

RI8II  - WHERE  Phi  s 30A 


R1812 

theta 

= TGA 

RI813 

PSI  = 

MGA 

1814 

34*2711 

67543 

L 

jjemtooj 

DLaAD* 

ARCStN 

1815 

34,2712 

00007 

0 

6,1 

1816 

34,2713 

71406 

0 

9USH 

COS 

PD  +0  PSI 

_ 1817 

34,2714 

41152 

1 

_SU. 

BOVB 

1818 

REF 

12 

LAST 

657 

34,2715 

73501 

1 

Si gnmpac 

1819 

ref 

17 

LAST 

654 

34,2716 

00051 

0 

store 

5l 

1820 

34,2717 

57543 

1 

3L0AD# 

DCOMd 

1821 

34,2720 

00015 

0 

120,1 

1822 

34,2  T21 

67471 

1 

5DV 

ARCSIN 

1823 

REF 

18 

LAST 

658 

34,2722 

00051 

0 

Si 

1824 

34,2723 

51123 

0 

ADDL* 

BPL 

PD  +2  THETA 

1825 

34,2724 

00001 

0 

0,1 

MUST  CHECK  THE  SIGN  OF  COS(THETA) 

1826 

REF 

1 

34,2725 

70737 

0 

0<THeTA 

TO  DETERMINE  THE  PROPER  QUADRANT 

1827 

34,2726 

57545 

1 

OLOAD 

DCOMp 

1828 

34,2727 

43244 

1 

3PL 

DAD 

1829 

REF 

1 

34,2730 

70734 

0 

SJHAI  FA 

1830 

REF 

6 

LAST 

656 

34,2731 

30414 

0 

HALFA 

1831 

34,2732 

77650 

1 

SOTO 

1832 

REF 

1 

34,2733 

70736 

1 

CALCpHI 

1833 

34,2734 

77625 

0 

SJHALFA 

OSJ 
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103A 

R£F 

7 

LAST- 

658 

34.2735 

30414 

CL_ 

HALFA 

1835 

34,2736 

77606 

1 

calcphi 

PUSH 

1836 

34,2737 

57543 

1 

3<THETA 

5L3A0* 

OCOMo 

1837 

34.2740 

00013 

_D_ 

loQ.i 

1838 

34,2741 

67471 

1 

3DV 

ARCSIN 

1839 

REF 

19 

LAST 

658 

34,2742 

00051 

0 

Si 

18A0 

, 34.Z743  _ 

_iil23 

0.- 

=DCIL» 

3PL 

PUSH. DOWN  .PHI 

18A1 

34,2744 

OOOll 

1 

80,1 

18A2 

ref 

1 

34,2745 

70757 

0 

3<PHt 

18A3 

_3  4, 2 7-4  6 

57545 

1 

3L0AQ 

OCOMd 

PUSH  UP  PHI 

18AA 

34,2747 

43244 

1 

3PL 

OAD 

18A5 

REF 

1 

34,2750 

70754 

0 

SJHALFAP 

18A6 

REF 

B 

LAST 

65  V 

34,2.751- 

- .3041 4 

0 

HALFa' 

18A7 

34,2752 

77650 

1 

SOTO 

18A8 

REF 

1 

34,2753 

70760 

1 

VEC3FANG 

18^9 

34,2754 

52025 

1 

SJHALFAP 

3SJ 

aoTOi 

1850 

REF 

9 

LAST 

659 

34,2755 

30414 

0 

HALFA 

1851 

REF 

2 

LAST 

659 

34,2756 

70760 

1 

VEC3FANG 

1852 

34,2757 

77745 

1 

D<PH1 

3L3AJ 

PUSH  UP  PHI  . _ 

1853 

34,2760 

43466 

1 

VECOFAVG 

VDEF 

RV3 

633^,36* 

YUL 

SYSTEM  for  «GC 

: REVISION 

0 OF  PROGRAM  BURST120  BY  NASA  2n2110h-031 

DEC  7*  1967  (MAIN)  PAGE  660 

L 

ATTITJOE  maneuver 

routine 

USER'S  Own  page  nO.  25  S3  E3 

Pia54 

ROJTI'IES  FOR 

terminating  tHf 

AJTQMATK 

maneuver  and  RilURNi.Nfi  TO  USER 

1855 

39,2761 

77776  1 

ENDMANJ  EXIT 

1856 

ref 

39 

LAST 

635 

39,2762 

3 ,77.62  0 

. CAF  _ TrtO 

1857 

39,2763 

0 OOOA  0 

INHINT 

1858 

REF 

72 

LAST 

599 

39,2769 

0 5663  1 

TC  /JAITI  1ST 

PREPARE  FOR  A GOOD  (NORMAL)  RETURN  VIA 

18581 

_REF 

1? 

LAST 

659 

E3 

EBAN<=  MIS 

1859 

39,2765 

03710  1 

2CADR  GOOOmANU 

GOODEND 

C1859 

REF 

1 

39,2766 

70063  0 

I860 

39,2767 

0 0003  1 

_ .JIELINT 

1861 

REF 

50 

LAST 

620 

39,2770 

0 5567  0 

TC  FNOOFJOB 

1862 

3A»2771 

J7776-  1 

..toobad  exit 

INITIAL  OR  final. GIMBAL  ANGLES  JN 

1863 

ref 

35 

lAst 

6&0 

39,2772 

3 7762  0 

:af  TwO 

GIMBAL  LOCK 

186A 

39,2773 

0 0004  0 

INHINT 

1865 

REF 

73 

LAST 

660 

.39,2779 

0 5663  1 

tC  4AI_T_I  1ST  __ 

18651 

REF 

13 

LAST 

660 

E3 

?BAN<=  MIS 

1866 

39,2775 

03001  0 

2CAOR  NOoO 

PREPARE  FOR  A BAD  RETURN  VIA  BAOEND 

C1866 

ref 

1 

39,2776 

70063  0 

1867 

39,2777 

0 0003  1 

RELINT 

1868 

ref 

51 

LAST 

660 

39,3000 

0 5567  0 

TC  ENOOfJOB 

1869 

REF 

2 

LAST 

100 

39,3001 

0 6076  0 

NOGO  TC  FLASiOWN 

Reset  bit  ii  of  flagwrd2  to  signal  eno 

1870 

39,3002 

02000  0 

OCT  2000 

Of  kaucmanu 

1871 

REF 

32 

LAST 

632 

39,3003 

3 6311  1 

CAF  THREE 

1872 

REF 

36 

LAST 

589 

39,300A 

0 5225  1 

TC  POST.lUMP 

RETURN  under  WAITLIST  VIA  BADENo 

1873 

REF 

3 

LAST 

197 

39,3005 

26715  0 

CAOR  BAOENO 

AND  WAKE  UP  USER 
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GOTO 

1023 

ref 

5 

LAST 

665 

39,3351 

01620  1 

C2PP  +A,1 

102A 

REF 

1 

39,3352 

71390  0 

0PPSr.NC2 

1025 

39,3353 

52195  0 

CKSGNAN2 

3U0A0 

GDTO' 

1026 

39,3359 

00033  1 

26D 

ANSW2 

1027 

REF 

1 

39,3355 

71332  0 

SIGNaNSW 

1077 

39,3356 

77201  1 

djtcycle 

SETPO 

VLOAD 

1078 

39,3357 

00001  0 

0 

1079 

REF 

99 

LAST 

661 

39,3360 

01629  0 

COF 

1080 

39,3361 

63291  0 

DOT 

POVC 

PDO  U1  = COF. El 

1081 

REF 

5 

LAST 

663 

39,3362 

01560  0 

El 

1082 

REF 

50 

LAST 

665 

39,3363 

01629  0 

COF 

_ 

1083 

39,3369 

A1991  0 

DOT 

PUSH 

PD2  U2  = C0F.E2 

1089 

ref 

6 

LAST 

669 

39,3365 

01566  0 

E2 

R1085 

PICK 

THE  new 

U WHICH 

IS  CLOSES! 

TO  THE 

OLD  U 

1086 

39,3366 

A1370  0 

AXT,1 

OMP 

1087 

39,3367 

00000  1 

0 

1088 

REF 

6 

_LASr 

665 

39,3370 

01619  0 

C2PP 

1089 

39,3371 

A1325  0 

3D0L 

DMP 

PDA  U2  C2(0) 

IO9O 

ref 

3 

LAST 

669 

39,3372 

01620  1 

ClP? 

1091 

39,3373 

00001  0 

0 

U1  CKO) 

1092 

39,3379 

51915  0 

3A0 

ABS 
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S3 


109A 

1095 

1096 

ref 

2 

LAST 

664 

34.3376 

34.3377 
34,3400 

00003 

01616 

41325 

1 

1 

J)_ 

JPCIL 

2 

C2MP 
DMP  ^ 

PD6  U2  C2(l) 

1097 

34,3401 

00001 

0 

0 

1098 

ref 

2 

LAST 

664 

34,3402 

01622 

0 

ClMP 

PUSH  UP  U2  C2(l) 

1099 

34J.3403 

5J.415 

0 

OAD.  . . 

ABS 

..ABSIUl  CIU)  * U2  C2(D) 

1100 

34,3404 

77625 

0 

OSJ 

PUSH  UP  4 

1101 

34,3905 

74040 

0 

3MN 

AXC,i 

■1102 

jsef 

1 

34,3406 

71410 

_L 

_Ji£3n_ 

1103 

34,3407 

00002 

0 

2 

1104 

34,3410 

74343 

0 

J2ER0 

5L0AD4 

vxsc 

1105 

ref 

4 

LAST 

665 

34,3911 

01620 

1 

ClPP.l 

1106 

REF 

6 

LAST 

665 

34,3912 

01560 

0 

El 

1107 

34,3913 

74323 

0 

3D0L* 

VXSC 

1106 

REF 

7 

LAST  665 

39,3919 

01614 

0 

C2PP.1 

1109 

REF 

7 

LAST 

665 

39,3915 

01566 

0 

E2 

1110 

34,3916 

77655 

1 

VAO 

nil 

34,3917 

77656 

1 

JNIT 

NEW  COF  - 

1112 

REF 

51 

LAST 

665 

34,3920 

01624 

0 

STORE 

COF 

COF  = Cl  El  ♦ C2  E2 

R1113 

NEW 

MANEUVER 

angle 

IS 

1.114 

34,3921 

63545 

0 

PLMD 

DSQ 

1115 

REF 

52 

LAST 

666 

39,3922 

01624 

0 

COF 

1116 

34,3923 

44352 

0 

SLl 

BOSJ 

2 

1117 

REF 

15 

LAST 

662 

39,3929 

30914 

0 

RALFa 

(1  - COF  ) $2 

1118 

39,3925 

63525 

0 

3D0L 

053 

0 

1119 

. REF 

8 

LAST 

666 

34,3926 

01566 

0 

E2 

1120 

34,3427 

56221 

0 

3DSU 

DDV 

2 

1121 

ref 

5 

last 

664 

34,3430 

30426 

1 

OUARtA 

(1  - K5  ) $4 

1122 

34,3431 

75542 

0 

SRI 

S3RT 

1123 

34,3432 

72536 

1 

ARCSIN 

SLl 

1124 

REF 

3 

LAST 

648 

39,3433 

01643 

1 

STORE 

AM 

1145 

34,3434 

77614 

1 

CLRGO 

STATE  SWITCH  NO.  31 

1146 

34,3435 

0U2L 

1 

31D 

O(OFF)  s MANEUVER  WENT  THRU  GIM3AL  LOCK 

1147 

REF 

1 

34,3436 

71441 

0 

WCALr 

l(ON)  = MANEUVER  DID  NOT  GO  THRJ  GIMlOCK 

1148 

34,3437 

77614 

1 

NOGIMLOC 

SET 

1149 

34,3940 

01061 

1 

31D 

1150 

34,3441 

70740 

0 

WCALC 

-XC,1 

DLOAO» 

115.1 

REF 

2 

LAST 

67 

34,3442 

01652 

1 

RATEINDX 

CHOOSE  the  Desired  maneuver  rat? 

1152 

REF 

1 

34,3443 

31465 

1 

ARATE.I 

from  a list  OF  FOUR 

1153 

34,3444 

45002 

1 

5R4 

call 

COMPUTE  the  incremental  ROTATIOv  MATRIX 

1154 

REF 

2 

LAST 

645 

34,3445 

70564 

1 

OeLCOMP 

del  corresponding  TO  A 1 SEC  ROTATION 

A1155 

ABOUT  COF 

1156 

34,3446 

74343 

0 

OLOAO* 

VXSC 

1157 

ref 

2 

LAST 

666 

34,3447 

31465 

1 

ARATf,! 

1158 

REF 

53 

LAST 

666 

34,3450 

01624 

0 

COF 

1159 

REF 

1 

34,3451 

15635 

0 

STOOL 

BRATf 

component  MANEUVER  RATES  45  DEo/SEC 

1160 

REF 

4 

LAST 

666 

34,3452 

01643 

1 

AM 

1161 

34,3453 

55605 

1 

OMP 

DDV* 

1162 

ref 

1 

34,3454 

31475 

0 

ANoLTiME 
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1163 

GIMBAl  loc< 
REF  3 LAit 

avoidance 
666  34,3455 

31965  1 

ARATE.1 

USER'S  OWN  PAGE  NO.  7 

S3 

116A 

3A.3A56 

77661  0 

SR 

1165 

39,3957 

20606  0 

5 

1166 

REF  1 

39,3960 

01695  1 

. _ _ 5lT2RE._ 

_ IM 

maneuver  EXECUTION  TIME  SCALED 

AS  T2 

1167 

39,3961 

77619  1 

5ETG0 

state  switch  no.  32 

1168 

39,3962 

01022  0 

320 

O(OFF)  s CONTINUE  MANEUVER 

1169 

REF  1 

, 39,3963 

71977  0 - 

-NErtOFLHl  *1. 

__i(ON):  start  maneuver 

' R1170 
R1171 

the  four  selectable  free  fall 

LOADING  RATEINDX  WITH  0,2, 9, 6, 

maneuver  rates 
, respectively 

Se’eCTfO  by 

1172 

00559 

0 

ARATE  2DEc 

.0Z2?2222?2 

5.5  DEG/SEC 

S 22,5DEg/SEc 

C1172 

39,3965 

02660 

0 

1173 

3^ « 3^66 

02660 

0 

2PEC 

.0889888888 

s 2 DEG/SEC 

$ 22.5DEG/SE: 

C1173 

39,3967 

13301 

1 

1179 

39,3470 

07070 

1 

20EC 

.2222222222 

5 5 DEG/SEC 

$ 22.5DEG/SE: 

C1179 

39,3971 

39399 

0 

1175 

39,3972 

16161 

0 

2DEC 

=10  DEG/SEC 

$ 22.5DEG/SEC 

C1175 

39,3973 

30707 

1 

1177 

39,3979 

OOOO3 

1 

ANGLTIME  2DEC 

.0001 907399 

= IOOB-19 

FUDGE  FACTOR  TO  CONVERT 

A1178 

39,3975 

09000 

0 

maneuver  angle 

TO  MANEUVER  time 
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00035 

REF 

1 

E3 

EBAN<= 

TTEMP 

OOO'A 

REF 

55 

LAST 

6^6 

34  76 

_0  6112 

0 

NEWDELHl  TC 

INTPRET 

0005 

3A 

3477 

75160 

1 

AXC,1 

AXC,2 

0006 

REF 

15 

LAST 

66l 

3A 

3500 

01535 

0 

MlS 

COMPUTE  THE  NEW  MATRIX  FROM  S/C  TO 

0007 

REF 

11 

LAST 

65  7 

3A 

3501 

01557 

1 

<EL 

stable  member  axes 

0008 

3A 

3502 

77624 

1 

call 

0009 

REF 

3 

LAST 

6A7 

3A 

3503 

73417 

1 

MXM3 

0010 

34 

»3504 

45575 

_L_ 

vload 

STAQd 

0011 

REF 

16 

LAST 

66B 

34 

3505 

52225 

0 

STDYL 

MIS  +12D 

CALCULATE  NEW  DESIRED  CDU  ANGLES 

0012 

34 

3506 

77626 

0 

STADR 

0013 

ref 

17 

LAST 

668 

34 

3507 

J)2233 

1 

S.TOVL 

MIS  *6D 

OOIA 

34 

3510 

77626 

0 

STADR 

OOlS 

REF 

18 

LAST 

668 

34 

3511 

76241 

1 

store 

MIS 

0016 

34 

3512 

45160 

AXC.l 

CALf, 

0017 

ref 

19 

LAST 

668 

34 

3513 

01535 

0 

MIS 

0018 

ref 

2 

LAST 

6Al> 

34 

3514 

70711 

1 

OCMToCDU 

PICK  UP  THE  NEW  CDU  ANGLES  FROM  MATRIX 

0019 

34 

♦ 3515 

77634 

JL_ 

RiTB 

0020 

REF 

3 

LAST 

6A5 

34 

3516 

33526 

0 

V1ST02S 

0021 

REF 

1 

34 

3517 

01602 

1 

STORE 

NCOJ' 

NEW  CDU  angles 

0022 

34 

3520 

77414 

0 

30NCLR 

EXIT 

0023  ■ 

34 

3521 

01202 

0 

32D 

002A 

REF 

1 

34 

3522 

nb02 

O' 

MANJcTAT 

TO  start  maneuver 

0025 

REF 

LAST 

660 

34 

3523 

3 7762 

0 

CAF 

Two 

♦0  OTHERWISE 

0026 

REF 

1 

34 

3524 

551653 

1 

INCRDCDU  rS 

SPNDX 

0027 

REF 

2 

LAST 

668 

34 

3525 

51*653 

0 

INDEX 

SPNDX 

0028 

REF 

LAST 

6A6 

34 

3526 

3 1532 

1 

CA 

3C0J- 

INITIAL  CDU  ANGLES 

0029 

. 

34 

3527 

0 0006 

1 

extend 

OR  PREVIOUS  DESIRED  c^U  ANQlES 

0030 

REF 

3 

LAST 

668 

34 

3530 

5 1653 

0 

INDEX 

SPNDv 

0031 

ref 

2 

LAST 

668 

34 

3531 

21'601 

0 

MSU 

NCDJi 

0032 

34 

3532 

0 0006 

1 

EXTEND 

0033 

REf 

1 

34 

3533 

7 3601 

1 

MP 

ot/tau 

003A 

REF 

233 

LAST 

653 

34 

3534 

10  000 

0 

CCS 

A 

CONVERT  TO  2S  COMPLEMENT 

0035 

REF 

UA 

LAST 

62^ 

34 

3535 

6 7763 

1 

AD 

ONE 

0036 

34 

3536 

1 3540 

1 

TCF 

♦ 2 

0037 

34 

3537 

4 0000 

0 

COM 

0038 

REF 

A 

LAST 

668 

34 

3540 

51«653 

0 

INDEX 

SPNDX 

0039 

REF 

2 

LAST 

648 

34 

3541 

54  771 

1 

TS 

DELDrDU 

angle  increments  to  be  added  to 

OOAO 

REF 

5 

LAST 

668 

34 

3542 

51*653 

0 

INDEX 

SPNDX 

CDUXD,  CDUYD,  CDUZD  EVERY  TENTH  SfCOND 

00i,l 

REF 

3 

LAST 

66» 

34 

3543 

3 1601 

1 

CA 

NCDJ 

by  LEM  DAP 

00a2 

REf 

6 

last 

668 

34 

3544 

51*653 

0 

INDEX 

SPNDX 

00A3 

REF 

7 

LAST 

668 

34 

3545 

57*532 

1 

XCH 

BCDJi 

OOAA 

REF 

7 

LAST 

668 

34 

3546 

51*653 

0 

INDEX 

SPNDX 

00<t5 

ref 

10 

LAST 

6A8 

34 

3547 

54  766 

1 

IS 

CDJXD 

00A6 

ref 

8 

last 

668 

34 

3550 

11*653 

1 

CCS 

SPNDX 

00A7 

REF 

1 

34 

3551 

1 3524 

0 

TCF 

INCRDCDU 

LOOP  FOR  THREE  AXES 
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Rnntft 

COMPARE 

PRESF_NT  ■ 

TIME  with  time  to  TERMINATE  MANEJVEJR-, 

0049 

34,3552 

0 0006 

1 

tmanuch< 

extend 

0050 

REF 

21 

LAST 

586 

34,3553 

4 0025 

1 

DCS_ 

IIMEj  

0051 

REF 

2 

LAST 

668 

34,3554 

53*606 

1 

5XCH 

TTEMP 

0052 

34,3555 

0 0006 

1 

EXTEND 

0053 

REF 

2 

LAET 

J,J>T 

0054 

REF 

3 

LAST 

669 

34,3557 

21*606 

1 

DAS 

TTEMP 

TM+TO-1-T 

0055 

REF 

4 

LAST 

659 

34,3560 

11*605 

1 

CCS 

TTEMP 

0056 

REF 

1 

34,3561 

1 3642 

0 

rcF 

CDNTMANU 

(TM.TO)-T  G 154  SEC 

0057 

34,3562 

1 3564 

1 

rcF 

♦ 2 

0056 

REF 

1 

34,3563 

1 3540 

1 

ICF 

OVERMANU 

(TM+TO)-T  L -164  SEC 

0059 

REF 

5 

LAST 

669 

34,3564 

.11 '606 

1 

CCS 

TTEMP  ♦! 

0060 

REF 

2 

LAST 

66’ 

34*3565 

1 3642 

0 

rcF 

CDNTMANU 

(TM*T0)-T  G 1 SEC 

0061 

REf 

1 

34,3556 

1 3570 

1 

ICF 

MANjOFF 

(TM*T0)-T  E 1 SEC 

0062 

i4i35iiT 

4_0.000 

0 

COM.  _ 

(TMtTOE'gJ  L_L.5EC  

0063 

REF 

1 

34,3570 

6 3637 

0 

manuoff 

AD 

DNESfK  +1 

(TM.TO)-T  E 1 SEC 

0064 

34,3571 

0 0006 

1 

EXTEND 

0065 

REF 

2 

LAST 

669 

34,3572 

6 3640 

0 

3Z'1F 

DVERMANU 

THIS  IS  A SAFETY  PLAY 

0066 

34,3573 

0 0004 

0 

MANUSTAL 

inhint 

PREPARE  TO  STOP  THE  MANEUVER 

0067 

REF 

74 

LAST 

650 

34,3574 

0 5663 

1 

TC 

WAITI  1ST 

00675 

REF 

6 

LAST 

659 

E3 

.£B  AN.<= 

TTEMP  . 

0068 

34,3575 

03666 

1 

2CADR 

MANJsTOP 

C0068 

REF 

1 

34,3576 

70063 

0 

00682 

34,3577 

0 0003 

1 

relint 

00684 

REF 

52 

LAST 

560 

34,3600 

1 5567 

1 

tcf 

ENDDFJOB 

0069  . , 34.3601 JQ1L46  1 DI/IAU-  _ 3EC j) 


0070 

34*3602 

77776  1 MANUSTAT 

EXIT 

INITIALIZATION  ROUTINE 

0071 

34*3603 

0 0006  1 

EXTEND 

FOR  automatic  maneuvers 

0072 

REF 

22 

LAST 

669 

34,3604 

3 0025  0 

DCA 

TIME? 

0073 

REF 

3 

LAST 

669 

34,3605 

21*645  0 

DAS 

TM 

tm+to  maneuver  completion  time 

0074 

34,3606 

0 ooot  i 

FXJEMD 

0075 

ref 

2 

LAST 

669 

34,3607 

4 3637  1 

DCS 

DNESfK 

0076 

REF 

4 

LAST 

669 

34,3610 

21'645  0 

DAS 

TM 

(TM.TO)-l 

OO76I 

34*3611 

0 OOOa  0 

INHINT 

0077 

REf 

2 

lAst 

666 

34,3612 

3 1634  1 

CA 

BRATF 

X-AXIs  MANEUVER  RATE 

0078 

REF 

8 

LAST 

648 

34,3613 

54  774  1 

rs 

DMEGAPD 

0079 

REF 

3 

LAST 

669 

34,3614 

3 1636  0 

CA 

3RATE  *2 

Y-AXIS  MANEUVER  RATE 

ooeo 

REF 

5 

LAST 

629 

34,3615 

54  775  0 

IS 

DMEGAQD 

0081 

REF 

4 

LAST 

659 

34,3616 

3 1640  1 

CA 

BRATf  +4 

z-AXis  Maneuver  rate 

0082 

REF 

7 

LAST 

630 

34,3617 

54  776  0 

rs 

DMEGARD 

00821 

34,3620 

0 0006  1 

EXTEND 

00822 

REF 

22 

LA3T 

554 

34,3621 

3 0034  0 

DCA 

CDJV 

00823 

REF 

7 

LAST 

59I 

34,3622 

52  770  0 

DXCH 

CDJVn 

00824 

REF 

31 

LAST 

654 

34,3623 

30  032  0 

CAE 

CDJX 

00825 

REF 

11 

LAST 

66B 

34,3624 

54  766  1 

TS 

CDJXD 

00826 

REF 

23 

last 

611 

34,3625 

0 5270  1 

TC 

IBNXCALL 
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00827 

REF 

1 

J„4»3-62fc 

..A  0.0  4 6 1 

_ FC.A.DR 

-GELMTNDB 

00828 

34,3627 

0 0003  1 

RELINT 

0083 

REF 

12 

LAST  464 

34,3630 

3 0025  0 

CA 

TIMEl 

008A 

ref 

3 

last  669 

i4j.36jl 

6 3637.  0 

■ AD 

onesek;  Ai.  . _ 

0065 

ref 

1 

34,3632 

57*604  1 

<CH 

nextime 

00B52 

REF 

1 

34,3633 

0 6060  1 

TC 

FLA3?UP 

SET  bit  11  OF  FLAGWRD2 

00854 

34iit3iL 

OZ00Q.J3  . 

- - 3d 

2000  

TO  SJGNAi.  KLAtCttANU-  IN  RRQcESG.  _ 

0086 

REF 

2 

LAST  668 

34,3635 

1 3523  1 

TCF 

INCRnCDU  -1 

0087 

34.3636 

onOQO  1 

0088 

34,3637 

00144  0 

3EC 

100 

0089 

REF 

145 

last  668 

34,J3_64Q 

. 3. 77^.3  1 

overmanj  caf 

ONE 

safety  play 

0090 

REF 

1 

34,3641 

1 3573  1 

TCF 

MANJtTAL 

0091 

REF 

13 

LAST  670 

34j3fe42 

.4  0025  1 

contmanj  cs 

TIMEl 

Reset  for  next  dcdu  update 

0092 

REF 

2 

LAST  670 

34,3643 

6 1604  1 

AD 

nextime 

0093 

REF 

234 

last  668 

34,3644 

10  000  0 

CCS 

A 

0094 

REF 

146 

LAST  670 

34,3645 

6.  7763  1 

..  ..  AD . . . 

_ONd 

0095 

REF 

1 

34,3646 

1 -3651  1 

TCF 

MANJCALL 

0096 

REF 

15 

LAST  635 

34,3647 

6 7745  0 

AD 

NeGMAX 

0097 

34,3650 

4 0000  0 

COM 

0098 

34,3651 

0 0004  0 

manucall  inhint 

call  for  NEXT  UPDATE  VIA  WAITLIST 

0099 

REF 

75 

LAST  669 

34,3652 

0 5663  1 

TC 

*/AITl  1ST 

00991 

REF 

7 

LAST!  669 

E3. 

=BAN<= 

T TEMP 

00992 

34,3653 

03661  0 

2CADS 

JPOTCALL 

C00992 

ref 

1 

34,3654 

70063  0 

0Q993 

34,3655 

0 0003  1 

relint 

0100 

REF 

4 

LAST  670 

34,3656 

3 3637  0 

CAF 

ONESfK  +1 

increment  time  for  next  update 

0101 

REF 

3 

LAST  670 

34,3657 

27*604  0 

ADS 

nextime 

0102 

REF 

ii3 

LAST  669 

34,3660 

1 5567  1 

TCF 

ENDOfJOB 

0103 

0104 
01045 

REF 

REF 

REF 

3 

12 

8 

LAST 

last 

LAST 

49O 

453 

670 

34.3661 

34.3662 

3 5655  1 
0 5516  0 
E3 

JPDTCALL  CAF 
TC 

EBAN<= 

PRI034 

FINOvAC 

TTEMP 

SATELLITE  PROGRAM  TO  CALL  FOR  J^DATE 
OF  Steering  commands 

0105 

34,3663 

03476  1 

2CADR 

NEWOELHI 

C0105 

ref 

2 

LAST 

667 

34,3664 

70063  0 

0106 

REF 

60 

LAST 

635 

34,3665 

0 5727  0 

TC 

TASCnVER 
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Pol  07 

ROJTI YE 

FOR  ' 

TLRMtmatISG  automatic -MANEUVERS  

0108 

REF 

219 

LAST 

653 

39,3666 

3 7767  0 

MANUSTOP 

:af 

ZERO 

ZERO  MANEUVER  RATES 

0109 

REF 

1 

3 9 , 366i 

JS 

DELOrDU? 

0110 

REF 

8 

LAST 

669 

39,3670 

59  776  0 

TS 

0ME5ARD 

0111 

REF 

1 

39,3671 

59  772  1 

TS 

DELOCDUl 

0112 

REF 

6 

LAST 

669 

39,3672 

- 5-9  775  -0 

IS 

OMEGAQD 

0113 

REi=^ 

2 

LAST 

696 

39,3673 

3 1633  0 

CA 

CPSi 

Set  desired  gimbal  angles  to 

0119 

REF 

4 

last 

59l 

39,3679 

59  ’770  0 

ts 

CDJZD 

DESIRED  FINAL  GIMBAL  ANGLES 

0115 

REF 

i 

-ZA^ 

XlriE-TA- 

0116 

REF 

8 

LAST 

669 

39,3676 

59  767  0 

TS 

CDJYD 

0117 

REF 

35 

LAST 

570 

39,3677 

3 0076  0 

:a 

STATE  *2 

CHECK  TO  SEE  IF  A FINAL  YAW  NECESSARY 

0118 

REF 

^3 

LAST 

625 

39,3700 

7 7796  1 

MAS< 

BIT19 

0119 

39,3701 

0 0006  1 

EXTEND 

0120 

REF 

1 

39,3702 

1 3719  1 

3ZF 

XALCROLL 

0121 

REF 

5 

LAST 

6^7 

39,3703 

3 1631  1 

ENDROLL 

:a 

CPHI  , .. 

NO  FINAL-.YAW  . _ 

0122 

REF 

12 

LAST 

669 

39,3709 

59  766  1 

TS 

CDJXD 

0123 

REF 

215 

LAST 

67l 

39,3705 

3 7767  0 

:af 

ZERO 

0129 

REF 

9 

LAST 

669 

39,3706 

59  779  1 

TS 

OMEGAPX)-.  -- 

I.E,  MANEUVER  DID  NOT  GO  THRU --  - 

0125 

REF 

3 

LAST 

668 

39,3707 

59  771  1 

TS 

DeLOCDU 

gimbal  Lock  originally 

01251 

REF 

3 

LAST 

660 

39,3710 

0 607 6 0 

oOODMANU 

rc 

FLA52DWN 

reset'  bit  11  OF  FLAGWRD2  TO  SIGNAL  END 

01252 

- -39,371  1 

02000  0 

OCT 

2000 

OF  KALCMANU 

01259 

REF 

37 

LAST 

o 

>0 

39,3712 

0 5225  1 

TC 

POST  lUMP 

RETURN  UNDER  WAITLIST  VIA  GOODEND 

0126 

REF 

1 

39,3713 

73520  1 

:ADR 

CHCAvS 

012605 

35,3520 

3AN< 

35 

012606 

ref 

' 9 

LAST 

670 

E3 

EBAN<= 

TTEMP 

01261 

ref 

37 

LAST 

668 

35,3520 

3 7762  0 

C-tKAKS 

CAF 

TwO 

012615 

REF 

9 

LAST 

668 

35,3521 

55*653  1 

ACLOOP 

TS 

SPNOv 

CHECK  the  magnitude  OF  THE  ATTirUOE 

01262 

ref 

235 

LAST 

67° 

35*3522 

50  000  1 

INDEX 

A 

ERROR  ON  completion  OF  A KALCMANU 

012625 

REf 

13 

last 

671 

35,3523 

3 0766  0 

CDJXO 

SUPERVISED  maneuver 

01263 

35,3529 

0 0006  1 

EXTEND 

012635 

REF 

10 

LAST 

67l 

35,3525 

5 1653  0 

INDEX 

SPNOX 

I.E,  CDUD  - CDU 

012636 

REF 

32 

LAST 

669 

35,3526 

20  032  1 

MSU 

CDJX 

012637 

REF 

236 

LAST 

671 

35,3527 

10  000  0 

CCS 

A 

IF  THE  magnitude  OF  THE  ERROR  EXCEEDS 

01269 

REF 

1 

35,3530 

6 3595  0 

AD 

=-50fG 

5 DEGREES  ON  ANY  AXIS  DISPLAY  AN  ALARM 

012695 

REF 

1 

35,3531 

1 3533  0 

ICF 

CHECXASG 

INDICATING  that  SPACECRAFT  MAY  NOT  HAVE 

01265 

REF 

2 

LAST 

67l 

35,3532 

6 3595  0 

AD 

=-5DEG 

achieved  the  desired  attitude. 

012655 

35,3533 

0 0006  1 

CHECKASo 

EXTEND 

01266 

ref 

1 

35,3539 

6 3590  0 

3ZMF 

A<0< 

012665 

REF 

37 

LAST 

969 

35,3535 

0 9755  1 

TC 

alarm 

01267 

35,3536 

01912  1 

OCT 

01912 

012675 

REF 

1 

35,3537 

1 3592  0 

TCF 

ENDCMANU 

01268 

REF 

11 

LAST 

67l 

35,3590 

11*653  1 

A<0K 

CCS 

SPNOX 

012685 

REf 

1 

35,3591 

1 3521  0 

TOF 

AXI  OOP 

01269 

REF 

33 

LAST 

660 

35,3592 

3 6311  1 

eydkmayj 

CAF 

TARFp 

terminate  KALCMANU  VIA  GOODEND 

012692 

REF 

38 

LAST 

671 

35.3593 

0 5225  1 

JS 

POST.lUMP 

01269A  REF  5 LAST  19T  35,3594  26720  0 CADR  GOODfND 
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012696 

35,35A5 

Z707.0.  _0_ 

.F-5.DEG. 

.JJEC 

.•^55 

_ _ =-5  DEGREES  SCALED  JJO. DEG 

012698 

34,3714 

3AN<- 

34 

012699 

REF 

10 

LAST 

671 

E3 

£BAN<= 

TTEMd 

0127 

REF 

36 

LAST 

.6Jl _ 

_3  Q 016__0_ 

<ALCRQLL 

_.C4_ 

..5JATE_±2_  . 

ST.AIt.  S_WJ..T.CH  .NQ.  31  _ 

0128 

REF 

26 

LAST 

607 

3A.3715 

7 7750  0 

MAS4 

31T12 

O(OKF)  = PERFORM  A FINAL  YAW 

0129 

3A.3716 

0 0006  1 

EXTEND 

IF  NECESSARY 

0130 

REF 

1 

_lA.JL7i7 

. 1 372J.  1 

3ZF 

OOROiL  . . 

KON)  = IGNORE  ANY  FINAL  YAW 

■ 0131 

REF 

1 

34,3720 

1 3705  1 

TCF 

ENDROLL  +2 

0132 

REF 

6 

LAST 

67l 

34,3721 

3 1631  1 

D3R0LL 

CA 

CPHI 

0133 

- 34,3722 

0 0006  1 

=XT_END 

perform  A fi_nal  roll  to 

013A 

REF 

U 

LAST 

67l 

34,3723 

20  766  1 

MSJ 

CDJXO 

complete  automatic  maneuver 

0135 

34,3724 

0 0006  1 

EXTEND 

0136 

REF 

1 

34.3725 

6 3735  .0 

3ZMF__. 

J^ROLLNEG 

0137 

REF 

137 

last 

635 

34,3726 

54  001  1 

FROLLPOS 

rs 

L 

0138 

REF 

1 

, 34,3727 

3 3754  1 

:a 

Rollrate 

0139 

REF 

10 

LAST 

671 

34,3.730 

.5.4  774  1 

IS  _ 

OM£GaPJD 

OlAO 

REF 

1 

34,3731 

4 3755  1 

:s 

DELFrOLL 

OKI 

REF 

U7 

LAST 

670 

34,3732 

6 7763  1 

AD 

ONE 

01A2 

REF 

A 

last 

671 

34,3.733 

54  771  1 

IS 

D..E.LDCDU  . 

0U3 

REF 

1 

34,3734 

1 3743  0 

TCF 

ROLLSTAL 

OlAA 

34,3735 

4 0000  0 

FROLLNEG 

COM 

01<t5 

ref  138 

LAST 

672 

34,3736 

54  001  1 

TS 

L 

01A6 

REF 

2 

LAST 

6 72 

34,3737 

4 3754  0 

cs 

rollrate 

OUT 

REF 

11 

LAST 

672 

34,3740 

54  774  1 

rs 

0ME3APD 

0U8 

REF 

2 

LAST 

_6lZ_ 

34,3741 

3 3755  0 

CA 

DELFROLL 

0U9 

REF 

5 

LAST 

672 

34,3742 

54  771  1 

TS 

DELDrDU 

0150 

REF 

139 

last 

672 

34,3743 

3 0001  0 

RDLLSTAL 

CA 

L 

ABS(CPHI-CDUXD) 

0151 

34,3744 

0 0006  1 

EXTEND 

0152 

REF 

1 

34,3745 

7 3756  1 

MP 

INVRaTE 

0153 

34,3746 

0 0006  1 

EXTEND 

015A 

REF 

2 

LAST 

.672 

34,3747 

6J103  0 

3ZMF 

ENDROLL 

0155 

REF 

76 

LAST 

67° 

34,3750 

0 5663  1 

TC 

WAITI  1ST 

01555 

REF 

11 

LAST 

672 

E3 

eban<= 

TT  EMP 

0156 

34,3751 

03703  0 

2CADR 

ENDROLL 

C0156 

REF 

3 

LAST 

672 

34,3752 

70063  0 

0157 

REF 

61 

LAST 

670 

34,3753 

0 5727  0 

TC 

TASCOVER 

0158 

34,3754 

01320  1 

RDLLRATE 

DEC 

720 

= 1.98  degrees/sec 

0159 

34,3755 

00022  1 

d^lfroll 

DEC 

18 

musT  BE  A Whole  number 

0160 

34,3756 

21616  0 

nVRATE 

DEC 

.555555 
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Rnnni 

PROGSAM  wAMF  - MiSSlO'Y  PHASE  2 bUJDAwCE  3EF£R£jjCE^^£L£jA_S£  ♦ aOQSr^MOAlLtOR. 

R0003 

MODIFICATION  NUMBER  - 1 DATE  - NOVEMBER  22»  1966  MODIFICATION  BY 

- COVELLI 

R0005 

functional  description.  - - 

R0006 
• Roods 

ths  function  of  mission  phase  2 IS  TO  Control  the  seduencf  of  fVentS  in  the  206 
REFER-NCe  release  through  liftoff,  to  the  SlVB  BOOSTER  SHUTDOWN. 

flight  from  guidance 

R0009 

Roou 

Rooiz 

ROOIA 

AT  GUIDANCE  ReFeRence  reLease,  the  grs  flas  IS  Set,  preread  is  calleD  to  Begin 

VELOCITY,  AND  CALLS  ARE  MADE  FOR  DFl  T/M  CALIBRATION  AND  LIFtOFF 

Computation  oF 

Position  and 

WHrN  PReLAUnLh  DeTELtS  THAT  the  SRR  flag  is  Set,  It  terminates  GYROCoMPASSING  and  calls  MP2U0B 
displays  7 IN  tHe  major  Mode  and  goes  to  matrxjob  to  compute  refsmmat.  ... 

. MP2JoB 

Roois 

R0017 

AT  liftoff,  THl  L5C  CLOCK  IS  ZeROeD.  CALLS  ARE-  MADe  FOR  THE  CoLD  FIRe  PURGE  AND 
THE  MAJOR  mode  .IS  changed.  TO  _11.  ...  .. 

Post 

Let  Jettison  programs. 

Roois 

R0020 

R0021 

At  post  Let  Jettison,  tHe  dv  monitor  is  enableo  to  detect  booster  shutdown,  the 
TUMBL-  monitor  FRE  enabled,  and  the  major  mode  is  changed  to  12. 

Abort 

command 

MONITOR  AND  THe 

the  various  lmp  Commands  reouired  For  mp2  are  scheduled  Bv  waitlist  calls. 

R0023 

AT  detection  of  SI^/B  SHUTDOWN,  AN  EXECUTIVE  CA'-L  IS  MADE  TO  MISSION  PHASE  6. 

R0025 

calling  sequence  ! 

R0026 

MISSION  PHASE  2 IS  BEGUN  UPON  RECEIPT  OF  THE  GJ'IOANCE  REFERENCE  RELEASE  SIGNAL 

(Verb 

65  ENTER) 

VIA  JALINK. 

R0028 

subroutines  called  ; 

R0029 

R0030 

R0031 

PREREAD  ilMP 

TUMTASK  2LMP 

newmooex  PHASCMNG 

R0032 

R0033 

R003A 

FINDVAC  NEWPHASE 
NOVAC  OFITMCAL 
SPVAC  IBNKCALL 

R0035 

R0036 

waitlist 

longcall 

R0037 

NORMAL!  exit  modes  ! 
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R0038  EXIT  TO  MISS  I ON_Pl  ASE_  6_AT^lVfi-^HUj-D0WJN. _ _ _ 


R0039  abort  exit  MODES  ; 

ROOaO  to  mission  PHAS£_J__IF  .SUBORBItAL  ABORT  COMMAND  ReCeIY£D  YiA  UPLINK.  _ . . 

ROOAI  to  mission  phase  a if  contingency  orbit  insertion  command  received  via  uplink. 

Rooa3  to  charalrm  if  eIMeR  of  the  above  abort  Commands  reCeiveo  while  abort  command  monitor  not  enabled. 


■R00A5 output  ! 


R00A6  tgrr  time  of  guidance  reference  Release 

R00A7  TPRFLTER TIME  OF  GYROCOMPASSING  TERMINATION 

ROOA8  TLIFTOFF  time  of  liftoff  and  lgc  cldc<  zeroing- 

R00A9  CRR  flag  BIT2  FLAGWRDI  SeT  TO  INDICATE  3RR  SlGwAL  RfCEIVED 

R0050  SERVI_CE„R  is  going  at  END  OF  MISSION  PHASE  2 

R0O5I  major  Mode  displays  ■ 


R0052  ERASA3LE  INITIALIZATION  ; 


R0053  dt-lift  Delta  time  from  grR'  to  liftoff,  single  precision  scaled  at  2(+ia)  cs, 

R0055  dt-letOt  Delta  time  from  liftoff  to  post  let  jettison,  double  precision  scaled  at  2U28)  cs. 

R0057  RAVEGQN position  at  GRR  in  SM  C0,0RDINATES.  YfCTOR  SC^ED  AJL  2(.2A)  M.  

R0059  vavegon  Velocity  at  grr  in  sm  co-ordinates,  vector  scaled  at  2U7)  m/cs, 

R0081  *********_  .ALL  _0^  TdE. erasable.  IN_lTlAkliAjJ_ON  -MJ_ST  -^E  DoNE_OJRING  _ tHe.  PFErCAUNCH  eRA.SaB_Le  L-OAD.  »»***»*»»»»»»*»*» 


R0063  debris  : 

R006A  Centrals  and  executive  work  area. 


0065 

0066 

REF 

8 

LAST 

389 

27,2000 

E3 

3AN< 

eban<= 

27 

TGRR 

0067 

REF 

4 

JlMTL 

3A7 

27,2000 

0 6051  0 

gRrpi  Ace 

TC 

FlAGlUP 

0068 

27,2001 

00002  0 

dct 

2 

0069 

REF 

6A 

LAST 

670 

27,2n02 

0 5567  0 

rc 

ENODeJOB 

0070 

REF 

3 

LAST 

311 

27,2003 

3 5641  1 

MP2TAS< 

CA 

PR1D16 

0071 

REF 

13 

LAST 

670 

27,200a 

0 5516  0 

TC 

FINDy/AC 
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n07? 

REF 

9 LAST 

E3_ 

EBANAs 

TGRR 

0073 

27,2005 

02056  0 

2CADR 

MP2JnB 

COO73 

REF 

2 LAST 

67 

27,2006 

56063  1 

007^ 

REF 

A LAST 

ATl 

27 

^i7A2  X 

."A 

JOT.».L-TFJ 

0075 

REF 

77  last 

672 

27,2010 

0 5663  1 

TC 

AAlTI  1ST 

SET  UP  CALL  TO  LIFTOFF  PROGRAM 

0076 

REF 

10  last 

675 

E3 

eban<= 

TGRR 

0077 

27,2011 

07223  0 

_ ?CADR 

LIFTOFF 

C0077 

REF 

2 LAST 

6A 

27,2012 

56063  1 

0078 

REF 

1 

27,2013 

0 AlAl  1 

TC 

2PHSCHNG 

0079 

27,201A 

00375  0 

OCT 

00375 

5.37  SPOT  FOR  MP2IASK.. 

0000 

27,2015 

00273  1 

OCT 

00273 

3.27  SPOT  TO  FINISH  PRELAUNCH. 

0001 

REF 

2 LAST 

675 

_ 27,2016 

0 AlAl  1 

TC 

2PHSCHNG 

0002 

27,2017 

A0132  0 

OCT 

A0132 

2.13  SPOT  FOR  LIFTOFF. 

0003 

27,2020 

0007A  1 

OCT 

0007A 

A. 7 SPOT  FOR  MP2J0B. 

OO0A 

REF- 

20  last 

615 

27t2021 

3 7762  0 

:af 

B1T2 

0005 

ref 

2 LAsT 

A52 

27,2022 

0 AIO5  1 

TC 

SETRsTRT 

SET  restart  flag 

0006 

REF 

1 

27,2023 

3 5652  0 

SETPIPOT  CAF 

PRI031 

TWO  SECONDS  SCALED  AT  (CS)  X 2(.e) 

0007 

REF 

3 LAST 

A7l 

27,202A 

5A  765  1 

TS 

1/PlPADT 

0008 

REF 

1 

27,2025 

3 23A2  0 

CA 

AVEoflDRS 

0089 

REF 

0 LAST 

628 

27,2026 

55*310  0 

TS 

DvSFLECT 

0090 

27,2027 

0 0006  1 

extend 

0091 

REF 

1 

27,2030 

3 2AA3  0 

OCA 

SvExADRS 

0092 

REF 

5 LAy 

Lpl 

27,2031 

53*073  0 

5XCH 

AVGFXIT 

0093 

27,2032 

0 0006  1 

EXTEND 

009A 

ref 

2 LAsT 

675 

27,2n33 

3 2AA3  0 

OCA 

SV  EXaDRs 

0095 

REF 

A LAST 

523 

27,203A 

53*075  0 

OXCH 

DVMNFXlt 

OO96 

ref 

5 .LAST 

6lA 

27,2035 

3 5661  0 

CA 

EBANX5 

0097 

REf 

Al  last 

61A 

27,2036 

5A  003  0 

TS 

EBANX 

0098 

ref 

1 

27,2037 

3 7751  0 

CA 

ebanka 

0099 

ref 

210  LAST 

62  > 

„ . 2JlMA0 

_5.A_M2.  1 

TS 

3_ 

0100 

REF 

3 LAST 

39O 

E5 

eban<= 

TEMPtIME 

0101 

27,20A1 

0 0006  1 

EXTEND 

GET  TEMPTIME 

0102 

REF 

A LAST 

675 

27,20A2 

3 1562  1 

OCA 

temptime 

0103 

REF 

1 

27,20A3 

53*3AA  1 

OXCH 

TPREl  TER 

OlOA 

27,20AA 

0 0006  1 

EXTEND 

0105 

REF 

2 last 

675 

27,20A5 

3 13AA  0 

OCA 

TPRFl'TER 

0106 

27,20A6 

0 0006  1 

EXTEND 

0107 

REF 

A2  LAST 

675 

27,20A7 

22  003  1 

OXCH 

FBANx 

0108 

REF 

..  .1 

FA 

=ban<= 

TAYFfiON 

0109 

REF 

2 last 

675 

27,2050 

53*511  1 

OXCH 

tayegon 

STORE  IN  TAVEGON 

0110 

REF 

11  LAST 

675 

E3 

- rban<= 

-laaR 
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on  1 

27.2051 

0 0006  1 

•XTEND 

0112 

REF 

1 

27,2052 

3 2055  0 

OCA 

3BB3RBBB 

0113 

27,2053 

52  006  0 

OTCB 

0114 

REJF 

8 

LAST 

1 

o 

CO 

4- 

_ -E5_ 

-EB-AilCr- 

- av.cn  tr 

0115 

27,2054 

02011  0 

83BBBB3B 

2CA0R 

BIBIBIAS 

C0115 

ref 

1 

27,2055 

60065  1 

0116 

REF 

56 

LAST 

668 

27,2056 

0 6112  0 

M?2J0B 

TC 

INTPrET 

0117 

27,2057 

71331  0 

5SP 

OLOAD 

0118 

REF 

5 

LAST 

496 

27,2060 

00765  0 

PHA5ENUM 

0119 

27,2061 

00002  0 

2 

0120 

REF 

3 

LAST 

675 

27,2il62 

01344  0 

TPREi'T£R 

0121 

REF 

12 

LAST 

675 

27,2063 

01737  0 

STORE 

T 0^^ 

0122 

REF 

6 

LAST 

48l 

27,2064 

01312  0 

STORE 

TEVEmT 

FOR  DOWNLINK. 
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L 

P0123 

R0125 

R0127 

R0129 

R0130 

R0132 

R0133 

R01'35 

R0137 

R0139 

ROlAl 

R0U3 

RqK5 

R01A7 

ROU8 

R0199 

R0151 

R0153 

ROI59 

R0156 

ROI57 

R0158 

R0159 

ROI6O 

R0162 

R0164 

R0165 

R0167 

ROI68 

R0I7O 

R0172 
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PROGRAM  description-  MATRXJOB  DATE:  18  jAN  1967  - 

MOO  NO-:  2 LOG  SECTION-  MP  2 GRR  + BOOST  MONITOR 

MOD  by:  MILLER.  LICK.Y,  KeRNAN  ASSEMBLY:  SUNBURST  REVISION  79 


functional  DESCRIPTIO'N 

this  PROGRAM-  CONSTRUCTS  THE  MATRIX  WHICH  RELATES  . THf_  STABLE.  MeMBeR  INeRTIAL__ FRAME  TO  THE-  REFE-ReNCE^  ^ .. 
frame  (Z  north,  X ALONG  THE'  VERNAL  EQUINOX.) 

TWO  intermeoiate  coordinate  systems  are  jsed:  a LOCAL,  earth  fixed,. Vertical,  south,  east  system  and  an 

earth  reference  X,  Y,  Z SYSTEM.  IN  THIS  LATTER  sYsTEM,  ThE  7 Axis  Is  THE  EARTH'S  ROTATION  AXIS,  THE  X AXIs  Is 
NORMaD  TO  z IN  the  P-ANe  OF  z and  the  local  vertical,  POSITIVE  IN  THE  DIRECTION  OF  V.  Y IS  z CROSS  X. 


the  first  computation  is  OF  AZGR,  THE  ANoLe  BETWEEN  THE  REFERENCE  INERTIAL  AND  EARTH  ReFeReNCe  X-Z 
PLANES  (The  Z axes  are  COINCIDENT).  AZGR  Is  COMPJ-TED  BY  CONVERTING  THE  TIME  FROM  THE  BEGINNING  OF  ThE  tPhEMERIs 
YEAR  TO  release  LTEPHEM.*  TPReLTER)  TO  REVOLUTIONS  (DAYS).  tHelWHOL£  ReVS_AR£_  DI  SCA_RDiD__J-ND  iHe  I NT  T I A_^  ANGLx 
(AZO)  between  THe  GREENWICH  MeRIDIAN  AND  THE  REFERENCE  X.Z  Pi'ANeS  IS  ADDeD.  ADDING  THe  LONGITUDE  YIELDS  AZGR. 

the  FOLLoWTNj'-COMPUTATIONS  ARE-THEN  PESF-ORMeD. 

LOCAL  VERTICAL(ER)  i COS ( LAT I T JOE ) , 0,  SI N ( LAT I T J OE ) IN  EAR^H  REFERENCE 


LOCAL  VERTICAL(IR)  = COS ( LAT ) COS (AZGR ) , COS ( LAT ) S I N ( AZGR ) , StN(LAT)  IN  INeRTIAL  ReFeReNCe 
LOCAL  EAST(IR)  = UNIT(NXV)  = -SIN(AZGR),  COS(AZGR),  JO  IN  INERTIAL  REFERENCE 
LOCAL  SOUTH(IR)  = E ( I RO  X V(IR) 


the  relationship  of  the  stable  member  AXrS  TO  THE  V.  S,  F AXES  IS  GIVEN  BY  ZSMAZ,  THE  ANGLE  FROM  NORTH 
TO  ZsM.  and  TILT,  ThS  ANGLE  ABOUT  Z5M  FROM,  VERTICAL  TO  XsM. 


ZSM(IRi)  s EASTdR)SIN(ZSMAZ)  - SOUTH  ( IR)  COS  (ZSMAZ) 

YSM(IRi)  = (ZSM(IR)  X V(IR))C0S(TILT)  - V ( I R ) SI  N ( T I LT  ) 

XSM(IRl)  = YSM(lR)  X ZSM(IR) 

these  three  half-unit  VECTORS,  XSM(IR),  YSM(IR),  AND  ZSM(IR)  ARE  THe  SM  AXES  EXPRESSED  IN  INERTIAL 

reference  coordinates  and  They  form  refsMMat,  the  reference  to  stable  member  matrix. 


the  input  (PRELAUNCH  ERASABLE  LOAD)  RE(OUI  ReMENTS  ARe: 

1)  TE=HeM  TH£_.LRJPLe  precision  time  in  CeNTISeCOMDS  FRnM  midnight  JULY  X,  OF  THexPHeMeRIS  Year  ro 

MIDNI3HT  OF  the  launch-  day  (SIDEREAL  CONVERTED  TO  MEAN  SOLAR.) 

IT  IS  assumeo  that  during  tHe  launch  countdown  the  lgc  clock  (tIMe2,  iImei)  will  bl  aligned  to  Reflect  a 
ZERO  value  at  MlDNIGH-r  OF  THE  LAUNCH  DAY.  IF  NOT,  THE  DIFFERENCE  MUST  BE  ADDED  TO  TEPHEM. 

2>  TI-T  THE.  rotation  OF  XSM  AB_DUT  ZSM  (RI3HI  HAND  RJTe).  FROM  VERTICAL  IN  REVOLUTIONS. 
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R0I75 

the  outputs  of  this  3:?oGRAM  ARE: 

R0176  i)  RErS'lMAT  THE  HALF-UNIT  ^IATRIX  WHICH  TRANSFORMS  FROM  RfFeRfNCe  INeRtIAL  TO  SM  INeRTIAL. 


■ R0178  2)  AzjR  THF  ANGLF  BftwffN  PAD  3Z  3 VERTICAL  AND  LHE  ReFeRfNCe  X„z  PLANE-IN _ REVOLUTIONS, 

Roieo  calling  seouencl  : continuation  of  mpejob 

ROIBI  NORMAL!  EXIT  MODE- TC  ENDOFJQB ^ 

R0182  ALARM  OR  ABORT  FXITS-  NOnE 


R0183  debris-  specials,  CENTRALS  AND  EXECUTIVE  WORK  AREA. 


OIbA ■ 27,2065  84345  1 MATRXJOB  OLOAD  SR 


0185 

0186 
Ola? 

REF 

4 

LAST 

676 

27.2066 

27.2067 
27,2070 

01344 

20617 

47171 

o o 

TAD 

TPREI  TER 

140 

RTB 

MAKE  ALIGN  STOP  TIME  TP, 

0188 

REF 

1 

27,2071 

01754 

0 

tephfm 

TP  CS  FROM  JULY  l TO  LAUNCH  DAY. 

0189 

REF 

1 

27,2072 

33541 

1 

TPMODE 

SET  store  mode  TO  TRIPLE. 

0190 

„ 2 7^2  07  3 

00025 

0 

STORE 

200 

TP  CS  FROM  JULY  1 TO  RELEASE. 

0191 

27,2074 

60335 

1 

SLOAD 

NORM 

0192 

27,2075 

00025 

0 

200 

0193 

ref 

3 

LAST 

457 

27.2076 

00047 

L 

XI 

-9  OR  -10. 

019A 

27,2077 

47005 

1 

3MP 

RTB 

0195 

REF 

1 

27,2100 

16346 

1 

WEARtH 

REVS  PER  2(28)CS. 

0196 

REF 

7 

LAST 

442 

27,2101 

33520 

0 

SoM^\GREE 

0197 

27,2102 

65257 

1 

SR* 

POOL 

0198 

27,2103 

20556 

0 

0 -19D,1 

gets  rid  of  whole  revs. 

0199 

27,2104 

00026 

0 

21D 

0200 

27,2105 

47005 

1 

3MP 

RTB 

0201 

REF 

2 

LAST 

678 

27,2106 

16346 

1 

WEARTH 

0202 

REF 

8 

LAST 

678 

27,2107 

3352Q_ 

0 

SGNAGREE 

0203 

27,2110 

43261 

0 

SLR 

OAO 

020A 

27,2111 

21206 

0 

5 

DP  fraction  of  a rev. 

. _ 0255  .. 

27,2112 

43215 

0 

OAD 

OAD 

0206 

REF 

1 

27,2113 

01757 

0 

AZO 

MERIDIAN  ANGLE  AT  JULY  1, 

0207 

REF 

1 

27,2114 

01763 

1 

P373I  ONG 

PAD  ANGLE  TO  MERIDIAN. 

0208 

REF 

1 

27,2115 

01746 

0 

STORE 

AZGR 

VERT.  AZ.  AT  RELEASE  WRT  X-Z  INERTIAL. 

0209 

27,2116 

77756 

0 

SIN 

0210 

REp 

1 

27,2117 

15271 

1 

STODL 

REfSmmAT  +6 

SIN(AZGR) . 

0211 

REF 

2 

LAST 

678 

27,2120 

01746 

0 

AZoR 

0212 

27,2121 

77746 

1 

COS 

0213 

REF 

273 

LAST 

65A 

27,2122 

14150 

0 

STODL 

MPAC  +3 

Y OF  east  in  inertial  = COS(AZGr). 

0214 

REF 

1 

27,2123 

01761 

0 

P373I  AT 

LOCAL  VERTICAL  Z IN  EARTH  REF.  SlN(L). 

0215 

27,2124 

77756 

0 

SIN 

0216 

REF 

2 

LAST 

678 

27,2125 

15267 

0 

STODL 

REFSmMAT  +4 

ALSO  LOCAL  VERT  Z IN  REF.  INERTIAL. 

0217 

REF 

2 

LAST 

678 

27,2126 

01761 

0 

P373I  AT 
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021  fl 

n 

2LZZ. 

- 72546 

0 

COS 

SLi  

. SAVES  2 SL'S  LATER... 

0219 

27 

2130 

00025 

0 

STORE 

200 

LOCAL  VER.  X IN  EARTH  REF.  COS(L). 

0220 

27 

2131 

77605 

1 

OMP 

0221 

REF 

274 

LAST 

678 

27 

2132 

00150 

0 

.Me  AC  +3 

0222 

REF 

3 

LAST 

678 

27 

2133 

15263 

1 

STOOL 

^EFSmMAT 

X OF  VERT  IN  inertial  = COS (L) COS ( A23R) . 

0223 

REF 

4 

LAST 

679 

27 

2139 

01271 

1 

refsmmat 

♦ 6 

SIN(AZGR) , 

022A 

_2X 

.2135 

77605 

_1 

_ . 

0225 

27 

2136 

00025 

0 

200 

0226 

REF 

5 

LAST 

679 

27 

2137 

15265 

1 

STOOL 

Refsmmat 

♦2 

Y OF  VERT  IN  INERTIAL  = COS ( L) Si N ( AZ3R) . 

02^7 

ref 

1 

27 

21-90 

17103 

0 

DPZRO 

0228 

REF 

275 

LAST 

679 

27 

2191 

19152 

1 

STOOL 

MPAC  .5 

2 OF  EAST  IN  INERTIAL  s 0. 

0229 

REF 

6 

LAST 

679 

27 

2192 

01271 

1 

refsmmat 

♦ 6 

SIN(AZGR) . 

0230 

27 

-2143 

- 47-0-76 

0 

O.COMP 

RTS 

ALSO  -X  OF  EAST. IN  INERTIAL. 

0231 

REF 

2 

LAST 

363 

27 

2199 

33516 

0 

YECMnOE 

SET  STORE  MOOE  TO  VECTOR. 

0232 

27 

2195 

97206 

0 

3USH 

YXY 

INERTIAL  EAST  INTO  PO. 

0233 

REF 

7 

LAST 

679 

27 

214.6 

01263 

1 

PFFFmMAT 

0239 

27 

2197 

77656 

1 

UNIT 

INERTIAL  SOUTH  = UNIT(EXV). 

0235 

REF 

8 

LAST 

679 

27 

2150 

15277 

1 

STOOL 

REFSMMAT 

♦ 120 

INTO  REF  .120  (TEMP) . 

0236 

REF 

1 

. 27 

2151 

01752 

0 

ZSMAZ 

.ZSM  WJ?T  NORTH.  . . . 

0237 

27 

2152 

79396 

0 

' COS 

V.XSC 

0238 

REF- 

9 

LAST 

679 

27 

2153 

01277 

1 

Refsmmat 

♦ 120 

SOUTHdR)COS(ZSMAZ)  . 

0239 

REF 

10 

LAST 

679 

27 

2 159 

15277 

1 

STOOL 

REFSmMAT 

♦ 120 

INTO  REF  .120  (TEMP). 

0290 

REF 

2 

LAST 

679 

27 

2155 

01752 

0 

zsmaz 

0291 

27 

2156 

79356 

1 

SIN 

vxsc 

EAST(IR)SIN(ZSMA2). 

0292 

. .27.215  7. 

. 53951. 

1 

. . . y_5.j_  ._ 

JNI.T 

0293 

REF 

11 

LAST 

679 

27 

2160 

01277 

1 

REFSmMAT 

♦ 120 

UNIT(Z5M)  IN  INERTIAL  s 

0299 

REF 

12 

LAST 

679 

27 

2161 

01277 

1 

STORE 

REFSmMAT 

♦ 120 

EAST(IR)SIN(ZSMAZ)  _ SOUTH ( IR ) COS (ZSMAZ) 

0295 

27 

2162 

53935 

0 

YXV 

UNIT 

0296 

REF 

13 

LAST 

679 

27 

2163 

01263 

1 

REFSmmAT 

yREFsm(UntilteO)=  z cross  vert  = Yl. 

0297 

27 

2169 

71525 

0 

POOL 

C-O-S  

INTO  PO. 

0298 

REF 

1 

27 

2165 

01750 

1 

tilt 

TILT  IS  P05  ABOUT  ZSM  FROM  UNTI.TEO  Y5M. 

0299 

27 

2166 

77761 

1 

YX5C 

0250 

27 

2167 

73525 

1 

POOL 

SIN 

(Yl)COS(T)  INTO  PO. 

0251 

ref 

2 

LAST 

679 

27 

2170 

01750 

1 

tilt 

0252 

27 

2171 

51361 

1 

yxsc 

BVSJ 

0253 

ref 

19 

LAST 

679 

27 

2172 

01263 

1 

REFSmMAT 

0259 

27 

2173 

77656 

1 

UNIT 

0255 

REF 

15 

LAST 

679 

27 

2179 

01271 

1 

STORE 

refsmmat 

+ 6 

YREFSM  s (Yl)COS(T)  - ( VERT ) S I N ( T ) . 

0256 

27 

2175 

53935 

0 

i/XY 

UNIT 

0257 

REF 

16 

LAST 

679 

27 

2176 

01277 

1 

REF  SmmAT 

♦ 120 

0258 

REF 

17 

LAST 

679 

27 

2177 

01263 

1 

STORE. 

refsmmat 

XR£FSM  = Y CROSS  Z, 

0259 

27 

2200 

77776 

1 

EXIT 

0260 

REF 

19 

LAST 

965 

27 

2201 

0 9161 

0 

IC 

PHA.SrHNG 

0261 

27 

2202 

00009 

0 

OCT 

00009 

DEACTIVATE  GROUP  9 

0262  REF  65  LAST  67‘* 


27.2203.  0 5567  0 


TC 


END3FJ0B 
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0263 

REF 

1 

27.220a  0 506CL__1 

_.DE1TMCAL. 

tC  ^ 

J.LM? 

..MUST  BE.CALLEO._.BY._LBNJ^ALL  (OR  ISWCALU 

026A 

27,2205 

00354  0 

DEC 

236 

IN  INTERRUPT  OR  INHIBITED 

0265 

REF 

1 

27,2206 

3 2344  0 

:a 

12SEr 

0266 

REF 

78 

LAST 

675 

27,2207 

0 5663  1 

re. 

WAIT!  1ST  _ 

CALL  DFITMCLI  IN  12  SECONDS 

0267 

REF 

13 

LAST 

676 

E3 

eban<= 

ToRR 

0268 

27,2210. 

02213  0 

2CADR 

DFITMCLI 

C0268 

bef 

1 

27,2211 

56063  1 

0269 

REF 

1 

27,2212 

1 5303  0 

rCF 

iswrftrn 

0270 

REF 

1 

27.2213 

_0  5052  0 

DFiTMCLI 

re 

2LMD 

0271 

27,2214 

00355  1 

DEC 

237 

DFI  T/M  calibrate  OFF 

0272 

27,2215 

00306  1 

DEC 

198 

master  C+W  alarm  reset  - COMMAND 

0273 

ref 

13 

last 

36P 

27,2216 

. 0 57QJ._  1 

re 

fixdflay 

0274 

27,2217 

00310  0 

DEC 

200 

delay  2 SECONDS 

0275 

REF 

2 

LAST 

680 

27,2220 

0._5Q60  1 

DFITMCL2 

rc  . 

ILMP 

0276 

27,2221 

00307  0 

DEC 

199 

master  C+W  alarm  reset  - COMMAND  RESET 

0277 

REF 

62 

LAST 

672 

27,2222 

1 5727  1 

rcF 

TASCnVER 

0278 

REF 

13 

LAST 

472 

27*2223 

0 A117  1 

LIFTOFF 

tc 

NEWMODEX 

DISPLAY  MAJOR  MODE  11 

0279 

27,2224 

00011  1 

DCT 

11 

0280 

REF 

1 

27,2225 

3 2444  1 

:a 

610CT 

0281 

. REF 

5 

LAST 

46l 

27,2226 

0 6246  0 

re 

NEWPhASE 

IMMEDIATE  RESTART  HERE 

0282 

27,2227 

00002  0 

DCT 

2 

0283 

27,2230 

22  007  0 

RED02.61 

ZL 

THIS  SECTION  OF  CODING  ZEROES  THE  LGC 

0284 

REF 

16 

LAST 

523 

27,2231 

4 7746  1 

:s 

HALF 

CLOCK  AND  MAKES  THE  CORRESPONDING 

0285 

27,2232 

6 0000  1 

DOUBLE 

CORRECTION  TO  TBASE5  , SO  THAT  READACCS 

0286 

REF 

14 

LAST 

670 

27,2233 

6 0025  0 

AD 

TIME, 

IS  NOT  called  too  SOON.  THE  NEW  T3ASE5 

0287 

REF 

1 

27.2234 

27*123  1 

ADS 

T3ASf5_ 

IS  OVERFLOW  corrected. 

0288 

rEf- 

216 

last 

67l 

27,2235 

3 7767  0 

CA 

ZERO 

0289 

REF 

23 

LAST 

66R 

27,2236 

52  025  1 

dxch 

TIME2 

0290 

REF 

1 

27,2237 

53'741  0 

DXCH 

TLIFTOFF 

SAVE  time  of  liftoff 

O29I 

REF 

1 

27,2240 

3 2445  0 

:a 

630Ct 

0292 

REf 

6 

LAsT 

680 

27,2241 

0 4246  0 

rc 

NEWPhAsE 

DO  NOT  Repeat  the  above 

. 0293 

27,2242 

00002  0 

DCT 

2 

0294 

27,2243 

0 0006  1 

RED02.63 

extend 

0295 

REF 

2 

LAST 

66 

27,2244 

3 1744  1 

dca 

OT-LfTJT 

0296 

REF 

2 

LAST 

63 

27,2245 

0 5741  0 

TC 

LONoCALL 

0297 

REF 

14 

LAST 

680 

E3 

eban<= 

TGRR 

0298 

27,2246 

02270  0 

2CADR 

POSTi  ET 

C0298 

REF 

3 

LAST 

66 

27,2247 

56063  1 

0299 

REF 

3 

LAST 

675 

2712250 

0 4141  1 

re 

2PHSCHNG 

0300 

27,2251 

00073  0 

DCT 

00073 

RESTART  POSTLET  LONGCALL  GROUP  3 

0301 

27,2252 

25012  0 

DCT 

25012 

AND  CONTINUE  LIFTOFF  (SET  L0NG3ASE  HERE) 

0302 

27,2253 

77777  0 

DCT 

77777 
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0307 

0308 
03085 

0309 

RtP 

4 

LAST 

6BU- 

27.2256- 

27.2255 

27.2256 

27.2257 

-U  6141  1 
00002  0 
47016  0 
26404  1 

1-V. 

DCT 

OCT 

-JEC 

«^KrihrHtUia-- 

2 

47016 

10500 

PROTECT  RCSPURGE. 

0310 

REF 

15 

LAST 

680 

E3 

EBAN<= 

TGRR 

0311 

27,2260 

02266  0 

2CADR 

RCSPliRGE 

Cn311 

REF 

27.2261 

56063  1 

0312 

REF 

14 

LAST 

680 

27,2262 

0 5701  1 

rc 

FIXDfLAY 

0313 

27,2263 

26406  1 

DEC 

10500 

0314 

REF 

1 

27,2264 

- 3-  2367  0 

RCSPUR3E 

CA 

♦XJFTSON 

0315 

27,2265 

0 0006  1 

EXTEND 

0316 

27,2266 

01  005  0 

WRITE 

5 

TURN  ON  .X  TRANSLATION 

0317 

ref 

63 

LAST 

68° 

27,2267 

1 5727  1 

fCF 

rAS<nVER 

0318 

REF 

10 

LAST 

480 

27,2270 

6 0076  1 

pdstlet 

:s 

FLA3WRD2 

ENABLE  ABORT  COMMAND  MONITOR 

0319 

REF 

15 

LAST 

599 

27,2271 

7 7753  0 

MAS<  ■ 

31T9 

BIT  9 FLAGWORD  2 

0320 

REF 

11- 

LAST- 

6-81 

27.2272 

-26-  -0-Z6  -1 

-AD-S-  _ 

Fr  AriuRD? 

0321 

REF 

14 

LAST 

680 

27,2273 

0 6117  1 

rc 

newmodex 

0322 

27.2274 

00012  1 

DCT 

12„ 

MAJOR  MODE  12 

0323 

REF 

50 

LAST 

635 

27,2275 

3 7763  1 

CA 

BIT! 

0324 

ref 

79 

LAsT 

680 

27,2276 

-0  5663  1 

rc 

-W-Alri-lsT 

- -ENablE-Tumble  monitor  . . _ . 

0325 

REF 

1 

E6 

EBAN<= 

3ME5A 

0326 

27,2277 

02670  0 

2CADR 

TJMTASK 

C0326 

REF 

2 

LAST 

66 

27,2300 

60066  1 

0327 

REF 

5 

LAST 

68l 

27,2301 

0 6161  1 

rc 

2PHSrHNG 

0328 

27,2302 

00053  1 

Dcr 

00053 

RESTART  TUMTASK  GR  3 

0329  . 

27,2303 

67012  1 

DCT 

47012 

0330 

27,2304 

01750  1 

DEC 

1000 

0331 

REF 

16 

LAST 

68l 

E3 

EBAN<= 

TGRR 

0332 

27,2305 

02311  0 

2CADR 

MDN3nOST 

C0332 

ref 

1 

27,2306 

56063  1 

0333 

REF 

15 

LAST 

68l 

27,2307 

0 5701  1 

rc 

FIXDFLAY 

0334 

27,2310 

01750  1 

DEC 

1000 

WAIT  10  SECONDS  FOR  STAGING  ♦ S1V3  IGN. 

0335 

REF 

1 

27,2311 

3 2363  1 

mdnboost 

CA 

3D0S?ADR 

monitor  delv  for  Booster  shutdown 

0336 

REF 

9 

LAST 

675 

27,2312 

55*310  0 

rs 

DVSEl  ECT 

0337 

ref 

20 

LAST 

679 

27,2313 

0 6161  0 

rc 

phaschng 

0338 

27.2314 

67012  1 

DCT 

4701  2 

0339 

27,2315 

06066  1 

DEC 

2100 

0340 

REF 

17 

LAST 

661 

E3 

EBAN<= 

03A1 

27,2316 

02322  0 

2CADR 

P JRGfQFF 

C03A1 

REF 

1 

27,2317 

56063  1 

0342 

REF 

16 

LAST 

68l 

27,2320 

0 5701  1 

rc 

FIXDfLAY 

0343 

27,2321 

-06064  1 

DEC 

2100 

WAIT  2-1  SECONDS 
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0344 

ref 

217 

LAST 

68° 

,27.2322 

3 7 7,67 

0, 

PJR,G£JDEE_ 

CA 

,2EiDL'  _ 

03A5 

REF 

7 

LAST 

680 

27.2323 

0 4246 

0 

rc 

NEaPhASE 

03A6 

27.2324 

00006 

1 

3CT 

6 

03A7 

REF 

218 

last 

682 

27,2325 

3 7767 

0 

CA 

2ERD 

03A8 

27.2326 

0 0006 

1 

EXTEND 

0349 

27.2327 

01  006 

0 

«RITF 

-i) 

0350 

27.2330 

0 0006 

1 

EXTEND 

0351 

27.2331 

01  005 

0 

/VRITE 

5 

TURN  OFF  RCS  JETS 

0352 

ref 

1 

27.2332 

0 5101 

1 

rc 

1LMP*0T 

0353 

27,2333 

00272 

0 

3EC 

186 

ECS  PRIMARY  WATER  VALVE  OPEN 

0354 

27,2334 

00310 

0 

DEC 

200 

WAIT  2 SECONDS 

0355 

REF 

3 

LAST 

680 

27.2335 

,0  5060 

1 

iYA-teROFF 

TC 

ILM? 

0356 

27.2336 

00273 

1 

DEC 

1b7 

ECS  PRIMARY  WATER  VALVE  - OPEN  RESET 

0357 

ref 

21 

LAST 

6B1  . 

, 27.2337 

0 4161 

0 

I ,C  . 

phaschng,,  ... 

0358 

27.2340 

00002 

0 

DCT 

00002 

deactivate  group  2 

0359 

REF 

54 

LAST 

681 

_ 27.2341 

1 5727 

1 

rCF 

TASCOVER 

END  OF  Mission  phase  2 

Ao360  . 

0361 

0362 

REF  1 

REF  1 

27.2342 

27.2343 

02251 

02273 

0 

0 

avegadrs 

BDOSTADR 

5ENA0R 

5ENADR 

AVERAGEG 

BODSTMON 

DELTA  T S And  OTHER  CONSTANTS  FDR  MP2 

0363 

0364 

0365 

REF  1 

27.2344 

27.2345 

27.2442 
02260  1 
37II6  0 

svexadrs 

12SEC 

wearth 

equals 

DEC 

2DEC 

SVEXITAD 

I2OD 

31j1k39787  3-5 

REVOLUTIONS  PER  2(28)  CENTISECOnDS. 

C0365 

0366 

A0367 

27.2346 

27.2347 

32623 

00252 

1 

1 

♦XJETSON 

DCT 

00252 

BITS  FOR  +X  translation  JETS 

A0368 

abort  command  monitor  - DETECTS 

A0369 

SUBORBITAL  ABORT  AND  CONTINGENCY 

A0370 

ORBIT  insertion 

0371 

27.2350 

0 0004 

0 

SJBABORT 

INHINT 

SUBORBITAL  ABORT  - ZERO  ABORTNDX  TO 

0372 

ref  219 

last 

682 

27.2351 

3 7767 

0 

CAF 

ZERO 

SET  UP  MISSION  PHASE  3 

0373 

REF  2 

LAST 

24l 

27.2352 

1 2355 

1 

TCF 

CONOrBIT  *2 

0374 

27,2353 

0 0004 

0 

CDNORBIT 

INHINT 

CONTINGENCY  ORBIT  INSERTION  - A30RTNDX 

0375 

REF  38 

LAST 

671 

27.2354 

3 7762 

0 

CAF 

Two 

SET  TO  2 TO  SET  UP  MISSION  PHAS-  4 

0376 

REF  140 

LAST 

672 

27.2355 

54  001 

1 

rs 

L 

SAVE  IN  L 

0377 

REF  12 

last 

68l 

27.2356 

4 0076 

1 

cs 

FLA5wRD2 

CHECK  ABORT  RECEIVED  FLAG  TO  INSURE  THAT 

0378 

REF  41 

LAST 

599 

27.2357 

7 7752 

1 

v|AS< 

31T1R 

MULTIBLE  transmissions  DON'T  START 
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0379 

- 27  iZ360_ 

^-0  0006  1 

--  IXIE-ND 

MULUBLE  JOBS.  ■ SINCE  MULTIBLE  XMISEIOnS 

0380 

REF 

66 

LAST 

679 

27.2361 

1 5567  1 

3ZF 

ENDOfjOB 

ARE  THE  RULE,  LEAVE  WITH  NO  ALARM. 

0381 

REF 

13 

LAST 

682 

27,2362 

4 0076  1 

CS 

FLAowRD2 

IS  ABORT  command  MONITOR  ENABLED 

0382 

REF 

16 

LAST 

681 

27,2363 

7 7753  0 

MAS< 

BIT9 

0383 

27,2364 

0 0006  1 

EXTEND 

038^ 

REF 

1 

27  ,2365 

1 2371  1 

31F 

_S£XABQRT 

YES. ■ 

0385 

REF 

38 

LAST 

6ll 

27 ,2366 

0 4755  1 

TC 

alarm 

ABORT  not  enabled,  SET  ALARM  AND  PXIT. 

0386 

27.2367 

00300  -I 

■003  an - 

0387 

REF 

67 

LAST 

683 

27,2370 

0 5567  0 

TC 

ENDOfjOB 

0388 

27,2371 

0 000-^- 0 

SETABORT  INHI.NT 

0389 

REF 

LAST 

466 

27,2372 

3 5352  0 

:a 

EBANIY3 

0390 

REF 

43 

LAST 

675 

27,2373 

54  003  0 

TS 

EBANy 

0391 

REF 

1 

27,2374 

23*742  1 

uXCH 

ABORtNDX  . . 

-■--■STORE  ABORTNDX  ■ 

0392 

REF 

2 

LAST 

675 

27*2375 

3 2342  0 

CAF 

AVE3ADRS 

0393 

ref 

10 

last 

68l 

27,2376 

55*310  0 

■ TS 

ONSEi  ECT 

TURN  OFF  bOOSTMON 

039A 

REF 

6 

last 

68l 

27,2377 

0 4141  1 

TC 

2PHSrHNG 

0395 

27,2400 

00004  0 

OCT 

00004 

0396 

27,2401 

00006  1 

OCT 

00006 

0397 

REF 

7 

LAST 

683 

27,24_02 

0 4141  I 

TC 

2PHSCHNG 

0398 

27,2403 

00003  1 

OCT 

00003 

0399 

27,2404 

07022  0 

OCT 

07022 

OAOO 

27.2405 

21000  1 

OCT  „ 

2100n 

OAOl 

REF 

2 

LAST 

683 

E3 

EBAN<= 

ABORtNDX 

0A02 

27,2406 

02414  1 

2CADR 

TJM3('3/4 

COA02 

ref 

1 

27,2407 

56063  1 

0A03 

REF  ' 

2 

LAST 

670 

27,2410 

0 6060  1 

TC 

FLA32UP 

OAOA 

27.2411 

01000  0 

OCT 

01000 

ABORT  received  FLAG 

0405 

REF 

39 

LAST 

67l 

27,2412 

0 5225  1 

TC  , 

POSTJUMP 

0406 

REF 

1 

27,2413 

02354  1 

CADR 

enema 

WIPE  EVERYTHING  OUT 

0407 

27,2414 

0 0004  0 

TJMBL3/4 

inhint 

0408 

ref 

51 

LAST 

681 

27,2415 

3 7763  -1 

:a 

31  T1 

0409 

REF 

30 

LAST 

68l 

27,2416 

0 5663  1 

IC 

WAITI  1ST 

RE-ESTABLISH  TUMBLE  MONITOR 

0410 

REF 

2 

LAST 

681 

E6 

eban<= 

DME5A 

0411 

27,2417 

0E470-0 

2CADR 

tjmtask 

C0411 

REF 

3 

LAST 

68l 

27,2420 

60066  1 

0412 

REF 

B 

LAST 

683 

27,2421 

0 4141  1 

TC 

2PHSCHNG 

0413 

27,2422 

00053  1 

3CT 

00053 

3.5  SPOT  FOR  TUMTASK 

0414 

27,2423 

04022  0 

DCT 

04022 

GR  2 FOR  AB0RT3/4 

0415 

27,2424 

0 0004  0 

A30RT3/4_ 

INHINT 

0416 

REF 

LAST 

325 

27.2425 

3 5651  0 

CAF 

PRI027 

0417 

REF 

1 

27,2426 

54  063  0 

TS 

NEWPRIO 

SET  UP  MP3  OR  MP4  VIA  SPVAC 

OA18 


27,2a27  0 0006  1 


EXTEND 


633(*36A 

yul 

SYSTEM  FOR  AGCI 

REVISION 

0 OF  PROGRAM  BURST120  BY  NASA  2n211Ofe-03l 

DEC  7.  1967 

(MAIN)  PAGE  684 

L 

MISSION 

PHASE  2 GUIDA\|CE  REFERENCE  RELEASE  ♦ BOOST  MOnjITOr 

user's  Own  page  no.  12 

S3  E3 

0^19 

REF 

3 

LAST  68^3 

2Ji_2430 

5 1742  T 

INOE.A 

ABORtNDX 

GET  right  2CADR 

OitZO 

0421 

REF 

REF 

1 

1 

27.2431 

27.2432 

3 2435  1 
0 5526  0 

OCA 

rc 

MP3-6ADR 

SPVAC 

•SET  UP  ABORT  JOB, 

0422 

REF 

68 

LAST  683 

27.2433 

1 5567  1 

rcF 

ENDOFJOB 

0423 

0424 

REF 

37 

LAST  324 

27.2434. 

E4 

. . 02000.  0 

EBAN4= 

MP3-4AOR  2CADR 

TDEC 

MP03.‘i0B 

DO  NOT  CHANGE  THE  ORDER 

OF  THES-  2 CARDS 

C0424 

0425 

0426 

ref 

REF 

1 

38 

LAST  684 

27.2435 

27j2436 

52064  1 
E4 

02000.0. 

tBAN<= 

2CADR 

TDEC 

MP4JOB 

THEY  ARE  IN  AN  INDEXED  TABLE 

C0426 

0427 

0428 

REF 

REF 

1 

39 

LAST  68A 

27.2437 

27.2440 

66064  0 
E4 

02341  0 

eban<= 

MIOAVEAD  2CAOR 

TOEC 

. !lL!OJ.nA.V.E  . 

LeFT-OVERS  FROM  DELETED 

MISSION  phase  18 

C0428 

0429 

0435 

REF 

REF 

1 

40 

LAST  68A 

27.2441 

27.2442 

16064  1 
E4 

02324  0 

;BAN<= 

SVEXITAD  2CADR 

TDEC 

SERViEXIT 

C0430 

ref 

2 

LAST  102 

27.2443 

60064  0 

0431 

0432 

27.2444 

27.2445 

00061  0 
00063  1 

610CT  OCT 

630CT  OCT 

61 

63 
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L 

MISSI3N 

phase  2 ' 

guidance  reference  Release  ♦ boost'  monitor 

USER'S  OWN  PAGE  NO.  I3  S3  E3 

P0A33 

SET 

J3.  1 

S EXECUTE 

JOB  TO-  ADD-  - 

VE.LaCI  TY  --CQRfi£ClEQ_N- 

TJ-  VnI- 

OA3A 

REF 

6 

LAST 

A72 

E5 

EBAN<= 

GTSNtLST 

0A35 

REF 

2 

LAST 

1&0 

27  *2446 

3 56A3  0 LIFTFIXT 

:a 

PRIOl  7 

LESS  than  prelaunch  or  normlize 

0A36 

REf 

lA 

LAST 

67A 

27t2AA7 

0 5516  0 

ic 

FINOVAC 

0^37 

REF 

3 

LAST 

AS'* 

E5 

EBATli= 

0L05T 

0A38 

27t2A50 

02A53  1 

2CADR 

LIFTFIX 

CnA38 

REF 

I 

27.2A5I 

56065  1 

0A39 

REF 

b5 

LAST 

682 

27.2A52 

0 5727  0 

TC 

TASCOVER 

OAAO 

rEF 

I 

27.2A53 

A 1307  0 LIFTFlX 

CS 

Pl.PTIME  +1 

prelaunch  by  now  has  found  the  srr  Flag 

OAAI 

REF 

A 

LAST  685 

27.2ASA 

6 17A3  0 

AD 

3LD3T 

6 subsequently  been  thru  PREREAy,  via 

0AA2 

27.2A55 

0 0006  1 

EXTEND 

- MP2TASK, 

0AA3 

27.2A56 

6 2A61  0 

,3ZMF 

♦ 3 

04^4 

REF 

7 

LAST  631 

27.2A57 

6 77AA  1 

AD 

NEGl /2 

(IF  TIMEl  OVERFLOWED) 

0AA5 

REF 

8 LAST-  685 

ZJ-jZAiiQ 

6-  77AA  1 

AD 

NEGl  /? 

0AA6 

REF 

276 

LAST  679 

27.2A61 

5A  1A7  1 

rs 

MPAC  *3 

0AA7 

REF 

57 

LAST  676 

27.2A62 

0 6112-0- 

TC 

intpret 

0AA8 

27.2A63 

56335  1 

SLOAD 

DDV 

0AA9 

REF 

277 

LAST  6B5 

27t2A6A 

00150  0 

MPAr  *3 

0A50 

REF 

I 

27.2A65 

16503  0 

-iSErZlA 

MAKE  THE  TIME-RATIO  POSITIVE. 

0A51 

27«2a66 

63361  0 

VXSC 

PDVL 

0A52 

ref 

1 

27.2A67 

01025  1 

GOT/5 

0A53 

REF 

3 

LAST  A72 

27.2A70 

OOAOA  1 

OELV 

0A5A 

27.2A71 

76A55  1 

VAO 

VSLl 

0A55 

ref 

3 

LA5T  - A-72  _ - 

27j2.A72- 

--  01765  1 - - 

DELVrUF 

0A56 

27.2A73 

53361  0 

VXSC 

VAO 

0A57 

REF 

I 

27.2A7A 

21165  0 

<PIPl 

0A58 

27,2A75 

77655  1 

VAO 

0A59 

ref 

4 

LAST  337 

27.2A76 

01017  0 

VN 

0A6O 

REF 

5 

LAST  685 

27.2A77 

01017  0 

STORE 

VN 

0A61 

27,2500 

77776  1 

EXIT 

0A62 

REF 

59 

LAST  68A 

27,2501 

0 5567  0 

TC 

ENDOfJOB 

0A63 

27,2502 

77633  1 -lsEc2lA  2D-EC 

--10D  -B.--1-A 

C0A63 

27,2503 

77777  0 
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L MP  3 - SUBORBITAL  ABORT 


USER'S  OWN  PAGE  NO.  1 S3 


0001  - - - - 23-.2Q00 3ANX 2.5--. 

0002  ref  Al  LAST  68A  EA  EBAN<=  TOEC 


Roods  program  description-  viission  phase  3 - sjborbital  abort  date-  28  oct  66 

Roods  mod  no-  0 _ ' lg^g__section-  mp  3 - suborbital  hboRlt 

ROOOT  mod  3r-  GILBERT  ASSEMBLY-  SUNBURST  REVISION  17 


R0009  - functional  description. 


Rooio 

R0012 

ROOIA 

ROOI6 

R0OI8 

R0O2O 

IN  the  FIRSI  10  SECONDS  oF  THIS  PHASE,  THE  GROUND  Is  CAUSING  THE 

panels  TO  Be  deployed,  10  Seconds  after  receipt  op  the  abort  command,  mpb 
wHen  tHe  indicated  tumbling  rates  arelLeSS  than  3 Degrees  per  second,  mpa 

NOSeCONE  TO  Be  UeTTISoNeD  and  the  SLA 
checks  tumbling  and  proceeds  only 
tHeN  Starts  *x  translation  and 

commands  sivb/Lem  Separation,  a seconds  after  separation  thf  Descent  engine  is  turned  on  for  5 seconds,  tHen 
ignited  again  after  a 5 Second  coast  andleFt'on  through  the  abort  stage  command  which  is  sent/ReCeived  31 
seconds  LAtfR.  THf  APS  fNGINe  is  turned  off  .5  SfCoNOS  AFtfR  abort  STAGf.  then  ignited  again  after  a 3n  second 

R0O22 

R002A 

coast  for  a final  60  SECOND  BURN.  IMU  COMPENSATION,  CONTINUES  THROUGHOUT  THIS  MISSION  PHASE. 

calling  SEIOUFimCB  _ . ^ 

Ro025 

Ro027 

sjborbitaL  abort  is  Started  at  the  discretion  of  the  ground  in  tHe  eVeNt  of  an  abort  during  tHe  eahi’ieR  part 
OF  BOOST.  Key  code  23  IS  SENT  VIA  UPLINK. 

R0028 

SUBROUTINES  called 

R0029 

NEWMODEX,  waitlist,  FIXDeLAY,  iLMP,  2L'^P»  iLMP,DT,  2LMP+OT,  FLaGiDWN, 

ENGINeON,  ENGINOFF,  eNGINOFi,  =ReREAO, 

R0031 

rEadaccs.  SFRVICeR.  averages. 

R0032 

normal  exit  modes 

RDfi33  . 

taskovfr. 

R003A 

alarm  OR  ABORT  EXIT  MODES 

R0035 

MAUOR  MODE  71. 

R0036 

INPUT  - 

ROO37 

DVSELECt  set  for  readaccs  and  servicer 

R0038 

OUTPUT 

ROO39 

• 'LAST  RITES.  1 

Rooao 

erasable  INITIALIZATION  REQUIRED 

ROOAl 

KEY  CODE  23  SENT  VIA  UPLINK. 

R00A2 

debris 

R00A3 

CENTRALS  - A,l,Q 

Rooaa 

OTHER  - ERASA3-ES  IN  SUBROUTINES  USED 

633<,36A  YUL  SYSTEM  FqR  «GC:  ?:VIS10N  0 oF  PRo^jRAM  BURST123  BY  NASA  2n21106-031  DEC  7t  1967  (Main)  PaGE  687 


L 

mp  : 

3 - 

SUBORBIT^L 

ABORT 

USER'S  OWN  PAGE  NO,  2 S3  E4 

00^*5 

rEf 

15 

last  68 1 

25,.  2000. 

0 4117.  1 

M3Q3J03 rc.  . 

NEa^WDEX 

DISPLAY  MAJOR  MODE  71  ... 

OOA6 

25f2001 

00071  1 

OCT 

71 

00465 

REF 

34 

LAST  67l 

25,2002 

3 6311  1 

CAF 

ThREf.  _ . - 

00A66 

REF 

6 

LAST  676 

25,2003 

54  764  0 

TS 

PHASfNUM 

0047 

REF. 

22 

LAST  682 

25,2004 

0 416E  0 

rc 

-PriASrHNG  .-  - 

OOA8 

25,2005 

47012  1 

OCT 

47012 

00A9 

25,2006 

OOOOl  0 

OEC 

1 

0050 

REF 

42 

LAST  safe  - 

F4 

- =-BAN(Ul 

0051 

25,2007 

02021  0 

2CADS 

SBORol 

C0051 

ref 

1 

25,2010 

52064  1 

00515 

REF 

21 

LA5T„5.45_ 

25,i0il 3 7761  0 

. _ CAL  . 

_ai.l3-  _ 

00516 

REF 

3 

LAST  675 

25,2012 

0 4105  1 

rc 

SETRsTRT 

SET  restart  flag 

0052 

25,2013 

0 0004  0 

INHINT 

0053 

REF 

U8 

last  672 

25,2nl4 

3 7763  1 

':af 

ONE 

10  MS.  - CONTINUE  UNDER  WAlTLISr  CONTROL 

005A 

REF. 

31 

LAST  685 

25,2015 

0 5663  1 

rc 

NAITl  1ST 

0055 

REF 

43 

XAST  68T_ 

E4 

rBAN<= 

TDEC 

0056 

25,2016 

02021  0 

2CA0R 

SBORRI 

C0056 

ref 

2 

LAST  687 

25,2017 

52064  1 

0057 

REF 

70 

LAST  685 

25,2020 

1 5567  1 

rCF 

ENOOFJOB 

AND  RELINT 

OObl 

REF 

220 

LAST  -682 

25 ,2021 

3 7767  0 

S30RBl  CAF 

ZERO 

INSURE  RCS  JETS  OFF 

00613 

25,2022 

0 0006  1 

extend 

00616 

25,2023 

01  006  0 

lYRITE 

6 

0062 

25,2024 

0 0006  1 

EXTEND 

0063 

25,2025 

01  005  0 

NRITE 

5 

006A 

REF 

23 

last  687 

25,2026 

0 4161  0 

TC 

PHASrHNG 

0065 

25,2027 

.47012.1 

OCT 

47012 

0066 

25,2030 

00144  0 

OEC 

100 

0067 

REF 

44 

LAST  687 

E4 

eban<= 

TDEC 

0066 

25,2031 

02035  0 

2CADR 

SbORn2 

C0068 

ref 

1 

25.2032 

52064  1 

0069 

REF 

17 

LAST  68l 

25,2033 

0 5701  1 

rc 

FiXOELAY 

WAIT  1 SECOND 

0070 

25.2034 

00144  0 

. ..  OEC 

100 

0071 

REF 

1 

25.2035 

0 5073  0 

S30RB2  rc 

2LMP+DT 

0072 

25,2036 

00274  0 

OEC 

IBS 

RCS  MAIN  5/0  VALVES,  SYS.  A f OPEN-** 

0073 

25,2037 

00276  1 

OEC 

190 

RCS  MAIN  s/0  VALVES,  SYS.  B - OPEN  »* 

0074 

25,2040 

00144  0 

OEC 

100 

WAIT  1 SECOND 

0075 

REF 

2 

LAST  682 

25,2041 

0 5101  1 

rc 

1LMP*DT 

0076 

25.2042 

00004  0 

OEC 

4 

ED  BATTERY  ACTIVATION  - ON  * 

0077 

25,2043 

011144  0 

DEC 

100 

WAIT  1 SECOND 

0078 

REF 

2 

LAST  687 

25,2044 

0 5073  0 

rc 

2LMP+DT 

0079 

25,2045 

- 00i75  i 

OEC 

189 

RESET  ** 

0080 

25,2046 

00277  0 

OEC 

191 

RESET 
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L 

MP  3 

- suborbital 

abort 

USER'S  OWN  page  no.  3 

S3  E4 

26.2047 

00144 

0 

3EC 

IQD 

WAIT  1 SECOND 

0082 

REF 

3 LAST  687 

25.2050 

0 5101 

1 

rc 

ILMP+DT 

nnnOA 

L 

DEC 

_6 

RC5  PRESSURIZE  -XiRE 

0084 

25.2052 

00144 

0 

DEC 

100 

WAIT  1 SECOND 

rep 

4 I A.ST  fitRH 

25.2053 

0 5101 

1 

. xc 

XLMPtDT 

0086 

25.2054 

00005 

1 

DEC 

5 

ED  BATTERY  ACTIVATION  - SAFE 

Ik 

0087 

25.2055 

00144 

0 

DEC 

loo 

WAIT  1 SECOND 

0088 

REF 

5 LAST  68B 

2512056 

0 5101 

1 

TC 

1LMP*DT 

0089 

25.2057 

00007 

0 

DEC 

7 

RESET 

?5 .20^0 

00620 

n 

DEC 

400 

WAIT  4 SECONDS 

0091 

REF 

18  last  516 

25.2061 

4 0075 

1 

TJMBCHC 

:s 

FLAGwROi 

IS  Vehicle  rate  less  than  3 

DEo/SeC 

009? 

25  1 i^<;T  608 

25.2062 

7 7747  0 

MASX 

_aiXL3- 

0093 

REF 

237  LAST  67l 

25.2063 

10  000 

0 

CCS 

A 

0094  ’ 

REF 

1 

25.2064 

1 2070 

0 

TCF 

TUM31 

YES 

0095 

REF 

18  LAST  687  • 

25.2065 

0 5701 

1 

rc 

FlXDELAY 

WAIT  .5  SECONDS 

0096 

25.2066 

00062 

0 

DEC 

50 

0097 

ref 

1 

25.2067 

1 2061 

0 

TCF 

TUMBrHK 

BEF 

24  last  6R7 

25  *2fl70 

0 4161 

0 

TJMBl 

TC 

PHASCHNG 

6099 

25.2071 

05012 

1 

DCT 

05012 

0100 

25.2072 

77777 

0 

DCT 

77777 

0101 

REF 

7 last  431 

25.2073 

0 6067 

0 

TC 

FLAGlDWN 

terminate  tumble  monitor 

0102 

25.2074 

20000 

0 

DCT 

20000 

0105 

REF 

1 

25.2075 

3 3014 

1 

CAF 

JETS+X 

command  +x  translation  - ON 

(4  JET) 

0106 

26,2076 

0 0006 

1 

EXTEND 

0107 

25.2077 

01  005 

0 

«/RITE 

5 

0108 

REF- 

24  LAST  669 

25.2100 

0 5270 

1 

TC 

iBNCrALL 

0109 

REF 

1 

25.2101 

40062 

1 

CADR 

JLLAF.E 

USE  LATER 

0110 

REF 

6 LAST  68B 

25,2102 

0 5101 

1 

rc 

1LMP*DT 

0111 

25.2103 

00072 

1 

dec 

58 

LEM/S4B  separate  ArM  - 0|N  * 

0112 

25.2104 

00062 

0 

DEC 

50 

WAIT  500  milliseconds 

0113 

REF 

53  LAST  632 

25.2105 

4 0077 

0 

CS 

DAPBnOLS 

ENABLE  DAP 

0114 

REF 

6 LAST  556 

25.2106 

7 7751 

1 

MAS< 

GOOAdGO 

_ 

0115 

REF 

54  LAST  68B 

25.2107 

26  077 

0 

ADS 

DAP3nOLS 

0116 

REF 

25  LAST  688 

25.2110 

0 5270 

1 

TC 

IBN<CALL 

DEADBAND  SELECT  - MAX 

0117 

REF 

3 last  102 

25.2111 

40054 

1 

CADR 

SETMAXDB 

01175 

REF 

25  LAST  688 

25.2112 

0 4161 

0 

TC 

PHASCHNG 

01176  ’ 25.2113  A7012  1 3CT  A7012 
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L 

n 1 1 77 

MP  3 

suborbital 

ABORT 

25.7114 

nnnfe?  o 

_5B 

USER'S  OWN  PAGE  NO.  4 

S3  E4 

01178 

REF 

45 

LAST 

687 

E4 

eban<= 

TDEC 

01179 

25,2115 

02121  1 

2CADR 

T JM3, 

C01179 

REF 

1 

2S.2116 

52064  1 

0118 

REF 

19 

LAST 

688 

25,2117 

0 5701  1 

TC 

FlXOFLAY 

WAIT  500  MILLISECONDS 

0119 

25,2120 

00062  0 

DEC 

50 

0120 

REF 

26 

LAST 

688 

25,2121 

0 5270  1 

TJMB2 

tc 

IBNCrALL 

0121 

REF 

1 

25.2122 

40072  0 

CAOR 

SETRATE 

HOLD  VEHICLE  ATTITUDE  RATE 

0125 

REF 

3 

LAST 

687 

25,2123 

0 5073  0 

rc 

2LM?*DT 

0126 

25,2124 

00132  1 

3EC 

90 

LEM/S4B  separate  - COMMAND 

Ik* 

0127 

25,2125 

- 00004  0 

3EC 

4 

ED  BATTERY  ACTIVATION  - ON 

# 

0128 

25,2126 

00012  1 

3EC 

10 

WAIT  100  MILLISECONDS 

0129 

REF 

27 

LAST 

689 

-25,2127 

0 5270  1 

IC 

IBNCCALL 

. DEADBAND  SELECT  - MIN 

0130 

REF 

2 

LAST 

670 

25,2130 

40046  1 

CAOR 

SETMINDB 

0130^ 

REF 

19 

LAST 

688 

25,2131 

4 0075  1 

cs 

fEAGwEDl 

SETS  SIVBGONE  TO  1 

01305 

REF 

38 

LAST 

613 

25,2132 

7 7760  0 

MAS< 

BIT4 

01306 

REF 

20 

LAST 

68^> 

25,2133 

26  075  1 

ADS 

FLAoWRDl 

013065 

REF 

26 

LAST 

688 

25,2134 

0 4161  0 

rc 

PHASCHNG 

013066 

25,2135 

47012  1 

3CT 

47012 

013067 

00132  1 

TEC 

90 

013066 

REF 

LAST 

68^ 

E4 

EBAN<= 

TDEC 

013069 

25,2137 

02143  0 

2CADR 

TJMB^ 

C013069 

REF 

1 

25,2140 

52064  1 

0131 

REF 

20 

LAST 

689 

25,2141 

0 5701  1 

TC 

FIXDELAY 

WAIT  900  MILLISECONDS 

0132 

25,2142 

00132  1 

DEC 

90 

0133  ■ 

REF 

28 

LAST 

689 

25,2143 

0 5270  1 

T JMB3 

rc 

IBN<CALL 

01335 

REF 

2 

LAST 

48l 

25,2144 

40277  1 

CAOR 

ENGInOFI 

0134 

REF 

4 

LAST 

689 

25,2145 

0 5073  0 

TC 

2LMP*0T 

0135 

25,2146 

00073  0 

DEC 

59 

LEM/S4B  separate  ArM  - OFF 

* 

0136 

25,2147 

00226  1 

DEC 

150 

ENGINE  SELECT  - DESC  ARM  • 

0137 

25,2150 

00001  0 

DEC 

1 

WAIT  10  MILLISECONDS 

0138 

REF 

42 

last 

682 

25,2151 

3 7752  0 

CAF 

B I T in 

START  ABORT  STAGE  DISCRETE 

MONl rOR 

0139 

REF 

32 

LAST 

68  J 

25,2152 

0 5663  1 

rc 

.JAlTI  1ST 

OUO 

REF 

47 

LAST 

689 

E4 

EBAN<= 

TDEC 

0l4l 

25,2153 

02436  1 

2CADR 

ABJ5TMM 

C0141 

REF 

1 

25,2154 

52064  1 

0142 

REF 

9 

LAST 

683 

25,2155 

0 4141  1 

rc 

2PRSCHNG 

0143 

25,2156 

- 40072  0 

OCT 

40072 

0144 

25,2157 

47016  0 

DCT 

4701  6 

0145 

25.2160 

01000  0 

DEC 

512 

0146 

REF 

48 

EAST 

689 

F4 

FBAN<= 

TDEC 

0147 

25,2161 

02436  1 

2CA0R 

ABTSfGDM 

C0147 

ref 

2 

LAST 

689 

25,2162 

52064  1 

633^(36A 

YUL 

SYSTEM  FOR  AGC 

: RcViSlON 

0 OF  PROGRAM  BURS 

T12D  BY 

NASA  2021106-031 

DEC  7.  1967  (MAIN)  PAGE  690 

L 

MP  3 

- suborbital 

ABORT 

USER'S  Own  page  no.  5 S3  E9 

0K8 

REF 

Z9  LAST  689 

._2&a2163 

0 5270  1 - S.3X!(TBA 

.rc 

..  .LBI^lCcAU 

D£A0.BAND.  select  - min ... 

0K9 

REF 

3 LAST  689 

25,2169 

90096  1 

:adr 

SETMiNDB 

0150 

ref 

7 LAST  688 

2^5,2165 

0.  510.1  1 

. _ I C_ 

„-lLMP*DT 

0151 

25,2166 

00126  1 

3EC 

86 

manual  throttle  - On  (10  PC)  * 

0152 

25,2167 

00199  0 

JEC 

100 

WAIT  1 SECOND 

0153 

ref 

8 LAST  690 

25,2170 

0 5101  1 

TC 

1LMP*DT 

0159 

25,2171 

00133  0 

3EC 

91 

RESET  ** 

0155 

25,2172 

01130  1 

600 

WAIT  6 SECONDS 

0156 

REF 

30  LAST  690 

25,2173 

0 5270  1 

TC 

IBN<rALL 

HOLD  LEM  attitude 

0157 

REF 

5 LAST  515 

25.2179 

9JDliA-l  

. .:a£r_ 

....5X0  PR  A IE 

0166 

REF 

27  LAST  689 

25,2175 

0 9161  0 

TC 

PHASCHNG 

0167 

25,2176 

97012  1 

3CT 

97012 

0168 

25.7177 

00620  0 

- OEC 

900 

0169 

REF 

9 LAST  676 

E5 

SBAN< 

= OVCMtR 

0170 

25,2200 

02209  0 

2CADR 

SB0RB3 

C0170 

REF 

1 

25.7701 

57065  0 

0171 

REF 

2l  LAST  689 

25,2202 

0 5701  1 

TC 

FIXDELAY 

WAIT  9 Seconds 

0172 

25,2203 

00620  0 

3EC 

900 

0173 

REF 

10  LAST  690 

E5 

iBAN< 

= OVCNtR 

01732 

REF 

6 LAST  675 

i5»22fi9 

.3  _5.6.61  0 . S30BB3 

CA 

_EM3UL5-.  

01739 

ref 

99  LAST  .683 

25,2205 

59  003  0 

rs 

ebank 

01736 

REF 

9 LAST  690 

25.7206 

05101  1 

TC 

1LMP*DT 

0179 

25,2207 

00010  0 

3EC 

8 

LANDING  gear  DEPLOY  - FIRE  )Ht 

0175 

25,2210 

00199  0 

3EC 

100 

WAIT  1 SECOND 

0176 

REF 

31  LAST  690 

25,2211 

0 5270  1 

tc 

IBN<rALL 

01765 

REF 

1 

25,2212 

90226  0 

CAOR 

OPSENGON 

0177 

REF 

28  LAST  690 

25,2213 

0 9161  0 

TC 

PHASCHNG 

0178 

25,2219 

97012  1 

3CT 

97012 

0179 

25,2215 

00199  0 

3EC 

100 

0180 

REF 

11  LAST  690 

E5 

EBAN< 

= dvcntR 

0181 

25,2216 

02222  1 

2CA0R 

SB0RR9 

C0181 

REF 

1 

25.2217 

52065  0 

0182 

REF 

22  LAST  690 

25,2220 

0 5701  1 

rc 

FIXOELAY 

WAIT  1 SECOND 

0183 

25,2221 

00199  0 

3EC 

loo 

0189 

REF 

5 last  689 

25,2222 

0 5073  0 S30RB9 

TC 

2LMP+DT 

0185 

25,2223 

00005  1 

3EC 

5 

ED  BATTERY  ACTIVATION  - SAFE  i* 

0186 

25,2229 

00011  1 

3EC 

9 

RESET  »» 

0187 

25,2225 

00620  0 

3EC 

900 

WAIT  9 SECONDS 

01872 

REF 

221  last  687 

25.2226 

3 7767  0 

:a 

Zero 

WE  WANT  TO  DFTFCT  ENGINOFF  QUICCLY  SO  IT 

01879 

REF 

2 LAST  980 

25,2227 

55'391  1 

TS 

SETOvCNT 

WON'T  interfere  WITH  NEXT  ENG  0-M. 
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L 

MP  3 

. suborbital 

ABORT 

USER'S  OWN  PAGE  NO.  6 S3  E5 

?5,.2230 

^ 7763  1 

'A 

ONF 

DITIO^ 

01878 

REF 

12 

LAST  69° 

25,2231 

55<511  1 

fs 

OVCNTR 

22^2 

rc 

iflM^rAi  1 

01885 

REF 

4 

LAST  586 

25,2233 

40263  1 

:adr 

ENoINOFF 

rr 

PHASrHNG 

0190 

25,2235 

470i2  1 

3CT 

47012 

0191 

25,2236 

00764  1 

3EC 

500 

pff 

1 AST  691 

FR 

-BAN<=  J3VC3I.tR 

0193 

25,2237 

02243  0 

2CADR 

SB0RR5 

C0193 

R£F 

1 

25,2240 

52065  0 

REF 

1 AST  h90 

25*2241 

0 5701  1 

TC 

FUOELAY 

WAIT,5,SECQND5_  . ^ . 

0195 

25,2242 

00764  1 

3EC 

500 

-- 

S30RB5 

rC 

I RN^rALL  ^ 

01965 

REF 

2 

LAST  690 

25,2244 

40226  0 

CAOR 

OPSENGON  < 

OPSENGON  WILL  REFRESH  SETDVCNT 

rff 

iO 

25  t2;^4S 

0 4161  0 

rc 

PHASCHMG  . 

0198 

25,2246 

47012  1 

3CT 

47012 

0199 

25,2247 

00310  0 

3EC 

200 

. 

n?nn 

REF 

L4 

LAST  69l 

F5 

-BAN<= 

OVCNTR 

0201 

25,2250 

02254  0 

2CADR 

SB0RR6 

C0201 

ref 

1 

25,2251 

52065  0 

npnp 

REF 

last  69I 

25*2252 

0 5701  1 

rc 

FDOEUAY 

WAIT  2 SECONDS 

0203 

25,2253 

00310  0 

3EC 

200 

0204 

REF 

LAST  69l 

25,2254 

0 5270  1 

S30RB6 

tc 

IBNCCALL. 

COMMAND  +X  TRANSLATION  - OFF  (4  JET) 

0205 

REF 

'2 

LAST  102 

25,2255 

40066  0 

caor 

NOJLl  AGE 

020A 

REF 

LAST  69l 

25*225ft 

0 41 61  CL 

TC 

PHASCHNG 

0207 

25,2257 

47012  1 

3CT 

47012 

0208 

25,2260 

03554  0 

3EC 

1900 

o?nq 

REF 

L5 

last  69l 

E5 

-BAN<= 

OVCNtR 

0210 

25,2261 

02265  1 

2CADR 

SB0RR7 

C0210 

ref 

1 

25,2262 

52065  0 

021  1 

REF 

?5 

LAST  69l 

25,2263 

0 5701  1 

TC 

FIXOELAY 

WAIT  19  SECONDS 

0212 

25,2264 

03554  0 

3EC 

1900 

021  3 

REF 

10 

LAST  69O 

25,2265 

0 5101  1 

S30RB7 

rc 

lLMP*t)T 

021A 

25,2266 

00336  1 

3EC 

222 

ASCENT  WATER  COOLANT  VALVE  - OPrN  *» 

0215 

25,2267 

00310  0 

3EC 

200 

WAIT  2 SECONDS 

0216 

REF 

11 

LAST  69l 

25,2270 

0 5101  1 

TC 

1LMP*DT 

0217 

25,2271 

00337  0 

3EC 

223 

RESET  *» 

0218 

25,2272 

00454  1 

DEC 

300 

WAIT  3 SECONDS  . 

0219 

REF 

7 

LAST  A8l 

25,2273 

3 5210  1 

- 

CAF 

PRI030 

THRUST  REUUEST  DURING  JOB 

0220 

REF 

15 

LAST  685 

25.2274 

0 5516  0 

TC 

FINOUAC 

, 

0221 

REF 

11 

LAST  67 

E5 

EBAN<= 

EHROT 

► 
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L 

0222 

MP  3 

suborbita'l 

ABORT 
25»2275 

02-464-0 

2CADR 

TRSTqOPC 

USER'S  OWN  page  NO.  7 

S3  E5 

C0222 

REF 

1 

25t2276 

52065  0 

022A 

REF 

10 

LAST  68“^ 

25,2277 

0 4141  1 

TC 

2PRSrHNG 

0225 

25.2300 

40112  1 

. OCT 

40112 

02255 

25.2301 

07024  0 

3CT 

07024 

0226 

25,2302 

30000  1 

OCT 

3000O 

0227 

RE^ 

IZ 

LAST  69l 

E5 

-BAN<= 

FTHRDT 

0228 

25,2303 

02464  0 

2CADR 

TRST^OPC 

C0228 

ref 

2 

LAST  692 

25.230A 

52065  0 

0229 

REF 

26 

LAST  69l 

Z5.23Q5 

0 5701  1 _ 

rc 

FIXOfLAY 

WAIT  4 SECONDS 

0230 

25,2306 

00620  0 

OEC 

400 

0231 

ref 

12 

LAST  69A-.^ 

_„25  ,23P7 

-0  5101  1 --530RB8 

rc 

-1L.MP*DT  - - 

0232 

25,2310 

00046  0 

OEC 

38 

ABORT  STAtiE  - ARM  » 

0233 

25,2311 

00144  0 

OEC 

loo 

WAIT  1 SECOND 

023A 

REF 

13 

LAST  692 

25,2312 

0 5101  1 

rc 

1LMP*DT 

0235 

25,2313 

00026  0 

OEC 

22 

ABORT  STAGE  - COMMAND  « 

0236 

25.2314 

00001  0 

OEC 

_1 

WAIT  10  MS 

0237 

REF 

32 

LAST  69l 

25,2315 

0 4161  0 

rc 

phaschng 

0238  _ 

25,2316 

00002  0. 

OCT 

OOOQ2 

0239 

REF 

56 

LAST  685 

25,2317 

1 5727  1 

tcf 

tascover 

ABORT  stage  DISCRETE  MONITOR 

running 

0244L  . 

REF 

- _1 

E_7_ 

EBANiCf 

LEMMASS2 

02442 

REF 

1 

25,2320 

3 5662  0 S30RBB 

:af 

EBANK7 

02443 

REF 

45  LAST 

690 

25,2321 

54  003  0 

ts 

EBANk- 

02444 

25,2322 

0 0006  1 

EXTEND 

02445 

ref 

2 LAsT 

692 

25,2323 

3 1777  1 

OCA 

LEMM45S2 

02446 

ref 

5 LAST 

61A 

25,2324 

53'321  1 

OXCH 

MASS 

024461 

REF 

35  LAST 

69I 

25,2325 

0 5270  1 

rc 

IBNCrALL 

SET  UP 

DAP  FOR  APS  BURN 

024462 

REF_ 

1 

25,2326 

40175  0 

rAOR 

APsENGON 

02447 

REF 

49  LAST 

689 

E4 

EBAN<= 

TDEC 

02448 

ref 

2 LAST 

675 

25,2327 

3 7751  0 

caf 

EBANX4 

02449 

ref 

46  LAST 

692 

25,2330 

54  003  0 

rs 

EBANX 

024493 

REF 

33  LAST 

-692 

25,2331 

0 4161  0 

rc 

PHASCHNG 

024494 

25,2332 

47012  1 

OCT 

4701? 

024495 

25,2333 

00144  0 

OEC 

100 

024496 

REF 

50  LAST 

692 

E4 

rBAN<= 

TDEC 

024497 

25,2334 

02340  1 

2CA0R 

SB0Rr9 

C024497 

REF 

1 

25,2335 

52064  1 

0245 

REF 

27  last 

692 

25,2336 

0 5701  1 

TC 

FIXOfLAY 

WAIT  1 

SECOND 

0246 

25.2337 

00144  0 

OEC 

100 
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L 

MP  3 

SUbORBlTAL 

AB  DR.T 

USER'S  OINN  page  NO.  8 S3  E9 

02^7 

REF 

last 

6.92  _ 

25.2390 

0 5101  1 

SiQHB.g 

I C ...  . 

_1LM?+D-T  - 

02A8 

25.2391 

00227  0 

DEC 

151 

ENGINE  SELECT  - DESC  ARM  OFF  » 

02A9 

25.2392 

00620  0 

DEC 

900 

WAIT  9 SECONDS 

0250 

REF 

36 

LAST 

692 

25.2393 

0 5270  1 

TC 

ISNCrALL 

02505 

REF 

5 

LAST 

69l 

25.2399 

90263  1 

CAOR 

ENGInOFF 

0251 

REF 

3A 

LAST 

692 

25.2395 

0 9161  0 

TC 

PHASrHNG 

0252 

25.2396 

97012  1 

DCT 

97O12 

0253 

25.23A7  00149^ 

"jpr 

__10D 

025A 

REF 

51 

LAST 

692 

E9 

EBAN<= 

TDEC 

0255 

25.2350 

02359  1 

2CADR 

SBDRrIO 

C0255 

REF 

1 

25.2351 

57069  1 

0256 

REF 

28 

LAST 

692 

25.2352 

0 5701  1 

TC 

FlXDELAY 

WAIT  1 SECOND 

0257 

25.2353 

00199  0 

DEC 

loo 

0258 

REF 

6 

LAST 

690 

25,2359 

0 5073  0 

S30RB10 

TC 

2LMP*DT 

0259 

25,2355 

00097  1 

DEC 

39 

ABORT  STAGE  - COMMAND  RESET  * 

02595 

25,2356 

00206  0 

DEC  . 

iaA . 

engine  SELECT  - ASC  ARM  9 

0260 

25,2357 

05219  0 

DEC 

2700 

WAIT  27  SECONDS 

0261 

REF 

^7 

last 

693 

-Z5.»2a60 

0 -5270  1 

tC 

IBNCrALL 

command  *X  TRANSLATION  _ ON  (9  JpT) 

0262 

REF- 

2 

LAST 

688 

25,2361 

90062  1 

CAOR 

JLLAGE 

0263 

REF 

35 

LAST- 

69J 

- 25  x2362  _ 

Q 9161  0 

JC  . . 

PHA5CHNG 

025A 

25.2363 

97012  1 

DCT 

97017 

0265 

25,2369 

00310  0 

DEC 

200 

0266 

REF 

52 

LAST 

693 

. . E9 

rBAN<= 

TDEC 

0267 

25,2365 

02371  0 

2CA0R 

SBDRnll 

C0267 

ref 

1 

25,2366 

52069  1 

0268 

REF 

29 

LAST 

693 

25,2367 

0 5701  1 

TC 

FIXDpLAY 

WAIT  7 seconds 

0269 

25,2370 

00310  0 

DEC 

200 

0270 

ref 

38 

LAST 

693 

25,2371 

0 5270  1 

S30RB11 

rc 

IbNCCALL 

02705 

REF 

2 

LAST 

692 

25,2372 

90175  0 

CADR 

APSEmGON 

0271 

ref 

36 

LAST 

693 

25,2  3 7 3 

0 9161  0 

rc 

PHASCHNG 

0272 

25.2379 

97012  1 

DCT 

97012 

0273 

25,2375 

00310  0 

DEC 

200 

027A 

REF 

53 

LAST 

693 

E9 

EBAN<= 

TDEC 

0275 

25,2376 

02902  0 

2CADR 

SB0Rnl2 

C0275 

REF 

1 

25,2377 

52069  1 

0276 

REF 

30 

LAST 

693 

25,2900 

0 5701  1 

rc 

FJ  X-DeLA-Y 

WAIT  Z SECONDS 

0277 

25,2901 

00310  0 

DEC 

200 

0278 

REF 

39. 

last 

693 

25,2.902 

0 5270  1 

S30RB12 

IC 

IBNCCALL 

Command  +x  translation  - off  (9  jjei) 

0279 

REF 

3 

LAST 

69l 

25,2903 

90066  0 

CAlDR 

NOJLLAGE 

0280 

REF 

37 

LAST 

693 

25,2909 

0 9161  0 

TC 

PHASrHNG 

0281 

25,2905 

97012  1 

DCT 

97012 

633<,36A  YUL  system  FOR  ^GC:  R-VtSION  0 OF  PROGRAM  BURST123  BY  NASA  202U0fc-031  DEC  7,  1967  (MAIN)  PAGE  69A 


L 

0282_ 

MP  3 

- 

SUBOrBIT«L 

ABORT 

25«2406 

13250  1 

3EC 

5800 

USER'S  OWN  page  no.  9 S3  E4 

0283 

REF 

54 

LAST 

693 

E4 

EBAN<= 

TOEC 

0284 

25,2407 

02413  0 

2CAOR 

SB0RR13 

C02B4 

1 

25.2410 

52064 ■ L- 

0285 

REF 

31 

LAST 

693 

25,2411 

0 5701  1 

TC 

FUOFLAY 

WAIT  58  SECONDS 

0286 

25,2412 

13250  1 

3EC 

5b00 

0287 

REF 

AO 

LAST 

693 

25,2413 

■0  5270  1 

S30RB13 

TC 

IBNCCALL 

02875 

REF 

6 

LAST 

693 

25',2414 

40263  1 

:aor 

EN3IN0FF 

0288 

REF 

38 

LAST 

693 

25,2415 

0 4161  0 

TC 

PHASCHNG 

0289 

25,2416 

47012  1 

OCT 

47012 

029Q 

25.2417 

00144  0 

DEC 

iim.  _ 

0291 

REF 

55 

LAST 

694 

E4 

=BAN<= 

TDEC 

0292 

25,2420 

02424  1 

2CADR 

SB0RR14 

C0292 

REF 

1 

25.2421 

52064  1 

0293 

REF 

32 

LAST 

694 

25,2422 

0 5701  1 

TC 

FIXDfLAY 

WAIT  1 SECOND 

0294 

25,2423 

00144  0 

OEC 

100 

0295 

REF 

15 

LAST 

693 

25,2424 

0 5101  1 

S30RB14 

TC 

ILMP+DT 

0296 

25,2425 

00207  1 

OEC 

135 

engine  select  - ASC  ARM  OFF  4 

0297 

_ 25j2426 

05524  1 

OEC  , 

290a 

WAIT  29  SECONDS 

0298 

REF 

8 

LAST 

688 

25,2427 

0 6067  0 

TC 

flaoi own 

KNOCK  DOWN  AVERAGES  FLAG 

0299 

25_,2430. 

. ,00001  0. 

OCT  _ 

00001 

0300 

REF 

41 

LAST 

694 

25,2431 

0 5270  1 

TC 

1BN<CALL 

DEADBAND  SELECT  - MAX 

0301 

REF 

4 

LAST 

688 

25,2432 

40054  1 

:aor  . , 

SEIMAXDB 

0302  ■ 

REF 

39 

LAST 

694 

25,2433 

0 4161  0 

TC 

PHASCHNG 

030_1_ 

25,2434 

00002  0 

OCT 

00002 

0304 

REF 

67 

LAST 

692 

25,2435 

0 5727  0 

TC 

TASCnVER 

0305 

ref 

29 

Last 

675 

25,2436 

3 7762 

0 

abtstgdm 

:af 

BlT2 

abort  stage  discrete  monitor 

0306 

25,2437 

0 0006 

1 

EXTEND 

0307 

25,2440 

02  030 

0 

RAND 

30 

0308 

25,2441 

0 0006 

1 

EXTEND 

0309 

REF 

1 

25,2442 

1 2446 

1 

3ZF 

ABTStGI 

YES 

0310 

REF 

33 

LAST 

694 

25  »24^3 

0 5701 

1 

TC 

fixdelay 

WAIT  .5  SECONDS 

0311 

25,2444 

00062 

0 

DEC 

50 

0312 

REF 

3 

LAST 

689 

25,2445 

1 2436 

0 

TCF 

ABTStGDM 

0313 

REF 

11 

LAST 

692 

25,2446 

0 4141 

1 

ABTSTGI 

TC 

2PHSCHNG 

0314 

25,2447 

00004 

0 

3CT 

00034 

633<»36A  YUL  SYSTEM  FOR  ®GC : REVISION  0 OF  PROGRAM  BURST  123  3Y  NASA  2n2110ft-031 


DEC  7.  1967 


(MAIN)  PAGE  695 


L 

031  *5 

MP  3 

- 

suoorbital 

ABDRT 

25t2450 

47QI2  1 

XI 

4701 7 

USER'S  OWN  page 

NO.  10 

S3  E4 

0316 

25,2451 

77777  0 

DCT 

nm 

03165 

REF 

56 

LAST 

69A 

E4 

EBAN<= 

TOEC 

0317 

25.2452 

QZ32£L_1 

2CADR 

-saaaaB 

C0317 

REF 

1 

25,2453 

52064  1 

03175 

REF 

12 

LAST 

69A 

25,2454  . 

0 4141  1 

rc 

2PHSCHNG 

03176 

25.2455 

00006  1 

OCT 

-oaox.  . - 

03177 

25,2456 

00003  1 

OCT 

00006 

0318 

REF 

it 

LAST 

558 

25.2457 

3 5660  1 

CAF 

PRI067 

_ Generate  restart 

immediately 

0319 

REF 

20 

LAST 

556 

25,2460 

0 5505  1 

TC 

NOYAC 

03195 

REF 

30 

LAST 

52A 

E3 

EBANC= 

LSTl 

0320 

26,2461 

02354  1 

_ 2CADR  ENEMA 

C0320 

REF 

2 

LAST 

683 

25,2462 

02063  0 

0321  . 

REF 

68 

LAST 

69A 

25,2463 

1 5727  1 

TCF 

TASCOVER 

032102  REF  3b  LAST  62^  25,2a64  3 77A3  0 TRST90PC  CAF  POSMAx  INCREASE  THROTTLE  90  PERCENT 


032104  REF 

1 

25,2465 

55'323 

0 

TS 

PCNTF 

032106 

25,2466 

0 0006 

1 

EXTEND 

032108  REF 

1 

25,2467 

3 2473 

0 

OCA 

THRStLOC 

03211  REF 

19 

last 

ro 

00 

25,2470 

52  006 

0 

OXCH 

2 

032116  REF 

71 

last 

687 

25,2471 

1 5567 

1 

TCF 

ENDD^JOB 

0322 

0323 

REF  ■ 

13  LAST  692 

^25l2472 

E5 

03466  0 

eban<=  ETHROT 

THRSTLOC  2CADR  PCNTfMAX 

C0323 

REF 

1 

25,2473 

60065  1 
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L 

OOP  1 

MPA-CDNTiNGENCy  oRBIT  INSERTION 

AA.2000 

3AN< 

33 

USER'S  OWN  page  NO*  1 S3 

0002 

REF  57  LAST  695 

EA 

EBAN<= 

TDEC 

R0003 

PROGRAM  name- 

DAT£- 

ROOOA 

MISSION  PHASE  A • 

lA  DECEMBER  1966 

R0005 

MOD  NO-  21 

LOG  SECTION- 

R0006 

MOD  ay-  schulfnBfrg 

MPA-CONTlNGEOLCy 

_ ORBtI  _1NSERXIJ0IN 

R0007 

fui\)ctional  description- 

^0008 

CONTINGENCy  orbit  INSERTION  IS 

called  By  ground 

' IN  fVent  of 

preMature  sivB  shutdown  an^d  attempts  to 

RoOlO 

effect  an  orbital  insertion  using  the  dps  engine  and  the 

guidance  Equations  used  for  the  aps  burns,  tHf 

Ro012 

program  Leaves  mission  phase 

timers  inhibited  and  Leaves 

i further  CONTROLTO  the  ground  via  uplink. 

Rooia 

calling  sequence-  _ _ _ 

SUBROUTINES  CALLE-O- 

R0015 

START  MPi,  WHEN  ABORT 

FLAGlJP 

FiIaGiDWN 

R0016 

COMMAND  MONITOR  DETECTS  MPa 

FlXDELAy 

waitlist 

R0017 

command  via  lgc^uplino.  . 

VPATCHER 

<alcmanu  . 

R0018 

Ascent 

ULaJETON 

R0019 

NORMA-  EXIT  MODES- 

LMP 

JLaJETOF 

R0020 

TASKOVER  (AWAITS 

executive 

ENr,INFON 

R0021 

further  commands  FROMi  GROUND) 

MIDTOAVE 

ENGINOFF 

R0022 

alarm  exit  MODES- 

3ANKCALL 

ENGINOFl 

R0Q23 

NONE 

IBNKCALL 

LAATBIAS 

R002A 

erasable  initialization  required- 

R0025 

rINJECT  s INJECTION 

radius  DEsIrED  IN  meters  X 

2(-25) 

R00252 

VINJECT  ; 0R-3ITAL  VELOCITT  DESIRED  IN  METERS/CENT  I SECOND  * 

2(-7 

RQQ26 

DUTPJT-  samf  as  for  CALCMANU 

R0027 

DEBrIs-  same  as  for  ClALCMANU 

0028 

REF  £,0  LAST  6.9A  33,2000 

0 A161  0 

M^aJOB  tc 

phaschng 

00285 

33,2001 

05022  I 

OCT 

05022 

0029 

33,2002 

27000  1 

OCT 

2700n 

00291 

REF  39  last  689  33,2003 

3 7760  1 

CAF 

BITA 

00292 

REF  A LAST  687  33,200A 

0 AIO5  1 

TC 

setrstrt 

SET  RESTART  FLAG 

00295 

ref  5 LAST  67A  33,2005 

0 6051  0 

TC 

FLA31UP 

0030 

33,2006 

OOOAO  0 

OCT 

OOOAD 

POOH  FLAG  ON 

0031 

REF  16  last  687  33,2007 

0 A117  1 

TC 

NEWMnDEX 

start  CONTINGENCy  ORBIT  INSERTION 

0032 

33,2010 

00072  1 

OCT 

72 

0033 

REF  21  LAST  618  33,2011 

3 7761  0 

CAF 

Four 

signal  start  of  mission  PHASE  A 

003A 

REF  7 LAST  68?  33,2012 

5A  76A  0 

TS 

phasfnum 

0035 

REF  9 LAST  69A  33,2013 

0 6067  0 

TC 

FLAG) DWN 

terminate  aveg  and  do  auto  avetomid 

0036 

33,201A 

00001  0 

OCT 

I 

0037  33,2015  0 OOOA  0 INHiNT 
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L 

MP9-C3NTIN5ENCY  ORBIT  INSERTION 

USER'S  OWN  PAOE  NO.  2 S3  E9 

REF 

52  LASTL^aS 

33.7016 

9 776^1  1 

:af 

BIT! 

0039 

REF 

33  LAST  689 

33.2017 

0 5663  1 

tc 

,JAITI  1ST 

short  waitlist  to  initialize  lm7  command 

0090 

REF 

58  LAST  696 

E9 

eban<= 

TOEC 

0041 

33.7020 

_J)2D23  -L 

C0091 

ref 

1 

33.2021 

66064  0 

0092 

REF 

72  LAST  695 

33.2022 

1 5567  1 

TCF 

ENDDFJOB 

END  MP9J0B 

R0093 

RCS 

A30RT  PRESSURIZATION  ROUTINE 

0044 

REF 

222  LAST  690 

- 33i2Q23 

3 7767  0 

a3ortprr 

CAF 

2ES0  - 

INSURE  RCS  Jets  off 

00999 

33.2029 

0 0006  1 

extend 

00996 

33.2025 

01  006  0 

/YRITE 

6 

0095 

33,2026 

0 0006  1 

EXT£ND 

0096 

33,2027 

01  005  0 

,/RITE 

5 

0047 

REF 

91  LAST  696 

33,2030 

0 4161  0 

JlC 

_PHASrHNS 

0098 

33,2031 

97012  1 

OCT 

97017 

0099 

33,2032 

00199  0 

OEC 

100 

0050 

REF 

59  LAST  69/ 

E4- 

EBANZs 

TDFr 

0051 

33,2033 

02037  1 

2CADR 

OPESyS 

C0051 

REF 

1 

33,2039 

66069  0 

0052 

REF 

39  LAST  699 

33,2035 

0 5701  1 

TC 

FIXOELAY 

0053 

33,2036 

00199  0 

OEC 

100 

delay  one  second 

0059 

REF 

7 last  693 

33,2037 

0 5073  0 

oPesys 

rC  . 

2LMP+DT 

0055 

33,2090 

00279  0 

OEC 

188 

RCS  MAIN  S/0  VALVES,  SYS  A-OPEN»» 

0056  • 

33,2091 

00276  1 

OEC 

190 

RCS  MAIN  S/0  VALVES,  SYS  B-OPEN»» 

0057 

33,2092 

00199  0 

OEC 

100 

delay  one  second 

0058 

REF 

16  last  699 

33,2093 

0 5101  1 

TC 

1LMP*DT 

0059 

33  *2044 

00009  0 

OEC 

4 

ED  BATTERY  ACT  1 VAT  I ON-ON 

0060 

33  t2045 

00199  0 

OEC 

100 

delay  one  SECOND 

0061 

ref 

8 LAST  697 

33.2096 

0 5073  0 

TC 

2LMP*DT 

0062 

33,2097 

00275  1 

OEC 

189 

RCS  MAIN  S/0  VALVES,  SYS  A-OPEN  RESET 

0063 

33,2050 

00277  0 

OEC 

191 

RCS  MAIN  S/0  VALVES,  SYS  B-OPEN  RESET 

0069 

33,2051 

00199  0 

OEC 

100 

DELAY  ONE  SECOND 

0065 

REF 

17  LAST  697 

33,2052 

0 5101  1 

TC 

1LMP*DT 

0066 

33.2053 

00006  1 

OEC 

6 

RCS  PRESSURE-FIRE** 

0067 

33*2054 

00199  0 

OEC 

loo 

DELAY  ONE  SECOND 

0068 

REF 

18  LAST  697 

. 33,2055 

0 5101  L_ 

TC 

1 LMP..DT 

0069 

33,2056 

00005  1 

OEC 

5 

ED  BATTERY  ACTIVATION-SAFE 

0070 

33,2057 

00199  0 

OEC 

100 

delay  one  second 

0071 

REF 

19  LAST  697 

33,2060 

0 5101  I 

TC 

1LMP*DT 

0072 

33,2061 

00007  0 

OEC 

7 

RCS  PRESSURE  - FIRE  RESeT 

0073 

33,2062 

00620  0 

OEC  .. 

900 

delay  four  Seconds 
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L 

R007A 

mpa-contingency  orbit  insertion 
fnd  rcs  abort  pressurization  ROUTINF 

user*s  Own  page  no.  3 53  E4 

0075 

0076 

REF 

REp- 

21  LAST  68R 
26  LAST  688 

33,2063 

33.206A 

3 0075  0 
7 7747  0 

TJMBLCH< 

CA 

MASK 

FLftowRDl 

0077 

33,2065 

0 0006  1 

EXTEND 

0078 

REF 

1 

33,2066 

1 2077  1 

3ZF 

NOTJMBL 

0079 

REF 

A2 

LAST  69'^ 

33.2067 

0 A161  0 

TC 

PHASCHNG 

0080 

33,2070 

A7012  1 

DCT 

47012 

0081 

33,2071 

00062  0 

DEC  ■ 

_50 

0082 

REF 

60 

LAST  697 

E4 

eban<= 

TDEC 

0083 

33,2072 

02063  0 

2CADR 

TUM3I  CHK 

C0083 

1 

33,2073 

66064  0 

008A 

REF 

35 

LAST  697 

33,2074 

0 5701  1 

TC 

FIXDELAY 

0085 

33,2075 

00062  0 

DEC 

50 

Delay  ,5  secs  and  check  again 

0086 

REF 

2 

LAST  698 

33,2076 

1 2063  1 

TCF 

TJM3LCHK_  _ 

0087 

REF 

10 

last  695 

• 33,2077 

0 6067  0 

ndtumbl 

tc 

FLAGi DWN 

IF  NO  TUMBLING-teRMINATE  MONITOR 

0088 

. 3.3j210Q 

20000  0 

DCT  - - 

20000  . 

terminate  TUMBl E MONITOR 

0091 

33,2101 

0 0006  1 

TIG4-51 

EXTEND 

0092 

REF 

2A 

LAST  68° 

33,Z102 

3 0025  0 

DCA 

TIME2 

GET  CURRENT  TIME 

0093 

REF 

6 

LAST  67 

33,2103 

53*305  1 

DXCH 

TDECtEMP 

OO9A 

rEf 

1_ 

_33j2L04 

_3  2613  _1_  _ 

_02_LCFIC 

_ __UPX)ATE-_SIAJE  JO  TLG4-30  _ 

0095 

REF 

U1 

LAST  682 

33,2105 

54  001  1 

rs 

L 

0096 

REF 

223 

LAST  697 

33,2106 

3 7767  0 

CAF 

ZERO 

0097 

REF 

7 

LAST  698 

33,2107 

21*305  1 

DAS 

TDECTEMP 

0098 

33,2110 

0 0006  1 

extend 

0099 

REF 

8 

LAST  698 

33,2111 

3 1305  0 

DCA 

TDECTEMP 

0100 

REF 

2 

LAST  33t> 

33,2112 

53*670  0 

DXCH 

TIGN 

0101 

ref 

1- 

33,2113 

3 2614  0 

CAF 

O3OCFK 

0102 

REF 

U2 

LAST  698 

33.2114 

56  001  0 

XCH 

L 

0103 

REF 

22A 

LAST  698 

33,2115 

3 7767  0 

CAF 

ZERO 

OlOA 

REF 

3 

LAST  698 

33,2116 

21*670  0 

DAS 

TIGN 

FOR  DOWNLINK  USE  - NOMINAL  TIGN 

ROIO5 

BEGIN  ABORT  LEM/S4B 

SEPARATION  PROCEDURE 

0106 

REF 

22 

LAST  698 

33,2117 

4 0075  1 

M34SEP 

cs 

FLAowRDl 

0107 

REF 

AO 

LAST  696 

33,2120 

7 7760  0 

*1AS< 

3IT4 

0108 

REF 

23 

LAST  698 

33,2121 

26  075  1 

ADS 

FLAowRDl 

0109 

REF 

1 

33,2122 

3 2615  1 

CAF 

XTRANSQN 

♦X  TRANSLATION-  ON  (PRE-DAP) 

0110 

33,2123 

0 0006  1 

EXTEnD 

0111 

33,2124 

01  005  0 

^RITE 

5 

0112 

REF 

A2 

LAST  69A 

33,2125 

0 5270  1 

TC 

lBN<rALL 

+X  TRANSLAT ION-ON  (4JET) 

0113 

ref 

3 

LAST  693 

33,2126 

40062  1 

CADR 

JLLAr,E 

OllA  REF  20  LAST  69T 


33,2127  0 5101  1 


rc 


ILMP+DT 
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0115 

33jZI30_ 

0.QD72  1 

-LEM/SIVB  SEPARATE..-  ARM  ON 

0116 

33.2131 

00062  0 

3EC 

50 

DELAY  500  MS, 

0117 

REF 

55 

LAST 

688 

_ 33.2132 

4 0077  0 

2S 

DAPBnOLS 

0118 

REF 

7 

LAST 

688 

33,2133 

7 7751  1 

MA5< 

oOOApGO 

TURN  ON  the  dap 

0119 

REF 

56 

LAST 

699 

33.213A 

26  077  0 

ADS 

DAPBnOLS 

0120 

REF 

A3 

LAST 

698 

33,2135 

0 5270  1 

TC 

IBN<CALL 

0121 

REF 

5 

LAST 

69A 

33,2136 

■ 40054  1 

CAOR 

SETMAXDB 

0122 

REF 

A3 

LAST 

698 

33.2137 

0 4161  0 

TC 

PHASCHNG 

0123 

33,21A0 

47012  1 

DCT 

A7012 

• 01235 

33,7141 

nnnA?  n 

3Fr 

30 

012A 

REF 

61 

LAST 

698 

E4 

EBAN<- 

TDEC 

0125 

33,2142 

02146  0 

2CA0R 

MPaHoLD 

C0125 

REF 

1 

33,2143 

66064  0 

0126 

REF 

36 

last 

698 

33,2144 

0 5701  1 

TC 

FIXDELAY 

WAIT  FOR  300  MS. 

0127 

33,2145 

00062  0 

3EC 

50 

DELAY  500  MS. 

0128 

REF 

AA 

LAST 

699 

33,2146 

0 5270  1 

M=4H0L3 

TC 

IBNCrALL 

0129 

REF 

2 

LAST 

A76 

■ 33,2147 

40072  0 

:adr 

HOLDRATE 

0130 

REF 

21 

LAST 

698 

33,2150 

0 5101  1 

TC 

ILMP.DT 

0131 

33,2151 

00132  1 

5EC 

90 

LEM/SIVB  SEPARATE-  COMMAND 

0132 

33,2152 

00012  1 

OEX  ^ 

10  . . 

delay  100  MS. 

0133 

REF 

A5 

LAST 

699 

33,2153 

0 5270  1 

TC 

IBNXrALL 

013A 

REF 

A 

LAST. 

690 

33,2154 

40046  1 

:adr 

SETMINDB 

0135. 

REF 

AA 

LAST 

699 

33,2155 

0 4161  0 

TC 

PHAsrHNG 

0136 

33,2156 

47012  1 

DCT 

47012 

0137 

33,2157 

00132  1 

DEC 

90 

0138 

REF 

62 

LAST 

699 

E4 

EBAN<= 

TDEC 

0139 

33,2160 

02164  0 

2CA0R 

T1GA_49 

C0139 

ref 

1 

33,2161 

66064  0 

OlAO 

REF 

37 

LAST 

699 

33,2162 

0 5701  1 

TC 

FIXDFLAY 

OlAl 

33,2163  . 

00132  1 

DEC 

90 

DELAY  900  MS, 

01A2 

REF 

22 

LAST 

699 

33,2164 

0 5101  1 

T lC)^-49 

rc 

ILMP.DT 

01A5 

33,2165 

00073  0 

DEC 

59 

LEM/S4B  separate-arm-off 

OlAA 

33,2166 

00144  0 

DEC 

100 

delay  one  second 

01A5 

REF 

LAST 

682 

33,21.67^. 

0 5060  1 

TIG4-4B 

TC 

LLMP 

01A6 

33,2170 

00133  0 

DEC 

91 

LEM/S4B  separate-command  reset 

R01A7 

ENO 

LEM/SAB  SEPARATI3N  ROUTINE 

01A8 

REF 

1 

33,2171 

3 2612  0 

CAF 

007CPK 

01A9 

REF 

3A 

LAST 

697 

33,2172 

0 5663  J 

TC 

wAITl  1ST 

0150 

REF 

63 

LAST 

699 

E4 

eban<= 

TDEC 

633A36A 

YUL 

SYSTEM  FOR  ^gc: 

REVISION 

0 OF  PROGRAM  BURST120  BY  NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  7OO 

L 

MP4- 

■contingency  orbit  insertion 

user's  own  PACjE  NO.  5 S3  E4 

0l5l 

33.2173 

02351 

1 

2£ADfi-,. 

T154-41 

C0151 

ref 

2 LAST 

64 

33,2174 

66064 

0 

0152 

REF 

13  LAST 

695 

33,2175 

0 4141 

1 

rc 

2PHSCHNG 

0153 

3332IJ6 

401.52- 

0 

-OCT 

.40X52 

TABLES  RESTART  FOR  TIG4-41 

015A 

33,2177 

05014 

1 

OCT 

05014 

0155 

33,2200 

77777 

0 

OCT 

77777 

0156 

REF 

5 last 

683 

33,2201 

3 5651 

0 

CAF 

PR10?7 

START  NEW  JOB  FOR  CALCULATIONS 

0157 

REF 

16  LAST 

69l 

33,2202 

0 5516 

0 

rc 

FlNOwAC 

015B 

REF 

64  LAST 

699  . 



cBAN<= 

TPEC  . - 

0159 

33,2203 

02206 

1 

2CADR 

LONoJOB 

C0159 

REF 

1 

33,2204 

66064 

0 

0150 

REF 

69  last 

695 

33,2205 

1 5J727 

1 

T-CF 

TASCOVER 

END  TIG4-48  TASK 

0161 

REF 

•58  last 

685 

33*2206 

0 6112 

0 

L0NGJO3  tC 

intpret 

Set  integrsw  so  that  tHe  third  testldop 

0162 

33,2207 

J7414 

0 

- SET_ 

Exit 

Of  MIdTOAvE  wIlL  generate  IgN+23  states 

0163 

REF 

1 

33,2210 

02072 

0 

iNTEr.RSW 

instead  of  ignition  states. 

01631 

J2L,  2211 

0-0006 

-1 

=X_T£.ND 

-RESET-  TOeC  In  case  of  A-RESXASL- 

01632 

REF 

9 LAST 

698 

33,2212 

3 1305 

0 

OCA 

TDECtEMP 

01633 

REF 

65  LAST 

700 

33,2213 

53,567 

0 

OXCH 

TOEC 

0164 

33,2214 

0 0006 

1 

EXTEND 

0165 

ref 

1 

33,2215 

3 2654 

1 

OCA 

ORBInTAd 

DO  orbital  integration 

0166 

REF 

20  LAST 

695 

33,2216 

52  006 

0 

OXCH 

7 

01665 

REF 

46  LAST 

699 

33,2217 

0 4161 

0 

TC 

PHASCHNG 

01667 

33,2220 

05024 

1 

OCT 

05024 

01669 

35,2221 

27OOO 

1 

OCT 

2700n 

0167 

REF 

1 

33x2222 

- 3 2661 

1 

PRECOl  CAF 

<ALC4AD 

0168 

REF 

1 

33,2223 

55*450 

0 

TS 

ASCRET 

0169 

REF 

59  LAsT 

700 

33,2224 

0 6112 

0 

rc 

intpret 

0170 

33,2225 

77624 

1 

call 

0171 

REF 

1 

33,2226 

60436 

0 

VPATCHER 

RESCaLE  and  load  IGN  states  in  RN  and  VN 

01712 

33,2227 

77776 

1 

EXIT 

01713 

REF 

46  LAST 

700 

33,2230 

0 4161 

0 

rc 

PHASrHNG 

BECAUSE  PAXISl  6 QAXIS  TIME-SHArE 

01714 

33,2231 

04024 

0 

OCT 

O4O2I 

locations  with  RN  6 VN. 

01715 

REF 

60  LAST 

700 

33,2232 

0 6112 

0 

rc 

INTPRET 

0172 

33,2233 

77775 

1 

VLOAO 

0173 

REF 

6 LAST 

685 

33,2234 

01017 

0 

VN 

VN  from  VPATCHER=VIGNTI0N»2 (-7)  M/CS 

0174 

33,2235 

53435 

0 

vxv 

JNIT 

0175 

REF 

4 LAST 

337 

33,2236 

01011 

0 

rn 

RN  FROM  VPATCHERsRIGNTI0N»2 (N-29)  M 

0176 

REF 

1 

33,2237 

26007 

1 

STOVL 

OAXIS 

UNIT  HORIZONTAL  VECTOR  NORMAL  TO'  ORBIT 

0177 

REF 

1 

33,2240 

01033 

0 

JNITR 

UNITR  FROM  AVEG=UNI T (R IGNT ION) »2 ( - 1 ) M 

0178 

REF 

1 

33,2241 

02001 

1 

STORE 

PAXUI 

0179 

33,2242 

76435 

1 

VXV 

VSLl 

0180  REF  Z LAST  700  33.22A3  02007  1 OAXls 


633i»36A  YUL  SYSTEM  FOR  AGCi  REVISION  0 OF  PROGRAM  BURSTlZO  3Y  NASA  202110iS-031 


DEC  7,  1967  (MAIN)  PAGE  701 


L MPA-C3nTINGEnCY  ORBIT  INSERTION  USER'S  OWN  PAGE  NO,  6 S3  EA 


nipi 

REF 

1 

J3i2Z'tA_ 

^6015 

1. 

-SI3VL 

__SAXIS 

UN.It  H0RI2.QJNIAL  VECTOR  PARALLEL  TO  ORBIT 

0182 

REF 

1 

33.22A5 

26617 

0 

ABLOrK 

0183 

REF 

1 

33,2296 

26023 

1 

STOVL 

at 

018^ 

REF 

1 

3Jji22A7 

26625 

1 

BoLDrK  - . 

0185 

REF 

4 

LAST 

39 

33,2250 

26031 

1 

STOVL 

atmfas 

0186 

REF 

1 

33,2251 

26693 

1 

CBLnCH 

0187 

REF 

1 

3.3t2252_ 

__  16091 

0 

STOOL 

ROOIO.  _ .. 

RDOTO,  YDOTD.  ZDOTO  FIXED  LATER^ 

0188 

REF 

1 

33,2253 

26635 

0 

<R1F9T 

0189 

REF 

1 

33,2259 

16037 

1 

stool 

<Rl 

LOAD  attitude  LIMITING  PARAMETER 

0190 

REF 

1 

33,2255 

1 

TGOFcT 

0191 

REF 

1 

33,2256 

16191 

1 

STOOL 

T oO 

0192 

REF 

1 

33,2257 

.03572 

1 

YTO-OPS 

0193 

REF 

1 

33,2260 

. J6057 

1 

STOOL 

YTO.  . 

LOAD  DPS  tAILOFF  VELOCITY  FOR  ASCENT 

019A 

REF 

1 

33,2261 

03936 

0 

RINJfCT 

0195 

REF 

2 

LAST 

326 

33,2262 

16375 

1 

STOOL 

RCO 

LOAD  injection  RADIUS  FOR  ASCENT 

0196 

REF 

1 

03.990 

YINJfCT 

0197 

REF 

1 

33,2269 

16095 

1 

STOOL 

ZDOTri 

LOAD  INJECTION  VELOCITY  FOR  ASCENT 

01971 

REF 

1 

33,2265 

26633 

0 

<REST 

01972 

REF 

1 

Q?Q61 

STORF 

<R 

0198 

33,2267 

77619 

1 

clear 

0199 

ref 

1 

33,2270 

02267 

0 

OIRErT 

0200 

_5D3T5 

0^ 

i/LQAO- 

DOT 

0201 

ref 

2 

LAST 

701 

33,2272 

02015 

1 

SAXIc, 

0202 

ref 

7 

LAST 

700 

33,2273 

01017 

0 

VN 

ZD0Tw2 (-8) 

0203 

33j2279 

77752 

1 

SLl 

. . x2 (-7)  - 

020A 

REF 

1 

33,2275 

26105 

1 

STOYL 

7D0T 

0205 

REF 

2 

LAST 

700 

33,2276 

02001 

1 

PAXI Al 

0206 

33,2277 

72991 

0 

OOT 

SLl 

RD0T»2 (-H) 

0207 

REF 

8 

last 

701 

33,2300 

01017 

0 

VN 

»2(-7) 

0208 

REF 

1 

33,2301 

16197 

1 

STOOL 

ROOT 

0209 

REF 

1 

33,2302 

26693 

L 

DPO 

0210 

REF 

1 

33,2303 

02067 

1 

STORE 

YDOT 

YDOT  = 0 

0211 

33,2309 

52019 

0 

SET 

GDTO 

0212 

REF 

1 

33,2305 

02066 

0 

^Tfl9  _ 

0213 

REF 

1 

33,2306 

69125 

0 

ASCENT 

GO  TO  USE  GEFF  SECTION  OF  ASCENT 

021A 

33,2307 

77792 

0 

gfknown 

SRI 

LET  AVG  GEFF  = .5  GEFF 

0215 

REF 

1 

33.2310 

02111 

1 

STORE 

GEFF 

0216 

33,2311 

77650 

1 

SOTO 

0217 

ref 

1 

33,2312 

69909 

0 

Gain 

0218 

33,2313 

93395 

1 

T<NOWN 

oloaq_ 

O.AD 

0219 

ref 

2 

LAST 

701 

33,2319 

02091 

0 

RDOTn 

0220 

REF 

2 

last 

701 

33,2315 

02197 

1 

ROOT 

(RD0T+RD0T0)*2(-7) 

0221 

33,2316 

91392 

1 

SRI 

OMP 

,5RD0TAVL*2  (-7) 

0222 

ref 

2 

LAST 

701 

33,2317 

02191 

1 

TGO 

RG0*2 (-29) , SINCE  TGO  IS  *2(-17) 

0223 

33,2320 

70915 

0 

OAO 

SRI 

RFREE  IS  RCO  FOR  NO  R-CONTROL, »? ( -29 ) 

022A 

ref 

1 

33,2321 

01097 

0 

RMAG' 

»2(-25) 

0225 

33,2322 

51025 

1 

OSJ 

BPL 

0226 

REF 

3 

LAST 

701 

33,2323 

02375 

1 

RCO 

0227 

REF 

1 

33,2329 

66330 

1 

FREE  'R 

0228 

33,2325 

52019 

0 

CLEAR 

GOTO 

IF  RFREE  SMTHAN  RCO,  CONSTRAIN  RCO 
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0229 

REF 

1 

33,2326 

02271  1 

^jis: ^ 

0230 

REF 

2 

LAST  701 

33,2327 

64125  0 

ascent 

0231 

33,2330 

52014  0 

FREE-R 

SET 

GOTO 

0232 

REF 

2 

LAST  702 

33,233-1- 

- 02071  0 

He 

IF  RFREE  GRTHAn  RCO,  FREE  RCO 

0233 

ref 

3 

LAST  702 

33,2332 

64125  0 

ascent 

023A 

33,2333. 

43175  0 

PREKALC4 

YLOAO 

clear 

0235 

ref 

1 

33,2334 

02233  1 

AXIsn 

0236 

ref 

1 

33,2335 

02273  0 

ENGOFFSW 

TO  AVOID  multiple  ENGINOFF  COMMANDS 

0237 

REF 

2 

LAST  645 

33,2336 

25656  0 

STOYL 

POINtVSM 

KALCMANU  INPUT  REGISTER 

0238 

REF 

1 

33,2337 

- -266-41-  0 

300YVECT 

LOAD  BODY  AXES  VECTOR  IN  SM  C007DS 

0239 

REF 

5 

LAST  645 

33,2340 

01664  1 

STORE 

SCAXIS 

KALCMANU  INPUT  VECTOR 

02A0 

33,2341 

66214  0 

SET 

SSP 

02A1 

33.2342 

01063  0 

33D 

02a2 

REF 

3 

LAST  666 

33,2343 

01653  0 

RATETNDX 

02a3  • 

33,2344 

00006  1 

6 

10  degree/Sec  maneuvering  Rate 

02AA 

33,2345 

77776  1 

EXIT 

02A43 

REF 

'■*7 

LAST  ZOO 

_3_3  *23A6- 

jQ_  4L61  0 

rc 

PHAACHNG 

02445 

33,2347 

00004  0 

OCT 

00004 

deactivate  GR  4 

02A5  REF  73  ,LA5X  691 33,23-5°  1 5567  -1 --  - TCF ENDOfJO.B  _ END,  L0NGJ0B_ 


0246 

0247 

REF  1 

ref  11 

LAST 

683 

33.2351 

33.2352 

3 2646 
55<310 

1 

0 

T I64"41 

CAF 
T-S 

avgenadr 

DV-S£lECT 

genadr  of  AVERAGEG 

0248 

33,2353 

0 0006 

1 

EXTEND 

0249 

REF 

1 

33,2354 

3 2652 

1 

DCA 

EXITADR 

SET  AVEG  TO  EXIT  TO  END  OF  JOB  JNtIL 

0250 

REF 

6 

LAST 

675 

33,2355 

53*073 

0 

DXCH 

AVGexIT 

IT  IS  reset  to  atmag 

0251 

33,2356 

0 0006 

1 

extend 

0252 

REF 

1 

33,2357 

3 2650 

0 

DCA 

MP4TM1AD 

SET  MONITOR  ExH 

0253 

REF 

. 5 

LAST 

675 

33,2360 

53*075 

0 

DXCH 

OvMNEXIT 

0254 

REF 

23 

LAST 

699 

33,2361 

0 5101 

1 

re 

ILMP+DT 

0255 

33,2362 

00004 

0 

DEC 

4 

Ed  battery  AcTlVATION-ON 

0256 

33,2363 

00620 

0 

DEC 

400 

delay  4 SECONDS 

0257 

REF 

46 

last 

699 

33,2364 

0 5270 

1 

TIG4-37 

re 

lBN<rALL 

♦X  TRANSLATION-  OFF 

0258 

REF 

4 

LAST 

693 

33,2365 

40066 

0 

CADR 

NOJLl  AGE 

0259 

REF 

47 

LAST 

702 

33,2366 

0 5270 

1 

re 

IBNKCALL 

0260 

REF 

6 

LAST 

690 

33,2367 

40114 

1 

CADR 

STOPRATE 

HOLD  VEHICLE  ATTITUDE 

0261 

REF 

48 

LAST 

702 

33,2370 

0 4161 

0 

re 

PHASCHNG 

0262 

33,2371 

47012 

1 

Dcr 

47012 

0263 

33,2372 

00144 

0 

DEC 

100 

0264 

REF 

S6 

LAST 

700 

E4 

EBAN<: 

: TDEC 

0265 

33,2373 

02377 

0 

2CADR 

^ I 

C0265 

REF 

1 

33,2374 

66064 

0 

633i>36A 


0266 

0267 

0268 
0269 


0270 

0271 

0272 

0273 
C0273 

0279 

0275 

0276 
02765 

0277 

0278 

0279 

0280 
C0280 

0281 

0282 

0263 

0289 

0285 
C0285 

0286 

0287 

0288 
0289 

0291 

0292 

0293 

0299 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 
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RtF 

38 

LAST 

699 

13j_2375. 

__0.5701  1 

Ji.  _ -_FiX3ELAY-  _ 

33.2376 

00199  0 

DEC 

100 

delay  ONE  SECOND 

REF 

5 

LAST 

699 

33,2377 

0_5060_a 

TiG9-36 

rC 

ILM? 

33.2900 

00010  0 

OEC 

8 

LANDING  gear  DEPLOY-FIRE 

REF 

] 

yfsQfs  CL  

CAf  ^ 

QQprpK 

REF 

35 

LAST 

699 

33,2902 

0 5663  1 

rc 

WAiri  1ST 

REF 

67 

LAST 

702 

E9 

EBAN<= 

TDEC 

2CAD5. 

UG9.3A  - 

ref 

2 

LAST 

6^ 

33,2909 

66069  0 

REF 

19 

LAST 

700 

33,2905 

0 9191  1 

TC 

2PHSrHNG 

33.2906 

90172  1 

OCT 

A0175 

33,2907 

05013  0 

OCT 

0501  3 

GR  3 FOR  KALCMANU 

33,2910 

77777  0 

OCT 

77777 

REF 

5 

last 

311 

33,2911 

3 5692  1 

CAF 

PRI016 

CALL  KALCMANU. 

REF 

17 

LAST 

700 

33,2912 

0 5516  0 

rc 

FINOv/AC 

REF 

20 

LAST 

668 

E3 

eban<= 

MIS  

33,2913 

02001  1 

2CADR 

VECSnINT 

REF 

1 

33,2919 

70063  0 

REF 

70 

LAST 

700 

33,2915 

1 5727  1 

TCF 

TASCOVER 

END  TIG9-36  TASK 

REF 

1 

33,2916 

3 2610  1 

TIG9-39 

CAF 

009CFK 

SET  PREREAD  CALL  (AUTO  LASTBIAS) 

REF 

36 

LAsT 

703 

33,2917 

0 5663  1 

TC 

WAIT! I5T 

REF 

3 

LAST 

69 

E5 

fBAN<= 

OvTOTAL 

33,2920 

02000  0 

ZCADR 

PRERFAO 

ref 

5 

LAST 

6_9, 

33.2921 

^00A5 

REF 

15 

LAST 

703 

33,2922 

0 9191  1 

rc 

2PHSCHNG 

33,2923 

90275  0 

OCT 

90275 

5.27  SPOT  FOR  PREREAD 

33,2929 

05012  1 

OCT 

05012 

GR  2 CONTINUES  HERE 

33,2925 

77777  0 

OCT 

77777 

REF 

29 

LAST 

702 

33,2926 

0 5101  1 

rc 

ILMP+DT 

33,2927 

00011  1 

OEC 

9 

LANDING  GEAR  DEPLOY-  FIRE  RESET 

33,2930 

00622  1 

OEC 

902 

DELAY  9 SECONDS 

REF 

98 

LAST 

702 

33,2931 

0 5270  1 

TIG9-30 

rc 

IBN<rALL 

REF 

3 

LAST 

689 

33,2932 

90277  1 

cadr 

ENGINOFl 

REF 

9 

LAST 

697 

33,2933 

0 5073  0 

rc 

2LMP+DT 

33,2939 

00226  1 

OEC 

150 

Engine  select-  oesc  arm 

33,2935 

00126  1 

OEC 

86 

MANUAL  throttle-  ON  JO  PERCENT 

33,2936 

02566  0 

OEC 

1398 

delay  19  SECONDS 

REF 

10 

LAST 

703 

33,2937 

0 5073  0 

TIG9-16 

rc 

2LMB.DT 

33,2990 

00399  1 

OEC 

228 

DPS  POGS  ARM  NO  1 - ENABLE 

33,2991 

00309  0 

OEC 

l96 

DPS  PQGS  ARM  NO  2-  ENABLE 

33,2992 

00199  0 

OEC 

100 

633436A  YUL  SYSTEM  FOR  A&C:  REVISION  0 OF  PROGRA'1  BURSTlED  BY  NASA  2021106-031 


DEC  7»  1967  (MAIN)  PAGE  7OA 


L 

MPA 

-contingency 

ORBIT  insertion 

USER’S  OWN  page  nO.  9 S3  E4 

030A 

REF 

11 

LAST 

703 

33.2AA3 

_.  0.  .5  0.73  0 _ 

TJ.G4^a5__-rc 

2LYLP*D_T  

0305 

33  f 2444 

00364  0 

DEC 

244 

DPS  PQGS  NO  1-  ON 

0306 

33,2AA5 

00324  1 

OEC 

212 

DPS  PQGS  NO  2-  ON 

0307 

33.2AA6 

01356  0 

_ . _OEC 

75_0  _ 

delay  7.5  SECONDS 

0310 

REF 

A9 

LAST 

703 

33.2AA7 

0 5270  1 

TIG4-7.5  TC 

IBNCrALL 

♦X  translation-  on 

0311 

REF 

LAST 

698 

33,24.50 

. 40062  1 

. C&fiS 

JLLAfiE 

0312 

REF 

A9 

LAST 

702 

33,2A5l 

0 4161  0 

TC 

PHASrHNG 

0313 

33,24^5.2 

47012  1 

OCT 

47012 

031A 

33,2453 

01356  0 

OEC 

75O 

0315 

REF 

68 

LAST 

703 

E4 

?BAN<= 

TDEC 

0316 

33,2454 

02460  1 

-2CADR 

JLLi-4XSI 

C0316 

ref 

1 

33,2455 

66064  0 

0317 

REF 

39 

LAST 

703 

33,2456 

0 5701  1 

TC 

FIXOfLAY 

0318 

33,2457 

01356  0 

OEC 

750 

delay  .7.5  -SECONDS 

0319, 

REF 

3 

LAST 

68P 

33,2460 

3 5643  0 

TIG4TST  CAF 

PRIO17 

0320 

REF 

21 

last 

695 

33  »246l 

0 5505  1 

TC 

NOVAr 

0321 

REF 

69 

LAST 

70A 

E4 

EBAN<= 

TDEC 

0322 

33,2462 

02465  1 

2CADR 

IGNTFST 

C03JE2 

ref 

1 

33.2463 

66064  0 

0323 

REF 

71 

LAST 

703 

33,2464 

1 5727  1 

TCF 

TASCnVER 

0326 

REF 

122 

LAST 

A7I 

33,2465 

Q 52-06  0 

loNTEST  rC 

BANXCALL 

WAIT  UNTIL  Maneuver  is  finished 

0327 

ref 

1 

33,2466 

26743  0 

:aqr 

ATTsTALL 

0328 

REF 

1 

33,2467 

0 4743  0 

TC 

CURTAINS 

0329 

33,2470 

0 0004  0 

M=4IGN  inhint 

0330 

REF 

50 

LAST 

70A 

33,2471 

0 5270  1 

TC 

IBN<CALL 

0331 

REF 

3 

LAST 

69l 

33,2472 

40226  0 

CAOR 

DP5FNG0N 

0332 

REF 

1 

33,2473 

3 2607  1 

CAF 

003CEK 

0333 

REF 

37 

LAST 

703 

33,2474 

0 5663  1 

TC 

^AITI  1ST 

033A 

REF 

70 

LAST 

70A 

E4 

£BAN<= 

TDEC 

0335 

33,2475 

02506  0 

2CADR 

MP41r.N  + 3 

C0335 

ref 

1 

33,2476 

66064  0 

0336 

REF 

16 

last 

703 

33,2477 

0 4141  1 

TC 

2PHSrHNG 

03365 

33,2500 

00003  1 

OCT 

0000? 

0337 

33,2501 

47012  1 

OCT 

47017 

0338 

33,2502 

00454  1 

OEC 

300 

, 0339 

REF 

71 

LAST 

70A 

E4 

EBAN<= 

TDEC 

03A0 

33.2503 

02506  0 

2CADR 

MP4Ir,N  + 3 

C03A0 

ref 

2 

LAST 

70A 

33,2504 

66064  0 

03A1 

REF 

7A 

LAST 

702 

33,2505 

1 5567  1 

TCF 

ENOOFJOB 

03A2 

REF 

5I 

last 

7OA 

33,2506 

0 527O  1 

MP4IGN+3  TC 

IBNCrALL 

♦X  translation-  off 

03A3 

REF 

5 

LAsT 

70i^ 

33,2507 

40066  0 

CAqR 

NOJli  AGE 

03AA  REF  26  LAST  703 


33t2510  0 5101  1 


TC 


1LMP*0T 


533<>36A  YUL  SYSTEM  FOR  AGC:  TEVISION-  0 OF  PROGRAM  BURSTIZ:  BY  NASA  2n2110fe-031 


DEC  7,  1967  (MAIN)  PAGE  70S 


L 

MPa- 

contingency  I 

DRBiT  insertion 

USER'S  OWN  page  nO.  10  S3  EA 

33»25ll 

-00005 

-DLjC 

. FD  BATTFRY_  ACT  IVAT  IQN.  SAFF 

03A6 

33,2512 

0A37A  0 

3EC 

2300 

DELAY  23  SECONDS 

03<*7 

REF 

39 

LAST 

6 95 

^33,2513 

3'  77A3  - 0 

MAXTHRST 

CAF  _ 

PDSMaX 

CALL  FOR  92.5  PERCENT  THRUST 

03A8 

REF 

2 

LAST 

695 

33.251a 

55'323  0 

TS 

PCiNTF 

03a9 

33,2515 

0 0006  1 

EXTEND 

0350 

ref 

1 

33j2516 

3 2656  0 

dca 

PCNTpMAp 

0351 

33,2517 

52  006  0 

i)TCB 

0352 

REF 

17 

LAST 

70A 

33,2520 

0 AlAl  L 

TC 

EPHSrHNG 

PROTECT  CALL  FOR  MAXIMUM  THRUST 

03525 

33,2521 

OOllA  0 

DCT 

OOllA 

0353 

33,2522 

A7012  1 

OCT 

A701? 

035A 

33,2523 

00A5A  1 

3EC 

300 

0355 

REF 

72 

LAST 

70A 

EA 

EBAN<= 

TOEC 

0356 

33,252a 

02530  0 

2CA0R 

sji Dance 

C0356 

REF 

1 

33.2525 

66-Q6A  TL-. 

0357 

REF 

AO 

LAST 

70A 

33,2526 

0 5701  1 

rc 

fixdflay 

0358 

33,2527 

0045^  I 

DEC 

300 

WAIT  3 SECS  BEFORE  CALLING  THRJsT  FILTER 

0359 

33,2530 

0 0006  1 

GJIOANCE 

extend 

TUNE  IN  ascent  GUIDANCE 

0360 

REF 

1 

33,2531 

3 2660  0 

3CA 

ATMAr.A 

0361 

REF 

7 

LAST 

70i! 

33,2532 

53*073  0 

3XCH 

AVGEyIT 

0362 

REF 

1 

33,2533 

3 2662  1 

CAF 

CUJJOBAD 

0363 

REF 

2 

LAST 

700 

33,253A 

55*A50  0 

TS  _ 

ASCRET- 

03635 

REF 

50 

LAST 

70A 

33,2535 

0 A161  0 

TC 

PHASCHNG 

03637 

33,2536 

00002  0 

DCT 

0000.2  ...  . 

deactivate  GR  2 

036A 

REF 

72 

LAST 

70A 

33,2537 

1 5727  1 

TCF 

TASCnVER 

0365 

33,25A0 

0 OOOA  0 

mpatermi 

INHINT 

0366 

ref 

1 

33,25A1 

3 2611  0 

:af 

OOSCcK 

0367 

REF 

38 

LAST 

70A 

33.25A2 

0 5663  1 

TC 

'JAITLIST 

0368 

REF 

73 

LAST 

705 

EA 

eban<= 

TDEC 

0369 

33.25A3 

0255A  1 

2CADR 

TCD  + <; 

C0369 

ref 

1 

33,25AA 

6606A  0 

0370 

REF 

51 

LAST 

705 

33.25A5 

0 A161  0 

TC 

PHASrHNG 

0371 

33.25A6 

A7012  1 

DCT 

A7012 

0372 

33,25A7 

0076A  1 

DEC 

500 

0373 

REF 

7A 

LAST 

705 

EA 

eban<= 

TDEC 

037A 

33,2550 

0255A  1 

2CADR 

TCD  + s 

C037A 

ref 

2 

LAST 

705 

33,2551 

6606A  0 

0375 

REF 

AO 

LAST 

683 

33,2552 

0 5225  1 

rc 

POST  iUMP 

0376 

REF 

3 

LAST 

68A 

33,2553 

6032A  1 

CADR 

SERYEXIT 

0377 

REF 

12 

last 

70A 

33,255a 

0 5073  0 

TCO  + 5 

TC 

2LMP+DT 

0378 

33,2555 

00227  0 

dec 

151 

ENGINE  SELECT-DEsC  ARM-OFF 

0379 

33,2556 

00127  0 

DEC 

8 7 

MANUAL  throttle-reset  C30  PERCENT) 

0380 

33,2557 

OOIAA  0 

DEC 

100 

delay  one  second 

633436* 

YUL  system  for  *GC : 

REVISION 

0 OF  PROGRAM  BURST 

120  BY 

NASA  2n21106-031 

DEC  7,  1967  (MAIN)  PAGE 

706 

L 

MP4-C0nTINGEnCY  orbit  insertion 

user's  Own  page  no.  ii  s3 

E4 

0381 

REF  52  LAST  J?JP4 

33j_25_6CL 

_D_  52.Z0  L 

lc 

LfiNCrALL  . 

SETL  MAXIMUM  _D£A£BAJiD 

0382 

REF  6 LAST  699 

33.2561 

40054  1 

CAOR 

setmaxdb 

0383 

REF  52  LAST  705^ 

33.21562 

0 4161  0 

TC 

_ Phaschng 

0384 

33.2563 

47012  1 

OCT 

47012 

0385 

33.2564 

01604  1 

OEC 

900 

0386 

REF  75  LAST  706 

E4 

„ sBAM 

= TDEC 

0387 

33.2565 

02571  0 

2CA0R 

TC3+1 5 

C0387 

REF  1 

33.2566 

■ 66064  0 

0388 

REF  41  LAST  705 

33,2567 

0 5X01  1 

rc 

fixoflay 

0389 

33.2570 

01604  1 

OEC 

900 

delay  nine  Seconds 

0390 

REF  13  LAST  705 

33.2571 

0 5073  0 

TG0*15 

rc 

2LMP+0T 

0391 

33.2572 

00365  1 

OEC 

245 

DPS  POGS  NO  1-  OFF 

0392 

33.2573 

00325  0 

OEC 

213 

DPS  POGS  NO  2-  OFF 

0J93 

33.2574 

00144  0 

OEC 

100 

0394 

REF  14  LAST  706 

33.2575 

0 5073  0 

TC 

2LMP*DT 

0395 

^3_»2576 

00346  0 

OEC 

229 

DPS  POGS  ARM  NO  1-  DISABLE 

0396 

33.2577 

00305  1 

OEC 

197 

DPS  POGS  ARM  NO  2-  DISABLE 

0397 

. 33.2600 

02570  1 

OEC 

I4OO 

delay  14  SECONDS 

0398 

REF  a LAST  698 

33.2601 

0 6067  0 

TC 

FLA3{0WN 

terminate  AVeG  and  DO  AUTO  AVETOMID 

0399 

33.2602 

00041  1 

OCT 

OOO41 

ALSO  KNOCK  DOWN  THE  POOH  FLAG 

0402 

REF  53  LAST  706 

33.2603 

0 4161  0 

TC 

PHASCHNG 

DEACTIVATE  GROUP  2 

0403 

33.2604 

00002  0 

OCT 

00002 

' ; . i 'i  ‘-  ' 

0404 

ref  73  LAST  705 

33.2605 

1 5727  1 

TCF 

TASXOVER 

R0405  ■ 

»#»■»»*  IHHUHUHHt* * ** » tHHHUHUHUt * 4 » 

R0406 

TIME  increments  FOR 

waitlists 

IN  MP4  - 

XXXXXCE< 

= DEC 

xxxxxon  cs 

0408 

» » * »nnt  * * *»»««  * )» * »»»»»  8 3 1 a 6 9 4 * 0 8 8 1 8 •»  e # # e 8 g g g A »*»  J g g )t » 4*  g 8 8 » * 

* 4 

0409 

33.2607 

00454  1 

003CEX 

oEC 

300 

0410 

33.2610 

00620  0 

034CE< 

OEC 

400 

0411 

33.2611 

00764  1 

005CE< 

oEC 

500 

■ ' V-: 

0412 

33.2612 

01274  1 

007CE< 

OEC 

700 

0413 

33.2613 

0^8064  1 

021CEK 

OEC 

2100 

0414 

33.2614 

05670  0 

030CE< 

OEC 

3000 

0415  33*2615  00252  1 XTRAMSDNI  oCj  00255  CHANNEL  5 CODE  FOR  4-JET  TRANSUTION 


633<t36A  YUL  SYSTEM  FOK  *GC:  REVISION  0 OF  PROGRAM  6URST123  3Y  NASA  2n21106-03l  DEC  7«  1967  (MAIN)  PASE  707 


L MPa-CDNTINGeNCY  ORBir  insertion  USER'S  OWN  page  no.  12  S3  Ea 

R041®  A 

0418  *»»*»»»»»*»*)nt»»**»»»8*t*»**»**«g8»f»§**A*ltB€K»»it8B8Sit*»8t»»*«8*g*8«B)I»*ANTIClPATE0  INITIAL  ACCELERATION  M/CS/CS 

C0419  33.2617  17610  0 


0420 

33.2620 

07363 

0 

2DEC. 

0.-29Q0  -E+2 

3-7  INITIAL  EXHAUST  VELOCITY  M/C5 

C0A20 

0421 

C0421 

33.2621 

33.2622 
33.2623 

06315 

27501 

.20000- 

0 

0 

J) 

2DEC 

0.9678  E*5 

3-17  ESTIMATED  6URNUP  TIME  IN  CENTISECONDS 

0422 

33,2624 

05202 

1 

33LOCIC 

20EC 

0 • 1 

1/DVl 

C0422 

33,2625 

10056 

0 

0^23 

-33,2626 

05202 

1 

2DEC 

0.1642 

1/DV2 

C0A23 

33,2627 

10056 

0 

04235 

33,2630 

05202 

1 

2DEC 

0.1642 

1/DV3 

C04235 

-0 

0424 

33,2632 

17146 

1 

CREST 

2D£C 

0.4750 

LIMITS  MAXIMUM  PITCH  TO  72  0E5REES 

C0A24 

33,2633 

14632 

0 

0425 

33.2634 

11773 

1 

CRIEST 

2D£C 

0.3U2 

C0425 

33,2635 

02555 

0 

0426 

33,2636 

06065 

1 

TSOEST 

2DEC  , 

25000  B-17 

C0426 

^ 33,2637 

OQOQQ 

_1_ 

0427 

33,2640 

20000 

0 

BDOYVECT 

2DEC 

.5 

C0427 

33,2641 

00000 

1 

0428 

33,2642 

00000 

1 

C3L0CC 

2DEC  • 

0 

RDOTD 

C0428 

33,2643 

00000 

1 

0429 

33,2644 

00000 

1 

2DEC 

0 

YDOTD 

C0429 

33,2645 

00000 

-L_ 

GENAO^&t  EGABRS^-A<4t)-etABRS-USey  


0434 

ref 

2 

LAST 

60*^  33  f 26^6 

0225L  O' 

Av^GENAJR 

3ENA0R  AVERAGES  ^ 

0436 

REF 

76 

last 

706 

E4 

iBAN<=  TDEC 

0437 

33j2i47  _ 

02540  1 

'1P4TM1  AD 

2CADR V1P4TFRM1 

C0437 

ref 

1 

33t2650 

66064  0 

0438 

REF 

77 

LAST 

707 

E4 

iBAN<=  TOEC 

0439 

33.2651 

02324  0 

Ei<llAfiR, 

2CADR SER>/fXIT 

C0439 

REF 

4 

LAST 

70S  33,2652 

60064  0 

0440 

REF 

125 

LAST 

44 

E4 

3BAN<=  AMEvlORY 

0441 

33,2653 

02341  0 

ORBINTAD 

2CA0R  viidxoAVE 

C0441 

REF 

2 

LAST 

684  33,2654 

16064  1 

0442 

REF 

14 

LAST 

695 

E5 

£BAM<=  ETHRnT 

0443 

33,2655 

03466  0 

PCNTFMAD 

2CADR  pCNTfMAX 

C0443 

REF 

2 

LAST 

695  33,2656 

60065  1 

0444 

REF 

78 

LAST 

707 

E4 

EBAN<=  TDEC 

0445 

33,2657 

03005  1 

_ATMA&4. 

2CADR  Aiviftf, 

C0445 

ref 

1 

33,2660 

64064  1 

0448 

REF 

1 

33  *2661 

66333  1 

<ALC4A3 

rCADR  PRE<ALC4 

633i,36A  YUL  SfSTEM  FOR  *00 : REVISION  0 OF  PROGRAM  bURST123  BY  NASA  2021106-031  OEC  7.  1967  (MAIN)  PAGE  708 

L mpa-contingency  oRBir  Insertion  user's  own  page  no.  13  S3  ea 

0AA9  ref  1 33.,2662.  60Z03  0 . OUJOBAD-  -CAaR.__f_LNOr_DUa-  - --  __ 

R0A50  *•«»»»»»•»*»**»»»«»»»»»*«***»*»»»*»»»»**»»»**»»»»»»»»»»****»**»»**»»»»»» 

R0A51  TAsASETR  SUBROUTINE  - SEIS^UP  WAj  TH5TS_  RETER£NCE0._T2U/,ALJ£^_QF  _TD£C  __  _ _ 

A5  »*»»»»**»«»**»*»»«»»»»***»**»*»»***»«**»»»»***»»»»»*»»»»*»»»**»»»*♦»**»» 


m 

REF 

79 

LAST 

503 

— TASKSETR  -|X^^ND 

1 TEMPI 

O'.SS 

REF 

193 

LAST 

598 

33,2665 

59  001 

1 

TS 

L 

0‘*56 

REF 

225 

LAST 

698 

33,2666 

3 7767 

0 

. :af_  _ . 

ZERO  _ - _ - 

O'*?? 

REF 

278 

LAST 

585 

33,2667 

52  195 

0 

3XCH 

MPAC 

O'tSS 

REF 

25 

LAST 

635 

33,2670 

52  069 

1 

3XCH 

1TEMP3 

0'>59 

ref 

226 

last 

708 

33,2671 

_3  7J^_ 

0- 

_ _ CAf  _ 

ZERO  ^ 

0950 

REF 

279 

LAST 

708 

33,2672 

56  196 

1 

<CH 

MPAC  +2 

0951 

REF 

23 

LAST 

580 

33,2673 

59  065 

0 

rs 

1TEMP5 

0952 

33,2679 

0 0006 

_L_ 

^ extend 

0953 

REF 

25 

LAST 

698 

33,2675 

9 0025 

1 

3CS 

TIME? 

0959 

REF 

230 

LAST 

708 

33,2676 

20  195 

0 

3AS 

MPAC 

0955 

REF 

3 

LAST 

692 

33,2577. 

J 775L  _D  - 

, _ :af 

E6ANk9  _ _ 

0955 

REF 

97 

LAST 

692 

33,2700 

56  003 

1 

XCH 

E6ANK 

0957 

REF 

91 

LAST 

630 

33,2701 

59  062 

1 

TS 

1TEMP2 

0<»68 

33,2702 

0 0006 

1 

EXTEND 

0959 

REF 

79 

LAST 

707 

33,2703 

3 1567 

1 

3CA 

TDEC 

0970 

ref 

231 

LAST 

708 

33,2709 

20  195 

0 

5AS 

MPAC 

0971 

REF 

7 

LAST 

361 

33,2705 

0 7327 

0 

TC 

TPASoEE 

0972 

REF 

29 

LAST 

708 

33,2706 

3 0065 

1 

CA 

ITEMP5 

0973 

REF 

232 

LAST 

708 

33,2707 

59  196 

0 

TS 

MPAC  +2 

0979 

REF 

27 

LAST 

708 

33,2710 

52  069 

1 

DXCH  . 

ITEMP3  . _ _ _ _ 

0975  ■ 

REF 

233 

LAST 

708 

33,2711 

52  195 

0 

3XCH 

MPAC 

0975 

33,2712 

0 0006 

1 

EXTEND 

0977 

33,2713 

1 2716 

1 

3ZF 

+ 3 

0978 

REF 

5 

LAST 

309 

33,2719 

0 6000 

1 

TC 

abort 

0979 

33,2715 

00909 

1 

OCT 

0090& 

09B0 

REF 

199 

LAST 

708 

33,2716 

56  001 

0 

XCH 

L 

0961 

33,2717 

0 0006 

1 

EXTEND 

0982 

33,2720 

6 2719 

1 

SZ^IF 

-9 

0983 

' REF 

92 

LAST 

708 

33,2721 

22  062 

0 

.XCH 

1TEMp2_  _ _ _ 

0989 

REF 

98 

LAST 

708 

33,2722 

22  003 

1 

.XCH 

ebank 

0985 

REF 

75 

lAst 

708 

33,2723 

0 0061 

0 

rc 

ITEMPl 

965 

^ 

633436A  YUL  SY&TfM 
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L MISSI3N  PHASf  h CnASr  5IVB  ATTACHfD ^ USER’S  OWN  PAGE  NO.  1 Sj 

ROOOOOl  PROGRAM  DESCRIPTION 

ROC a003 COAST  SIVB  attache? 

R000003  MOD  NO'  1 DATE  - A NOV  66 


ROOOOOA  MOD  BY  - OVERBAUgH 

R000005  functional  description, 

R000006  WH-N  the  DV  MqnITQR,  DETECTS  SIVB  SHUTDOWN  THE  

R000007  thrust  mission  control  program  initiates  MP6. 
Rooooos  DURING  THIS  PHASE  THE  ABORT  COMMAND  MONITOR  AN3 
R000009  TH-  TUMBLF  MONITOR^  ARE  TERMINATED  AND  THE  C-BAND 

RO.0001  XPONDeR  IS  SET  TO  ON*.  WHEN  THRUST  DUE  TO 

ROOOOll  VENTING  BECOMES  NEGLIGIBLE  READING  OF 

ROOOOJi^^  THE  PIPAS  IS  TERMINATED. 

R000013  NORMALI  EXIT  MODES  - 

Rqodqla^^  tc  taskovek 1_ 

R000015  ERASA3LE  INITIALIZATION  REQUIRED 

R000016  MP6T07 ^ 

R000017  OUTPUT 

R 0 OC 0 18  UP3ATE  MODREG 

R000019  terminate  abort  command  MONIlOR 

R00002  terminate  tumble  monitor 

R 0 0 00 2 1 MISSION  SCHEDULING'  REGISTERS  SET  TO  CALL  MPT 

R000022  debris 

R000023  CENTRALS. At3»Z 


R000026  SUBROUTINES  CALLED 
R000027  EXECUTIVEIENOQFUOB) 


R000028 

R000029 

R00003 

WAITLIST 

LONGCALL 

NEaIiMODEX 

R000031 

R000032 

R000033 

ILMP 

FLAGIDWN 

FLAG2DWN 

R00003A 

SCHEDULE  entry 

ROUTINE (MPENTRY) 

0001 

27.2504 

3AN< 

27 

0002 

ref  1 

E3 

eban<= 

MP6Tn7 

0003 

REF  17  LAST  696 

27.2504 

0 4117  1 MR&UOB 

TC 

NEWMODEX 

UPDATE  MODREG 

OOOA 

27.2505 

00013  0 

OCT 

13 

OOOAl 

ref  17  LAST  612 

27.2506 

3 6306  1 

CAF 

SIX 

000A2 

REF  8 LAST  696 

27.2507 

54  764  0 

TS 

PHASfNUM 

0005 

REF  5A  LAST  706 

27.2510 

0 4161  0 

TC 

PHASrHNG 

4 
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L 

0006 

M15SI 3N 

phase  6 Coast  sivb  attached 

27.2511  9701?  1 

iCT 

9701 1 

USER'S  OWN  Page  no.  2 S3  E3 

0007 

27.2512 

13560  0 

DEC 

6000 

00079 

REF 

2 

LAST 

70‘i 

E3 

•BAN<= 

MP6T07 

0000 

27.2513 

02526  1 

?C6D» 

MP6A 

C0008 

REF 

1 

27.2519 

56063  1 

00085 

REF 

91 

LAST 

633 

27.2515 

3 7756  1 

CAF 

31T6 

00086 

REF 

5 

last 

696 

27i25l6 

0 9105  1 

_ : . _ rc  

_5ETR.STRT 

SET  RESTART,  FLAG  . 

0009 

REF 

1 

27.2517 

3 2525  1 

CAF 

DEC6000 

INITIALIZE  1 MIN  DELAY 

0010 

INriiNT 

0011 

REF 

39 

LAST 

705 

27.2521 

0 5663  1 

rc 

/JAITl  1ST 

00119 

ref 

3 

LAST 

710 

E3 

£BAN<= 

MP6T07 

0012 

27?2522, 

, ,02526  1 

, -2CADR 

MP6A  

C0012 

ref 

2 

LAST 

710 

27.2523 

56063  1 

OOIA 

ref 

75 

LAST 

70A 

27.2529 

1 5567  1 

TCF 

ENDOFJOB 

0015 

27,2525 

13560  0 

DEC6000  DEC 

605.0  , 

002A 

REF 

i* 

LAST 

67l 

27,2526 

0 6076  0 

MP6A  TC 

FLA32DWN 

terminate  abort  command  monitor 

0025 

27,2527 

00900  0 

_3£i 

00900 

BIT  9 

A0026 

terminate  TJM3LE  MONITOR 

0027 

REF 

12 

LAST 

706 

27,2530 

0 6067  0 

TC 

FLAolDNN 

0028 

27,2531 

20000  0 

DCT 

2000O 

BIT19 

0036 

REF 

55 

LAST 

709 

27,2532 

0 9161  0 

MP6B  rc 

phaschng 

0037 

27,2533 

27092  1 

DCT 

2709? 

0038 

REF 

1 

27,2539 

75232  0 

-3ENADR 

656SEC 

00389  • 

REF 

A LAST 

710 

E3 

EBAN<= 

MP6T07 

0039 

27,2535 

02597  0 

2CADR 

CBXPNDR 

aooao 

REF 

1 

27,2536 

56063  1 

CALL  C-BAND  transponder-on* 

OOAl 

27,2537 

0 0006  1 

EXTEND 

0092 

REF 

2 

LAST 

710 

27,2590 

3 2596  1 

DCA 

656SFC 

LONGCALL  10  M 56  S 

0093 

REF 

3 

LAST 

680 

27,2591 

0 5791  0 

_ _ - JC 

L0N3CALL 

FOR  C-BAND  TRANSPONDER-ON* 

00939 

ref 

5 

LAST 

710 

E3 

EBAN<= 

MP6T07 

0099 

27,2542 

02597  0 

2CADR 

CBXPNDR 

C0099 

ref 

2 

LAST 

710 

27,2593 

56063  1 

0095 

REF 

7A 

LAST 

706 

27,2599 

1 5727  1 

TCF 

TAS<OVER 

0096 

27,2595 

00009  0 

656SEC  2DEC 

65600 

AOOSl 

27,2596 

00100  0 

C-BAND  TRANSPONDER-ON* 

0052 

REF 

6 

LAST 

703 

27,2597 

0 5060  1 

C3XPNDR  rC 

ILMP 

0053 

27,2550 

00152  1 

dec 

I06 

005A 

REF 

18 

LAST 

705 

27,2551 

0 9191  1 

rc 

2PHSrHNG 

0055 

27.2552 

00002  0 

OCT 

OOO02 

0056 

27.2553 

05013  0 

DCT 

05013 

0057 

27.2559 

77777  0 

DCT 

77777 

A0058 

call  schedule  entry  ROUTINE 

633A36A 

YUL 

system  for  agc:  revision 

0 OF  PROGRAM  BURST12D  BY 

NASA  2021106-031 

DEC  7. 

1967  (MAIN) 

PAGE  711 

L 

0059 

MISSION 
REF  1 

phase  6 coast  sivb  attached 

27t2555 0 5126 

_L 

li_ 

mpentry  • 

USER'S 

OWN  PAGE 

NO.  3 

S3  E3 

0060 

27.2556 

00001 

0 

DEC 

1 

J=1 

0061 

27.2557 

00007 

0 

DEC 

7 

MPs7 

0062 

ref 

6 

LAST  710  27.2560 

01772 

1 

ADRES  MP6T07 

DT  = 28 

MIN 

A00621 

TERMINATE  READING  OF  PIPAS. 

A00622 

thrust  due  to 

VENTlNr.  AFTFR  SIVB 

A00623 

SHUTDOiYN  has 

become  negligible. 

0062A 

REF 

13 

LAST  710  27.2561 

0 6067 

0 

rc 

FLAolOWN 

terminate  Servicer 

00625 

27.2562 

00001 

0 

DCT 

1 

0063 

REF 

75 

LAST  710  27.2563 

1 5727 

1 

rcF 

TAS<nVER 

R0064  end  Dpi  MISSION  PHASE  6 
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L 

0001 

MP  7 - SIVB/LEM  SEPARATION 

25.2A7A  BANK  25 

USER'S  OWN  page  NO.  1 

S3 

0002 

REF  30  LAST  70« 

EA  EBANK=  TDEC 

R0003 

PROGRAM  Description-  mission 

PHASE  7 - SlVB/Li.M  SEPARATION 

_DAT£-  21  OCT  66 

R0005 

R0007 

muo  no-  0 
MOD  by-  gilbert 

LOG  SECTION-  MP  7 - SIVB/LEm 
ASSEMBLY-  SUNBURST  REVISION 

SEPARATION 

12 

R0009  functional  OESCRIPTIO'I 

ROOlO  SIVB/LeM  separation  is  started  39  MIN,  56  SEC.  AFTfR  SIVB  SHUTDOWN  IS  DETECTED.  AT  OO/ll/OA.  ONE 

R0012  minute  after  BODST  shutdown  is  OeTECTED,  mission  TIMER  NO.  1 IS  set  to  38M  56S  AND  MISSION  PHASE  REGISirR  NO.^  1 

ROOIA  TO  MP  7,  MISSION  PHASE  7 STARTS  AT  00/50/00.  THIS  PROGRAM  COMMANDS  A SEQUENCE  OF  EVENTS  INCLUDING  RCS  COLO 

Rooi6  fire  purge.  RCS  pressurization,  s band  system  activation,  *x  translation  initiation  of  leM/sivb  Separation 

Roots  seouence,  and  ags  activation,  immediately  after  phiYsical  separation,  oo/sa/oo,  the  pgncs  holds  the  ATiiruoE  rate 
R0020  which  existed  at  separation  to  minimize  the  PR0BA3IL1TY  OF  Re-CONTACT.  RCS  +X  TRANSLATION  IS  TERMINATED  15 

R0022  SECONDS  AFTER  SEPARATION  AT  00/5A/T5  AT  WHICH  TIME  AJTOMAIIC  ATTITUDE  HOLD  IS  INITIATED.  THIS  TERMINATION 

Rooea  • follows  a Sequence  starting  at  00/53/55  during  which  the  uetc  ar£  turn£D  on  for  to  seconds,  off  for  5 seconds, 

R0026  and  on,  for  5 SECONDS,  IHIS  IS  DUe  TO  THE  POSSIBILITY  OF  HeAt  AFFECTING  THE  RENDEZVOUS  RADAR  ANTENNAE. 

R0028  mission  phase  TIMeR  NO'.  A IS  SET  TO  START  MISSION  PHASE  8 (DPS  COLD  SOAK)  IN  08  SECONDS,  MISSION  PHASE  TIMER 

ROO3O  NO,  2 IS  SET  T0_  SjART  MISSION  PHASE.  9 - (PPS  1 )__  I N rH  1M  A7S.  MAJOR  MODE  lA  IS  DISPLAYED  DURING  THIS  PHAS-, 

ROO32  calling  SEQUENCt 

R0033  SIVB/LEM  separation  is  called  BY  THE  MISSION  SCHEDUL I NG^ROUT I NE  AS  A JOB.  THe  MISSION  SCHEDULING  £Nt5Y 

R0035  routine  was  called  I M.INUTE  after  boost  shutdown  in  mission  phase  6 TO  SET  timer  no.  1 TO  38  MINUTES  56  Se'CONOS. 

R0037  subroutines  CALLED 

ROO38  NEWMODEX,  waitlist,  FIXDELAY,  iLMP+DT,  2LMP+DT,  FLAGlUP,  FLAGlDWN,  MPENTRY,  MIDTOAVE,  AVETOMID,  TPASREE, 

Rooao  preread,  READACCS,  SEHViCeR,  averageg. 


Rooai  norma^  exit  mode 

R00a2  TASKOVER  (ENDOFJO'B  initially  since  task  is  REDUeSTED) 


R00i,3  alarm  or  abort  Exit  modes 

ROOAA  - NONE 


ROOW5  INPUT 

R00A6  MISSION  SCHEDULI NS'  MAINTENANCE  ROUTINE  MUST  BE  INHIBITED  AT  BEGINNING  AND  ENABLED  AT  END  OF  MISSION  PHASE  7. 


R00A8  OUTPUT 

ROOA9  RCS  COLD  FIRe  PURSE,  RCS  PRESSURIZATION,  S BAND  SYSTEM  ArTIVATlON,  +X  TRANSLATION,  INITIATION  OF  LEM/SIVB 

R0051  SEPARATION  SEQUENCE,  AND  SCHEDULING  OF  MISSION  PHASES  8 ANO  9 (DPS  CO.LP  SOAK  AND  DPS.  1),  

ROO53  erasable  INITIALIZATION  REQUIRED 

ROOSA  normal  mission  seouence  sets  ERASArLES  PROPER-Y 

R0055  DEBRIS 

R0056  CENTRALS  - A.l.Q 

ROO57  OTHER  - ERASAB.es  IN  SUBROUTINES  USED 
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L 

MP  7 

. SIVB/LeM 

Separation 

USER*S  own  page  NO.  2 

S3  E4 

0058 

REF 

19  LAST 

710 

25i2,4J4__ 

a 414J^  1_ 

_ M_P0-7>7a3 

rc 

2P_iSrHJNG-. 

0059 

25.2475 

00006  1 

OCT 

00006 

0060 

25,2476 

05022  1 

OCT 

05022 

0061 

25,2477 

20000  0 

. OG_T^.  _ 

20„00O_ 

0062 

ref 

20  last 

713 

25,2500 

0 A141  1 

TC 

2PHSCHN6 

0063 

25,2501 

00003  1 

OCT 

00003 

006A 

25,2502 

00004  0 

OCT 

00004 

0065 

ref 

37  LAST 

25,2503 

3-7755  1 

:af 

B1T7  __  _ 

0066 

REF 

6 last 

710 

25,2504 

0 4105  1 

TC 

SETRSTRT 

SET  RESTART  FLAG 

0067 

REF 

56  LAST  710 

25,2505 

0 4J.M  .5  _ 

IC._  _ 

_PHASCHNG 

0068 

25,2506 

47013  0 

OCT 

47013 

0069 

25,2507 

07640  1 

OEC 

4000 

0070 

REF 

Rl  LAST 

712 

E4 

fBAN<s 

TDEC 

0071 

25.2510 

02555  0 

2CADR 

SIYBaEP 

C0071 

ref 

1 

25,2511 

52064  1 

0072 

REF 

57  LAST 

713 

25,2512 

0 4161  0 

TC 

PHA^CHNG 

0073 

25,2513 

06022  1 

OCT 

06027 

0074 

REF 

32  LAST 

713 

E4 

eban<= 

TDEC 

0075 

25.2514 

02524  0 

2CADR 

0001 

C0075 

ref 

1 

25,2515 

52064  1 

0076, 

25,2516 

0 0004  0 

INHINT 

0077 

ref 

1 

25,2517 

3 3005  1 

:a 

40SEr 

0078 

REF 

90  LAST 

710 

25,2520 

0 5663  1 

TC 

WAITLIST 

0079 

REF 

33  LAST 

713 

E4 

EBAN<= 

TDEC 

0080 

25.2521 

02555  0 

2CADR 

SIVBsEP 

C0080 

ref 

2 LAST 

713 

25,2522 

52064  1 

0081 

25,2523 

0 0003  1 

RELINT 

0082 

25,2524 

0 0006  1 

DOOI 

EXTEND 

0083 

REF 

26  LAST 

708 

25,2525 

3 0025  0 

OCA 

TIME? 

SET  UP  TIME  FOR  MIDTOAVE 

0004 

REF 

34  LAST 

713 

25,2526 

53*567  0 

OXCH 

TDEC 

0085 

25,2527 

0 0006  1 

EXTEND 

0006 

REf 

1 

25,2530 

3 3007  0 

OcA 

MPOToElT 

0007 

REF 

35  LAST 

713 

25,2531 

21*567  0 

OAS 

TDEC 

0008 

25,2532 

0 0006  1 

EXTEND 

0009 

REF 

36  LAST 

713 

25,2533 

3 1567  1 

OCA 

TDEC 

OO9O 

REF 

5 last 

198 

25,2534 

52  421  1 

OXCH 

TIMEuOLD 

NO  RADAR  ON  206 

OO9I 

REF 

18  LAST 

709 

25,2535 

0 4117  1 

TC 

NE<YMODEX 

DISPLAY  MAJOR  MODE  14 

0092 

25,2536 

00014  1 

OCT 

14 

0093 

25,2537 

0 0006  1 

EXTEND 

0094 

REF 

1 

25.2540 

3 3011  1 

OCA 

MIDAVE2C 

PRIOR  TO  thrust 

0095 

REF 

21  LAST 

700 

25,2541 

52  006  0 

OXCH 

Z 

0096 

REF 

58  LAST 

713 

25,2542 

0 

0 

TC 

PHASCHNG 
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L 

MP  7 

- 

5IVB/LE'^ 

SEPARATION 

USER*S  OWN  PAGE  NO,  3 

S3  E4 

0097 

25i2543 

04022  0 

DCt  _ 

- 04022 

0098 

REF 

1 

25.2544 

3 3015  0 

:af 

AVRAOEOT 

SERVICER  CALLS  AVERAGEG 

0099 

REF 

12 

last 

70Z 

25.2545 

55*310  0 

TS 

OVSELECT 

0100 

25.2546 

0 0006  1 

EXTE'IO 

0101 

REF 

1 

25.2547 

3 3013  0 

3CA 

^Ex  I T 

normal  Exit  from  a^erageg 

0102 

REF 

8 

LAST 

705 

25,2550 

53*073  0 

OXCH  . . 

AVjExIT  _ _ . 

0103 

REF 

2 

LAST 

68« 

25.2551 

3 3014  1 

:af 

JErs+x 

RCS  COLD  fire  PURGE 

OlO'V 

0 0006  1 

£XIE.ND^ 

0105 

25,2553 

01  005  0 

((RITE 

5 

0106 

REF 

76 

LAST 

710 

25,2554 

0 5567  0 

TC 

endofjob 

AND  RELINT 

0107 

REF 

21 

LAST 

713 

25.2555 

0 4141  1 

SIVBSEP 

tc 

2PHSCHNG 

0108 

25.2556 

aoOD  3_  L - 

JCL  _Q0T10a 

0109 

25.2557 

05012  1 

OCT 

05012 

0110 

25.2560 

77777  0 

OCT 

77777 

0111 

REF 

227 

LAST 

708 

25.2561 

3 7767  0 

:af 

2ER0 

TERMINATE  RCS  COLD  FIRE  PURGE 

0112 

25.2562 

0 0006  1 

EXTEND 

0113 

25.2563 

01  005  0 

oRITE 

5 

0114 

REF 

59 

LAST 

713 

25.2564 

0 4161  0 

rc 

PHASrHNG 

0115 

25.2565 

47012  1 

OCT 

47012 

0116 

25,2566 

00620  0 

OEC 

400 

0117 

REF 

37 

LAST 

713 

E4 

EBAN<= 

TOEC 

0118 

25,2567 

02573  1 

2CADR 

S1V31 

C0118 

ref 

1 

25,2570 

52064  1 

0119 

REF 

42 

LAST 

706 

25,2571 

0 5701  1 

rc 

FIXOELAY 

WAIT  4 SECONDS 

0120 

25.2572 

00620  0 

OEC 

400 

0121 

ref 

15 

LAST 

706 

25,2573 

0 5073  0 

SlVBl 

rc 

2LMP+DT 

0122 

25,2§74 

00274  0 

OEC 

188 

RCS  MAIN  S/0  valves.  SYS,  A - 

D2EN  *» 

0123 

25,2575 

00276  1 

OEC 

190 

RCS  MAIN  S/0  VALVES,  SYS.  B - 

D=EN  A* 

0124 

25,2576 

00144  0 

OEC 

100 

WAIT  I SECOND 

0125 

REF 

26 

LAST 

704 

25,2577 

0 5101  1 

rc 

ILVIP^DT 

0126 

25,2600 

00004  0 

OEC 

4 

ED  BATTERY  ACTIVATION  - ON 

0127 

25,2601 

00144  0 

OEC 

100 

WAIT  1 SECOND 

0128 

ref 

16 

LAST 

719 

25,2602 

0 5073  0 

rc 

2LNP*DT 

0129 

25,2603 

00275  1 

OEC 

189 

RESET 

0130 

25.2604 

00277  0 

OEC 

191 

RESET  ** 

0131 

25,2605 

01604  1 

OEC 

900 

WAIT  9 SECONDS 

0132 

ref 

27 

LAST 

714 

25,2606 

0 5101  1 

rc 

ILMP+DT 

0133 

25,2607 

00006  1 

OEC 

6 

RCS  PRESSURIZE  - FIRE  »» 

0134 

25.2610 

00310  0 

OEC 

200 

WAir  2 seconds 
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L 

MP  7 

- 

SIVB/LEM 

separation 

USER*S  OWN  PAGE  NO.  4 S3  E4 

0135 

REf 

?8 

LAST 

71  A 

25 

• 2611 

0 5101  1 

t£ 

■1.LV1P.3lDT 

0136 

25 

,2612 

00007  0 

OEC 

7 

RESET  ** 

0137 

25 

• 2613 

05360  1 

OEC 

2800 

WAIT  28  SECONDS 

0138 

REF 

29 

LAST 

715 

25 

• 2614 

0 5101  1 

IC 

1LMP*DT 

0139 

25 

• 2615 

00005  1 

OEC 

5 

ED  BATTERy  ACTIVATION  - SAFE  )* 

ouo 

25,2616_ 

22434  L. 

OEC 

9500  . 

_ WAIT  95  SECONDS^  . . 

OUl 

25 

• 2617 

0 0006  1 

EXTEND 

01A2 

REF 

6 

LAST 

713 

25.262^0 

_3_0421  0. 

OCA_ 

TIMEuOLD 

0U3 

REF 

3 

LAST 

40 

25 

• 2621 

53*664  O 

OXCH 

0T2TFMPD 

01A4 

25 

• 2622 

0 0006  1 

EXTEND 

0145 

REF 

27 

LAST 

713 

25 

• 2623 

4 0025,  1 

JCS 

TLME2 

TIG  - 28  SEC.  s TDEC  + 2 SEC. 

0146 

REF 

4 

LAST 

715 

25 

• 2624 

21*664  0 

OAS 

DT2TEMPD 

0147 

ref 

bO 

LAST 

71A 

25 

• 2625 

0 4161  0 

TC  - 

PJHASrHNG-  ..  - 

0148 

25 

• 2626 

05012  1 

OCT 

05012 

0149 

25 

• 2627 

77777  0 

O'CT 

77777 

0150 

25 

• 2630 

0 0006  1 

EXTEND 

0151 

REF 

5 

LAST 

715 

25 

• 2631 

3 1664  1 

OCA 

0T2TFMPD 

0152 

REF 

7 

LAST 

715 

_ _ 25 

• 2632 

52  421  1 

OXCH 

timehold 

0153 

REF 

8 

LAST 

715 

25 

• 2633 

10  421  1 

CCS 

TIMEHOLD  +1 

INSURE  waitlist  TIME  POSITIVE 

0154 

REF 

150 

LAST 

69l 

25 

• 2634 

6 7763  1 

AD 

ONE 

0l55_  _ 

25 

• 2635 

1 2640  0 

TCF 

+ 3 

0156 

25 

• 2636 

4 0000  0 

COM 

0157 

ref 

40 

LAST 

705 

25 

• 2637 

6 7743  0 

AD 

POSMAX 

0158  •- 

ref 

3 

LAST 

40 

25 

• 2640 

55*662  0 

IS 

DT2TFMP 

0159 

REF 

91 

LAST 

713 

25 

• 2641 

0 5663  1 

IC 

NAITI  1ST 

RECOUEST  LASTBIAS  AT  TIG  - 30  SECONDS 

0160 

ref 

38 

last 

714 

E4 

eban<= 

TdEC 

0.1  ti 

25 

• 2642 

03016  0 

2CADR 

TIG. 30 

C0l6l 

ref 

1 

25 

• 2643 

52064  1 

0162 

REF 

22 

LAST 

71A 

25 

• 2644 

0 4141  1 

TC 

2PHsrHNG 

0163 

25 

• 2645 

40052  1 

OCT 

4005^ 

0164 

25 

,2646 

47014  1 

OCT 

47014 

0165 

REF 

4 

LAST 

715 

25 

• 2647 

76115  0 

-3ENADR 

0T2TfMP 

0166 

REf 

99 

LAST 

715 

E4 

?BAN<= 

TDEC 

0167 

25 

• 2650 

03016  0 

2CADR 

T 1 o-^O 

C0167 

REF 

2 

LAST 

715 

25 

• 2651 

52064  1 

0168 

REF 

43 

LAST 

71A 

25 

• 2652 

0 5701  1 

TC 

FIXOcLAy 

WAIT  55  SECONDS 

0169 

25 

• 2653 

12574  1 

OEC 

5500 

0170 

REF 

53 

LAST 

706 

25 

• 2654 

0 5270  1 SIVB2 

TC 

lBN<rALL 

DEADBAND  SELeCT  - MAX 

0171 

REF 

7 

LAST 

706 

25 

,2655 

40054  1 

CADR 

setmaxdb 

0172 

REF 

3 

LAST 

714 

25 

*2656 

3 3014  1 

CAF 

JETS+X 

COMMAND  +X  translation  - ON  (4  JET) 

0173 

25 

• 2657 

0 0006  1 

extend 

0174 

25 

• 2660 

01  005  0 

aIRITE 

5 

0175 

ref 

54 

LAST 

715 

25 

,2661 

0 5270  1 

TC 

IBNCrALL 

0176 

REF 

5 

LAST 

704 

25 

• 2662 

40062  1 

CADR 

JLLAGE 
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L 

MP  7 

- 

SIVB/LEM 

separation 

USER'S  Own  page  no.  5 S3  E9 

0177 

REF 

Si 

LAST  715> 

25 

.2663- 

0 9161  0- 

IC- 

..PaASCHRX  - - 

0178 

25 

.2669 

97012  1 

OCT 

97012 

0179 

25 

.2665 

00199  0 

OE-C 

100 

0180 

REF 

90 

LAST  715 

E9_ 

tBANiCs 

TDFO 

0l8l 

25 

.2666 

02672  0 

2CADR 

S1YB3 

C0181 

ref 

1 

25 

.2667 

52069  1 

0182 

REF 

LAST  715 

25 

.2670 

0 5701  1 - 

rc  - 

FIX DELAY 

. WAIT.  1 SECOND  . . 

0183 

25 

.2671 

00199  0 

OEC 

100 

OlBA 

REF 

30 

LAST  715 

25 

.2672 

0 5101  1 

SIVB3 

tc 

1LMP*DT 

0185 

25 

.2673 

00212  0 

OEC 

138 

XMTR/RCVR  (S-BAND)  - PRIM  * 

0186 

25 

.2679 

00959  1 

OEC 

300 

WAIT  3 SECONDS 

0187 

REF 

31 

LAST  716 

25 

.2675 

0 510'1  1 

TC 

1LMP*DT 

0188 

25 

.2676 

00072  1 

OEC 

58 

LEM/SIVB  SEPARATE  ARM  - ON  * 

0189 

25 

.2677 

00062  0 

OEC  - . 

50 

WAIT  -500  MILLISECONDS 

0190 

REF 

57 

LAST  699 

25 

.2700 

9 0077  0 

:s 

DAP3nOLS 

ENABLE  DAP 

0191 

REF 

8 

LAST  699 

25 

.2701 

7-  7751  X 

MASiC 

GODAdGO 

0192 

REF 

58 

LAST  716 

25 

.2702 

26  077  0 

ADS 

DAP300LS 

01925 

ref 

52 

LAST  716 

25 

.2703 

0 9161  0 

TC 

PHASCHNG 

01926 

25 

.2709 

97012  1 

OCT 

97012 

01927 

25 

.2705 

00062  0 

OEC 

50 

01928 

REF 

31 

LAST  716 

E9 

EBAN<= 

TDEC 

01929 

25 

.'2  706 

02712  1 

2CADR 

SIVBaA 

C01929 

REF 

1 

25 

.2707 

52069  1 

0193 

REF 

95 

last  716 

25 

.2710 

0 5701  1 

TC 

FIXOfLAY 

WAIT  500  MILLISECONDS 

019A 

25 

,2711 

00062  0 

OEC 

50 

0195 

REF 

55 

LAST  715 

25 

,2712 

0 5270  1 

SIVB3A 

TC 

IBNXCALL 

0196 

REF 

'2 

LAST  689 

25 

,2713 

90072  0 

CAOR 

SETRATE 

HOLD  VEHICLE  ATTITUDE  RATE 

0197 

REF 

32 

LAST  716 

_.25 

.2719 

0 5101  1 

TC 

ILMP+DT 

0198 

25 

.2715 

00132  1 

OEC 

90 

LEM/SiVB  SEPARATE  - COMMAND  ** 

0199 

25 

.2716 

00012  1 

OEC 

10 

WAIT  100  MILLISECONDS 

0200 

REF 

56 

LAST  716 

25 

,2717 

0 5270  1 

TC 

IBNXcALL 

DEADBAND  SELECT  - MIN 

0201 

REF 

5 

LAST  699 

25 

,2720 

90096  1 

CADR 

SETMtNDB 

0202 

REF 

29 

LAST  698 

25 

.2721 

9 0075  1 

:s 

FLAGWRDI 

SETS  SIVBGONE  TO  1 

0203 

REF 

91 

LAST  698 

25 

,2722 

7 7760  0 

MAS< 

B1T9 

020A 

REF 

25 

LAST  716 

25 

,2723 

26  075  1 

ADS 

FLAGWRDI 

020A5 

REF 

53 

LAST  716 

25 

,2729 

0 A161  0 

TC 

PHASCHNG 

020A6 

25 

,2725 

97012  1 

OCT 

97012 

020A7 

25 

,2726 

00132  1 

OEC 

90 

020A8 

REF 

92 

LAST  716 

E9 

EBAN<= 

TDEC 

02099 

25 

.2727 

02733  1 

2CADS 

SIYB^B 

C02099 

ref 

1 

25 

,2730 

52069  1 
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L 

MP  7 

SIVB/LEM 

separation 

USER'S  OWN  PAGE  NO.  6 

S3  E4 

0205 

REF 

^6 

LAST 

716 

25j273L. 

0_-i7Ol  1 

_TC  _ _ 

_Fi)(  DELAY. 

9.00  ..MILLISECONDS. 

0206 

25.2732 

00132  1 

DEC 

90 

0207 

REF 

33 

LAST 

716 

25,2733 

Q 5101  1 

SIVB3B 

rc  ^ 

ILMP+DT 

0208 

25,2734 

00073  0 

DEC 

59 

LEM/SIVB  SEPARATE  ARM  - OFF  * 

0209 

25.2735 

00144  0 

DEC 

100 

WAIT  1 second 

0210 

ref 

34 

last 

717 

25.,2736 

0 5101  1 

rc 

1LMP*DT 

0211 

25,2737 

00133  0 

DEC 

91 

RESET 

0212 

25,2740 

00454  1 

DEC 

300 

WAIT  3 SECONDS 

0213 

REF 

57 

LAST 

716 

25,2741 

0 5270  1 

rc 

l8N<rALL 

COMMAND  +X  translation  - OFF  (4 

JET) 

021A 

REF 

6 

LAST 

704 

25j2742 

40066  0 

CADR 

nojli  age 

0215 

REF 

64 

LAST 

716 

25,2743 

0 4161  0 

rc 

PHASCHNG 

0216 

25,2744 

47012  1 

DCT 

4701  7 

0217 

25,2745 

00764  1 

DEC 

500 

0218 

REF 

93 

LAST 

716 

E4 

;BAN<= 

TDEC 

0219 

25,2746 

07752  0 

7CA0S 

SIY3a 

C0219 

ref 

1 

25,2747 

52064  1 

0220 

REF 

47 

LAST 

717 

25,2750 

0 5701  1 

rc 

FIXDELAY 

WAIT  5 SECONDS 

0221 

25,2751 

00764  1 

DEC 

500 

0222 

REF 

58 

last 

71  7 

25,2752 

0 5270  1 

S1VB4 

rc 

ISN<rALL 

command  +X  translation  - ON  (4 

JET) 

0223 

ref 

6 

LAST 

716 

25,2753 

40062  1 

CADR 

JLLAgE 

022A 

REF 

65 

LAST 

717 

25,2754 

0 4161  0 

rc 

PHASCHNG 

0225 

25,2755 

47012  1 

DCT 

47012 

0226 

25,2756 

00764  1 

DEC 

500 

0227 

REF 

94 

LAST 

717 

E4 

EBAN<= 

TDEC 

0228 

25,2757 

02763  1 

2CADR 

SIV35 

C0228 

ref 

1 

25,2760 

52064  1 

0229 

REF 

48 

last 

71  7 

25,2761 

0 5701  1 

rc 

FIXDELAY 

WAIT  5 SECONDS 

0230 

25.2762 

00764  1 

DEC 

500 

0231 

' REF 

59 

last 

717 

25,2763 

0 5270  1 

S1VB5 

rc 

I8N<rALL 

command  +X  translation  - OFF  (4 

JET) 

0232 

REF 

7 

last 

717 

25,2764 

40066  0 

CADR 

nojli  age 

0233 

REF 

14 

LAST 

711 

25,2765 

0 6067  0 

rc 

FLAGIDWN 

KNOCK  DOWN  AVERAGES  FLAG 

0234 

25.2766 

00001  0 

DCT 

OOOOl 

0235 

REF 

60 

LAST 

717 

25,2767 

0 5270  1 

rc 

18N<CALL 

HOLD  LEM  ATTITUDE 

0236 

ref 

7 

last 

70^ 

25,2770 

40114  1 

CADR 

stoprate 

0237 

REF 

61 

LAST 

717 

25,2771 

0 5270  1 

TC 

IBN<rALL 

DEADBAND  SELECT  - MAX 

0238 

REF 

8 

LAST 

715 

25,2772 

40054  1 

CADR 

SETMaXDB 

0239 

ref 

23 

LAST 

715 

25,2773 

0 4141  1 

rc 

2PHSCHNG 

0240 

25,2774 

00002  0 

DCT 

00002 

0241 

25,2775 

05013  0 

DCT 

05013 

633<i36A 

YUL 

system  for  agc: 

REVISION  1 

0 OF  PROGRAM  BURST123  BY  NASA  2021106-031 

DEC  7, 

1967  (MAIN) 

PAGE 

71B 

L 

OZ^Z 

MP  7 

- SIV8/LEM  separation 

25i2776 

77777 

_D 

OCT 

77777 

USER'S  OWN  page 

NO.  7 

S3 

EA 

02<*3 

REF 

2 last  711 

25.2777 

0 5126 

1 

■ rc 

mpentry 

SCHEDULE  DPS  COLD 

SOAK 

02AA 

25,3000 

OQOaA 

0 

OEC__ 

timer  NO,  A 

02A5 

25,3001 

00010 

0 

OEC 

B 

MISSION  PHASE  B 

02<t6 

ref 

1 

25,3002 

01751 

0 

ADRES 

mpstob 

REF  76  LAST  7U 


25,3003  I 5727  1 


TCF 


TA5<0VER 
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02a8 

25v300A  _ 

003.10  0 . 

_25EC  . 

.:i£C 

02A9 

0250 

C0Z50 

25.3005 

25.3006 

25.3007 

076A0  1 
00001  0 
10024  0 

40SEC 

M=07DELT 

OEC 

2DEC 

4000 

2050O 

0251 

REF 

95 

LAST 

717 

E4 

EBAN<= 

TOEC 

0252 

25,3010 

02341  0 

MIDAVE2C 

2CADR 

MlDTnAVE 

C0252 

REF 

3 

LAST 

707  . 

25,3011 

16.Q6iLl 

0253 

REF 

96 

LAST 

719 

E4 

EBAN<= 

TDEC 

025A 

25,3012 

02324  0 

S\/REXIT 

2CADR 

SERj/fXIT 

C025A 

ref 

5 

LAST 

70  7 _ 

J5,30_U 

60D64  _0  _ 

0255 

25,301A 

00252  1 

JETS+X 

OCT 

00252 

0256 

REF 

3 

LAST 

707 

25,3015 

02251  0 

Ai/RAGE37 

oENAOR 

AVERAGES 

0257  REF  2A  LAST  7IT  25,30l6  0 AlAl  1 T1&-30  TC  2PHSCHNG 


02515 

25,3017 

o 

o 

o 

o 

0 

02576 

25,3020 

00335 

1 

02577 

REF 

53 

last 

65  7 

26,3021 

3 ^7763 

1 

0258 

REF 

92 

LAST 

715 

25,3022 

0 5663 

1 

0259i 

REF 

4 

LAST 

703 

E-5 

0260 

25,3023 

02000 

0 

C0260 

REF 

6 

last 

703 

25,3024 

60065 

1 

-0265 

REF 

77 

LAST 

718 

25,3025 

1 5727 

1 

T1£I aO.Q.Q^ 

DCT  0033s  5.33  SPOT  FOR  PREREAD 

CAF  SiTl 
rC  WAITLIST 
EBAN<=  DVTOtAL 
2CADR  PREREAD 


TCF 


TAS<nVER 
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L MISSION  PHASE  8 - DPS  GOLD  SOA<  USER'S  OWN  PAGE  NO.  1 S3 

00001  . . - Zl%23iA SANG  ZJ..  . __  _ _ 


0001 

REF  A 

LAST  702 

E3  EBAN<=  RATETNDx 

Roooill 

PROGRAM 

DESCRIPTION- 

DATE-  07  Dec  66 

R000112  MOD  NDi-  A LOG  SECTIDN- 

R000113  MOD  BY-  ELIASSeN  MISSION  PHASE  8 - DPS  CD’D  SoAK 

R000115  FUNCTLONAL-PESCRlPTlD'Nr 


R000116 

0/5A/23 

Start  mission  phase  b when  mission  timer  a counts  to  zero. 

R000117 

CHANGE  MAJORi  MODE  TO  Is. 

R000118 

DO  DFI  T/M  calibration  (1A  SECONDS). 

R000119 

WAIT  1 SECOND 

R00012 

R000121 

R000122 

0/5A/38 

LMP  COMMANDS- 

landiv|G>  raDaR  Power  on* 
RADAR. SELF  TEST  ON* 

R00012'3 

R00012A 

CALL  TO  CALCULATE  REDJIRED  ATTITJDE 
FOR  D=s  Cold  soak  - 

R000125 

R000126 

LM  X-AXIS  NORMAL  TO  THE  ELLIPTIC  =LANE 

AND  3ISECT0R  OF  LM  +Z/-Y  AXES  TOWARD  THE  SUN. 

R000127 

R000128 

R00013 

Change  the  attitude  of  the 

spacecraft  to  that  required  for  DsS  cold  SOAx 

USING'  KALCMANU  ROUTINE  - MANEUVER  RATE=  5 DEG/SEC. 

R000131 

WAIT  60  SECONDS 

R00Q132 

R000133 

LMP  COMMAND- 

RADARl  SELk  test  OFF* 

Rfi0013A 

WAIT  60  SECONDS 

R000135 

0/56/38 

LMP  command- 

R000136 

Landing  radar  power  off* 

ROOOIA 

WAIT  15  SECONDS 

ROOOlAl 

R0001A2 

0/56/53 

VERIFY  THAT  MANEUVER  IS  COMPLETE. 
(IF  VDT  GO  TO  CURTAINS) 

R0001A3 

SET  maximum  deadband  FOR  LM-DAP. 

ROOOIAA 

R0001A5 

R0001A6 

CALL  SCHEDU-E  entry  ROUTINE  FOR  DPS  1 WITH 
J = 2 
MP  = 9 

R0001A7 

DT=  2Hi  59M  IAS 
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R0002  SUBROUTINES  CALLED- ^ 

R000201  FINDVAC,  ENOOFJOB 

R000202  WAITLIl>T*  TA5K0VER 

R000203  NEWMODEX.  M^ENTRY.’  PHA5CHNG.  2PHSCHNG 

ROOO26A  INtPRET,  BA^CCALL,  IBNKCALL,  ATTStALL,  curtains,  PonH 

R000205  FLAGIDWn,  F-AG2DWN,  SETMINDB,  SETMAXD3 

R000206  KALCMAN3.  DCMTOCDU,  V1ST02_5 

R000207  1LMP»  ILMP+OT.  2LMP+UT 

R00023  normal  exit  MODES-  _ _ _ _ 

R000231  TC  ENDOFUOB/TASKOVER 

R000232  alarm  OR  ABORT  EXIT  MODES-  NONE 

R000233  OUTPUTr  (INTERFACE,  DISPLAYS,  MEANINGFUL  iNFORMAILOj^L kEf LJV  ERASABLE) 

R00023A  SAME  AS  FOR  <ALCMANU 

R000236  erasable  INITIALIZATION  ReOUIRED- 

R0Q0237_  TFPHEM  IN  CENTISeCQNDS  TRIPLE  PRECISION  

R000238  MP8T09  DT  -OR  GALLING  MP9-  IN  5eCON0S(SEE  ABOVE) 

ROOO239  DEBRIS-  (ERASABLE  LOCAflONS  DkSTROYFD  BY  THIS  PRO.gRAMl 

R00029  same  as  pOR  <AlCMANU 

0008  REF  6 last  a53  77A6  PRIOXM  EQUALS  PRIO7O 

0009  ' REF  19  LAST  7l3  27,256A  0 41171  _M^8U0B  TC  _ NEWMODEX 

0010  27,2565  00015  0'  OCT  15 


001015 

REF 

66 

LAST 

717 

27*2566 

_P  4161 

0 

_IC  , _ 

PHASCHNG 

001016 

27,2567 

05022 

1 

OCT 

05027 

001017 

27,2570 

20000 

0 

OCT 

20000 

00102 

REF 

23 

LAST 

578 

27,2571 

3 7754 

0 

CAF 

BITS 

00103 

REF 

7 

LAST 

713 

27,2572 

0 4105 

1 

TC 

SETRSTRT 

SET  RESTART  FLAG 

0011 

REF 

151 

LAST 

71P 

27,2573 

3 7763 

1 

CAF 

ONE 

ESTABLISH  TASK  TO 

0012 

27,2574 

0 0004 

0 

INHINT 

PERFORM  DFl  T/M  CAL. 

0013 

ref 

93 

LAST 

719 

27,2575 

0 5663 

1 

TC 

^AITl  1ST 

0013S 

REF 

5 

LAST 

720 

E3 

EBAN<= 

RATFINDX 

0014 

27,2576 

02601 

1 

2CADR 

mpbtask 

C0014 

ref 

1 

27,2577 

56063 

1 

0016 

REF 

77 

last 

71A 

27,2600 

0 5567 

0 

TC 

ENDOfJOB 

0017 

ref 

35 

last 

717 

27,2601 

0 5101 

1 

M=’bTAS<  TC 

ilmp.dt 

LMP  COMMAND 

00171 

27,2602 

00354 

0 

OEC 

236 

DFI  T/M  calibrate  on# 

bo  172 

27,2603 

02260 

1 

OEC 

izoo 

12  SECONDS  delay 

00173 

REF 

17  LAST 

71A 

27,2604 

0 5073 

0 

TC 

2LMP*DT 

LMP  COMMANDS 

00174 

27,2605 

00355 

1 

OEC 

237 

DFI  T/M  calibrate  off# 

00175 

27,2606 

00306 

1 

OEC 

198 

master  c+w  alarm  reset##  command 

00176 

27,2607 

00310 

0 

OEC 

200 

2 seconds  delay 

00177 

REF 

36 

LAST 

721 

27,2610 

0 5101 

1 

TC 

1LMP*DT 

LMP  COMMAND 

0018 

27,2611 

00307 

0 

OEC 

199 

master  c+w  alarm  reset-  command  reset 

0019 

27,2612 

00144 

0 

OEC 

loo 

1 second 

PRIORITY  FOR  KALCMANU  PHASE  b ♦ 16 
UPDATE  program  NUMBER 
ON  DSKY 
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0025 

REF 

1 

27i2613. 

-3-7.797-  1 MaRAcm 

CAF 

. PRl-OiO-  . - -. 

- SET  UP  JOB  -TO -CALCULATE 

0026 

REF 

18 

LAST 

703 

27.2619 

0 5516  0 

TC 

FINOOAC 

• REQ  CDU  ANGLES 

00265 

REF 

6 

LAST 

721 

E3 

iBAN<= 

RATEINDX 

0027 

^i26l5 

-O2i>70-1 

C0027 

ref 

2 

LAST 

67 

27.2616 

56063  1 

0028 

REF 

25 

LAST 

719 

27.2617 

0 9191  1 

TC 

2PHSCHNG 

0029 

27.2620 

- 00059  0 

OCT 

no05t 

0030 

27.2621 

05012  1 

OCT 

05012 

0031 

27,2622 

77777  0 

OCT 

77777 

0032 

REF 

18 

LAST 

721 

27,2623 

0 5073  0 

TC 

2LMP+DT 

LMP  COMMANDS 

0033 

27,2629 

00266  0 

OEC 

182 

LANDING  RADAR  POWER  ON* 

0034 

27,2625- 

00032  0 - - 

OEC 

26 

RADAR  SELF  TEST  ON* 

0035 

27,2626 

13560  0 

OEC 

6000 

WAIT  1 MIN 

0036 

REF 

37 

LAST 

721 

27,2627 

0 5101  1 

Tt  - 

1LM?*DT- 

LMP  COMMAND 

0037 

27,2630 

00033  1 

OEC 

27 

RADAR  SELF  TEST  OFF* 

0038 

27,2631 

13560  0 

OEC 

6000 

WAIT  1 MIN 

0039 

REF 

38 

LAST 

722 

27,2632 

0 5101  1 

TC 

ILMP.DT 

00391 

27,2633 

00267  1 

OEC 

183 

LANDING  RADAR  POWER  OFF* 

00392 

27,2639 

02739  0 

OEC 

1500 

15  SECONDS 

00393 

REF 

2 

LAST 

37B 

27,2635 

3 5656  1 

CAF 

PR10i5 

SET  UP  JOB  TO 

0039A 

REF 

22 

LAST 

709 

27,2636 

0 5505  1 

TC 

NOVAr 

END  mission  phase 

ooao 

REF 

31 

last 

695 

E3 

£BAN<= 

LST  1 

OOAl 

27,2637 

02692  0 

2CADR 

MP9CALL 

COOAl  ■ 

REF 

1 

27,2690 

56063  1 

00A2 

REF 

78 

LAST 

719 

27,2691 

0 5727  0 

TC 

TAS<nVER 

0095 

REF 

19 

LAST 

683 

27,2692 

3 0076  0 M=9CALL 

CA 

FLA0WRD2 

CHECK  IF  MANEUVER 

0096 

REF 

33 

LAST 

5_99 

27.2693 

7 7751  1 

MAS< 

Bim 

WAS  COMPLETED 

0097 

27,2699 

0 0006  1 

EXTEND 

0098 

27,2695 

1 2697  1 

3ZF 

*2 

0099 

REF 

Z 

LAST 

709 

27i2696 

0 9193  0 

TC 

curtains 

MANEUVER  NOT  COMPLETED 

0050 

REF 

123 

LAST 

709 

27,2697 

0 5206  0 

TC 

3AN<CALL 

0051 

REF 

2 

LAST 

709 

27,2650 

26793  0 

CADR 

attstall 

00511 

REF 

3 

LAST 

722 

27,2651 

0 9793  0 

TC 

CURTAINS 

SICK  RETURN 

AOO52 

SET  LM-I 

0A=  DEADBAND  TO  MAX- 

00521 

REF 

57 

LAST 

721 

27,2652 

0 9161  0 

rc 

PHASCHNg 

00522 

27,2653 

00002  0 

OCT 

00002 

deactivate  GR  2 

00523 

REF 

26 

LAST 

722 

27,2659 

0 9191  1 

TC 

2PHSCHNG 

00525 

27,2655 

00009  0 

OCT 

00009 

00527 

27,2656 

0-5023  0 

OCT 

05023 

00529 

27,2657 

30000  1 

OCT 

30000 

005291 

27,2660 

0 0009  0 

INHINT 

0053 

ref 

129 

LAST 

722 

27.2661 

0 5206  0 

TC 

3AN<CALL 

633if36A 

YUL  system  for  «gc: 

REVISION 

0 OF  PROGRAM  BURST123  3Y  NASA  2021106-031 

DEC  7,  1967  (MAIN) 

page  723 

L 

MISSION  PHASE  8 - DP 

S GOLD  SOA< 

USER'S  OWN  page  no.  4 

S3  E3 

0054 

REF  9 LAST  717 

27jl2662 

4.0054 

1 

.'ADR  SFTMAXDB 

A0055 

call  MISSION  PHASE  9 

0056 

REF  3 last  718 

27.2663 

0 5126 

1 

TC  MPENtRY 

maneuver  SUCCESSFUL 

0057 

27,2664 

00002 

0 

5EC  2 

J = 2 

0058 

27,2665 

000.1 1 

1 

DEC  9 - - 

MP=_9_.  . . . 

0059 

REf  1 

27,2666 

01773 

0 

ADREs  MP8Tn9 

DT  = 2H  59M  lAs 

0060 

REF  1 ^ _ 

27,2667 

0.  4272 

1 

TC  - POOH 

END  OF  MISSION  PHASE  8.  . 

633<t36A  YUL  SYSTEM  FOK  : ^iVISION  0 OF  PRoCjRAM  BURST12D  BY  NASA  2n2U06-031 


Dec  7.  1967  (MAIN)  PASE  72A 


P0068 

R0069 

R0070 


MISSION  PHASE  6 - DPS  COLD  SOA< 

calculate  CO  Jl  ANGLEi_FUR_  REQUiR£J__ 


USER'S  OWN  PAGE  NO.  5 


S3  E3 


COLDSDAk  attitude  - LEM  X-AxlS  NDRMAL  TD  THE 
ECLIPTIC  AND  bisector  OF  -Y/*Z  AXES  TDwARD  THE  SJN. 
0 


0073 

REF  28 

LAST 

71S 

27,2671 

3 0025 

0 

3CA 

TIME? 

OO7A 

REF  23A 

LAST 

7OB 

27,2672  ■ 

52  145 

0 

DXCH 

MPAC 

007401 

?7  • 

fXTFNn 

007A02 

REF  2 

LAST 

680 

27,267A 

3 1741 

1 

DCA 

TLIFtOFF 

007A03 

REF  235 

LAST 

72A 

27,2675 

20  145 

0 

DAS 

MPAC 

ADD  TIME  CLOCK  ZEROED  TO  TIME2 

007AI 

REF  228 

LAST 

71A 

27,26T6 

3 7767 

0 

CA 

ZERO 

007A2 

REf  2 

LAST 

38'^ 

27,2677 

54  153 

1 

TS 

MODE 

0075 

REF  6l 

LAST 

700 

_27a2_70D 0 6112^ 

_0 

_ It 

INTPpFT 

R00751 

calcj.ate  transformation  matrix  from 

Rcs  Cold  soaci  attitude 

R00752, 

TO  STABLE  MEMBER 

coordinates. 

convert 

TO  CDJ  ANSLES. 

OO76 

27,2701 

54201 

0 

AFTPD 

SR 

0077 

27,2702 

00001 

0 

0 

0078 

27,2703 

20617 

0 

140 

0079 

27,2704 

56371 

1 

TAD 

ODV 

0080 

REF  2 

LAST 

678 

27,2705 

01754 

0 

TEPHrM 

time  IN  CeNTISeC  since  PRECeDINS  UUNE  30 

0081 

REF  1 

27,2706 

17113 

1 

CSPEpDAY 

CENTISEC  PER  DAY 

0082 

27,2707 

77606 

1 

AUSH 

T/2**9  = (DAYS  SINCE  UUNE  30TH)/2»»9 

A0083 

COMPUTE  SlN(2»Pl*T/:,65. 

25),  C0S(2»PI*T/365.25)  WHERE 

A0O8A 

T=  NUM3ER  OF  DAYS  SINCE 

midnight  of  preceding  UuNE  30TH. 

0085 

27,2710 

51025 

1 

ALTA  DSJ 

3PL 

DIMINISH  T/2«*9  BY  365.25/2**9 

0086 

REF  1 

27,2711 

17111 

0 

ONEYR 

UNTIL  A negative  RESULT  0CCURS._ 

0087 

REF  1 

27,2712 

56710 

1 

ALTA 

0088 

27,2713 

56215 

1 

DAD 

DOV 

ADD  BACK  365.25/2**9  ONCE. 

0089 

ref  2 

LAST 

72A 

27,2714 

17111 

0 

ONEYr 

LET  Y=RESULT 

OO9O 

ref  3 

LAST 

72A 

27,2715 

17111 

0 

ONEYR 

Y/365.25  is  less  THAN  ONE  AND  POSITIVE. 

0091 

27,2716 

73406 

1 

AUSH 

SIN 

.5*5IN(2*PI*Y/365.25) 

0092 

27,2717 

71525 

0 

aDDL 

COS 

.5*COS(2*P I* Y/365.25) 

A0093 

COMPUTE  (1/8  .LOS)  IN  REVOLUTIONS  WHERE 

A009A 

LOSS  LDSO.LDSRXl 

-COYxSIN (2»PI*Y/365.25) -C1Y»C0S (2»P1*Y/365.25)  . 

A0095 

LOS  = L0N3ITUDE 

OF  SDN  IN  PLANE  OF  ECLIPTIC. 

0096 

27,2720 

65205 

0 

DMP 

PDDL 

0097 

REf  1 

27,2721 

17073 

0 

ClY 

.5*ClY*COS/2 

0098 

27,2722 

43205 

1 

DMP 

OAD 

0099 

REF  1 

27,2723 

17071 

1 

COY 

(COY*SIN  ♦ClY*C0S)/4 

0100 

27,2724 

77725 

1 

ADDL 

T/2**9 

0101 

27,2725 

54205 

1 

DMP 

SL 

0102 

ref  1 

27,2726 

U067 

0 

LOSR 

L0SR*T/2**9 

0103 

27,2727 

20210 

0 

7 

L0SR*T/4 

OlOA 

27,2730 

77625 

0 

DSU 

(L0SR*T-C0Y*SIN-ClY*C0S)/4 

0105 

27,2731 

43215 

0 

DAD 

DAD 

0106 

ref  1 

27,2732 

17065 

1 

LOSO 

L0S/4=  (LOSO*LOSR*T-COY*S1N-C1Y»COS) /4 

633it36A  YUL  SYSTEM  FOR  AGC!  TtVlSION  0 OF  PROGRAM  BURST123  BY  NASA  2n211O6-03l 
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L 

MISSION 

PHASE  8 - 

DPS  COLD  SOA< 

USER'S  OWN  PAGE  NO.  6 S3  E3  ” 

0107 

REF 

1 

27j_273-3_ 

iJlOJ 

_1  _ 

_EiirLLR 

JJ.y8  +L051/4  , 178- REiL_  =_45_  0FG  ^ 

0108 

27,2734 

51025 

1 

AtTB  3SJ 

3PL 

DIMINISH  (1/8  ♦L0S)/4  REvS  bY  (iREV)/4 

0109 

REF 

1 

27,2735 

_L7105 

0 

ONERfV 

UNTIL  A negative  RESULT  OCCURS. 

0110 

REF 

1 

27,2736 

56734 

1 

ALT3 

0111 

27,2737 

62415 

0 

3AD 

SL2 

ADD  BACK  (IREV) /4  . 

0112 

REF 

2 

LAST 

72!> 

27j^740 

a710_5 

0 

ONERfV 

AND  MULTIPLY  BY  FOUR. 

0113 

27,2741 

77606 

1 

3USH 

(1/8  +LOS)  POSITIVE  AND  LESS  THAN  ONE. 

AoilA 

constRJCt  transformation  matrix 

FROM  RCS  COLD  SOAK  ATTItUDe 

A0115 

TD>  EARTH  REFERENCE  CnOROlNATES. 

matrix  is  scaled  by  -1  . 

A0II6 

matrix  transpose 

: IS  stoReo  Starting  in  first  Location  of  pushdown  list. 

A0117 

03L=  03LI3UITY= 

ANGLE  Between  ecliptic  and  equatorial  planes_. 

A0118 

define  L0SR=  2XPIAL0S 

0119 

27,2742 

57846 

COS 

DCOMP 

0120 

27,2743 

00007 

0 

STORE 

6 

-.54COS(pI/4+L0SR) 

0121 

27,2744 

77605 

1 

OMP 

0122 

REf 

1 

27,2745 

17077 

CQSORL 

0123 

27,2746 

00017 

1 

STORE 

uo 

-.5xC0S(PI/A+L0SR)*C0S(0BL) 

0124 

27,2747 

77605 

1 

OMP 

0125 

ref 

1 

27,2750 

__  17101 

1 

TANOBL 

0126 

27,2751 

14021 

1 

STODL 

16D 

-.5*CoS(PI/4*L05R)»SIN (OBL) 

0127 

27,2752 

00001 

0 

0 

0128' 

27,2753 

77756 

0 

SIN 

0129 

27,2754 

00015 

0 

STORE 

120 

.54SIN(PI/4+L0SR) 

0130 

27,2755 

57405 

1 

OMP 

OCOMd 

0131 

REF 

2 

LAST 

725 

27,2756 

17077 

1 

COSOBL 

0132 

27,2757 

00011 

1 

STORE 

8D 

-.5XSIN(PI/4+L0SR)xC0S(0BL) 

0133 

27,2760 

77605 

1 

OMP 

0134 

REF 

2 

last 

725 

27,2761 

17101 

1 

tanorl 

0135 

27,2762 

14013 

0 

STODL 

lOD 

-.5XSIN (PI/4+LOSR) XSIN(OBL) 

0136 

REF 

3 

LAST 

725 

27,2763 

17077 

1 

COSOrL 

0137 

27,2764 

77742 

0 

SRI 

0138 

27,2765 

14005 

1 

STODL 

4 

.5*C0S(0BL) 

0139 

REF 

1 

27,2766 

17075 

0 

SINOrL 

0140 

27,2767 

57542 

0 

SRI 

DCOMP 

0141 

27,2770 

14003 

1 

STODL 

2 

-.5XSIN(0BL) 

0U2 

ref 

2 

LAST 

679 

27,2771 

17103 

0 

DPZRO 

0143 

27,2772 

00001 

0 

STORE 

0 

0 

AO  144 

PERFORM  the  MATRIX  MULTIPLICATION  (RfFSMMAT ) X (KCS  TO  REF  MATRIX)/? 

0145 

27,2773 

64375 

1 

i/LOAD 

MXY 

0146 

27,2774 

00001 

0 

0 

0147 

ref 

18 

LAST 

679 

27,2775 

01263 

1 

REFSMMAT 

0148 

27,2776 

77772 

0 

i/SLl 

0149 

27,2777 

24001 

0 

STOVL 

0 

0150 

27,3000 

00007 

0 

6 

0151 

27,3001 

76521 

0 

MXV 

YSLl 

0152 

ref 

19 

LAST 

725 

27,3002 

01263 

1 

REFSmMAT 
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L 

0153 

MISSI DN 

PHASE  8 - 

OPS  COLD  SOA< 

27. 3DH3 ^9007 

Jl_ 

STOYL 

USER'S  OWN  page  NO.  7 S3  E3 

_6 

015A 

27,3009 

00015 

0 

12D  • 

0155 

27,3005 

76521 

0 

MXY 

VSLl 

0156 

ref 

20 

LAST 

72S 

27,3006 

01263 

1 

REFSwMAT  _ ...  . . _ _ 

0157 

27,3007 

00015 

0 

STORE 

120 

0158 

27,3010 

77776 

1 

EXIT 

A0I59 

transpose  Resjlting  direction  cosine  matrix. 

0160 

REF 

20 

LAST 

959 

27,301J^ 

. 50  _110 

1 

index 

F.IXLOC 

0161 

27,3012 

52  003 

0 

OXCH 

2 

0162 

REF 

21 

LAST 

726 

27,3013 

50  110 

1 

INDEX 

FiXLnC 

0163 

2 7, 30 1 A 

52  007 

1 

OXCH 

6 

016A 

REF 

22 

LAST 

726 

27,3015 

50  110 

1 

INDEX 

FixiZnc 

0165 

27,3016 

52  003 

0. 

OXCH 

2 

0166 

REF 

23 

LAST 

72* 

27,3017 

30  110 

1 

jncex. 

FIxTnC 

•0167 

27,3020 

52  005 

0 

OXCH 

9 

0168 

REF 

29 

LAST 

726 

27,3021 

50  no 

1 

INDEX 

FlXLnC 

0169 

sp  ni *5 

1 

■IXCH 

1 pn 

0170 

REF 

25 

LAST 

726 

27,3023 

50  no 

1 

INDEX 

FIXLOC 

0171 

27,3029 

52  005 

0 

OXCH 

4 

0172 

REF 

26 

LAST 

72«= 

27,3025 

50  .110 

1 

.INDEX 

FlXLnC 

0173 

2 / ,3026 

52  013 

1 

OXCH 

lOD 

017A 

REF 

27 

LAST 

726 

27,3027 

50  no 

1 

INDEX 

FlXLnC 

0175 

27,3030 52_017_5 

OXCH 

19D 

0l76 

REF 

28 

LAST 

726 

27,3031 

50  no 

1 

INDEX 

FlXLnC 

0177 

27,3032 

52  013 

1 

OXCH 

lOD 

0178 

REF 

52 

LAST 

729 

27,3033 

0 6112 

0 

TC 

INTPrET 

A0179 

CALL  routine  TO 

CONVfRT  direction  cosine  matrix  to  cdu  angles. 

0180 

27,3039 

79001 

0 

SETPD 

AXC,1 

0181 

27,3035 

00023 

0 

IbD 

0182 

. 27,3036 

_ 000.0.0.  1. 

Q 

0183 

27,3037 

77629 

1 

call 

018A 

ref 

3 

LAST 

668 

27,3090 

70711 

1 

OCMTnCDU 

A0185 

convert  COU  angles  From  ones  to  twos  complement. 

0186 

- _27,3091 

97131 

1 

5SP 

RTB 

01862 

REF 

7 

LAST 

722 

27,3092 

01653 

0 

RATEtNDX 

01869 

27,3093 

00009 

0 

9 CODE  FOUR  = MANEUVER  RATE  OF  5 0E3/SEC. 

0187 

REF 

LAST 

668 

27,30A9 

33526 

0 

V1ST02S  SIOR3  CDU  SINGLES  IN  CONSECUTIVE 

0188 

REF 

7 

LAST 

672 

27,3095 

01632 

1 

STORE 

CPHI  LOCATIONS  CPHI ,CTHETA,CPSI . 

0189 

27,3096 

77776 

1 

EXIT 

AOI9O 

SET  UP  parameters  FOo  KALCMANU  MANEUVER  ROUTINE 

0193 

REF 

5 

LAST 

710 

27,30A7 

0 6076 

0 

TC 

FLAGjDWN  RESET  STATE  SWITCH  33  (BIT  12) 

0199 

27,3050 

09000 

0 

OCT 

0900n  FOR  final  ROLL  , IF  ANY. 

633<*36A  YUL  SYSTEM  EOR  AqC;  REVISION  0 OF  PROGRAM  BURST12D  8Y  NASA  2021106-031 


DEC  7,  1967 


(MAIN)  PAGE  727 


L MISSION  phase  B - DPS  COLD  SOA<  USER'S  OWN  PAGE  NO.  8 S3  E3 


0195 

REF 

3 last 

6B3 

27.3051 

0_6Q60 

1 

_uc 

FLASoUP 

SET  BIT  FOR  KALCMANU 

019501 

27.3052 

02000 

0 

OCT 

0200n 

BIT  11 

01951 

REF 

68  LAST 

722 

27 ,3053 

0 4161 

__0 

JC  _ 

P_HASCHNG__  . 

01953 

27.3054 

05024 

1 

OCT 

05024 

01955 

27.3055 

20000 

0 

OCT 

2000O 

01957 

REF 

1 

27.3056 

3 7746 

0 

COLDSKl 

:af 

priokm 

SCHEDULE  KALCMANU 

01959 

27,3057 

0 0004 

0 

INHINT 

01961 

ref 

19  LAST 

722_  _ 

27,3060 

0 5516 

0_ 

TC 

mouAC 

01963 

REF 

8 LAST 

726 

E3 

£BAN<= 

RATEiNDX 

01965 

27,3061 

02067 

1 

2CADR 

<ALCMAN3 

C01965 

ref 

3 LAST 

645 

27,3062 

70063 

0 

01967 

ref 

78  LAST 

721 

27,3063 

0 5567 

0 

TC 

endofjob 

0197 

27.3064 

_ 02142 

1 

_ L5S0 

2 DEC 

.273926331  B-2  _ 

J.966-67J.lli.  REVOLUTIONS 

C0197 

27,3065 

00045 

0 

0198 

27,3066 

00054 

0 

LOSR 

2DEC 

.0027377992 

1966-67, IN  REVOLUTIONS 

C0198_ 

27,3067 

33312 

0199 

27,3070 

00053 

1 

COY 

2DEC 

.005306583  B-1 

1966-67, IN  REVOLUTIONS 

C0199 

27,3071 

17056 

1 

0200 

27,3072 

77774  0 

ClY 

2DEC 

-.000402139  B-1 

1966-67, IN  REVOLUTIONS 

C0200 

27,3073 

66451 

1 

0201 

27,3074 

14566 

1 

SINOBL 

2DEC 

.397845753 

1966-67 

C0201 

27,30J5 

11602 

0 

0202 

27,3076 

35267 

1 

CDSOBL 

2DEC 

.917452318 

1966-67 

C0202 

27,3077 

21173 

1 

0203 

27,3100 

15700 

1 

tanobl 

2DEC 

#^33^^1885 

1966-67 

C0203 

27,3101 

31171 

1 

0204 

27,3102 

00000 

1 

D=2R0 

2DEC 

0 

C0204 

27,3103 

00000 

1 

0205 

27,3104 

10000 

0 

dnerev 

2DEC 

.999999999  B-2 

C0205 

27,3105 

00000 

1 

0206 

27,3106 

01000 

0 

EoHTH 

2DEC 

.125  b-2 

C0206 

27,3107 

00000 

1 

0207 

27,3110 

26650 

0 

DNEYR 

2DEC 

365.25  B-9 

C0207 

27,3111 

00000 

1 

0208 

27,3112 

00020 

0 

CSPERDAY 

20EC 

8640000  B-33 

CENTISEC  PER  DAY 

C0208 

27,3113 

17260 

0 

R0214 

end 

OFi  MISSION  PHASE 

3 

633i»36A 


L 

ROOOl 

0002 

0003 

ROOOA 

R0006 

Roooe 

ROOlO 

Roou 

R0013 

R0015 

Rool? 

R0019 

R0021 

R0023 

R002A 

Ro026 

R0028 

R0030 

Ro032 

R0034 

R0035 

ROO36 

R0037 

ROO39 

R0041 

ROO42 

ROO43 

ROO44 

R0045 

0046 

0047 

0048 

0049 


0050 

0051 

0052 

0053 
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MPr-D^s  1 BURN  USER'S  OWN  PAOE  NO.  1 S3 

MiSSX0N_PHASE-9 ^ 


33.2724  3AN<  33 

REF  97^LA&TJ719 EA EBAN<=  TD.EC 

PROGRAM  DESCRIPlION-MiISSION  PHASE9-DPS1  BURN  DATE-28  OCT  66 

MOD  ND-2  LOG  SECTI0N-MP9 

MOD  BY-  CHO  ..  _ _ -- : . ASSEMBLY-SUNBURST  REVZ4 _ 

FUNCTIONAL  DESCRIPTION 

this  PHASt  is  STARIlD  3HOU8uMIN_  and  49S£CS  AFTER  THf  TERMINATI  ON  OF  SIVB/LeM  SEPARATION  *X  TRaNSLAtI 
ON  AND  by  the  INITIATION  OF  PROGRAM  31  (PRE-DPSi  3URN).  PROGRAM  31  CALLS  FOR  DPS  CUTOFF  TDI  5MIN  AMD 

15SEC5  later,  in  ORDeT  TO  ALIGN  THE  VEHICLE  THRUST  AXIS  ALONG  THe  DeSIReD  ACCELERATION  VECTOR  DURING  PR’-OPSl 

phase,  the  following  computations  are  made  - Vehicle  state  vector  forward  integration  to  the  descent 
INUECtION  CUTOFI"  time  TDI,  velocity  to  Be  gained  V6,  the  maneuver  thrust  time  TTHRUSt,  DPSI  ignition  time  tign 

AND  FINALLY  DeSIReD  THRUS]  DIRECTION  UNITVG.  PROGRAM  31  ALSO  COMMANDS  LANDING  GEAR  DEPLOYMENT  AND  CALL  -OR 

A maneuver  to  the  firing  attitude.  

PROGRAM  Al,  BURN  IS  STARTED  36SECS  3-FORe  IoNITtON.  THIS  PROGRAM  ARMS  THE  DESCENT  ENGINE. 

COMMANDS  +X  TRANSLATION  AND  COMMANDS  ENGINE  ON.  DURING  THE  BURN,  tHe  VELOCITY  TO  Be  GAINeD  AND  TIMe  TO' 

cutof=‘  tgo  ARE  Computed  e.veRY  t«o  seconds,  when  tgo  falls^Selow  the  critical  value  engine  off  signal  counter 
IS  Set.  when  post  engine  cutoff  routine  is  performed,  . MPENTRY  NO.i  is  set  to  start  MPu  in  31MIN  llSECS. 

CALLING  Sequence,  after  the  termination  of  sivb/leM  separation  +x  translation  and  by  the  initiation  of_  _ 

PROGRAM  31. 

NORMA.  EXIT  MODtS-  TASXQVeR  (AWAITS  MPENTRY  INTO  MP_UVTA._N0.1I  . . _ ...  ..... 

ALARM  EXIT  MODE"  NONE 


SUBROUTINES  CALLED-  FIXDELAY,  ILMP,  2LMP,  EXECUTIVE,  MIDTOAVf,  BANKCALL,  IBNKCALL,  WAITLIST,  XALCMANU, 
UL4UET0N,  UL4UEIOFF,  ENGINEON,  eNGINOFF,  NeWMODEX,  OFITCAL,  RVUPDAOR,  TPAGREE,  TASKOVER,  ENDOFUOB,  eNG0=1 


INPUT-  RN,  VN,  RP,  MUEARTH,  TDl 


OUTPUT- 

VG,  ' 

TTHRUST. 

TIGN,  UNITVG,  TGO 

erasable 

; initialisation  required- 

DEBRI 

s- 

TDEC 

REF 

17 

last 

683 

33,2724 

3 7753 

1 M»9U0B 

CAF 

3IT9 

REF 

8 

LAST 

721 

33,2725 

0 4105 

I 

TC 

SETRSTRT 

SET  RESTART  FLAG 

REF 

20 

last 

721 

33,2726 

0 4117 

1 

TC 

NEWMODEX 

DISPLAY  PROG.  NO. 

33,2727 

00031 

0 

octal 

31 

REF 

98 

LAST 

728 

E4 

eban<= 

TDEC 

33,2730 

0 0006 

1 

EXTEND 

REF 

29 

LAST 

72  A 

13_ii73L 

_3  0025 

0 

OCA 

TIME? 

PICK  UP  CURRFNT  TIME 

RLF  1 - - 33^2732  53*666  1 DXCH  TDI 
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L 

n0<i4 

MP9- 

D36 

1 BURN 

33 

,2733 

0 0006 

_1_ 

=XTFND 

USER'S  OWN  PAGE  NO,  2 

S3  E4 

0055 

REF 

1 

33 

,2734 

3 3502 

0 

OCA 

5M15S 

0056 

REF 

2 

LAST 

728 

. 33 

,2735 

21*666 

1 

OAS 

TDI 

SET  TDUTIME2  + 5M15S 

0057 

REF 

1 

33 

,2736 

3 3465 

0 

CAF 

E3J2ADR 

SET  COMPUTATIINAL  STEPS 

0058 

REf 

1 

33 

,2737 

55*662 

0 

rs 

shJjmpi 

0059 

REF 

59 

LAST 

727 

33 

,2740 

0 <1161 

0 

TC 

PHASrHNG 

• 0060 

33 

,2741 

05022 

1 

OCT 

D5O22 

0061 

3? 

,2742 

20000 

_Q_ 

JCI 

0062 

33 

,2743 

0 0006 

1 

EXTEND 

0063 

REF 

3 

LAST 

729 

33,2744 

3.  1666 

0 

■ OCA 

TjOI 

0064 

REF 

99 

LAST 

728 

33 

,2745 

53*567 

0 

OXCH 

TUEC 

0065 

33 

,2746 

0 0006 

1 

EXTEND 

0066 

REF 

1 

33 

,2747 

3 3474 

a 

OCA 

RVJPDADR 

STATE  vector  UPDATE  FoR  PRE-DPSj, 

BURN 

0067 

REF 

22 

LAST 

713 

• 33 

,2750 

52  006 

0 

OXCH 

z 

0068 

REF 

70 

LAST 

729 

33 

*2751 

0 

_ J_C 

_PHASCHNG__ 

0069 

33 

,2752 

04022 

0 

OCT 

04022 

OO7O 

REF 

53 

LAST 

728 

33 

,2753 

0 6112 

0 

. TC 

INTRrET 

OO7I 

33 

,2754 

77624 

1 

CALL 

0072 

REF 

2 

LAST 

0 

0 

33 

,2755 

60436 

0 

VPATCHER 

rescale  and  LOAD  TDI  STATES  IN  RN 

AN  VN 

0073 

33 

.2756 

77650 

1 

SOTO 

0074  . 

REF 

1 

33 

,2757 

67420 

0 

DPSlEOUl  +1 

COMPUTES  VELOCITY  TO  BE  GAINED, 

0075 

33 

*2760 

77745 

1 

D=S1E0J2  OLOAD 

COMPUTES  MANEUVER  THRUST  TIME 

0076 

ref 

1 

33 

*2761 

00045 

0 

LV 

ABVAl(VG) 

0077 

33 

*2762 

45261 

0 

SR 

DSJ 

0078 

33 

*2763 

20613 

1 

lOD 

NOW  VG  SCALED  AT  2(+17)M/CS 

0079 

ref 

'1 

33 

,2764 

27504 

0 

DPA 

0080 

33 

,2765 

43271 

1 

ODV 

OAD 

OOBl 

ref 

1 

33 

.2766 

27506 

1 

DPB 

0082 

REF 

1 

33 

,2767 

27510 

0 

DPC 

0083 

REF 

1 

33 

,2770 

26264 

0 

STOVL 

TTHRiiST 

scaled  at  2(*28)CS 

0084 

REF 

1 

33 

,2771 

02272 

1 

JNITVG 

0085 

REF 

3 

LAST 

702 

33 

,2772 

25656 

0 

STOVL 

POINtVSM 

KALCMANU  INPUT  REGISTER 

0086 

REF 

2 

LAST 

702 

33 

,2773 

26641 

0 

BODYwECT 

LOAD  BODY  AXES  VECTOR  IN  SM  COORD 

00_B7 

REF 

6 

last 

702 

33 

,2774 

01664 

1 

STORE 

SCAXIS 

KALCMANU  INPUT  VECTOR 

0088 

33 

,2775 

66214 

0 

SET 

SSP 

0089 

33 

,2776 

01063 

0 

33D 

OO9O 

ref 

9 

last 

727 

33 

,2777 

01653 

0 

RATEtNDX 

0091 

33 

,3000 

00004 

0 

4 

SET  KALCMANU  FOR  ANGULAR  RATE  Of 

5DEG/S 

0092 

33 

,3001 

77776 

1 

EXIT 

OO93 

ref 

71 

LAST 

729 

33 

*3002 

0 4161 

0 

TC 

PHASrHNG 

0094 

33 

,3003 

04022 

0 

OCT 

04022 

0095 


33,3004  0 0004  0 


INHI'IT 
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L 

0096 

MP9-0=6 

1 burn 

33.3005 

D 1 

FXTEND 

USER*S  own  page  nO.  3 S3  E4 

0097 

REF 

2 

LAST 

729 

33,3006 

4 1664  0 

OCS 

TTHRIIST 

COMPUTES  TIGN 

0098 

REF 

LAST 

698 

33,3007 

53*670  0 

5XCH 

TIGN 

0099 

33,3010 

0 0006  1 

EXTEmD 

0100 

REF 

LAST 

729 

33,3011 

3 1666  0 

3CA 

TOI 

0101 

REF 

5 

LAST 

730 

33i3012 

21*670  0. 

3AS 

TIGN  . 

_ .T1GN=TDI-TTHRUST  „ (SCALED  AT  2(.28)CS) 

0102 

REF 

1 

33,3013 

3 3466  0 

CAF 

E0J3flDR 

0103 

REF 

2 

LAST 

729 

33,3014 

55*662  0 

TS 

SHJJMPl 

OlOA 

REF 

1 

33,3015 

3 3521  1 

:af 

70SECS9 

call  postkalc  70  SECS  later 

0105 

REF 

9A 

LAST 

721 

33,3016 

0 5663  1 

TC 

WAITLIST 

0106 

REF 

130 

LAST 

72V 

E4 

EBAN<= 

TDEC 

0107 

33,3017 

03036  1 

2CADR 

POSTXALC 

C0107 

REF 

3 

LAST 

65 

33,3020 

66064  0 

0108 

REF 

72 

LAST 

729 

33.3021 

0 4161  0 

Ti 

PHASrHNG 

0109 

33,3022 

40042  0 

OCT 

40042 

0110 

33,3023 

- 0 0004  0 

CALLKALC 

INHINX- 

0111 

REF 

6 

LAST 

703 

33^3024 

3 5642  1 

CAF 

PRI016 

CALL  KALCMANU  JOB. 

0112 

REF 

20 

LAST 

727 

33,3025 

0 5516  0 

TC 

FlNOuAC 

0113 

REF 

21 

LAST 

703 

E3 

£BAN<.= 

MIS 

OllA 

33,3026 

02001  1 

2CA0R 

VECPnINT 

COllA 

REF 

2 

LAST 

703 

33,3027 

70063  0 

0115 

REF 

125 

LAST 

722 

33,3030 

0 5206.  0 

-TC  .. 

BANCCALL 

0116 

REF 

3 

LAST 

722 

33,3031 

26743  0 

CADR 

attstall 

SEE  if  KALCMANU  FINISHED 

0117 

REF 

4 

LAST 

722 

33,3032 

0 4743  0 

CJRT9 

TC 

CURTAINS 

UNFINISHED  MANEUVER 

0118 

REF 

73 

LAST 

730 

33,3033 

0 4161  0 

TC 

PHASCHNG 

0119 

33,3034 

00432  1 

OCT 

00432 

2.43  FOR  POSTKALC.  DON*T  RESET  T3ASE. 

0120 

REF 

79 

LAST 

727 

33,3035 

1 5567  1 

rcF 

EnDOFJOB 

GOOD  RETURN-  END  MP9J0B 

0121 

■REF 

15 

LAST 

722 

33,3036 

4 0076  1 

POSTKALC 

:s 

FLA.GWRD2 

CHECK  whether  KALCMANU  IS  FINISMEO. 

0122 

ref 

3A 

LAST 

722 

33,3037 

7 7751  1 

MAS< 

BITlt 

0123 

REF 

238 

LAST 

688 

33,3040 

10  000  0 

CCS 

A 

012A 

REF 

1 

33,3041 

0 3047  1 

TC 

GOOOlf  ALC 

GOOD  RETURN 

0125 

REF 

5 

LAST 

695 

33,3042 

3 5660  1 

CAF 

PRI 037 

BAD  RFTURN 

0126 

ref 

21 

LAST 

730 

33,3043 

0 5516  0 

TC 

finovac 

0127 

REF 

131 

LAST 

730 

E4 

EBAN<= 

TDEC 

0128 

33,3044  0^032  0 

2CADR 

CJRTq 

C0128 

REF 

1 

33,3045 

66064  0 

0129 

REF 

79 

LAST 

722 

33,3046 

0 5727  0 

TC 

TAS<nVER 

END  POSTKALC  TASK 

0130 

REF 

39 

LAST 

722 

33,3047 

0 5101  1 

oOODKALC 

TC 

ILMP+DT 

0131 

33,3050 

00354  0 

OEC 

236 

DFI  T/M  calibrate  - ON  * 

0132 

33.3051 

OEC 

1200 

633A36A 

YUL 

system  for  ''gc: 

REVISION 
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L 

MP9-D=S 

1 BURN 

USER'S  OWN  page  NO,  4 S3  E4 

0133 

ref 

19 

LAST 

722 

33,3052 

0 5073-  0 

- JC- 

_ZLMP*UT  --  - 

0134 

33,3053 

00355  1 

3EC 

237 

DFI  T/M  CALIBRATE  - OFF  # 

0135 

33,3054 

00306  1 

3EC 

198 

MASTER  C6W  ALARM  RESET  - COMMAND 

0136 

33,3055 

00310  0 

3EC 

200 

0137 

REF 

40 

LAST 

730 

33,3056' 

0 5101  1 

TC 

1LMP*DT 

0138 

33,3057 

00307  0 

3EC 

199  

master  C6W  ALARM  RESET  - COMMAND  RESET 

0139 

33,3060 

00001  0 

3EC 

1 

0140 

33,3061 

0 0006  1- 

EXTEND 

CALL  DPSl  BURN  PROG.  AT  TIGN-36SECS. 

0141 

ref 

30 

LAST 

728 

33,3062 

4 0025  1 

3CS 

T1MF5 

0142 

REF 

76 

LAST 

708 

33,3063 

52  062  1 

3XCH 

ITEMPI 

0141 

33,3064 

0 0006  1 

EXTEND 

0144 

REF 

6 

LAST 

730 

33,3065 

3 1670  1 

3CA 

TI3N 

0145 

REF 

77 

LAST 

731 

33,3066 

20  062  1 

3AS 

I TEMPI 

0146 

33.3067 

0 0005  1 

EXTEND 

0147 

ref 

1 

33,3070 

4 3500  0 

3CS 

66SECSD9 

0148 

REF 

78 

LAST 

73l 

33,3071 

20  062  1 

DAS 

ITEMPI 

0145 

33,3072 

0 0006  1 

EXTEND 

0150 

REF 

79 

LAST 

731 

33,3073 

3 0062  0 

3CA 

ITEMPl 

0151 

REF 

10 

LAST 

700 

33,3074 

53'305  1 

3XCH 

TDECTEMP 

FOR  restarts. 

0152 

REF 

30 

last 

731 

33,3075 

52  062  -1  

3XCH 

U-EMpA  . 

0153 

REF 

4 

LAST 

710 

33*3076 

0 5741  0 

rc 

LONsrALL 

0114 

1 02 

1 AST 

730 

E4 

PRAN<= 

TDEr 

0155 

33,3077 

03134  1 

2CADR 

T I o9->66 

C0155 

ref 

3 

LAST 

67 

33,3100 

66064  0 

0156 

REF 

74 

LAST 

730 

33,3101 

0 4161  0 

TC 

PHAsrHNG 

0157 

33,3102 

20134  0 

DCT 

20134 

4.13  FOR  TIG9-66  LONGCALL, 

0111 

REF 

1 

33,3103 

3 3520  0 

CAF 

11SECS9 

0159 

REF 

95 

LAST 

730 

33,3104 

0 5663  1 

rc 

/WAITLIST 

0150 

REF 

103 

LAST 

731 

E4 

eban<= 

TDEC 

Oltl 

33,3105 

03112  0 

2CADR 

182LMP 

COlbl 

REF 

2 

LAST 

65 

33,3106 

66064  0 

0162 

REF 

75 

LAST 

731 

33,3107 

0 4161  0 

TC 

PHASrHNG 

0153 

33,3110 

40452  0 

DCT 

4045? 

2.45  FOR  182LMP  TASK. 

0164 

REF 

30 

LAST 

730 

33,3111 

1 5727  1 

TCF 

tas<over 

END  GOODKALC  TASK 

0165 

REF 

20 

LAST 

73l 

33,3112 

0 5073  0 1B2LMP 

rc 

2LMP+DT 

0166 

33,3113 

00266  0 

DEC 

182 

LANDING  RADAR  POWER  ON 

0167 

33,3114 

00032  0 

DEC 

26 

RADAR  SELF  test-on 

0168 

33,3115 

11444  0 

DEC 

490D 

0159 

REF 

Hi 

LAST 

731 

33,3116 

0 5101  1 

TC 

1LMP*DT 

0170 

33,3117 

00004  0 

DEC 

4 

ED  BATTERY  ACTIVATION  -ON 

0171 

33,3120 

00764  1 

DEC 

500 

0172  REF  HZ  LAST  731 


33,3121  0 5101  1 


rc 


1L'1P*DT 
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L 

MP9' 

-036 

1 BURN 

user*s  own  page  no.  5 

S3  E4 

0173 

J3i3l22 

00010  0 

_ ■■  3EC  _ 

6 - - 

-LANDING -GEAR  DLPLOY  -FIRE  - -- 

017A 

33,3123 

00310  0 

3EC 

200 

0175 

REF 

43 

LAST 

731 

33,3124 

0-5101  1 

rc 

-1LMR*UI- 

0176 

33,3125 

00011  1 

3EC 

9 

LANDING  gear  DEPLOY-  FIRE  RESET 

0177 

33,3126 

00620  0 

3EC 

400 

0178 

REF 

7 

LAST 

710 

33,3127 

0 5060  1 

■ TC 

ILMP 

0179 

33,3130 

00033  1 

DEC 

27 

RADAR  SELF-TEST  - OFF. 

0180 

REF 

76 

LAST 

731 

33,3131 

0 4161  0 

rc 

PHASfHNG 

0181 

33,3132 

00002  0 

OCT 

00002 

GROUP  2 OFF. 

0182 

REF 

31 

LAST 

731 

33,3133 

0 5727  0 

rc 

TAS<OVER 

END  182LMP  TASK 

01b3 

REF 

21 

LAST 

728 

33,3134 

0 4117  1 

TIG9-66  rc 

NEWMODEX  - - 

DISPLAY  PROGRAM  NUMBER  ON  OSKY 

OIBA 

33,3135 

00041  1 

3CT 

41 

01b5 

REF 

52 

last 

71 7 

33,3136 

0 5270  1 

Ti- 

lBN<rALL 

01B6 

REF 

A 

LAST 

703 

33,3137 

40277  1 

CAOR 

EMo I NOF 1 

0187 

REF 

2 

LAST 

680 

33,3140 

0 5052  0 

rc  - 

2LM? 

0188 

33,3141 

00226  1 

DEC 

150 

ENGINE  SELECT  DESC  ARM 

0189 

33,3142 

00126  1 

5EC 

86 

MANUAL  THROTTLE  ON  (lOPERCENT) 

0190 

REF 

1 

33,3143 

3 3516  0 

CAF 

50SErS9 

0191 

REF 

96 

LAST 

731 

33,3144 

0 5663  1 

rc 

(JAITI  1ST 

0192 

REF 

104  1.ASI 

731 

- E4 

fBANA=  IDEC_ 

0193 

33,3145 

03450  0 

2CADR 

228LMP 

C0193 

ref 

2 

LAST 

65 

33,3146 

66064  0 

0l9A 

REF 

6 

LAST 

ISO 

„13 ,3_1.47 

3 5651  0 

CAF 

PRI097 

0195 

REF 

22 

LAST 

730 

33,3150 

0 5516  0 

TC 

FINOVAC 

0196 

REF 

105 

LAST 

732 

E4 

eban<= 

TDEC 

0197 

33,3151 

03157  1 

2CADR 

0R3INTJB 

C0197 

REF 

2 

LAST 

67 

33,3152 

66064  0 

0198 

REF 

27 

LAST 

722 

33,3153 

0 4141  1 

rc 

2PHSCHNG 

0199 

33,3154 

40472  1 

3CT 

40472 

2.47  FOR  228LMP  TASK, 

0200 

33,3155 

00154  1 

OCT 

00154 

4.15  FOR  ORBINTJB  JOB. 

0201 

REF 

32 

LAST 

732 

33,3156 

1 5727  1 

TCF 

TASCnVER 

END  TIG9-66  TASK 

0202 

33,3157 

0 0006  1 

ORBINTJB  EXTEND 

0203 

REF 

7 

LAy 

731 

33,3160 

3 1670  1 

OCA 

TIGN 

020A 

REF 

106 

LAST 

732 

33,3161 

53*567  0 

OXCH 

TDEC 

0205 

REF 

1 

33,3162 

4 35I7  0 

CS 

30SErS9 

0206 

ref 

145_ 

last  J08 

33,3i63 

54_J3P-1._1 

ts 

1 

0207 

REF 

229 

LAST 

724 

33,3164 

4 7767  1 

CS 

ZERO 

0208 

REF 

107 

LAST 

732 

33,3165 

21*567  0 

OAS 

TDEC 

TDEC  NOW  CONTAINS  TIGN-30  SECS, 

0209 


33|3166  0 0006  1 
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L 

MP9 

-D’S 

1 BURN 

USER*S  OWN  PAGE  NO.  6 S3  E4 

0210 

REF 

2 

LAST 

700 

33 

r.3L67 

_3  Z654  l_ 

^_DCA 

JlRB.IiLTAD_.. ..  _ . 

0211 

REF 

23 

LAST 

729 

33 

*3170 

52  006  0 

3XCH 

Z 

0212. 

REF 

0 4161  0 

TC 

Pha^chng 

0213 

33 

*3172 

05024  1 

3CT 

05024 

0214 

33 

,3173 

27000  1 

3CT 

27000 

R0215 

RN 

AN5  VN  IN 

stable 

member  coordinates. 

SCaLINS  is  as  in  avfg. 

R02L6 

DELETE 

0217 

ref 

2 

LAST 

702 

33 

*3174 

3 2646  1 

CAF 

AVGENADR 

0218 

REF 

13 

LAST 

71A 

33 

*3175 

55'310  0 

TS 

dvsei  ect 

SELECT  AGS  MONITOR 

0219 

33 

*3176 

0 0006  1 

extend 

0220. 

REF 

2 

LAST 

702 

33 

*3177 

3 2652  1 

OCA 

ExITADR 

0221 

REF 

9 

LAST 

71A 

33 

*JZQQ 

53*073  0 

OXCH 

avgexij 

SET  AVERAGES  EXIT 

0222 

33 

*3201 

0 0006  1 

EXTEND 

0223 

R?F 

1 

33 

.3202 

3 3472  0 

?CA 

VIPQTmI  Ap 

0224 

REF 

6 

LAST 

702 

33 

*3203 

53*075  0 

DXCH 

dvmnexit 

SET  MONITOR  EXIT 

0225 

33 

*3204 

0 n004  0 

TNNINT 

0226 

ref 

2 

LAsT 

732 

33 

*3205 

4 3517  0 

:s 

30sEr59 

CALL  PREREAD  AT  TIGN-30sECs. 

0227 

REF 

1 

33 

*3206 

0 2663  0 

TC 

TAS<«;ETR 

0228 

REF 

2 

LAST 

69 

33 

*3207 

55*342  1 

TS 

RSDTtFMP 

FOR  RESTARTS. 

0229 

ref 

97 

LAST 

732 

33 

*3210 

0 5663  1 

TC 

/(AITLIST 

0230 

ref 

5 

last 

719 

E5 

eban<? 

DVTOTAL 

0231 

33 

*3211 

02000  0 

2CADR 

PREREAD 

C0231 

ref 

7 

LAST 

719 

33 

*3212 

60065  1 

0232 

REF 

28 

LAST 

732 

33 

*3213 

0 4141  1 

TC 

2PHSCHNG 

0233 

33 

*3214 

40355  0 

3CT 

40355 

5.35  FOR  PREREAD. 

0234 

33 

*3215 

04024  0 

3CT 

04024 

0235 

33 

*3216 

0 0004  0 

INHINT 

0236 

REF 

230 

LAST 

732 

33 

*3217 

4 7767  1 

:s 

ZERO 

CALL  TVC  FOR  DPSl  AT  IGNITION  TIME 

0237 

REF 

2 

LAST 

733 

33 

*3220 

0 2663  0 

TC 

TAS<«;ETR 

0238 

REF 

11 

LAST 

731 

33 

*3221 

55*305  1 

TS 

TDECtEMP  +1 

FOR  RESTARTS, 

0239 

REF 

98 

LAST 

733 

33 

*3222 

0 5663  1 

TC 

/JAITLIST 

0240 

REf 

10 

last 

733 

E2 

eban<= 

AVGEXIT 

0241 

33 

*3223 

03230  0 

2CADR 

TIGq-O 

C0241 

REF 

2 

LAST 

67 

33 

*3224 

66062  0 

0242 

REF 

78 

LAST 

733 

33 

*3225 

0 4161  0 

TC 

PHASrHNG 

0243 

33 

*3226 

40174  1 

OCT 

40174 

4.17  FOR  TIG9-0. 

0244 

REF 

30 

LAST 

730 

33 

*3227 

1 5567  1 

rcF 

ENDOFJOB 

END  orbital  integration  JOB 

0245 

33*3230 

0 0006 

1 TIG9-0 

EXTEND 

0246 

REf  1 

33*3231 

3 3470 

1 

OCA 

0247 

REF  11  LAST  733 

33*3232 

53*073 

0 

OXCH 

EDJIAoR 

avgexit 


AVG  ROUTINE  GOES  TO  VG  COMPUTATIOM 


633i>36A  YUL  SfSTEM  FOR  *GC:  REVISION  0 OF  PROGRAVI  BURSTIZD  BY  NASA  202110ft-03l 


DEC  7,  1967  (MAIN)  PAGE  73A 


L 

MP9- 

1 burn 

USER'S  OWN  page  no.  7 S3  E9 

C\7Uf{ 

REF 

E3 

LAST 

732 

n S770  1 

_tc 

IBN.<rALL  . 

02a9 

REF 

4 

LAST 

709 

33.3239 

90226 

0 

CADR 

DPSEnGON  ^ 

0250 

REF 

29 

LAST  733 

33,3235 

Q A L4i_l 

rc- 

-2gj3SrHNG 

0251 

33,3236 

00009 

0 

DCT 

00009 

0252 

33,3237 

90512 

0 

3CT 

90512 

2,51  FOR  9ULLOFF  TASK. 

0253 

RtF 

99 

LAST 

717 

33,3290 

0 5701 

1 

TC 

FlXOELAY 

025A 

33,3291 

00062 

0 

3EC 

50 

0255 

REF 

LAST 

739 

33,3292 

0 5270 

1 

9JLLOFF  rc 

IBNCrALL 

0256 

REF 

8 

LAST 

717 

33,3293 

90066 

0 

CAOR 

NOJLLAGE 

♦X  TRANSLATION-  OFF 

0257 

REF 

79 

LAST 

733 

33,3299 

0 9161 

0 

TC 

PHASrHNG 

0258 

33,3295 

90532 

1 

OCT 

90532 

2.53  for  9E0BATT. 

0259 

REF 

50 

LAST 

739 

33,3296 

0 5701 

1 

rc 

FIXDELAY 

0260 

33,3297 

00372 

1 

OEC 

250 

0261 

REF 

99 

LAST 

732 

.33,3250 

0 5101 

1 

9E0BATT  rc 

ILMP+DT 

0262 

33,3251 

00005 

1 

OEC 

5 

ED  BATTERY  ACTIVATION-SAFE 

0263 

33,3252 

09379 

0 

OEC 

2300 

0269 

REF 

30 

LAST 

739 

33,3253 

0 9191 

1 

TC 

ZPHSrHNG 

0265 

33,3259 

00002 

0 

■OCT 

2 

0266 

33,3255 

05019 

1 

OCT 

05019 

THROTTLE  PROGRAM  TAKES  OVER  GP  9. 

0267 

33,3256 

77777 

0 

OCT 

77777 

0268 

REF 

91 

LAST 

715 

33,3257 

3 7793 

0 

CAF 

POSMAX 

CALL  FOR  MAXIMUM  THRUST. 

0269 

REF 

3 

LAST 

705 

33,3260 

55*323 

0 

rs 

PCNTF 

0270 

33,3261 

0 0006 

EXTEND 

0271 

ref 

2 

last 

705 

33,3262 

3 2656 

0 

OCA 

PCNTFMAd 

0272 

33,3263 

52  006 

0 

0TC8 

0273 

REF 

33 

LAST 

732 

33,3269 

1 5727 

1 

TCF 

TA5<nVER 

END  TIG9-0  TASK 

0279 

33,3265 

77629 

1 

D=S1EDJ3  CALL 

0275 

ref 

1 

33,3266 

67277 

1 

calctgo 

0276 

33,3267 

77775 

1 

VLOAO 

0277 

ref 

2 

LAST 

729 

33,3270 

02272 

1 

JNI TVG 

0278 

REF 

2 

LAST 

702 

33,3271 

02233 

1 

STORE 

Ax  150 

FINDCOUD  INPUT 

0279 

33,3272 

77629 

1 

CALL 

0280 

REF 

2 

last 

708 

33,3273 

60703 

0 

FINOCDUD 

0281 

33,3279 

77776 

1 

EXIT 

0282 

REF 

91 

LAST 

ia5_ 

33,3275 

0_5i225^ 

r£ 

Post  iump 

0283 

REF 

6 LAST  719 

33,3276 

60329  1 

CAOR  SERVEXIT 

0289 

33,3277 

95395  1 CALCTGD 

DUOAD  DSJ 

0285 

ref 

2 last  729 

33,3300 

00095  0 

LV 

ABVAl(VG) 


633^,36A  YUL  system  for  AGCV  REVISION  0 OF  PROGRAM  BURST12D  BY  NASA  2n211O6-031  DEC  7,  1967  (MAIN)  PAGE  735 


L 

MP9-03S  1 BURN 

USER'S  OWN  PAGE  NO.  8 

S3  E4 

02^6 

ref 

I 

33.3301 

03574  1 

VTAiroFF 

0287 

33,3302 

56205  0 

3MP 

DDV 

0288 

ref 

1 

33,3303 

27512  1 

0ELTAT9 

0289 

ref 

6 LAST 

614 

33,3304 

02535  0 

ABDFi  V 

0290 

REF 

4 LAST 

335 

33,3305 

02346  1 

STORE 

TToO 

FOR  DWLK  ONLY 

O29I 

33,3306 

44234  1 

9TB 

JUlSJi 

0292 

ref 

3 last 

39B 

33,3307 

33454  1 

LOAdtIME 

0293 

ref 

2 LAST 

685 

33,3310 

01307  1 

PIPTtME 

O29A 

33.3311 

47015  0 

OAD 

RTB 

0295 

REF 

5 LAST 

735 

33,3312 

02346  1 

TTGO^ 

0296 

REF 

9 LAST 

678 

33,3313 

33520  0 

SGNAfiREE 

0297 

REF 

3 LAST 

701 

33,3314 

02141  1 , , 

store 

TGO,  , 

0298 

33,3315 

51025  1 

OSJ 

BPL 

0299 

REF 

1 

33,3316 

27416__1 

4SE;sD9 

0300 

REF 

1 

33,3317 

00052  0 

OPREt 

0301 

33,3320 

77776  1 

EXIT 

0302 

33,3321 

0 0004  0 

iNHINT 

0303 

ref 

4 lAsT 

735 

33,3322 

311541  0 

:ae 

T&o  *1 

0304 

_ 33,3323 

0 0006  1 

. EXTEND 

0305 

REF 

1 

33,3324 

6 3347  1 

3ZMF 

CUT0fF2 

CUT  OFF  engine  IMMEDIATELY  IF 

ToO  NEG 

0306 

REF 

12  LAST 

733 

33,3325 

55'304  0 CJTOFFI 

rs 

TDECTEMP 

FOR  RESTARTS, 

030J 

REF 

99  LAST 

733 

33,3326 

0 5663  1 

TC 

WAITLIST 

0308 

REF 

15,  last 

672 

El 

£BAN<= 

CQJXd 

0309 

33,3327 

03340  0 

2CADR 

CUTOFF 

C0309 

REF 

2 LAST 

65 

33.3330 

66061  0 

0310 

33,3331 

0 0006  1 

EXTEND 

STOPS  GUIDANCE  EQUATION  LOOP 

0311 

REF 

3 LAST 

733 

33,3332 

3 2652  1 

OCA 

EXITADR 

0312 

REF 

12  LAST 

733 

33,3333 

53*073  0 

OXCH 

AVGEXIT 

0313 

0314 

ref 

31 

last 

734 

33.3334 

33.3335 

0 4141 
40552 

1 

1 

TC 

OCT 

2PHSCHNG 

40552 

2.55  FOR  CUTOFF  TASK. 

0315 

33,3336 

00035 

1 

OCT 

00035 

5,3  FOR  SERVICER. 

0316 

REF 

31 

LAST 

733 

33,3337 

1 35bZ 

1 

rCF 

ENDOFJOB 

END  DPSl  BURN  EQUATION  UOB 

0317 

REF 

55 

LAST 

734 

33 » 3340 

0 5270 

1 

CJTOFF 

TC 

IBN<CALL 

0318 

ref 

7 

.LAST 

694 

33,3341 

40263 

1 

CAOR 

enginoff 

0319 

REF 

56 

LAST 

735 

33,3342 

0 5270 

1 

TC 

IBN<CALL 

0320 

REF 

8 

LAST 

717 

33,3343 

40114 

1 

CAOR 

STDPRATE 

HOLD  VEHICLE  ATTITUDE 

0321 

REF 

30 

LAST 

734 

33,3344 

0 4161 

0 

rc 

PHASCHNG 

0322 

33,3345 

00002 

0 

OCT 

2 

2 OFF.  servicer  TO  RETURN  TO  M^giERMl. 

0323 

REF 

34 

LAST 

734 

33,3346 

1 5727 

1 

rcF 

TAS<OVER 

END  CUTOFF  TASK 

0324 

ref 

54 

LAST 

7l9 

33,3347 

3 7763 

1 

CJT0FF2 

CAF 

aiTi 

633<>36A  yUL  SfSTEM  FOR  Aqc:  REVISION  0 OF  PROCjRA'^  BURST123  BY  NASA  2n2110fe-031 
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L 

MP9- 

O^S 

1 BURN 

USER'S  OWN  PAGE  NO,  9 S3  E9 

0325 

REF 

1 

33 

t3350 

1 3325 

1 

I Cf  - - 

. .CUJOFJJ. - . . 

0326 

33 

.3351 

0 0009 

0 

M=9TER'U 

INHINT 

0327 

REF 

1 

33 

.3352 

3 3515 

0 

:af 

5SECS.9 

0328 

REF 

130 

LAST 

735 

33 

.3353 

0 5663 

1 

tc 

9A1 TLIST 

0329 

REF 

138 

LAST 

732 

E9 

eban<= 

TOEC 

0330 

.33 

.3359 

03362 

0 

2CADR  . 

BTuMP 

C0330 

REF 

2 

LAST 

65 

33 

.3355 

66069 

0 

0331 

REF 

31 

LAST 

735 

33 

.3356 

0 9161 

0 

TC 

PHASCHNG 

0332 

33 

.3357 

90572 

0 

3CT 

90572 

2.57  FOR  67LMP  TASK., 

0333 

REF 

92 

LAST 

739 

33 

.3360 

0 5225 

1 

rc 

POSTJUMP 

0334 

ref 

7 

LAsT 

739 

33 

.3361 

. ^60329 

1 

CAOR 

S£=1i/fXIT 

0335 

ref 

21 

LAST 

731 

33 

.3362 

0 5073 

0 

87LMP 

TC 

2LMP*0T 

0336- 

33 

.3363 

00127 

0 

3EC 

87  - - 

. manual.  THFKOT.TjUE  .-  reset  (30  PERCENT,)  .. 

0337 

33 

.3369 

00227 

0 

OEC 

151 

ENGINE  SELECT-DESC  ARM-OFF 

0338 

33 

.3365 

01750 

1 

OEC 

1000 

0339 

REF 

22 

last 

736 

33 

.3366 

0 5073 

0 

TC 

2LMP*0T 

03A0 

33 

.3367 

00365 

1 

OEC 

295 

DPS  PQGS  NOl  - OFF 

03<tl 

33 

.3370 

00325 

0 

OEC 

213 

DPS  PQGS  N02  - OFF 

03«,2 

33 

.3371 

00199 

0 

OEC 

100 

03A3 

ref 

23 

LAST 

736 

.3.3 

.3372 

0 5073 

0 

TC 

2LMP^I0T 

03<tA 

33 

.3373 

00395 

0 

OEC 

229 

DPS  PQGS  ARM  NOl  DISABLE 

03it5 

33 

.3379 

00305 

1 

OEC 

197 

DPS  PQGS  ARM  N02  DISABLE 

03<t6 

33 

.3375 

___02520  1 

OEC. 

1900 

03A7 

REF 

57 

LAST 

735 

33 

.3376 

0 5270 

1 

TC 

IBN<rALL 

03<(8 

REF 

10 

LAST 

723 

33 

.3377 

90059 

1 

CAOR 

SETMAXDB 

03<»9 

REF 

95 

LAST 

739 

33 

.3900 

0 5101 

1 

TC 

1LMP*(0T 

0350 

33 

.3901 

00032 

0 

OEC 

26 

RAoAR  self  TEST  ON 

0351 

33 

.3902 

13560 

0 

OEC 

6000 

0352 

ref 

3_LAST_ 

732 

_ J3_i3903  0 5052  0 

TC 

2LMP 

0353 

33 

.3909 

00033 

1 

OEC 

27 

RADAR  SELF  TEST  POWER  - OFF 

035A 

33 

.3905 

00267 

1 

OEC 

183 

LANDING  radar  POWER  - OFF 

0355 

REF 

4 

LAST 

723 

33 

.3906 

0 5126 

1 

TC 

MPENtRY 

CALL  NEXT  MISSION  ENTRY  ROUTINE 

0356 

33 

.3907 

00001 

0 

OEC 

1 

0357 

33 

.3910 

00013 

0 

OEC 

11 

0358 

REF 

1 

33 

.3911 

01752 

0 

ADRES 

MP9-1 IDT 

0359 

REF 

15 

LAST 

717 

33 

.3912 

0 6067 

0 

TC 

FLA31  OWN 

KNOCK  DOWN  AyERAGEG  FLAG 

0360 

33 

.3913 

00001 

0 

OCT 

00001 

0361 

ref 

32 

LAST 

736 

33 

.3919 

0_916l 

0 

IC 

PHASrHNG 

0362 

33 

.3915 

00002 

0 

OCT 

2 

633436A  YUL  SYSTEM  FOR  ^GC:  REVISION  0 OF  PROGRAM  BURST123  BY  NASA  2021106-031 
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L 

MP9- 

D=>6 

1 BURN 

USER'S  OWN  page  no,  10  S3  E4 

0363 

REF 

35 

LAST 

735 

33.3A16 

JCF 

IAlSCOVES. 

_ _ MJ  SSIQN  PKAS_£  _9^_C0MPL£1E - 

036A 

REF 

6A 

LAST 

729 

33,3Al7 

0 6112 

0 

O^SIEQUI 

rc 

intpret 

0365 

33.3420 

47375 

0 

♦ 1 

VLOAra 

vxv 

0366 

REF 

9 

LAST 

701 

33.342J 

01017 

0 

VN 

VN  SCALED  AT  2(*7)M/CS 

0367 

REF 

2 

LAST 

700 

33.3422 

01033 

0 

JNITR 

UNITR  IS  UNIT  VECTOR  ALONG  RN 

0368 

33l,3423 

63256 

0 

JNIT_ 

_P0_VL_  

0369 

REF 

3 

LAST 

73' 

33,3424 

01033 

0 

JNITR 

0370 

33.3425 

77635 

1 

vxv 

0371 

33.3426 

43325 

?DDL 

DAD 

0372 

REF 

2 

LAST 

325 

33,3427 

02355 

0 

RP 

TARGET  distance  - PERIGEE  OR  APOGEE 

0373 

REF 

2 

LAST 

701 

33,3430 

01047 

0 

RMA5 

RP  AND  RMAG  SCALED  AT  2(+24)M 

037^ 

33.3431 

65205 

0 

IMP 

Poor 

0375 

REF 

3 

last 

73f 

33,3432 

01047 

0 

RMA3' 

0376' 

ref 

3 

LAST 

737 

33,3433 

02355 

0 

RP 

0377 

33,3434 

56205 

0 

IMP 

DDV 

0378 

REF 

1 

33,3435 

27514 

1 

2MJE5TH9 

scaled  at  2(+38)M(3)/CS(2) . 

0379 

33,3436 

74366 

1 

SORT 

VXSC 

0380 

33,3437 

77752 

1 

-i/SL2_. 

0381 

REF 

6 

LAST 

335 

33,3440 

02324 

0 

STORE 

VDVErT 

FOR  DWNLK  ONLY,  SCALED  AT  2(+7)M/CS 

33.3441 

77651 

0 

i/SU 

0383 

. REF 

10 

LAST 

737 

33,3442 

01017 

0 

VN 

038A 

REF 

A 

LAST 

335 

33  ♦ 3443 

02332 

1 . 

STORE 

VGVECT 

FOR  DWNLK  ONLY.  SCALED  AT  2(+7)M/CS 

0385 

33,3444 

77656 

1 

UNIT 

LEAVES  ABVAL  IN  LV 

0386 

REF 

3 

LAST 

73A 

33,3445 

02272 

1 

STORE 

JNITVG 

0387 

33,3446 

77650 

1 

SOTO 

0388 

ref 

3 

LAST 

730 

33,3447 

02262 

0 

SHJJmPI 

0389 

REF 

2A 

last 

736 

33  f 3450 

0 5073 

0 

22aLMP 

rc 

2LMP+DT 

0390 

33,3451 

00344 

1 

OEC 

228 

DPS  PQGS  arm  NOl  - enable 

0391 

33,3452 

00304 

0 

DEC 

196 

DPS  PQGS  ARM  N02  - ENABLE 

0392 

33,3453 

00144 

0 

OEC 

100 

0393 

REF 

25 

LAST 

737 

33,3454 

0 5073 

0 

TC 

2LMP*DT 

039A 

33,3455 

00364 

0 

DEC 

244 

DPS  PQGS  NOl  - ON 

0395 

33,3456 

00324 

1 

DEC 

212 

DPS  PQGS  N02  - ON 

0396 

33,3457 

01356 

0 

3EC 

750 

0397 

REF 

68 

LAST 

736 

33,3460 

0 5270 

1 

rc 

IBN<rALL 

0398 

REF 

7 

LAST 

717 

33  * 346 1 

40062 

1 

CADR 

JLLAGE 

♦X  TRANSLATION  ON. 

0399 

ref 

33 

LAST 

736 

33 » 3462 

0 4161 

0 

TC 

PHASrHNG 

OAOO 

33,3463 

00002 

0 

OCT 

2 

OAOl 

REF 

36 

LAST 

73^ 

33 » 3464 

1 5727 

1 

rcF 

TAS<nVER 

END  228LMP  TASK 

R0A02 
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L 

MP9- 

075  1 BURN 

USER'S  OWN  PAGE  NO.  11 

S3  E9 

0403 

REF 

1 

66760  0 

EJU2ADR- 

EAQR 

JlP-SlFmi2 

OAOA 

REF 

1 

33  *3466 

67265  1 

E3U3ADR 

:aor 

0PS1FQU3 

0A05 

REF 

139  last  736 

E9 

EBAN<= 

TOEC 

0A06 

33,3967 

03917  0 

E3u1AdR 

2CA0R 

DPSlPOUl 

C0A06 

ref 

2 LAST  729 

33,3970 

66069  0 

0A07 

REF 

110  last  73S 

E9 

EBAN<= 

TOEC 

0A08 

33,3971 

03351  0 

MP9TMIAO 

2CADR 

MP9TFRM1 

COA08 

REF 

1 

33,3972 

66069  0 

0A09 

REF 

111  LAST  738 

E9 

EBAN<= 

TOEC 

0910 

33,3973 

02336  0 

RVUPDA3R 

2CADR 

RVJPnATE 

C0910 

ref 

1 

33,3979 

16069  1 

0911 

33,3975 

00000  1 

95ECSD9 

2DEC 

900 

C0911 

33,3976 

00620  0 

0912 

33,3977 

00000  1 

66SECS39 

2DEC. 

6600  . . 

C0912 

33,3500 

19710  1 • 

0913 

33,3501 

00001  0 

5M15S 

2OEC 

3150a 

C0913 

33.3502 

35919  D 

0919 

33,3503 

00000  1 

O^A 

2DEC 

.09999  B-17 

SCALED  AT  2(*17)M/CS 

C0919 

33.3509 

00302  0 

0915 

33,3505 

22653  1 

0=B 

20EC 

.0007879  B+11 

SCALED  at  2(-11)M/CS(+2) 

C0915 

33,3506 

21315  0 

0916 

33,3507 

00000  1 

DPC 

20EC 

2600.  B-28 

SCALED  AT  2(.28)CS 

C0A16 

33,3510 

05050  1 

0918 

33,3511 

00000  1 

0ELTAT9 

2DEC 

200  F*9  B-35 

2SEC/KPIP 

C0918 

33,3512 

36911  0 

0919 

33,3513 

11217  0 

2MUERTH9 

2DEC» 

3,98603223  E.IO 

B-37* 

C0919 

3 3 * 3 5 14 

27090  0 

0920 

33,3515 

00769  1 

5SECS9 

3EC 

500 

0921 

33,3516 

11610  0 

50SECS9 

3EC 

5000 

0922 

33,3517 

05670  0 

33SECS9 

3EC 

3000 

0923 

33,3520 

02119  1 

USECS9 

3EC 

1100 

0929 

33.3521 

15530  0 

7 3SECS9^ 

3EC 

7000 

R0A25  »****»»****»»*******«»»*******#* 
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L MISSION  phase  U • D=>S2/FITH/APSI  USER'S  OWN  PAGe  NO*  1 S3 

_OOT)l 3A.2000 3AN< 36 

0002  REF  112  LAST  738  EA  EBAN<=  TDEC 

0003  REF  1 E4.1662  EMPUJOB  eOJALS  MPREtRN 

ROOOA  MISSION  PHASE  U DOES  JiR.0G_32-PRt.DPS^,  _PRJ_^-DAS2„  BJM,  BRA<  I NG  _GUI  0ANCE._  __  _ __  . _ 

ROOOS  PKDGA3-APPR0ACH  GUIDANCE,  PR0&A3-RAND0M  THROTTLE  PROGRAM  ANO  PR0G7A-THE 
ROOO6  FIRE-IN-THE-HOLE  and  APSl  BURN 

R0007  the  approximate  st^^ing^time  of  these  prog  is  shown  Below 

ROOOS  T PR0632 - - 

R0009  T+107  DPS2  IGNITION.  (TIGll) 

ROOlO  T1G*2S  PR0GA2 

ROOll  TIG*735  PR0GA4 : ^ 

ROO12  TlG+757  PR0G7A 


R0013 

TlG 

*792 

MISSION  ' 

terminated 

OOlA 

rEf 

35 

1 AST  730 

36, .2000 

3 7751 

0 

M.^  11  JOS- 

-CAF 

aiT-Ll  - - 

0015 

REF 

9 

LAST 

728 

36,2001 

0 A105 

1 

tc 

SETRSTRT 

SET  RESTART  FLAG 

0016 

36,2002 

0 0006 

1 

EXTEND 

0017 

■ref 

31 

LAST 

731 

36,2003 

3 0025 

0 

OCA 

TIME2 

0018 

REF 

13 

LAST 

735 

36,200A 

53*305 

1 

OXCH 

TDECTEMP 

001.9 

REF 

22 

LAST 

732 

36,2005 

0 AI17 

1 

TC 

NEWMODEX 

SET  DISPLAY 

0020 

36,2006 

00032 

0 

OCT 

32 

0021 

REF 

1 

36,2007 

3 2A65 

1 

:af 

ISECi 1 

SETUP  MPii  TASK-REQUIRES  75  SECS  AND 

0022 

36,2010 

0 OOOA 

0 

INHINT 

TERMINATES  ITSELF 

0023 

REF 

131 

LAST 

736 

36,2011 

0 5663 

1 

TC 

WAITLIST 

002A 

REF 

113 

LAST 

739 

EA 

eban<= 

TDEC 

0025 

36,2012 

025A5 

1 

2CADR 

MPllTASK 

C0025 

ref 

2 

LAST 

66 

36,2013 

7A06A 

0 

0026 

REF 

32 

LAST 

735 

36,20lA 

0 AlAl 

1 

TC 

2PHSrHNG 

0027 

36,2015 

A0253 

1 

OCT 

A0253 

3.25SPOT  FOR  MPllTASK. 

0028 

36,2016 

00312 

1 

OCT 

00312 

2.31  SPOT  TO  CONTINUE  MPllJOB. 

0029 

36,2017 

0 0006 

1 

llREDOl 

EXTEND 

SET  TDEC  TO  TIME  OF  START  OF  M?  U 

0030 

ref 

lA 

last 

739 

36,2020 

3 1305 

0 

OCA 

ToEcTEMP 

Pi  US  135  seconds. 

0031 

REF 

llA 

LAST 

739 

36,2021 

53*567 

0 

OXCH 

TDEC 

0032 

36,2022 

0 0006 

1 

EXTEND 

0033 

ref 

1 

36,2023 

3 2517 

0 

OCA 

1355FCS 

003A 

REF 

115 

LAST 

739 

36,202A 

21*567 

0 

OAS 

TDEC 

0035 

36,2025 

0 0006 

1 

EXTEND 

SET  RETURN  FROM  MIDTOAVF  TO  INTTTN 

0036 

REF 

1 

36,2026 

3 25A2 

0 

OCA 

MOAv/aDR 

0037 

REF 

2A 

LAST 

733 

36,2027 

52  006 

0 

OXCH 

Z 

DO  MIDTOAVE  VIA  RVUPDATE 

0038  REF  3A  last  737 


36*2030  0 C,l6l  0 


IC 


PHASCHNG 
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no^Q 

MISSION 

PHASE  11 

- DR52/FITH/APS1 

36.2031  QQ332 

0 

OCT 

00337 

USER'S  OWN  PAGE  NO,  2 S3  E9 

OOAO 

OOAl 

REF 

1 

36.2032 

36.2033 

0 0006 
3 2539 

1 

1 

INTRTN  EXTEND 

OC_A  . 

ops^adr. 

..  . . INTEGRAJ_I0N^  DOME-DO  PRE-DPSz 

00a2 

REF 

25 

LAST  739 

36,2039 

52  006 

0 

OXCH 

z 

state  at  rigntion-time  at  tet  For  predps 

R00<,3  RRE-3PS2  RETURN  TO  REIPReB  RJIH  ULLA&E-ON  TIME  AI  JJLLOi_  (TIG-7.5)  . 
ROOAA  the  OrSIRED  1/2  UNIT  THRyST  VECTOR  AT  POINTVSm. 

R00A5  iTATE  VECTOR  IN  SM  COORDINATES  STORED  AT  RN,  VN  /VlTH  CORRESPONDING 

ROOA6  time  at  PIPTIME  where  (TULL6  - PIPTIMeHS  BETWEEN: 

R00A7  3,8  AND  6 SECS. 


0098 

36,2035 

0 0009  0 

RETPRE3 

INHINT 

00^9 

36.2036 

0 0006  1 

FXTEND 

0050 

REF  2 

LAST 

36 

36,2037 

3 1957  0 

3CA 

TULLr, 

C(TULLG)=TIG-7.5 

0051 

REF  236 

LAST 

729 

36,2090 

52  195  0 

5XCH 

MPAC 

0052 

REF  1 

36.2091 

9 2520  0 

CS 

22.5<iECS 

0053 

REF  U6 

LAST 

73ii 

36,2092 

59  001  1 

TS 

L 

0059 

REF  231 

LAST 

733 

36,2093 

3 7767  0 

CAF 

ZERO 

0055 

REF  237 

LAST 

79O 

36,2099 

59_  196  _0 

IS 

MPAC_t2  _ _ 

0056 

REF  238 

LAST 

790 

36,2095 

20  195  0 

DAS 

MPAC 

C(MPaC)=TIG-30 

0057 

36,2096 

0 0006  1 

EXTEND 

0058 

ref  32 

LAST 

739 

36,2097 

9 0025  1 

DCS 

TJME2  _ 

GET  CURRENT  TIME 

0059 

REF  239 

LAST 

79O 

36,2050 

20  195  0 

DAS 

MPAC 

C(MPAC)=DELTA(TIG-30) 

0060 

REF  8 

LAST 

708 

36,2051 

0 7327  0 

IC 

TPAoREE 

MAKE  SIGNS  AGREE 

0061 

36,2052 

ijmoeLJi  . 

EDLltND 

0062 

REF  290 

LAST 

79O 

36,2053 

3 0195  1 

DCA 

MPAC 

0063 

ref  15 

LAST 

739 

36,2059 

53'305  1 

DXCH 

TDECtEMP 

0069 

ref  291 

LAST 

79O 

36,2055 

52  195  0 

DXCH 

MPAC 

0065 

REF  5 

last 

731 

36,2056 

0 5791  0 

rc 

LONSrALL 

0066 

REF  116 

LAST 

739 

E9 

EBAN<= 

TDEC 

0067 

36,2057 

02120  0 

2CADR 

TIoll-30 

C0067 

ref  5 

LAST 

65 

36,2060 

79069  0 

0068 

REF  35 

LAST 

739 

36,2061 

0 9161  0 

TC 

PHASCHNG 

0069 

36,2062 

20022  0 

DCT 

20022 

0070 

REF  65 

LAST 

737 

36,2063 

0 6112  0 

11RED02 

ic 

INTPRET 

0071 

36,2069 

77775  1 

VLDAO 

0072 

REF  5 

LAST 

700 

36,2065 

01011  0 

RN 

STATE  STORED  IN  RAVEGON 

AND  VAVEGON  for 

0073 

REF  2 

LAST 

bf 

36,2066 

26115  0 

STOVE 

RAVEnON 

average  g initialization 

AT  PIPTIME 

0079 

REF  11  LAST 

73  7 _ 

36.2067 

01017  0 

VN 

0075 

REF  1 

36,2070 

16123  0 

STODL 

VAVFGON 

0076 

REF  1 

36,2071 

35696  0 

D1/2 

JAM  .5,0,0  IN  SCAXIS  FOR 

KALCMANU 

0077 

REF  7 

last 

729 

36,2072 

15669  1 

STOOL 

SCAXtS 

0078 

REF  1 

36,2073 

35273  1 

OZERn 

0079 

REF  8 

LAST 

79O 

36,2079 

01666  0 

STORE 

SCAWIS  *2 

0080 

REF  9 

LAST 

79O 

36,2075 

li670  1 

STODL 

scaxts  *9 

0081 

REF  3 

LAST 

735 

36,2076 

01307  1 

PIPTIME 

THIS  time  CONSISTANT  WITH  STATE-RAVESON 
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L 

MISSI 3N 

PHASE  U 

- D=52/FlTH/APsl 

USEr*S  own  page  no.  3 S3  E4 

0082 

REF 

1 

36,20_77_ 

__  0Z264 

Q 

STORE  _ 

am  temp.  _ _ 

USED  AFTER  KALCMANU  TO  CALL  PRERFAD 

0083 

36,2100 

43131 

0 

SSP 

set 

0084 

REF 

10 

LAST 

729 

36,2101 

01653 

0 

RATEtNDX 

SET  KALCMANU  FOR  ANGULAR  RATE  D=  5 DEo/S 

0085 

36,2102 

00004 

JL_ 

4 

0086 

36,2103 

01063 

0 

33D 

0087 

36,2104 

77776 

1 

EXIT 

0088 

REF 

7 

LAST 

730 

36,2105 

3 5642 

1 

CAF 

PR1DT6 

DO  ATTITUDE  MANEUVER  JOB. 

0089 

36,2106 

0 0004 

0 

inhint 

0090 

ref 

23 

LAST 

732 

3612107 

0 5516 

0 

..  rC  .. 

F 1 NDuAC 

0091 

REF 

22 

LAST 

730 

E3 

EBAN<= 

MIS 

■ 0092 

36,2110 

02001 

1 

2CADR ■ 

YECPOINT 

QD092L 

RFF 

3 

LAST 

730 

36.21 11 

70063 

0 

0093 

REF 

126 

LAST 

730 

36,2112 

0 5206 

0 

rc 

BANCrALL 

OO94 

REF 

4 

LAST 

730 

36,2113 

26743 

0 

CADR 

attstall 

PUT  MPll  TO  sleep  - KALCMANU  WI.L  WAKE 

0095 

REF 

5 

LAST 

730 

3612114 

0 4743 

0 

tC 

curtains 

KALCMANU  HAS  GiMBALOC  PROBLeMS-'URT AI NS 

0096 

REf 

36 

lAst 

74O 

36,2115 

0 4161 

0 

TC 

phAschng 

0097 

36,2116 

00352 

0 

DCT 

00352 

OO98 

REF 

32 

LAST 

735 

36,2117 

0 5567 

0 

TC 

ENDDFJOB 

WAIT  FOR  TIG_3o 

0099 

REF 

36 

LAST 

739 

36i2l20 

3 7751 

0 

TlGll-30  CAF 

31TU 

SEE  IF  ATTITUDE  MANEUVER  DONE 

0100 

REf 

16 

last 

73O 

36,2121 

7 0076 

1 

mas< 

FLA5wRD2 

0101 

REF 

239 

LAST 

730 

36,2122 

10  000 

0 

CCS 

A 

0102 

REt=^ 

1 

36,2123 

0 2450 

1 

TC 

DOCJRTN 

KALCMANU  NOT-DO  CURTJOB 

0103 

REF 

23 

LAST 

739 

36,2124 

0 4117 

1 

rc 

NErtMnDEX 

SET  MODE  TO  PR0G42 

0104 

36,2125 

00042 

1 

DCT 

42 

0105 

REF 

1 

36,2126 

3 2530 

0 

CAF 

AVEGi lAD 

SET  UP  Servicer. 

0106 

REF 

14 

LAST 

733 

36.2127 

55'310 

0 

TS 

DVSELECT 

0107 

36,2130 

0 0006 

1 

extend 

0108 

REF 

1 

36,2131 

3 2544 

0 

DCA 

AORDFSER 

0109 

REF 

13 

LAST 

735 

36,2132 

53*073 

0 

DXCH 

avgexit 

. .JIUO 

3612133 

0 0006 

1 

EXTEND 

0111 

REf 

1 

36,2134 

3 2540 

1 

DCA 

MPIITMAd 

0112 

REF 

7 

LAST 

733 

36,2135 

53*075 

0 

DXCH 

DVMNFXIT 

0113 

REF 

15 

LAST 

68° 

3612136 

4 0025 

1 

C5 

TIMEl 

0114 

ref 

2 

LAsT 

74i 

36,2137 

6 1664 

1 

Ad 

OTllTEMP  +1 

find  dt  to  piptime 

0115 

REF 

290 

LAST 

741 

36,2140 

10  000 

0 

CCS 

A 

CORRECT  NeG  DT  OR  NEGATIVE  OVER-LDW  DT. 

0116 

REF 

152 

LAST 

721 

36,2141 

6 7763 

1 

AD 

DNE 

0117 

36,2142 

1 2147 

0 

TCF 

♦ 5 

0118 

REF 

1 

36,2143 

6 6153 

0 

AD 

DCT40001 

0119 

REF 

2 

LAST 

152 

36,214A 

6 7771 

1 

AD 

minjbi 

ALLOWS  FOR  REMOTE  CHANCE  FO  ZERO  DT. 

0120 

36,2145 

4 0000 

0 

COM 

0121 

36,2146 

1 2140 

1 

TCF 

•6 

0122 

REF 

3 

LAST 

733 

36,2147 

55*342 

1 

TS 

RSOTTEMP 

SAVED  FOR  RESTARTS. 

633<^36A  rUL  SfSTEM  FOR  Agc:  REVISION  0 OF  PROORA'I  bURSTlZD  BY  NASA  2021l0fe-03l 
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L 

MISSION 

PHASE  U 

- DAS2/FITH/AP61 

user's  Own  page  no.  4 s3  e4 

01?3 

REF 

lOZ 

LAST 

739 

36.2150 

.0  -5663  1 

IC-  - 

-4AJTUST-  . . 

012A 

REF 

6 

LAST 

733 

E5 

EBAN<= 

oytotal 

0125 

36.2151 

02000  0 

2CADR 

prerfad 

C0125 

REF 

a 

LAST 

733 

36.2152 

600*5  1 

0126 

REF 

33 

LAST 

739 

36.2153 

0 a141  1 

IC 

2PHSrHNG 

0127 

36.2154 

40355  0 

OCT 

40355 

5.35  SPOT  for  preread. 

0128 

36.2155 

- 00212  0 

OC-T  - 

0.0212  . ..  - .- 

- 2.21  SPOT  -fOR  DP5TABT. 

0129 

REF 

59 

LAST 

737 

36,2156 

0 5270  1 

D=START 

rc 

IBNCCALL 

0130 

REF 

5 

LAST 

732 

36,2157 

40277  1 

:aoR- 

ENGINOFI 

0131 

REF 

LAST 

736 

36,2160 

O'  5101  1 

TC 

ILMP+DT 

0132 

3.6,^161. 

- 00226  1 

OEC 

150 

Arm  descenT  encinE  ... 

0133 

36,2162 

01750  1 

OEC 

lOOo 

delay  10  SECONDS 

.0134 

REF 

LAST 

742 

36,2163 

0 5101  1 

TlGll-20 

rc 

1LM?*DT 

0135 

36.2164 

00126  1 

OEC 

86 

SET  manual  throttle  to  10  % 

0136 

36,2165 

00620  0 

OEC 

400 

DELAY  4 SECONDS 

0137 

REF 

26 

LAST 

737 

36,2166 

0 5073  0 

TIGll-ib 

rc 

2LMP+0T 

0138 

36,2167 

00344  1 

OEC 

228 

ENABLE  DPS  POGS  ARM  1 

0139 

36,2170 

00304  0 

OEC 

196 

ENABLE  DPS  PQGS  ARM  2 

0140 

36,2171 

00144  0 

OEC 

100 

delay  1 SECOND 

0141 

REF 

27 

LAST 

742 

36,2172 

0 5073  0 

TI&11-15 

rC- 

_2L-MP+Dt.  - - 

0142 

36,2173 

00364  0 

OEC 

244 

DPS  PQGS  =1  ON 

0143 

36,2174 

00324  1 

OEC 

212 

DPS  PQGS  =2  ON 

0144 

36,2175 

01356  0 

OEC 

750 

delay  7.5  SECONDS 

0145 

REF 

70 

last 

742 

36,2176 

0 5270  1 

TlGr7.5 

rc 

IBNCrALL 

0146 

REF 

8 

LAST 

737 

36,2177 

40062  1 

CADR 

JLLAjiE 

CALL  FOR  A UET  ULLAGE 

0147 

REF 

55 

LAST 

735 

36,2200 

3 7763  1 

CAF 

Bin 

START  UP  ABORT  STAGE  MONITOR. 

0148 

REF 

133 

last 

742 

36,2201 

0 56-63  1 

rc 

.WAJ-li  1ST. 

0149 

REF 

117 

LAST 

740 

E4 

EBAN<= 

TOEC 

0150 

36,2202 

02362  1 

2CADR 

ABMOn 

C0150 

REF 

2 

LAST 

66 

36,2203 

74064  0 

0151 

REF 

34 

LAST 

742 

36,2204 

0 4141  1 

1C 

2PHSCHNG 

0152 

36,2205 

40033  0 

OCT 

40033 

3.3  SPOT  FOR  ABMON 

0153 

36,2206 

40232  0 

OCT 

40232 

2,23  SPOT  FOR  lIGll 

0154 

REF 

51 

LAST 

734 

36,2207 

0 5701  1 

rc 

FIXOELAY 

0155 

36,2210 

01356  0 

OEC 

760 

delay  1,5  SECONDS,  UNTIL  ENG  I NEON 

0156 

REF 

71 

LAST 

742 

36,2211 

0 5270  1 

TlGll 

rc 

IBN<rALL 

0157 

REF 

5 

last 

71A 

_16,2j;_i2 

40226  0 

CADR 

OPSENGON  4r 

0158 

REF 

37 

LAST 

741 

36,2213 

0 4161  0 

rc 

PHASCHNG 

0159 



36,2214 

47012  1 

_0£I 

47012 

633<*36A  YUL  SYSTEM  FOR  AGC!  REVISION  0 OF  PROGRAM  BURST123  6Y  NASA  2021106-031  DEC  7.  1967  (MAIN)  PAGE  7A3 


L 

n)  ffO 

MISSI ON 

PHASE  U - 

D5S2/F1TH/APS1 
36  1 2215  J3Q062 

_2££ 

-50 

U5ER*S  OWN  PAGE  NO.  5 S3  E4 

0161 

REF 

118 

LAST 

7A2 

EA 

eban<= 

TOEC 

0162 

36 

.2216 

02222 

1 

2CADR 

TiGli A 

C0162 

REF 

1 



.2217 

■ 7A064. 

0 

0163 

REF 

52 

LAST 

7A2 

36 

• 2220 

0 5701 

1 

TC 

FIXDELAY 

016A 

36 

.2221 

00062 

0 

3EC 

50 

delay  HALF  A SECOND 

• 0165 

REF 

72 

LAST 

7A2 

36 

.2222 

0 5270 

1 

TIGllA 

TC 

IBN<rALL 

0166 

REF 

9 

LAST 

73A 

36 

.2223 

■40066 

0 

:adr 

nojllage 

0167 

REF 

38 

LAST 

7A2 

36 

,222A 

0 4161 

0 

TC 

PHASrHNG 

0168 

36 

.2225 

47012 

1 

3CT 

A7012 

, 0169 

36 

.2226 

04766 

1 

3EC 

2550 

0170 

REF 

119 

LAST 

7A3 

E4 

?BAN<= 

TOEC 

0171 

36 

.2227 

02233 

1 

2CADR 

TIGll +26 

C0171 

REF 

1 

36 

.2230 

7406A 

0 

0172 

REF 

53 

LAST 

7A3 

36 

.2231 

0 5701 

1 

TC 

FIXOfLAY 

0173 

36 

.2232 

04766 

1 

3EC 

2550 

WAIT  25,5  SECONDS 

017A 

REF 

A2 

LAST 

73A 

36 

.2233 

3 7743 

0 

TlGll+26 

:af 

POSMAX 

HAVE  BEEN  AT  10S6  THROTTLE  FOR  26  SECONDS 

0175 

ref 

A 

last 

73A 

■ 36 

.223A 

55*323 

0 

rs 

pcntf 

NOW  call  For  Maximum  thrust  (92.516) 

0176 

36 

.2235 

0 0006 

1 

EXTEND 

0177 

REF 

1 

36 

.2236 

3 2536 

0 

OCA 

PCNTFAD 

0178 

REF 

26 

LAST 

7A0 

36 

.2237 

52  006 

0 

OXCH 

z 

0179 

36 

.22A0 

0 0006 

1 

EXTEND 

0180 

REf 

1 

36 

.22A1 

3 2532 

1 

DCA - , . 

BjRNaDR 

STARTING  DPS2  GUIDANcE;  TIG  *25  SECONDS 

0l8l 

REF 

lA 

LAST 

7Al 

36 

.22A2 

53*073 

0 

5XCH 

AVGEvIT 

0182 

REF 

3 

LAST 

88 

36 

• 22A3 

3 1345 

1 

CA 

DAPOFFDT 

SKIP  AUTOMATIC  TURN-OFF  OF  DAP  IF 

0183 

36 

.22AA 

0 0006 

1 

extend 

dapoffdt  Is  negative  or  zero. 

oleA 

ref 

1 

36 

.22A5 

6 2253 

1 

3zMF 

nodapoff 

0185 

REF 

13A 

LAST 

7A2 

36 

.22A6 

0 5663 

1 

TC 

.YAITI  1ST 

0186 

REF 

11 

last 

332 

E7 

EBAN<= 

ONTMrUFF 

0187 

36 

.22A7 

02273 

0 

2CADR 

IIDAPOFF 

C0187 

REF 

2 

LAST 

70 

36 

.2250 

74067 

0 

0188 

REF 

39 

LAST 

7A3 

36 

.2251 

0 4161 

0 

TC 

PHASCHNG 

0189 

36 

.2252 

40116 

0 

3CT 

40116 

6.U  FOR  IIDAPOFF  TASK. 

0190 

REF 

35 

last 

7A2 

36 

.2253 

0 4141 

1 

NODAPOFF 

TC 

2PHSCHNG 

0191 

36 

.225A 

00002 

0 

DCT 

00002 

0192 

36 

.2255 

00114 

0 

OCT 

00114 

4.11  SPOT  FOR  thrusting 

0193 

REF 

37 

LAST 

73  7 

36 

.2256 

0 5727 

0 

TC 

TASCOVER 

OI9A 

36 

.2257 

0 0006 

1 

RETBURN 

EXTEND 

RETURN  FROM  BURN  GUIDANCE 

0195 

ref 

2 

LA.sT 

7Al 

36 

.2260 

3 2544 

0 

OCA 

AdROfsER 

SET  SERVICER  EXIT  TO  KILL  BURN  3UID 

0196 

REF 

15 

LAST 

7A3 

36 

.2261 

53*073 

0 

OXCH 

AvGExIT 
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0197 

REF 

90 

LAST 

7^3 

^36,^262 

0 6161  0 _ _ 

_ IC  __ 

..P_HA50ING 

0198 

36,2263 

65022  0 

OCT 

65022 

0199 

36,2266 

20000  0 

OCT 

20000 

0200 

REF 

56 

LAST 

7A2 

36,2265 

3 7763  1 

:af 

BITl 

Set  task  for  random  throttle 

0201 

36,2266 

0 0006  0 

inhint 

0202 

REF 

1D5 

LAST 

7A3 

36,2267 

-0  5663  1 

rc  _ 

WAITLIST  _ 

PROGRAM  P46  „ „ . 

0203 

REF 

120 

LAST 

7A3 

E6 

cBAN<= 

TDEC 

020A 

36,2270 

02300  0 

2CADR 

PR3o44 

C0204 

REF 

1 

36.2271 

74066  0 

0205 

REF 

33 

LAST 

7Al 

36,2272 

1 5567  1 

rcF 

ENDOFJOB 

READACC5  STILL  ACTIVE. 

0206 

0207 

rEf 

REF 

8 

23 

LAST 

LAST 

69l 

722 

36,2273 

36,2276 

0208 

REF 

12 

LAST 

763 

0209 

C0209 

ref 

2 

LAST 

200 

36.2275 

36.2276 

0210 

REF 

38 

LAST 

763 

36,2277 

3 5210  1 UdAPOFF  CA  PrIOsO 

0 5505  1 IC  _ NOVAC  . _ 

E7  £BAN<=  DNTMRUFF 

02530  0 2CADR  3EGINCDU 

22067  0 

1 5727  1 rCF 


call  job  to  turn  off  dap  6 STA^r 

SPEGIAL  CDU-ONLY  DOWNLINK, 


TAS<OVER 
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P0211  the  03S2  RANDOM  THRO  I T^E  _PROGaA  STARJS  AP^^RUXl  MAT-LY  AT  TlG.705.  tH£L  _ _ 

R0212  EXACT  time  ANn  THRUST  LEVeL  SETTING  AT  THE  START  OE  PROGaa  Are  COMPUTED 
R0213  BY  BURN  GUIDANCE  PR05A3.  THE  SUBSEQUENT  THRUST  COMMANDS  ARE  LISTfD. 

R0214  T 10  PERCENT  THRUST 

R0215  T+10  50  PERCENT 

R0216 PERCENT..-  ' 

R0217  T*40  20  PERCENT 

R0218  T+50  92.5  PERCENT  FOR.  2 SECS  THEN  F IRE-1 N-THE-HOLi 


0219 

0220 

REF 

24 

LAST 

74l 

36.2300 

36.2301 

0 4117 
00044 

1 

1 

PR0G44 

TC 

OCT 

-MtrtVlnOEX 

SET  MODE  TO  RANDOM  THROTTLE 

0221 

REF 

91 

LAST 

744 

36,2302 

0 4161 

0 

TC 

PHASCHNG 

0222 

3ft. 2303 

05012 

1 

OCT 

05012 

0223_ 

36,2304 

77777 

0 

OCT 

77777 

0224 

REF 

22 

LAST 

69ft 

36,2305 

3 7761 

0 

INDPCT 

CAF 

Four 

0225 

REF 

4 

LAST  J4l 

36,2306 

551342 

1 

TS 

_RSDttemp 

INDEX. 

0226 

REF 

291 

LAST 

741 

36,2307 

50  000 

1 

INDEX 

A 

OFFSET  POINTER 

0227 

ref 

1 

36,2310 

3 2523 

1 

:af_ 

20PCTHR 

AMOUNT  OF  throttle 

0228 

ref 

5 

LAST 

743 

36,2311 

55*323 

0 

TS 

PCNTF 

0229 

36,2312 

0 0006 

1 



0230 

REF 

2 

LAST 

743 

36,2313 

3 2536 

0 

OCA 

PCNTFAD 

GO  TO  THRUSTING  ROUTINE 

0231 

36,2314 

52  006 

0 

OTCB 

0232 

REF 

39 

LAST 

682 

36,2315 

4 7762 

1 

cs 

TWO 

WATER  VALVE  DUE  22  SEC  AFTER 

random 

0233 

REF 

5 

LAST 

745 

36  f 2 3 1 6 

6 1342 

0 

AD 

rsdttemp 

throttle  phase  begins,  that 

PUTS  IT 

0234 

36,2317 

0 0006 

1 

EXTEND 

2 SEC  AFTER  MPRETRN  = 2. 

0235 

ref 

1 

36,2320 

1 2604 

0 

3ZF 

SETWaTER 

0236 

REF 

3ft 

last 

743 

36,2321 

0 4141 

1 

TC 

2PHSrHNG 

0237 

36,2322 

00114 

0 

OcT 

00114 

4.11SpOT  fOR  thrusting 

0238 

36,2323 

00372 

1 

OCT 

00377 

2.37  for  MOVENDX  TASK, 

0239 

REF 

6 

LAST 

745 

36,2324 

3 1342 

0 

MOVENDX 

CA 

RSDTTEMP 

0240 

ref 

2 

LAsT 

739 

36,2325 

55*662 

0 

TS 

MPRETRN 

0241 

REF 

92 

LAST 

745 

36,2326 

0 4161 

0 

TC 

PHASCHNG 

0242 

36,2327 

40412 

1 

OCT 

40412 

2.41  FOR  CCSMPRET  TASK. 

0243 

ref 

54 

LAST 

743 

36,2330 

0 5701 

1 

TC 

fixoelay 

0244 

36,2331 

01750 

1 

lOsECSll 

OEC 

1000 

delay  10  sECs 

0245 

REF 

3 

LAST 

745 

36,2332 

11*662 

0 

CCSMPRET 

CCS 

MPRETRN 

decrement  index 

0246 

REF 

1 

36,2333 

0 2306 

0 

TC 

INDPCT  +1 

NO 

0247 

REF 

1 

36,2334 

3 7743 

0 

CAF 

925PCTHR 

TURN  ON  92.5  THRUST 
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02A6 

REF 

6 

LAST 

7^^. 

36.2335 

_55'323  0 

- - IS  . _ 

PCNTF_  - 

02A9 

36,2336 

0 0006  1 

EXTEND 

0250 

REF 

3 

LAST 

7AS 

36,2337 

3 2536  0 

3CA 

PCNTFAD 

GO  For  thrusting 

0251 

REF 

27 

LAST 

7A3 

36,2340 

52  006  0 

3XCH 

Z 

0252 

REF 

2 

LAST 

739 

36,2341 

3 2465  1 

CAF 

ISEC1 1 

THRUST  at  MAX  FOR  2 SEC,  1 SEC  HERE  AND 

0253 

ref 

136 

LAST 

7AA 

36,2342 

J)  5663  1 . 

IC  - 

-WMIl  1ST 

1 MORE  IN  FITHcMD 

025A 

REF 

121 

LAST 

7AA 

, E4 

eban<= 

TOEC 

0255 

36.2343 

02354  1 

2CAD3 

FlTHrMD 

C0255 

REF 

1 

36.2344 

74064  0 

0256 

REF 

37 

LAST 

7A5 

36,2345 

0 4141  1 

rc 

2PHSrHNG 

0257 

36,2346 

00114  0 

OCT 

00114 

4.11SP0T  FOR  THRUSTING 

0258 

36,2347 

47012  1 

OCT 

47012 

0259 

36,2350 

00144  0 

OEC 

loo 

0260 

REF 

122 

LAST 

7A6 

E4 

EBAN<= 

TDEC 

0261 

36,2351 

02354  1 

- 2CAD3 

FlTHrMD 

C0261 

REF 

2 

LAST 

7A6 

36,2352 

74064  0 

0262 

REF 

'39 

LAST 

7AA 

36,2353 

0 5727  0 

TC 

TASCnVER 

633<,36A 


L 


P0263 

R026A 

R0265 

F0266 

R0267 

R0268 

R0269 

R0270 

R 02-71  __ 

R0272 

R0273 

R027A 

R0275 

R0276 

R0277  _ 

R0278 

R0279 

R0280 

R0281 

R0282 

0283 

028A 

0285 

0286. 

0287  _ 

0288" 

02  89 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 
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FlTH/APSl  . PR06R-AM-J?4_ - --  - — - 

WITH  detection  OF  TH£  ABORT  STAGE  DISCRETE  BY  THE  ABORT  STAGE  MONITOR 
the  following  events  occur  by  program  or  are  processed  AUTOMATICALLY 

- BY  THE  LEM  sequencer. 

T-1.0  abort  stage  ARiM.  (PROGRAMMED) 

T ABORT-ST'^GE  command  (PROGRAMMED-) _-  - - - 

attitude  hold  (PROGRAMMED) 

T + .04  ascent  PRESSURiUED  . 

T..1S  DESCENT  ENGINE-OFF 

T..42  ascent  engine  ARM 

ASCENT/DESCENT  STAGING  INITIATED 

STAGE  VERIFIED 

T+.4S  INTERStAGe  BOlTS  FIRED 

ASCENT  stage  UMBILICAL  ELECTRICAL  OeADFACE 

T+.50_  descent  STAGE  UMBILICAL  ELEC.  DEADFACE 

T+.55  ASCeNT/DESCENT  STAGE  UMBILICAL  CUT. 

T.,73  ascent  engine  REACHES  90  PC  THRUST 

T+1.0  CHANGE  LEM  MASS  (PROGRAMMED)  _ _ _ _ 

descent  engine  ARM-OFF  (PROGRAMMED) 

T + 5.0  ASCENT  ENGiNE-0‘-F  (PROGRAMMED) 


REF 

48 

last 

742 

36,2354 

0 5101 

1 

fithcmo 

tc 

ILMP+DT 

THRUST  at  max  FOR  1 MORE  SEC  ANO  ABORT 

36,2355 

00046 

0 

OEC 

38 

36^2356 

00144 

0 

OEC 

100 

delay  1.0  SEC, 

REF 

8 

last 

732 

36,2357 

0 5060 

1 

rc 

ILMP 

INITIATE  ABORT  STAGE  COMMAND 

36,2360 

00026 

0 

OEC 

22 

REF 

90 

last 

746 

36,2361 

0 5727 

0 

IC 

TAS<riVER 

Let  ABORT  MONITOR  TAKE  IT  FROM  HERE 

REF 

30 

LAST 

694 

36,2362 

3 7762 

0 

A3M0N 

CAF 

B1T2 

ABORT  Stage  monitor  samples  channel 

36,2363 

0 0006 

1 

extend 

30  for  Abort  stage  discrete  every  .5  sec 

36,2364 

02  030 

0 

RAND 

30 

36,2365 

0 0006 

1 

EXTEND 

REF 

1 

36,2366 

1 2374 

1 

3ZF 

FITHrXMD 

ABORT  DISCRETE  PRESENT-KILL  MONITOR 

ref 

-l-iL 

LAST 

74I 

36,2367 

4 0025 

1 

CS 

TIMEI 

REe 

1 

36,2370 

55' 117 

0 

TS 

TBASE3 

REE 

55 

last 

745 

36,2371 

0 5701 

1 

IC 

FIXOfLAY 

NO  ABORT  DISCRETE-CONTINUE  TO  MONITOR 

36.2372 

00062 

0 

OEC 

50 

DELAY  .5  SECS 

REF 

3 

LAST 

742 

36,2373 

1 2362 

0 

rcF 

ABMOn 

36,2374 

0 0006 

1 

fithgcmd 

EXTEND 

BYPASS  guidance.  ASSURE  ULLAGE  OFF,  AND 

REF 

3 

LAST 

743 

36,2375 

3 2544 

0 

OCA 

ADROfSER 

clear  out  current  activity  by  EnEMA  - - 

REF 

16 

LAST 

743 

36,2376 

53'073 

0 

OXCH 

AVoEXIT 

ALL  this  to  protect  IN  CASE  OF  fARLY 

REF 

73 

last 

743 

36,2377 

0 5270 

1 

TC 

IBN<CALL 

ABORT  stage  COMMAND  BY  GROUND. 

ref 

10 

last 

743 

36,2400 

40066 

0 

;adr 

nojllage 

REF_ 

38 

LAST 

746 

36,2401 

0 4141 

1 

TC 

2PHSrHNG 

36,2402  00001  0 OCT  1 
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L 

0306 

MIS5I 3N 

PHASE  11 

- D552/F1TH/APS1 
36^2403 00003  1 

XI 

_3 

USER'S  OWN  page  no.  10  S3  E4 

0307 

REF 

39 

LAST 

747 

36  «240^ 

0 4141  1 

TC 

2PHSrHNG 

0308 

36.2405 

OQOOA  0 

OCI 

_4 

0309 

36,2406 

00006  1 

DCT 

6 

0310 

REF 

53 

LAST 

741 

36,2407 

0 4161  0 

__  . JC  _ 

PilAScHNfi 

0311 

36,2410 

00252  1 

3CT 

00252 

2,25  SPOT  FOR  MPUHOLD. 

0312 

REF 

6 

LAST 

73P- 

36..241X- 

3 5660  1 

XAf . _ . 

P8I337- 

0313 

REF 

24 

LAST 

744 

36,2412 

0 5505  1 

rc 

NDVAC 

031A 

REF 

32 

LAST 

72-; 

E3 

EBAN<= 

Lsri 

0315 

36,2413 

02354  1 

2CABR 

-ENEMs- 

ENEMA  AS  SOON  AS  POSSIBLE. 

C0315 

REF 

3 

LAST 

695 

36,2414 

02063  0 

0316 

REF 

9l 

LAST 

747 

36,2415 

0 5727  0 

IC 

TAS<nVER 

0317 

REF 

74 

last 

747 

36-2416 

0 5270  1 

m^hholo  rC 

IBN<CALL 

enema  should  pick  up  here. 

0318 

ref 

9 

LAsT 

735 

36,2417 

40114  1 

CAoR 

STOPRATE 

SET  attitude  hold 

0319 

REF 

25 

LAST 

745 

36,2420 

0 4117  1 

rc 

NE-vMODEX 

SET  MODE  TO  FIRE-IN-THE-HOLE 

0320 

36,2421 

00074  1 

DCT 

74 

PROG74 

0321 

REF 

3 

LAST 

692 

E7 

EBAN<= 

LEMMASS2 

0322 

REF 

2 

LAST 

692 

36,2422 

3 5662  0 

CAF 

EBANK7 

0323 

REF 

49 

LAST 

70B 

36,2-,23 

54  003  0 

rs 

EBANk 

SET  EBANK=  7 

032A 

36,2424 

0 0006  1 

EXTEND 

0325 

REF 

LAST 

748 

36,2425 

3 1777  1 

DCA 

rEMMASS2 

CHANGE  LEM  MASS  AT  DPS/APS  SEPARATION 

0326 

REF 

6 

LAST  _692 

36*2426 

53>321  1. 

JXCH 

MASS 

0327 

REF 

37 

LAST 

74I 

36*2427 

3 7751  0 

CAF 

BITl,' 

RETURN  EBANK  TO  04 

0328 

REf 

50 

LAsT 

748 

36,2430 

54  003  0 

rs 

EBANk 

0329 

REF 

123 

LAST. 

746 

5L4l_ 

=BAN<= 

TDEC 

0330 

REF 

75 

LAST 

748 

36,2431 

0 5270  1 

tc 

lBN<rALL 

SET  UP  DAP  For  APS  BURN 

0331 

ref 

3 

LAST 

693 

36,2432 

401  0 

CAQR 

APSENGDN 

0332 

REF 

94 

LAST 

748 

36,2433 

0 4161  0 

rc 

PHASCHNG 

0333 

36,2434 

47012  1 

DCT 

4701? 

033A 

36,2435 

00144  0 

DEC 

100 

0335 

REF 

124 

LAST 

748 

E4 

eban<= 

TDEC 

0336 

36,2436 

02442  1 

2CADR 

ENoLfCT 

C0336 

REF 

1 

36,2437 

74064  0 

0337 

REF 

56 

LAST 

747 

36,2440 

0 5701  1 

rc 

FIXDELAY 

0338 

36,2441 

00144  0 

DEC 

100 

delay  1 SEC  TO  DPS  ARM  OFF 

0339 

REF 

49 

LAST 

747 

36,2442 

0 5101  1 

englect  tc 

ILMP+DT 

ENGINE  SELECT-DESC  ARM  OFF 

03a0 

36 ♦ 2443 

00227  0 

DEC 

151 

APS  BURN  FOR  5 SECS 

03a1 

36,2444 

00620  0 

DEC 

400 

delay  4.0  seconds 

03A2 

REF 

76 

LAST 

748 

36,2445 

0 5270  1 

rc 

lBN<rALl 

03A3 

REF 

6 

LAST 

735 

36  * 2446 

40263  1 

CADR 

ENGINOFF 
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0344  REF  92  LAST  748  36.2447  0 5727  0 TC  TAS<nVER 


0345 

0346 

rEf 

REF 

77 

1 

LAST 

748 

36 

36 

.2450 

,2451 

0 5270 
57334 

1 

1 

D3CURT\| 

TC 

CAOR 

ibn<call 

CJRTJOB 

GO  SET  UP  CURTAIN  JOB 

0347 

REF 

3 

LAST 

746 

36 

,2452 

3 2465 

1 

MPllTERM 

CAF 

ISECi 1 

SET  TO  DO  MPll  terminal  TASKS  IN  1 SEC 

0348 

36 

,2453 

0.  0004 

0 

inhint 

0349 

REF 

137 

LAST 

746 

36 

,2454 

0 5663 

1 

JC  _ 

WAITLIST 

0350 

REF 

125 

LAST 

748 

E4 

eban<= 

TOEC 

0351 

36 

,2455 

02463 

1 

2CA0R 

MPllnUT 

C0351 

REF 

2 

LAST 

64 

36 

,2456 

74064 

0 

0352 

REF 

40 

LAST 

748 

36 

,2457 

0 4141 

1 

TC 

2PHSCHNG 

0353 

36 

,2460 

00035 

1 

OCT 

35 

5.3  SPOT  FOR  SERVICER. 

0354 

36 

,2461 

40272 

1 

OCT 

40272 

2.27  SPOT  for  MPllOUT. 

0355 

REF 

34 

LAST 

744 

36 

,2462 

0 5567 

0 

TC 

ENOOFJOB 

0356 

REF 

50 

LAST 

748 

36 

,2463 

0 5101 

1 

M=110JT 

TC 

ILMP.DT 

0357 

36 

,2464 

00047 

1 

OEC 

39 

INITIATE  ABORT  STAGE  COMMAND  RESET 

0358 

36 

,2465 

00144 

0 

ISECII 

OEC 

loo 

delay  1 SEC 

0359 

ref 

51 

LAST 

749 

36 

,2466 

0 5101 

1 

IC 

1LMP*DT 

0360 

36 

,2467 

00267 

1 

OEC 

ia_3  __  _ _ _ 

LANDING  RADAR  POWER  OFF 

0361 

36 

,2470 

01440 

0 

OEC 

BOO 

delay  8 SECS 

0362 

REF  . 

28 

LAST 

742 

36 

,2471 

0 5073 

0 

TC 

2LMP*0T 

0363 

36 

,2472 

00365 

1 

OEC 

245 

DPS  PQGS  U AND  2 OFF 

0364 

36 

,2473 

00325 

0 

OEC 

213 

0365 

36 

,2474 

00144 

0 

OEC 

100 

delay  1 SEC 

0366 

REF 

29 

LAST 

749 

36 

,2475 

0 5073 

0 

TC 

2LM?*DT 

0367 

36 

,2476 

00345 

0 

OEC 

229 

DPS  PQGS  arm  1 AND  2 DISABLE 

0368 

36 

,2477 

00305 

1 

OEC 

197 

0369 

36 

,2500 

03554 

0 

OEC 

1900 

delay  19  SECS  TO  KILL  AVEG 

0370 

REF 

16 

LAST 

736 

36 

,2501 

0 6067 

0 

TC 

FLAGiDWN 

KILL  AVERAGE  G 

0371 

36 

,2502 

00001 

0 

OCT 

1 

0372 

REF 

78 

last 

749 

36 

,2503 

0 5270 

1 

TC 

lBN<rALL 

0373 

REF 

11 

LAST 

736 

36 

,2504 

40054 

1 

CADR 

5ETMAXDB 

0374 

ref 

41 

LAST 

749 

36 

,2505 

0 4141 

1 

TC 

2PHSCHNG 

0375 

36 

,2506 

00002 

0 

OCT 

2 

0376 

36 

,2507 

05013 

0 

OCT 

05013 

GROUP  3 FOR  MISSION  SCHEDULER. 

0377 

36 

,2510 

77777 

0 

OCT 

77777 

0378 

REF 

5 

LAST 

736 

36 

,2511 

0 5126 

1 

TC 

mpentry 

SETUP  MISSION  PHASE  SCHEDULING 

0379 

36 

,2512 

00002 

0 

OEC 

2 

TIMER  -2- 

6334.36A 

YUL  SYSTEM  FOR  AGCI 

; REVISION  0 OF  PROGRAM 

BURST120  3Y 

NASA  2021106-031 

DEC  7,  1967  (MAIN) 

PAGE 

750 

L 

MISSION  PHASE  U - 

DAS2/F1TH/APS1 

USER'S 

OWN  page  nO.  12 

S3 

EA 

0380 

36.2513  00015  0 - _ 

OEC 

13 

MISSION 

PHASE  -13- 

0381 

REF  1 

36.25U  01753  1 

ftORES 

MP11T013 

0382 

REF  93  LAST  7A9 

36,2515  0 5727  0 

rc 

TAS<OVER 

MISSION 

PHASE  11  COMPLETE 

633<f36A  YUL  SYSTEM  FOR  AGC:  REVISION  0 OF  PROGRA^I  BURSTlTi  BY^  NASA  2021106-031 


DEC  7f  1967  (MAIN)  PAGE  751 


L MISSION  PHASE  ll  - D^SZ/FlTH/APSl  USEr*5  OWN  PAGE  NO.  13  S3  E<* 

P0383  7?7?77?77??777?.?7277J??:???????-?7-  - - - - 

R038A  NUMERICAL  AND  ADDRESS  CONSTANTS 
R0385  77 777 7777777777T7777 777 77777 7777 


A0186 


»-*  TIME  CONSTANTS  !()» 


0387  36,2516  00000  1 135SECS  2DEC  13500 

CQia7 36,2517 3227A  1 

0388  36,2520  04312  0 22.5SECS  OEC  2250 

0389  36.2521  04766  1 25.5SECS  OEC  2550 

0390  _ _ _3At2^22  04230  1 22SECS11  OEC  2200 


10391 

0392 

36,2523 

063 15  0 

»»  THRUST  Level 
_2a££lEIR 0££ 

CONSTANTS  »* 

_.2 

0393 

36,2524 

14632  0 

OEC 

.4 

0394 

36,2525 

11463  0 

OEC 

.3 

0395 

36,2526 

20000  0 

OEC_  _ 

.5  . . 

0396 

36,2527 

03146  1 

OEC 

• 1 

0397 

REF  43  LAST  743 

7743 

925PCTHR  = 

POBMaX  for  maximum  permitted  thrust  (92.5)6) 

AQ3J98 . »»  ADDRFS5  rONSTftNTS  »» 


0399 

0400 

ref  4 
REF  2 

last 

last 

719 

36 

36,2530 

02251  0 
E4 

AVEGllAD 

SENAOR 

EBAN4= 

AVERaGEG 

EpDPS 

0401 

36,2531 

02043  1 

BJRNADR 

2CADR 

BURN 

C040I 

ref  1 

36,2532 

44064  0 

0402 

REF  3 

LAST 

751 

E4 

FBAN<= 

E2DPS 

0403 

36,2533 

02000  0 

D?S2ADR 

2CADR 

PRE3IIRN 

C0403 

REF  1 

36,2534 

4A064  0 

0404 

REF.  15, 

last 

707 

E5 

-BAN<= 

ETHRnT 

EBANK  5 

0405 

36,2535 

03466  0 

PCNTFAD 

2CADR 

pcntfmax 

C0405 

REF  3 

LAST 

70Y 

36,2536 

60065  1 

0406 

REF  126 

LAST 

749 

E4 

FBAN<= 

TDEC 

0407 

36,2537 

02452  0 

MPllTMAD 

2CADR 

mputerm 

C0407 

REF  1 

36,2540 

74064  0 

0408 

REF  127 

last 

751 

E4 

rBAN<= 

TDEC 

0409 

36,2541 

02336  0 

MDAVADR 

2CADR 

RVJPDATE 

C0409 

ref  2 

LAST 

730 

36,2542 

16064  1 

0410 

REF  16 

LAST 

691 

E5 

EBAN<= 

DvCNtR 

0411 

36,2543 

02324  0 

ADROFSER 

2CAOR 

SERVFXIT 

C0411 

REF  8 

LAST 

7 36 

36,2544 

60065  1 
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L MISSION  PHASE  U - DAS2/FI TH/APsi  USER'S  OWN  PAGE  NO.  U S3  EA 

P0A12  ???????????7'2??-t^Z?7????????7:?Jm 

R0A13  TASKS  CALLED  ELSEWHERE  IN  MPll 
ROAIA  ?7777???77?7???77?7?7??7??7?777? 


0A15 

ref 

9 

LAST 

747 

36a2545 

0 5060 

1 

M=11TAS< 

rc 

ILM.P 

0AI6 

36.2546 

00354 

0 

DEC 

236 

DFI  T/M  calibration  - ON 

0A17 

REF 

95 

LAST 

748 

36.i54_7 

0 4161 

0 

IC  _ 

_ PHASCHNG . 

0A18 

36,2550 

40153 

1 

DCT 

40153 

■ 0419 

ref 

57 

LAST 

748 

36,2551 

0 5701 

1 

IC 

. FIXDfLAY 

0A20 

36,2552 

02260 

1 

DEC 

1200 

0A21 

RtF 

4 

LAST 

736 

36,2553 

0 5052 

0 

NEXLMP  __ 

tc 

OA22 

36,2554 

00355 

1 

DEC 

237 

DFI  T/M  CALIBRATE  - OFF 

0A23 

36,2555 

00306 

1 

DEC 

198 

CtW  ALARM  RESET  - COMMAND 

0A2A 

REF 

96 

LAST 

752 

36.2556 

0 4161 

0 

TC 

PHASrHNG 

0A25 

36,2557 

40173 

0 

DCT 

40173 

0A26 

REF 

58 

LAST 

752 

36,2560 

0 5701 

1 

TC 

FiXDcLAY 

0A27 

36,2561 

00310 

0 

2SECS11 

DEC 

200 

0428 

REF 

10 

LAST 

752 

36,2562 

0 5060 

1 

NEXLMPl 

TC 

ILMP 

0A29 

36,2563 

00307 

0 

DEC 

199 

C*W  ALARM  RESET  - COMMAND  RESET 

0A30 

REF 

97 

LAST 

752 

36,2564 

0 4161 

0 

TC 

PHASrHNG 

0431  • 

36,2565 

40213 

0 

DCT 

40213 

0432 

ref 

59 

LAST 

752 

36,2566 

0 5701 

1 

TC 

FIXDELAY 

0433 

36,2567 

00144 

0 

DEC 

100 

0434 

REF 

5 

LAST 

752 

36,2570 

0 5052 

0 

NEXLMP2 

TC 

2LMP 

0435 

36,2571 

00266 

0 

DEC 

1B2 

LR  POWER  - ON 

0436 

36,2572 

00032 

0 

DEC 

26 

RADAR  SELFTEST  - ON 

0437 

REF 

98 

LAST 

752 

36,2573 

0 4161 

0 

TC 

PHASrHNG 

0438 

36,2574 

40233 

1 

DCT 

40233 

0439 

REF 

50 

LAST 

752 

36,2575 

0 5701 

1 

TC 

FIXDfLAY 

0440 

36,2576 

13560 

0 

DEC 

6000 

0441 

REF 

11 

LAST 

752 

36,2577 

0 5060 

1 

NEXLMP3 

TC 

ILMP 

0442 

36,2600 

00033 

1 

DEC 

27 

RADAR  SELFTEST-OFF 

0443 

REF 

99 

LAST 

752 

36,2601 

0 4161 

0 

TC 

PHASrHNG 

0444 

_ _36i2602 

00003 

1 

DCT 

_3 

633436A 

YUL  system  FOK  Agc; 

; REVISION  0 OF  PROGRAM 

BURST123  by 

NASA  202U06-031 

DEC  7,  1967 

(MAIN) 

PAGE 

753 

L 

0445 

MISSION  PHASE  U - 
ref  J4  last  750  ^ 

0352/FlTH/APSl 
36,2603  0 5727 

IX 

IA5X0V£J?_ 

USER’S  OWN  PAGE  NO. 

15 

S3 

E4 

0446 

rEf 

42 

LAST 

749 

36,2604 

0 4141 

1 

SETWATER 

TC 

2PHSCHNG 

0447 

36,2605 

• 00114 

0 

OCT 

00114 

4.11  FOR  PCNTjOB  JOB. 

0448 

36,2606 

47012 

1 

_OXI 

4701? 

0449 

36,2607 

00310 

0 

5EC 

200 

0450 

ref 

128 

last 

751 

E4 

eban<= 

TDEC 

0451 

36,2610 

„ 02614 

0 

2CADR 

ASwTuLON 

■ C0451 

REf 

1 

36,2611 

74064 

0 

0452 

ref 

61 

LAST 

752 

36,2612 

0 5701 

1 

IC 

fixoflay 

0453 

36,2613 

00310 

0 

OEC  , 

2Q0 

0454 

REF 

'52 

LAST 

749 

36,2614 

0 5101 

1 

ASWTVLON 

TC 

1LMP*DT 

0455 

36,2615 

00336 

1 

OEC 

222 

ASCENT  water  coolant  VAEVE  Oa^N 

0456 

36,2616 

00310 

0 

OEC 

200 

0457 

ref 

53 

LAST 

753 

36.2617 

X 5xai 

1 

1C 

1XMP*.D1. 

0458 

36,2620 

00337 

0 

OEC 

223 

ASCENT  water  COOLANT  VALVE  - OPEN  RESET 

0459 

36,2621 

01130 

1 

OEC 

600 

0460 

REF 

7 

LAST 

745 

36,2622 

3 1342 

0 

CA 

RSDTTEMP 

0461 

REF 

4 

LAST 

745 

36,2623 

55*662 

0 

IS 

mpretrn 

rcF 


0462  REF  2 LAST  65 


36,2624  1 2332  0 


CCSvipRET 


633^36a 

YUL  system  for  AGC:  RiVlSlON  0 

OF  Program  bursH20  by  naSa  2n2ii06-03i 

DEC  7, 

1967 

(Main) 

PaGE  75A 

L 

ROOOl 

MISSION  PHASE  13  - APS2 
MISSION  PHASE  13  EXERCISES  , THE. 

ASCEnT  guidance  EOJAIjjmS.  OF__dROG  A6 

USER'S  OWN  PAGE 

NO. 

1 

S3 

R0003 

the 

PREREAO 

tas< 

IS  SET  TO  OCCUR  IN 

lAO  SECS  AT 

TIG-30 

AND  AvETOMID 

DONE 

Roooa 

the 

P^E' 

-AP52 

prog 

3A  IS  executed  and 

kalcmanu  J03  IS  started 

Roods 

the 

E>16INE0N 

task 

IS  started 

AT  TIG- 

30  AND  IGN 

IS  AT  170  SECS  AFTER 

R0006 

start  of  MP13 

R0007 

the 

ASCENT  guidance  E3UATI0NS 

start 

between  TIj*1  and  +2  SECS 

Roods 

the 

ASC 

feed 

TEST 

STARTS  AT  TIG.O  AND  TERM.INATFS  365  SFCS  LAtFR 

•0009 

27,311A 

3AN< 

27 

0010 

REF 

126 

LAST 

707 

EA 

EBAN<= 

AMEMQRY 

00105 

REf 

17 

LAST 

7aY 

27,311A 

0 6067 

0 M=13J03 

tc 

FLAolDWN 

00107 

27,3115 

OAOOO 

0 

dct 

OAOOO 

. KNOCx.DOylN  RESTART  FLAG 

0011 

27,3116 

0 0006 

1 

EXTEND 

0012 

REF 

33 

LAST 

7A0 

27,3117 

3 0025 

0 

DCA 

TIME?  _ ^ 

PICK  UP  CURRENT  TIME 

0013 

REF 

129 

LAST 

753 

■ 27,3120 

53*567 

0 

DXCH 

TDEC 

OOlA 

REF 

26 

last 

7a8 

27*3121 

0 a117 

1 

TC 

NEwMnDEX 

SET  MODE 

0015 

OOOiA 

0 

DrT 

34 

0016 

27,3123 

22  007 

0 

2L 

SET  TDEC  TO  TIME  AT  TIG-30 

0018 

REF 

1 

27,312a 

3 3320 

0 

CAF 

IaOSFCS 

TIME  TO  TIGN-30 

0019 

REF 

U7 

LAST 

7A0 

27,3125 

56  001 

0 

XCH 

L 

0020 

REF 

130 

LAST 

75A 

27,3126 

21'567 

0 

DAS 

TDEC 

TDEC  =TIGN-30  FOR  MIDTOAVE 

0021  . 

rEf 

2 

last 

75A 

27,3127 

3 3320 

0 

CAF 

lAOSFCS 

0022 

27,3130 

0 OOOA 

0 

INHINT 

0023 

ref 

IDS 

LAST 

7A9 

27,3131 

0 5663 

1 

TC 

WAIT!  1ST 

SET  TASK  FOR  TlGN-30 

00231 

REF 

131 

last 

75  A 

EA 

eban<= 

TDEC 

002A 

27,3132 

03175 

1 

2CADS 

TI513-30 

C002A 

REF 

1 

27,3133 

5606A 

0 

002A2 

27,313A 

0 0006 

1 

EXTEND 

002A3 

REF 

132 

LAST 

75A 

27,3135 

3 1567 

1 

DCA 

TDEC 

002AA 

REF 

B 

last 

732 

27,3136 

53*670 

0 

DXCH 

TIGN 

002A5 

27,3137 

0 0006 

1 

EXTEND 

002A6 

ref 

1 

27,31A0 

3 3317 

1 

DCA 

30SErS13 

002A7 

REF 

9 

LAST 

75A 

27,31A1 

21*670 

0 

das 

TIGN 

DISPLAY  TIGN  FOR  DOWNLINK, 

0025 

27,31A2 

0 0003 

1 

RELINT 

0026 

27,31A3 

0 0006 

1 

EXTEND 

0027 

REF 

1 

27,31AA 

3 2AA1 

1 

DCA 

MIDAuEAD 

DO  MIDTOAVE  COMPUTATION 

0028 

ref 

28 

LAST 

7A6 

27.31A5 

52  006 

0 

DXCH 

Z 

0029 

27 » 3 1^6 

0 0006 

1 

EXTEND 

0030 

REf 

1 

27,31A7 

3 3325 

0 

DcA 

PR£Ad2A0 

DO  pRE-ApS2  TO  get  desired  ATTITUDE 

0031 

REF 

29 

LAST 

75A 

27,3150 

52  006 

0 

DXCH 

z 

STORES  VECTORS  POINTVSM  AND  SCAKIS 

J.C. 


0032  REF  36  LAST  /AO 
00321 


27*3151  _0_  6ai2_fiL 
27,3152  A3131  0 


55P 


INTPnET 

SET 


4 
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L 

MISSION 

PHASE  13  - 

A3S2 

U5ER*S  own  page  no.  2 S3  E4 

00322 

REF 

11 

LAST 

74I 

27,3153 

01653 

0 

RATFTNDX 

SET  KALCMANU  FOR  ANGULAR  RATE  0>  sOEGvS 

00323 

27 

,3154 

00004 

0 

4 

0032A 

27 

,3155 

01063 

0 

330 

00325_ 

27 

,315_6 

77776 

1 

-XIT 

00326 

REF 

8 

LAST 

741 

27 

,3157 

3 5642 

1 

CAF 

PRI016 

SET  UP  ATTITUDE  MANEUVER  JOB. 

0Q33 

27 

,3160 

0 0004 

0 

inhint 

0034 

REF 

24 

last 

741 

27 

,3161 

0 5516 

0 

TC 

FINOuAC 

00341 

REF 

23 

LAST 

741 

E3 

HBAN<= 

MIS 

0035 

27 

.3162 

02001 

1 

2CAPR 

YECPQINT 

C0035 

ref 

4 

LAST 

741 

27 

,3163 

70063 

0 

0040 

REF 

57 

LAST 

744 

27 

,3164 

3 7763 

1 

:af 

BITI 

0041 

27 

,3165 

0 0004 

0 

INHINT 

0042 

REF 

109 

LAST 

754 

27 

,3166 

0 5663 

1 

TC. 

^lAITl  1ST 

SET  UP  DFI  T/M  CALIBRATE  TASK 

00421 

REF 

133 

LAST 

754 

E4 

£BAN<= 

TDEC 

0043  ■ 

Zi 

,_3167 

03341 

1 

2CADR 

DFICaL 

DFICaL  requires  14  SECS  AND  ENOS  ITSELF 

C0043 

REF 

1 

27 

,3170 

56064 

0 

00431 

REF 

127 

last 

74I 

27 

,3171 

0 5206 

0 

TC 

3AN<CALL 

PUT  MP13  TO  SLEEP-KALCMANU  WILL  WAKE 

00432 

REF 

5 

LAST 

74l 

27 

,3112 

26743 

0 

CAOR 

ATTSTALL 

00433 

REF 

6 

LAST 

74I 

27 

,3173 

0 4743 

0 

TC 

CURTAINS 

BAD  end  return  FROM  KALCMANU 

0045 

REF 

35 

LAST 

749  _ 

27»3J.24 

0 5567 

0 

IC 

ENDofJOB 

WAIT  FOR  tig-30  task  TO  INTEKUPf 

0046  . 

REF 

58 

LAST 

755 

27 

,3175 

3 7763 

1 

TIG13-30  CAF 

Bill 

SET  PREREAO  FOR  NOW 

0047 

REF 

110 

LAST 

75P 

27 

,3176 

0 5663 

1 

TC 

,)AlTLIST 

0048 

REF 

7 

last 

742 

E5 

£BAN<= 

DVTOTAL 

0049 

27 

,3177 

02000 

0 

2CA0R 

PREREAD 

C0049 

REF 

9 

LAST 

742 

27 

,3200 

60065 

1 

00491 

REF 

100 

LAST 

752 

27 

,3201 

0 4161 

0 

rc 

PHASrHNG 

preread  restart  protection 

00492 

27 

,3202 

00335 

1 

OCT 

00335 

0050 

REF 

38 

LAST 

74B 

27 

.3203 

3 7751 

0 

CAF 

BITll 

see  if  attitude  maneuver  done 

0051 

ref- 

17 

LAST 

74I 

27 

,3204 

7 0076 

1 

MAS.< 

P LA0WRD2 

00511 

ref 

292 

LAST 

745 

27 

.3205 

10  000 

0 

CCS 

A 

0052 

REF 

2 

LAST 

749 

27 

,3206 

1 3334 

1 

TCF 

CJRT.lOB 

no-set  up  curtains  job 

00521 

ref 

27 

LAST 

754 

27 

,3207 

0 4117 

1 

IC 

NE^JMODEX 

00522 

27 

,3210 

00046 

0 

3CT 

46 

SET  mOdE  to  PR0G46 

OO53 

REF 

1 

27 

,3211 

3 3323 

0 

CAF 

AVE513AD 

GENADR  OF  AVEG  IN  DVSELECT 

0054 

REF 

15 

last 

741 

27 

,3212 

55*310 

0 

IS 

DVSELECT 

0063 

27 

,3213 

0 0006 

1 

£XTE,mD 

0064 

RtF 

1 

27 

,3214 

3 3333 

1 

OCA 

SvExl3AD 

2CADR  SERvEXiT  IN  AvEGExIT 

0065 

REF 

17 

LAST 

741 

27 

,3215 

53*073 

0 

oxch 

AYoExIT 

0066 

27 

,3216 

0 0006 

1 

EXTEiMO 

0067 

REF 

1 

27 

,3217 

3 3327 

1 

OCA 

MP13TMAD 

0068 

REF 

8 

LAST 

741 

27 

,3220 

53,075 

0 

OXCH 

oymnfxit 

SET  MP  return  FOR  ENGINE  SHUT  OOWN 
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L MISSI3N  PHASE  13  - A3S2  USER'S  OWN  PAGE  NO.  3 S3  EA 

0069  REF  79  LAST  7A9  27.3221  0 5270  1 - TC__  1BN<CAU — _ _ 


005901 

ref 

6 

LAST 

7A2 

27,3222 

90277 

1 

CAOR 

Enginofi 

00691 

REF 

5^ 

LAST 

753 

27.3223 

0 5101 

1 

rc  _ 

ILMP.DX- 

00692 

27.322A 

00206 

0 

OEC 

139 

Engine  select-aps  arm 

00693 

27,3225 

03326 

0 

OEC 

1750 

DELAY  17.5  SECS 

0069A 

REF 

30 

LAST 

756 

27,3226 

0 5270 

1 

rc 

lBN<rALL 

00595 

REF 

9 

LAST 

7A2 

27,3227 

90062 

1 

CADR 

ULLAGE 

COMMAND  9 UET  ULLAGE-ON 

0072 

ref 

62 

LAST 

753 

27,3230 

0 5701 

1 

TC 

FIXOELAY 

00721 

27,3231 

02392 

0 

otc 

1250 

delay  12.5  sECS  TO  IGNITION 

0073 

REF 

3l 

LAST 

756 

27,3232 

0 5270 

1 

TIG13 

TC 

lBN<rALL 

00731 

REF 

LAST 

7A8 

27,3233 

90175 

0 

CAOR 

APSENGON 

007A 

REF 

63 

LAST 

756 

27.323A 

0 5701 

1 

TC 

FIXOfLAY 

0075 

27,3235 

00062 

0 

OEC 

50 

DELAY  .5  SECS 

0076 

REF 

32 

LAST 

756 

27,3236 

0 5270 

1 

rc 

IBNXrALL 

0077 

REF 

11 

LAST 

7AT 

27,3237 

90066 

0 

CAOR 

NOULLAGE 

ULLAGE  UETS  OFF  AT  TIG  ♦ .5 

R00772 

NOW 

THAT 

■ the 

engine 

15  ON  AND 

ullage 

is 

off.  Set 

JP  dummy  M?  13  6 

PUT  ReStartability  flag  up: 

0077A 

ref 

A3 

LAST 

753 

27,3290 

0 9191 

1 

TC. 

2PHSr.HNG 

00775 

27,3291 

00313 

0 

OCT 

00313 

3.31  SPOT  IS  DUMMY13  TASK. 

007755 

27,3292 

00002 

0 

OCT 

2 

GROUP  2 OFF. 

00776 

REF 

27 

LAST 

698 

27,3293 

3 7797 

1 

CAF 

BITU 

00777 

REF 

10 

LAST 

73Y 

27,3299 

0 9105 

1 

rc 

SETRaTRT 

SET  RESTART  FLAG 

0078 

REF 

6A 

LAST 

756 

27,3295 

0 5701 

1 

TC 

FIXOELAY 

0079 

27,3296 

00372 

1 

OEC 

250 

delay  2.5  SECS  AND  START  GUIDANCE 

0080 

27,3297 

0 0006 

1 

EXTEND 

0081 

REF 

1 

27,3250 

3 3331 

0 

OCA 

ATMAP.AD 

0082 

REF 

18 

LAST 

755 

27,3251 

53*073 

0 

OXCH 

AvGEXlT 

SET  AVEG  LOOP  TO  THRUST  MAGNlTUOE  FILTER 

0083 

ref 

65 

LAST 

756 

27,3252 

0 5701 

1 

rc 

FIXOFLAY 

008A 

27,3253 

01130 

1 

OEC 

600 

START  FEED  TEST  ROUTINE 

n085 

REF 

1 

27,3259 

Q 3353 

1 

TC 

FEEOTEST 

START  FEED  TEST  ROUTINE 

0086 

27,3255 

0 0006 

1 

EXTEND 

0087 

REF 

1 

27,3256 

3 3322 

1 

OCA 

392SPCS 

0088 

REF 

6 

LAST 

7A0 

27,3257 

0 5791 

0 

rc 

LONGrALL 

00881 

REF 

13A 

LAST 

755 

E9 

EBAN<= 

TDEC 

0089 

27,3260 

03263 

0 

2CADR 

MP13*599 

C0089 

ref 

1 

27,3261 

56069 

0 

0090 

REF 

1 

27,3262 

1 3269 

0 

TCGP20FF 

rcF 

5RP2nFF 

0091  REF  1 


27,3263  0 3A10  1 M=13+5AA  IC 


FEEDpEST 


DO  FEED  TEST  RESET  ROUTINE 
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L 

MISSION 

PHASE  13  - 

A5S2 

USER’S  OWN  PAGE  NO.  c,  S3  £4 

00912 

rEf 

232 

last 

7A0 

27*326A 

4 776-7 _1- 

-119P2QEfL- 

-Ci 

-.Z-ErO- 

0091A 

27,3265 

22  007  0 

ZL 

00916 

ref 

2 

LAST 

102 

27t3266 

53*102  1 

OXCH 

-PHASE2 

0092 

REF 

95 

last 

753 

27.3267 

0 5727  0 

TC 

TASZOVER 

WAIT  FOR  guidance  TO  DO  ENGINE  OFF 

0093 

REF 

59 

LAST 

755 

27,3270 

„_3  -7763n 

MA13TERM 

:af 

31  Tl  - - 

SET  MP13  TERMINAL  TASKS 

009A 

27,3271 

0 0004  0 

iNHm 

0095 

REF 

111 

LAST 

755 

27,3272 

0 5663  1 

TC 

</AlTl  1ST 

00951 

fiE_f 

1 35 

LAST 

756 

EA_ 

£BAN<= 

_JU£C 

00952 

27,3273 

03277  0 

2CADR 

MP130UT 

C00952 

ref 

1 

27,3274 

56064  0 

00953 

ref 

A3 

LAST 

736 

27,3275 

0 5225  1 

IC- 

POST.lUMP 

009531 

REF 

9 

LAST 

751 

27,3276 

60324  1 

CAOR 

SERYfXIT 

0100 

REF 

33- 

LAST 

7 56 

. 2J, 3-227- 

. 0 _5270  1 

-M=130UT 

rc  

IBNCCALI 

DEADBAN-D  SELECT  - MAX 

01001 

ref 

12 

LAsT 

7A9 

27,3300 

40054  1 

:adr 

setmaxdb 

0101 

REF 

2 

LAST 

7_5_6 

- 27,3301 

0 3410  -1 

TC 

feeorfst 

DO  THIS  IN  CASE  OF  £ARLY  ENG  SHJT  DOWN 

0102 

REF 

66 

LAST 

756 

27,3302 

0 5701  1 

TC 

FIXOfLAY 

0103 

ZJj  33-03- 

00144  0 

OEC 

100 

delay  I SEC 

OlOA 

REF 

12 

last 

752 

27,3304 

0 5060  1 

TC 

ILMP 

0105 

27,3305 

00207  1 

OEC 

135 

APS  ARM  OFF 

0109 

ref 

67 

LAST 

757 

27,3306 

0 5701  1 

TC 

FlXOcLAY 

0110 

27,3307 

05524  1 

OEC 

2900 

DELAY  29  SECS  TO  KILL  AVEG 

0111 

REF 

18 

LAST 

75A 

27,3310 

0 6067  0 

ic 

FLAGi OWN 

KILL  AVE  G 

01111 

27,3311 

00001  0 

OCT 

1 

0112 

REF 

96 

LAST 

757 

27,3312 

0 5727  0 

rc 

taszover 

MISSION  phase  13  COMPLETE 

OllA 

27,3313 

00144  0 

1SEC13 

OEC 

100 

0115 

27,3314 

00310  0 

2SECS13 

oEc 

200 

0116 

27,3315 

02260  1 

12SECS13 

OEC 

1200 

01165 

27,3316 

00000  1 

30SECS13 

2DEC 

3000 

C01165 

27,3317 

05670  0 

0117 

27,3320 

33260  0 

140SECS 

OEC 

l400ri 

0118 

27,3321 

00002  0 

342SECS 

ZDEC 

342o0 

342  SECONDS 

cons 

27,3322 

02630  0 

0120 

REF 

5 

LAST 

751 

27,3323 

02251  0 

A\/EG13A0 

3ENA0R 

ayerageg 

01201 

REF 

136 

LAST 

757 

E4 

zBAN<= 

TOEC 

0121 

27,3324 

02000  0 

PREAP2AD 

2CADR 

PREAdS2 

C0121 

REF 

1 

27,3325 

64064  1 

0122 

REF 

137 

LAST 

757 

E4 

eban<= 

TDEC 

0123 

27,3326 

03270  1 

M=>13TMAD 

2CADR 

MP13TERM 

C0123 

REF 

1 

27,3327 

56064  0 

01231  REF  138  LAST  757  E4 


EBAN<=  TDE 


633A36A 

YUL  system  for  A&C: 

REVISION  0 OF  PROGRAM  BURST120  6Y  NASA  2021106-031 

DEC  7. 

1967  (MAIN) 

PAGE 

758 

L 

MISSION  PHASE  13  - 

A3S2 

USER'S  OWN  page 

NO.  5 

S3 

EA 

0124 

27.3330  03005  1 

ATMAGAJ  . 2CA0R  ATMAf.  . „ _ 

C012A 

012AI 

012A2 

REF  2 LAST  707 

REF  8 LAST  75S 

27.3331  6L06A  1 

E5 

27.3332  0232 A_0 

•BAN<=  OvTOTAL 
SYEX13AD  2GADR_  SERyEXIT  __ 

C01242  REF  10  LAST  75T  27t3333  60065  1 
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L 

MISSION 

PHASE  13  - 

A5S2 

USER'S  OWN  page  no.  6 

S3  E4 

0125 

REF 

7 

LAST 

7<(8 

2JiJ333 

3 566,0 

L ,,CJR1J03  , 

. CAE 

PSX03i  , - . - 

SET  UP  JOB  JO..G.Q  TQ_C.URTAINS 

0126 

ref 

26 

LAST 

7A8 

27,3335 

0 5505 

1 

TC 

NOv(Ar 

0127 

REF 

2 

LAST 

2A6 

E2 

EBAN<= 

SFAii 

012^8 

27.3336 

04743 

0 

2CADR 

CURTAINS 

C0128 

REF 

7 

LAST 

755 

27,3337 

04062 

1 

0129 

REF 

97 

LAST 

757 

27,33A0 

0 5727 

0 

TC 

TASCnVER 

01A2 

REF 

55 

LAST 

756 

27.3341 

0 5101 

1 dfical 

TC 

ILMP+OT 

LMP  COMMAND 

0K3 

27,3342 

00354 

0 

OEC 

236 

DPI  T/M  calibrate  - ON 

0U4 

27,3343 

, 02260, 

1 

DEC., 

,1200 

DELAY  12  SECS 

01A5 

ref 

30 

LAST 

7A9 

27,3344 

0 5073 

0 

TC 

2LMP+DT 

LMP  commands 

0JA6 

27j3345 

00355 

1... 

DEC  _ 

237 

DEI  TyM,CA^LIBR,AIE  -,.OFE  , 

01A7 

27,3346 

00306 

1 

DEC 

198 

master  C+W  ALARM  RESET  - COMMAND 

0U8 

27,3347 

00310 

0 

DEC 

200 

delay  2.0  SECONDS 

0U9 

REF 

13 

last 

75  7 

27,3350 

0 5060 

1 

TC 

ILMP 

LMP  COMMAND 

0150 

27,3351 

00307 

0 

DEC 

199 

MASTER  C+W  ALARM  RESET  - COMMAND 

RESET 

0151 

REF 

98 

LAST 

759 

27,3352 

0 5727 

TC 

TAS<nVER 

terminate  DFI  CALIBRATE  TASK 

633«.36A 

YUL 

SYSTEM  FOR  4&C! 

; REVISION 

0 OF  PROGRAM 

bURST12D  3Y  NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  760 

U 

MISSION 

PHASE  13  - 

A3S2 

USER'S  OWN  page  NO.  7 S3  E4 

0152 

27jJ3353 

0 0006 

_1  F_ 

ELOTELST-  .EX.LEND 

0153 

ref 

5 

LAST  753 

27,3354 

23*662 

1 

3XCH 

mpretrn 

0154 

REF 

LAST  727 

27*3355 

0 6060 

1 

rc 

FLA3?UP 

SET  ASC  feed  test  FLAG 

0155 

27.3356 

00200 

JQ 

aci 

_200 

01551 

REF 

56 

LAST  759 

27,3357 

0 5101 

1 

TC 

ILMP+DT 

TIME  T 

01552 

27r3360 

00176 

1 

5EC 

126 

RC5  ASCENT  FELD  VALVL-  ARM 

01553 

27,3361 

00144 

0 

3EC 

100 

DELAY  1 SEC 

0156 

REF 

31 

LAST  759 

27.3362 

0 5073- 

0 

rC 

2LM?*UT 

T*1 

0157 

27,3363 

00074 

1 

3EC 

60 

RCS  ASCENT  FEED  VALVES8  SYS  A-OPEN 

0158 

27,3364 

00254 

1 

3EC 

172 

RCS  MAIN  S/0  VALVES  SYS  A-CLOSE 

0159 

27,3365 . 

QOilO 

_0 

3EC  _ 

200  _ 

delay  for  2 SECS. 

0150 

REF 

32 

LAST  760 

27,3366 

0 5073 

0 

rc 

2LMP*0T 

T*3 

0161 

27i3367 

00075 

0 

3EC 

6-1 

RCS  ascent  Feed  valves  _sys  a-oren  -Reset 

0162 

27,3370 

00255 

0 

OEC 

173 

RCS  MAIN  S/0  VALVES  SYS  A-CLOSE  RESET 

0163 

27,3371 

01440 

0 

3EC 

800 

DELAY  FOR  8 SECS 

0164 

REF 

33 

LAST  760 

27,3372 

0 5073 

0 

rc 

2LM?*DT 

T + 11 

0155 

27,3373 

00076 

0 

OEC 

62 

RCS  ASCENT  FEED  VALVES  SYS  B-OP;N 

0166 

27,3374 

00256 

0 

3EC 

174 

RCS  MAIN  S/0  VALVES  SYS  B -CLOS= 

0157 

27,3375 

00310 

0 

3EC 

200 

delay  FOR  2 SECS 

0168 

ref 

34 

LAST  760 

27,3376 

0 5073 

0 

rc 

2LMP*DT 

T*13 

0169 

27,3377 

00077 

1 

3EC 

63 

RCS  ASCENT  FEED  VALVES  SYS  B-OPEN  RESET 

0170 

27,3^.00 

00257 

1 

3EC 

175 

RCS  MAIN  S/0  VALVES  SYS  B-CLOSE  RESET 

0171 

27,3401 

01440 

0 

3EC 

800 

DELAY  8 SECS 

0172 

ref 

57 

LAST  760 

27,3402 

0 5101 

1 

rc 

1LMP*DT 

T + 21 

0173 

27,3403 

00374 

1 

3EC 

252 

RCS  MANIFOLD  CROSSFEED  VALVES-OPEN 

0174 

27,3404 

00310 

0 

3EC 

200 

DELAY  FOR  2 SECS 

0175 

REF 

14 

LAST  759 

27,3405 

0 5060 

1 

rc 

ILMP 

T+23 

0176 

27,3406 

00375 

0 

3EC 

253 

RCS  manifold  Crossfeed  valves-o^en  reset 

0177 

ref 

6 

LAST  760 

27,3407 

0 1662 

1 

rc 

MPREtRN 

633<*36A  YUL  system  EOR  AqC;  REVISION  0 OF  PROGRAM  BUR5T12D  BY  NASA  2n2U06-031 
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L 

MI  SSI  ON 

phase  13 

- A9S2 

USER'S  OWN  PAGE  NO.  8 S3  E4 

_D178 

REF 

18 

LAST 

755 

. _ 27i  3it  lO 

4 0076_ 

L - 

FEEDRFST  :s 

FLAGwRDp 

CHECK  FEED  TEST  FLAG 

0179 

ref 

2A 

last 

721 

27.3A11 

7 7754 

1 

v|AS< 

31TB 

0180 

REF 

293 

last 

755 

27.3A12 

10  000 

0 

CCS 

A 

0181 

REF 

211 

last 

675 

27,3413 

0 0002 

0 

TC 

D 

FLAG  DOWN-NO  RESET 

0182 

27,3414 

0 0006 

1 

EXTEND 

FLAG  UP  - DO  FEED  TEST  RESET 

0183 

REe 

7 

_l.asi. 

760 

27,3415 

23«662 

1 

2XCH 

.MPREtRN 

• oiba 

REF 

6 

LAST 

726 

27,3416 

0 6076 

0 

TC 

FLA52DWN 

FEED  TEST  FLAG  DOWN 

018A1 

27,3417 

00200 

0 



200 

0185 

REF 

58 

LAST 

760 

27,3420 

0 5101 

1 

TC 

ILMP+DT 

TIME  T 

0186 

27,3421 

00376 

0 

2£C_  _ . 

254 

RCS  MANIFOLD  CROSSFEED  VALVFS  -CLOSE 

0187 

27,3422 

00144 

0 

DEC 

100 

DELAY  1 SEC 

0188 

ref 

35 

LAST 

7feO 

„ 27,3^23 

- 0-5073 

0 - 

TC  - _ 

2LMP+DT-  . 

T + 1 

0189 

27,3424 

00274 

0 

DEC 

186 

RCS  MAIN  S/0  VALVES  SYS  A-OPEN 

0190 

27,3425 

00114 

0 

DEC 

76 

RCS  ASCENT  FEED  VALVES  SYS  A-CLOSE 

0191 

27j_i426_ 

- 00144 

0 

DEC 

-iO-Q 

delay  1 SECS - 

0192 

REF 

59 

LAST 

761 

27,3427 

0 5101 

1 

TC 

ILMP+DT 

T*2 

0193 

27,3430 

00377 

1 

DEC 

255 

RCS  MANIFOLD  CROSSFEED  VALVES-CjS^E  RESE 

019A 

27,3431 

00144 

0 

DEC 

100 

DELAY  1 SEC 

0195 

REF 

36 

LAST 

76l 

27,3432 

0 5073 

0 

IC 

2i.MPtDJL 

T + 3 

0196  . 

27,3433 

00275 

1 

DEC 

189 

RCS  MAIN  S/0  VALVES  SYS  A-OPEN  RESET 

0197 

27,3434 

00115 

1 

DEC 

77 

RCS  ASCENT  FEED  VALVES  SYS  A-ClDSE  RESET 

0198 

27,3435 

01440 

0 

DEC 

800 

delay  8 SECS 

0199 

ref 

37 

LAST 

76l 

27,3436 

0 5073 

0 

IC 

2LMP*DT 

T + 11 

0200 

27,3437 

00276 

1 

DEC 

190 

RCS  MAIN  5/0  VALVES  SYS  B-OPEN 

0201 

27,3440 

00116 

1 

DEC 

7b 

RCS  ASCENT  FEED  VALVES  SYS  B-CLDSE 

0202 

27,3441 

00144 

0 

DEC 

100 

delay  1 SEC 

02021 

ref 

50 

LAST 

761 

27,3442 

0 5101 

1 

TC 

1LMP*DT 

T + 12 

02022 

27,3443 

00177 

0 

DEC 

127 

RCS  ASCENT  FEED  VALVE-SAFE 

02023 

27,3444 

00144 

0 

DEC 

100 

DELAY  1 SEC 

0203 

REF 

6 

LAST 

752 

27,3445 

0 5052 

0 

TC 

2LMP 

T + 13 

020A 

27,3446 

00277 

0 

DEC 

191 

RCS  MAIN  S/0  VALVES  SYS  B-OPEN  3FSET 

0205 

27,3447 

00117 

0 

DEC 

79 

RCS  ASCENT  FEED  VALVES  SYS  B-CLDSE  RESET 

0208  _ 

REF 

8 

LAST 

761 

27,3450 

0 1662 

1 

TC 

MPREtRN 

RETURN  TO  MISSION  PROGRAM 

633436a  YUL  SYSTEM  FOR  AGC : TEVISiOn  0 OF  PROGRa'1  BURST12D  BY  naSa  2021106-031  DEC  7«  1967  (MaIN)  Pa&E  762 

L MISSION  phase  13  - USER'S  OWN  PACE  NO.  9 S3  E4 


P0300  COME  HERE  IF  WE  GET  A RESTART.  AFTER  THF  EMGInE  1 5 Om  6 JLLAGf  IS  OFF.  SET  UP  SERVICER  SWITCHES  TO  CAUSF  THE 

Ro3io  burn  10  continue  unti-  propellant  Depletion  (Unless  interRurted  by  engine  failure  or  V7A).  exit  to  pooh  after 

R0320  shutdown  IS  DETtCTED. 


0322 

REF 

6 

last 

73S 

E4 

hban<= 

TTGD 

0325 

27,3451 

0 0006  1 

DUMMY13 

EXTEND 

0330 

REf 

2 

LAST 

75S 

27,3452 

3 3333  1 

3CA 

SvExi 3AD 

0335 

ref 

19 

LAST 

756 

27,3453 

53,073  0 

dxch 

AVGEXIT 

03355 

REF 

1 

27,3454 

3 3262  1 

CAF 

TCGP20FF 

TO  FINISH  feed  TEST  OR  RESET  (WHICH  ARE 

03356 

ref 

9 

lAst 

761 

27,3455 

55>662  0 

TS 

MPRETRN 

IN  GROUP  2) 

0340 

27,3456 

0 0006  1 

EXTEND 

0345 

REF 

1 

27,3457 

3 3474  0 

3CA 

D13TRMAD 

0350 

REF 

9 

last 

75P 

27,3460 

53<075  0 

3XCH 

DVMNEXIt 

0355 

REF 

l9 

LAST 

757 

27»3461 

0 6067  0 

rc 

FLAGlDWN 

TO  GET  Servicer  to  return  thru  3Vmnexit 

0360 

_27.,Ji,62 

00020  0 

Del 

.00.0  2fl 

.whatever  cAUsEs  shutdown. 

0365 

REF 

3 

LAST 

48l 

27,3463 

3 6106  0 

CA 

PGNSCADR 

0370 

REF 

16 

LAST 

75S 

_27 

55'310  0 

TS^ 

DvSEI  ECT 

(SHOULD  BE  THERE  ALREADY.) 

0375 

rEf 

28 

last 

75S 

27,3465 

0 4117  1 

TC 

NEWMODEX 

display  program  47. 

0380 

27,3466 

_ 00047  1 

3CT 

47 

0385 

REF 

44 

LAST 

751 

27,3467 

3 7743  0 

CA 

PDSMAX 

DISPLAY  large  time  TO  GO  FOR  DOWNLINE. 

0390 

REF 

7 

LAST 

762 

27,3A70 

55'745  1 _ 

T5 

TTGO 

0395 

REF 

8 

LAST 

762 

27,3471 

55*746  1 

TS 

TTGD  +1 

0400 

ref 

99 

LAST 

7 59 

27,3472 

0 5727  0 

TC 

TASenVER 

0402 

REF 

9 

last 

762 

E4 

eban<= 

TTGD 

0405 

27,3473 

03475  1 

013TRMA0 

2CA0R 

0MY13TRM 

C0405 

ref 

1 

27,3474 

56064  0 

0410 

REF 

IDl 

LAST 

75P 

27,3475 

0 4161  0 

D*(Y13THM 

tc 

phAschng 

0415 

27,3476 

40333  0 

DCT 

40333 

3.33  IS  TRMDMY13  TASK. 

0420 

27,3477 

0 0004  0 

INHINT 

0425 

REF 

1 

27,3500 

3 3521.1 

CA 

25SEf 

INSURE  THAT  FELD  ROUTINES  ARE  FINISHED. 

0430 

REF 

112 

LAST 

75  7 

27,3501 

0 5663  1 

TC 

WAITLIST 

0435 

REF 

10 

LAST 

762 

E4 

?BAN<= 

TTGD 

0440 

27,3502 

03505  1 

2CADR 

TRMDmY13 

C0440 

ref 

2 

LAST 

67 

27,3503 

56064  0 

0445 

REF 

36 

LAST 

755 

27,3504 

0 5567  0 

re 

enddfuob 

0450 

REF 

34 

LAST 

757 

27,3505 

0 5270  1 

TTMDMY13 

TC 

1BN<CALL 

0455 

ref 

9 

LAsT 

748 

27,3506 

40263  1 

:aqr 

ENGINOFF 

0457 

REF 

15 

LAST 

760 

27,3507 

0 5060  1 

re 

ILMP 

633<*36A 

YUL 

SYSTEM  FOR  AqC; 

RcVISION 

0 OF  PROGRAM  BURST120  BY 

NASA  2021106-031 

DEC  7.  1967  (MAIN) 

PAGE 

763 

U 

MISSION  PHASE  13  - 

A3S2 

USER'S  OWN  page  no.  10 

S3 

E4 

0^58 

27i33l0 

00207 

1 

_ n_Ec 

, Li5_ 

ENGINE  select  _ ASCENT  ARM  OFF* 

0^585 

ref 

44  LAST  756 

27t35U 

0 4141 

1 

rc 

2PHSCHNG 

0459  _ 

04594 

27.3512 

0nn03 

1 

3CT 

00003 

27.3513 

05012 

1 

DCT 

05012 

04596 

27.3514 

77777 

0 

OCT 

77777 

0460 

ref 

3 LAST  757 

27.3515 

o 

o 

1 

TC 

FEEOREST 

0455 

REF 

20  LAST  762  . 

_2J.35i6 

D6067 

0 

rc 

FLA310WN 

average  G off  6 EXIT  VIA  POOH. 

0470 

27.3517 

00001 

0 

OCT 

00001 

0475 

REF 

no  LAST  762 

27j3520 

0_  5727 

0 

_T_c__: 

TAS<OVER 

0490 

27.3521 

04704 

0 

25SEC  OEC 

2500 

633<t36A  YUL  SYSTEM  FOR  AqC.;  TcVISION  0 OF  PROGRAM  eURSTlZD  3Y  NASA  202110<,-031 
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(MAIN)  page  76A 


L 

00001 

0001 

ROOOlll 

R000112 

R000113 

ROOOllA 

R000115 

ROOOII6 

R000117 

R000118 

R000119 

R0002 

R000201 

R000202 

R000203 

R00020A 

R0OO205 

ROOO2O6 

R000207 

ROOO2O8 

R000209 

R00023 

R000231 

R000232 

ROO0233 

R00023A 

R000235 

R000236 

R000237 

R000238 

R000239 

R00029 

R0003 

ROOOA 

R0005 

0006 

0007 

0008 

0009 

0010 
0011 
00116 
0012 

C0012 

0013 

OOIA 

0015 


MISSION  PHASE  16  - RCS  COLD  SOAiC 


USER'S  OWN  PAGE  NO.  1 S3 


_ _ 2Xti522 3A£U ZJ 

REF  27  LAST  5A9  £6  EBAN<s  E03T 

PROGRAM  description 

MOD  N.3»  U LOG  SECTION^ 

•*»«»»*»  NOTE-  MA16  NOT  UP  TO  DATE  »*»**»*» 


RCS  COLO  SOAK 


FUNCTIONAL  description.- 

CHANGE  attitude  OF  SPACECRAFT  TO  REQUIRED 

attitude  for  cold  soak  phases. 

ISSUE. lmp  commands,  etc.  ... 

ACCORDING  TO^  GSOP. 

calling  SEQUENCL- 

5TART  MP  16  WHEN . MI SS.ION  TIMER  A 

COUNTS  TO  ZERO. 
subroutines  CALLED- 

_ BANKCALI 

DFl  T/M  cal.  routine 
executive 

LFM  MISSION  PROGRAMMER 

KALCMANu 

waitlist 

normal  exit  modes-  

TC  ENDOFUOB/TASKOVER 
ALARM  OR  abort  EXIT  MOOeS-  NONE 

OUTPUT-  (Intereace.  displays,  Meaningful  informatiQnleft„in  eR.as.arle) 
SAME  AS  for  KALCMANU  EXCEPT- 
BIT  13  OF  DAABOOLS  IS  SET  TO  1 BEFORE  EXIT. 

ERASABLE  INITIALIZATION  REQUIRED- 

TEPHEM  IN  CENTISECONDS  TRIPLE  ARECIISION 
DEBRIS-  (ERASABLE  LOCATIONS  DESTROYED  BY  THIS  PROGRAM) 

SAME  AS  for  KALCMANU 

ORIENT  THE  LEM  TO  RCS  COLD  SOAK  ATTITUDE 

(S/C  X-AXIS  normal  TO'  THE  ECLIPTIC  AND  BISECTOR 

OF  +Z/-Y  Axes  toward  the  sun)  


START  MISSION  PHASE  16  WHeN  MP  TIMER  A COUNTS  TO  ZERO 


REF 

29 

LAST 

762 

27.3522 

0 4117 

1 MP16U03 

TC 

NEWMnDEX 

UPDATE  PROGRAM  NUMBER 

27,3523 

00016 

0 

OCT 

16 

ON  DSKY 

REF 

3 

LAST 

722 

27.3524 

0 2670 

1 

TC 

COLDSOAK 

CALCULATE  CDU  ANGLES  REQUIRED 

REF 

2 

lAst 

72/ 

27,3525 

3 7746 

0 

CAF 

PRIOixM 

schedule  KALCMANU 

27.3526 

0 0004 

0 

INHINT 

REF 

25 

LAST 

75s 

27,3527 

0 5516 

0 

TC 

FI NOvAC 

REF 

28 

LAST 

76A 

E6 

EBANK= 

EDOT 

27,3530 

02067 

1 

2CA0R 

KALCMAN3 

ref 

LAST 

727 

27,3531 

70066 

0 

27.3532 

0 0003 

1 

RELINT 

REF 

8 

LAST 

49/ 

27,3533 

10  067 

1 

CCS 

NEwUOB 

FORCE  KALCMANU  UOB  ON 

ref 

7 

LAST 

49/ 

27,3534 

0 5532 

0 

TC 

CHANGI 
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L MISSION  PHASE  1«>  - RCS  COLD  SOAK  USER'S  OWN  PACE  NO.  2 S3  E6 


0016 

REF 

128 

LAST 

755 

27*3535 

_0_  52Q6_ 

0 

JC 

3AN.CCALL. 

_ _ PUT  JOB  TO  SLEEP  TILL  _ 

0017 

REF 

6 

LAST 

755 

27.3536 

26743 

0 

:adr 

ATTStALL 

MANEUVER  COMPLETED 

0018 

27.3537 

1 3540 

1 

ndop 

TC  BADATT-SICK  return-  •wwFU  THISk^w 

0019 

REF 

1 

27.3540 

3 3551 

0 

:af 

OECinOO 

GOOD  RETURN— MAN.  COMPLETED 

0020 

27.3541 

0 0004 

0 

INhINT 

0021 

ref 

113 

LAST 

762 

27.3542 

0_  5663 

1 

tc 

WAITflST 

WAIT  10  SECONDS 

00215 

REF 

29 

LAST 

764 

E6 

EBAN<= 

EOOT 

0022 

27.3543 

03552 

0 

2CADR 

PHASl 6A 

C0022 

REF 

1 

27.3544 

54044 

1 

0023 

27,3545 

0 0003 

1 

RELINT 

002A 

ref 

1 

27.3546 

3 3550 

1 

:af 

P16WAKE 

PUT  THIS  JOB 

0025 

ref 

14 

LAST 

4_47 

_ 27i3.547_ 

0 534_5^ 

0 

TC 

JQBSLEEP 

TO  SLEEP  _ _ __ 

0026 

ref 

1 

27.3550 

57557 

1 

Pl6WA<E 

CADR 

PHA516B 

0027 

27.3551 

01750 

1 

OECIOOO 

OEC 

1000 

0028 

REF 

2 

LAST 

745 

27.3552 

3 3550 

1 

PHASUA 

:af 

P16/(AKE 

REACTIVATE  THE  JOB 

0029 

REF 

12 

LAST 

447 

27,3553 

0 5551 

0 

TC 

JOBaIaKE 

THAT  WAS  PUT  TO  SLEEP 

0029A 

REF 

35 

last 

762 

27,3554 

0 5270 

1 

TC 

IBNKrALL 

DO  DFi  T/M  Calibration  routine 

00296 

REF 

2 

LAST 

319 

27,3555 

56204 

1 

CADR 

DFiXMCAL 

0030 

REF 

101 

LAST 

763 

27,3556 

0 5727 

0 

TC 

TASKOVER 

A003A 

(VAit  For 

COMPLETION  OF  CALIBRATION  + 1 SECOND 

0035 

ref 

1 

27,3557 

3 3606 

1 

PHAS163 

CAF 

0EC13OO 

13  SECONDS 

0036  ■ 

27,3560 

0 0004 

0 . 

INHINT 

0037 

ref 

114 

LAST 

765 

27,3561 

0 5663 

1 

TC 

WAITI  1ST 

00375 

ref 

30 

LAST 

765 

E6 

FBAN<= 

EDOT 

0038 

27,3562 

03565 

1 

2CADR 

P16MXDB 

C0038 

ref 

1 

27,3563 

56066 

1 

OOAO 

ref 

LAST 

762 

27,3564 

0 5567 

0 

TC 

ENDDfJOB 

OOifl 

REF 

28 

LAST 

756 

27,3565 

3 7747 

1 

P16MXD3 

CAF 

BIT13 

SELECT  MAX  DEADBAND  FOR  DAP- 

00^2 

REF 

59 

LAST 

716 

27,3566 

26  077 

0 

ADS 

DAP3nOLS 

SET  BIT  13  OF  DAPBOOLS  =1 

00<t3 

REF 

16 

LAST 

762 

27,3567 

0 5060 

1 

TC 

ILM? 

THRUSTER  ISOL  VALVES  PR  3A  CLOSE 

00<tA 

27,3570 

00136 

0 

OEC 

94 

00A5 

REF 

17 

LAST 

765 

27,3571 

0 5060 

1 

TC 

ILMP 

THRUSTER  ISOL  VALVES  3B  CLOSE 

00<*6 

27,3572 

00156 

0 

OEC 

110 

00i*7 

REF 

1 

27,3573 

3 3600 

1 

CAF 

0£.C2n0 

WAIT  2 SECS 

00<*8 

ref 

115 

LAST 

765 

27,3574 

0 5663 

1 

TC 

WAITLIST 

00485 

REF 

il_ 

LAST 

765 

E6 

cBAN<= 

EDOT 

0049 

27,3575 

03601 

0 

2CADR 

P16Crs 

C0049 

ref 

1 

27,3576 

56066 

1 

0050 

REF 

102 

LAST 

765 

27,3577 

0 5727 

0 

TC 

TASKOVER 

0051 

27,3600 

00310 

0 

DEC200 

OEC 

200 

0052 

REF 

18 

LAST 

765 

27,3601 

0 5060 

1 

P16CLS 

rc 

ILM? 

THRUSTER  ISOL  VALVES  PR  3A- 

0053 

27,3602 

00137 

1 

OEC 

95 

CLOSE  reset 

0054 

REF 

19 

LAST 

765 

27,3603 

0 5060 

1 

TC 

ILM? 

THRUSTER  ISOL  VALVES  PR  3B- 

0055 

27,3604 

00157 

1 

OEC 

Ill 

CLOSE  RESET 

0056 

REF 

103 

LAST 

765 

27,3605 

0 5727 

0 

TC 

TASCnVER 

0058 

27  * 3606 

02424 

1 

0EC1300 

OEC 

1300 
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integration  INI^IALUATIOn 


USER'S  OWN  page  no. 


1 


S3 


Roooool 

R000003 

Rooooos 

Roooooe 

R000009 

ROOOOl 

Roooou 

R000012 

R000013 

ROOOOIA 

Roooois 

R000016 

R000017 

R000018 

R000019 

R00002 

R000021 

R000022 

R000023 

R00002A 

R000025 


avetdmio  Performs  th^  transition  from  a imrusung.  phase_lo  a coasting  phaSe.__ the  routine  initialize^  he 
orbital  integration  program  and  rescales  and  transforms  LeMs  statf  yector  from  the  stable  Member  coordinate 
system,  used  in  averag-eg  tu  the  Reference  system  used  in  orbi?al  integration  during  coast 
input  - Lem  state  vector  in^sm  coordinate  system  and_ume 

RN,  POSITION  IN  METERS  SCALED  AT  2(*2A) 

VN,  velocity  IN  M/CSEC  SCALED  AT  2(*7) 

PHTIME.  TIME  IN  CSEC  CORRESPONDING  TO  RN,  VN  


OUTPUT  - LEM  state  VECTOR  IN  REF.  COORDINATE  SYSTEM  AND  TIME 
RRECT  AND  RCV,  POSITION  IN  <M  SCALED  AT  2(+lA) 

VRECT  and  VCV,  VELOCITY  IN  1/SQRT(KM)  SCALED  Al  2(-6) 

TET,  TIME  IN  CSEC 

P-MEMORY  (REFRRECT  TA^REFRRECT  V.  42)  _ 

AVETOMiID  calling  sequence 

L-2 EXIEMD 

L-1  DCA  (2CA5R.  OF  AVETOMID) 

L DXCH  Z 


-DELETE. 


NORMAli  EXIT 


R000026 

AT  L+1  OF 

calling 

SEQUENCE 

R000027 

00009 

07,2116 

3AN< 

07 

0001 

REF 

127 

LAST 

75A 

E4 

EBANCf 

AMEMnRY 

0002 

REF 

1 

07,2116 

53*631  0 

AVETDMIO 

DXCH 

AVMIORTN 

00021 

REF 

67 

LAST 

754 

07.2117 

0 6112  0 

TC 

INTPRET 

0003 

07,2120 

77624  1 

call 

orbital  integration 

initialization 

0004 

ref 

1 

07,2121 

16324  0 

INITtNT 

0009 

07,2122 

77775  1 

VLDAO 

0010 

ref 

1 

07,2123 

16226  0 

ZEROoEC 

0011 

REF 

1 

07,2124 

02015  1 

STORE 

TDELTAV 

ZERO  POS  deviations 

.0012 

REF 

1 

07,2125 

02023  1 

STORE 

TNUV 

ZERO  VEL  DEVIATIONS 

0013 

REF 

1 

07,2126 

02045  1 

STORE 

TC 

ALSO  CLEARS  TET  AND 

XKEP 

0021 

07.2127 

66370  0 

smtoref 

AXT.l 

SSP 

SET  UP  TIX  LOOP  FOR 

STATE  VEC  TRANSFORM 

0022 

07,2130 

00014  1 

120 

0023 

ref 

21 

last 

669 

07,2131 

00051  0 

Si 

0024 

07,2132 

00006  1 

6 

0025 

07,2133 

73773  0 

SMTOREFl 

i^LOAO* 

vxsc* 

TRANSFORM  STATE  FROM 

1 SM  TO  RFF  system 

0026 

REF 

6 

LAST 

740 

07,2134 

01025  1 

RN  ,120,1 

0027 

REF 

1 

07,2135 

16250  1 

SCLRAVMO  *1201 

il 

0028 

07,2136 

72505  1 

VXM 

VSL2 

0029 

ref 

21 

LAST 

726 

07,2137 

01263  1 

REFSMMAT 

0030 

REF 

1 

07,2140 

06015  0 

STORE 

RRECT  *120,1 

0031 

ref 

1 

07,2141 

06045  0 

STORE  RCV  *12D.l 

0032 

07,2142 

77500  1 

T1X,1 

Exit 

0033 

ref 

1 

07,2143 

16133  _L 

SMTOdEFI 

0034 

07,2144 

0 0006  1 

EXTEND 
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L 

INTE 

SRATIOn 

initialization 

U5ER*S  OWN  page  nO.  2 S3  E6 

0035 

ref 

6 LAST 

760 

57»21j65 

3 1307 

_5C_A 

pipttmf 

SAVE. PIPTIME 

0036 

REF 

2 LAST 

295 

0Z,2166 

53*667 

0 

5XCH 

TET 

PIPTIME  UN  TET 

00361 

rEf 

1 _ „ 

_ 57,2167 

0 ZZlb. 

0 

_rcL  _ 

_MDyEtEMP 

Transfer  state  And  init.,  data  Tn  p-mem 

0037 

REF 

2 LAST 

766 

57,2150 

53*631 

0 

5XCH 

AVMInRTN 

00371 

REF 

30  last 

75A 

57,2151 

52  006 

0 

3XCH 

Z 

0038 

57,2152 

02600, 

1 . 

PIPEBAN<  JICL 

026  DO 

EBANK  05 

00A2 

57,2153 

mib 

1 

TESTL05P 

EXIT 

FOR  DUMP, 

0063 

REF 

68  LAST 

766 

_ D7,2156_ 

0 6112 

0 

rc 

INTFoET 

0066 

57,2155 

60165 

0 

3L0AD 

30V 

0065 

ref 

139  LAST 

757 

57,2156 

02J.67 

0 

TDEC 

0066 

57,2157 

16160 

1 

tl 

CLEAR  OVERFLOW  INDICATOR 

0067 

57,2160 

67025 

0 

5SJ 

RT3 

0068 

REF 

3 last 

767 

57,2161 

02067 

0 

TEJ 

0069 

REF 

10  LAST 

735 

57,2162 

33520 

0 

5&NA?.REE 

0050 

57,2163 

56261 

1 

SL 

DDV 

0051 

57,2166 

20216 

1 

no 

0052 

ref 

1 

57,2165 

17755 

0 

eartmtab 

+ 90 

0053 

REF 

1 

57,2166 

02163 

1 

STORE 

DT/2 

DQ5A' 

57.2167 

51600 

1 

30V 

AB5 

0055 

ref 

1 

57,2170 

16206 

1 

oETMaXDT 

0056 

57,2171 

50025 

0 

55J 

3MN 

0057 

REF 

1 

57,2172 

16236 

1 

DT/2MIN 

0058 

REF 

1 

57,2173 

16356 

1 

Decision 

INTEGRATION  F INI  SHED-DEC  I DE  WHERE  TO  GO 

0059 

57,2176 

65215 

0 

5A0 

DSJ 

0060 

ref 

2 LAST 

76T 

57,2175 

16236 

1 

0T/7M1N 

0061 

REF 

1 

57,2176 

16266 

1 

D1 /2MAX 

0062 

57,2177 

77660 

0 

3MN 

0063 

REF 

1 

57,2200 

17650 

0 

TIMEaTEP 

0066 

57,2201 

75365 

1 

J-SLMAX5T 

5L0A0 

SIGN 

0065 

REF 

2 LAST 

767 

57,2202 

16266 

1 

OT /2MAX 

0066 

ref 

2 LAST 

767 

57.2203 

02163 

1 

OT/2 

0067 

REF 

3 LAST 

767 

5f  .2206 

36163 

0 

STCALL 

OT/2 

0068 

REF 

2 LAST 

76  z 

57.2205 

17650 

0 

TIMEaTEP 

0069 

57,2206 

77636 

0 

GETMAX5T 

RTB 

00695 

REF 

15  LAST 

66A 

57,2207 

73501 

1 

SIGNmPAC 

0070 

REF 

6 LAST 

76  Z 

57.2210 

36163 

0 

STCALL 

OT/2 

00705 

REF 

1 

57,2211 

16201 

0 

jsemaxdt 

0071 

0072 

0073 

57.2212 

57.2213 
57,2216 

' 00016 
00006 
00022 

0 

0 

1 

scaler 

scaldelt 

scaleot 

DEC 

3EC 

DEC 

16 

6 

18 

00731 

57,2215 

00000 

1 

2BSECS 

2DEC 

2800 

C00731 

5 Z. 2216 

05360 

1 

007311 

57,2217 

00001 

0 

270SECS 

ZDEC 

2700n 

C007311 

57,2220 

26570 

0 
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L 

00732 

intesration 

initialization 

37t2221 

OQOOO 

7SFCS 

?DEr 

USER'S  Own  PAuE  NO.  3 S3  E4 

C00732 

07,2222 

00310 

0 

007A 

07,2223 

00000 

1 

30SEC5 

2DEC 

3000 

USED  ONLY  FOR  LOGIC  IN  IGN.28  * 206  ONLY 

C007A 

37.222A 

05670 

_D_ 

0079 

07,2225 

00000 

1 

ZEROVEC 

ZDEC 

0 

C0079 

01,2226 

00000 

1 

0080 

07,2227 

00000 

?DEC 

0 

C0080 

07,2230 

00000 

1 

0081 

07,2231 

00000 

1 

2DEC 

0 

C0081 

07,2232 

onnon 

J 

Roosii 

the  order  of 

the  six  FOLLOWINiS 

constants  CANNOT 

3;  CHAN 

6ED 

0082 

- 07jl223.3  . 

20304. 

1 

sclravmd 

2DEC 

,512 

METERS  TO  <M  1/2(1024/1000) 

C0082 

07,223A 

23351 

1 

0083 

07,2235 

00000 

1 

0T/2MI N 

2DEC 

,000n3 

C0083 

07,2236 

17565 

1 

008A 

07,2237 

37200 

1 

SCLRMDAV 

2DEC 

1003  B-10 

KM  TO  METERS 

C008A 

07,2240 

00000 

1 

0085 

07,2241 

24605 

1 

SCLVAVMO 

2DEC 

«64Rt6H1q 

METERS/CSEC  TO  lySQR(KM) 

C00B5 

07,2242 

15301 

1 

0086 

07,2243 

12317 

1 

0T/2MAX 

2DEC 

,650;7077  B-1 

270  SEC  MAX  TIME  STEP 

C0086 

07,2244 

00451 

1 

0007 

07,2245 

30523 

0 

SCLVMDAV 

2DEC 

.7706913 

1/S0R(KM)  TO  METERS/CSEC 

C0087  ' 

01,2246 

00147 

0 

633436A  YUl  SYSTEM  FOK  *GC : 

REVISION 

0 UF  PROGRAM  BURST120  BY 

NASA  2021106-031 

DEc  7,  1967  (MAIN)  PAGE  769 

L 

ROlOO 

Rnl02 

R0104 

R0106 

INTE3TATI0N  INITIAL 

stateint  is  called 
maint-nance  rojtine 
THe  (TIME2),  the 
IE  TET  LAGS  BY  270 

RATION 
U^i  UnDFR  a 

JOB  EVERY 

539  SECOnOS  during  a coasting 

USER'S  OWN  PAGE  NO.  4 S3  E4 

phase  by  the  Mission  scheduling: 

TD'  maintain  the  LEMS  SjATE  VECTOR  WITHIN  TWO  INTEGRATION  STEPS  (540  SECONDS)  OF  tHe  CURRENT 
routine  COMPARES  TIME2  WITH  TET  (THAT  1 I Mp  CORRESPONDING  TO  THE  SjAte  VECTOR  IN  STORaGe). 
SECONDS  OR  MORE.  THf  ORBITAL  INTEGRATION  dROGRAM  IS  CALLED  UP  AND  THf  STATE  IS  UPDATFO  TO 

ROIO8 

TIME2 

. IF  tet  Does 

NOT  LAG, 

STATEINT  IS 

terminated  by 

ENDOF.iOB, 

R0109 

ROllO 

inpjt 

-stateint  assumes  that  the  coasting 

In  progress  was  initialized  by 

ROUl 

TH 

E AVETOMIO  ROUTnE. 

R0112 

•0113 

07,2247 

0 0006  1 

stateint  extend 

OllA 

REF 

34  LAST  754 

07,2250 

3 0025  0 

OCA 

TIME? 

GET  CURRENT  TIME  IN  TDEC 

01141 

REF  140  LAST  767 

07,2251 

53*567  0 

OXCH 

TOEC 

011411  ref 

5 LAST  76° 

07»2252 

0 6.060  1 

IC 

FLASpUP 

SET  ORBITAL  INTEGRATION  FLAG 

011412 

07,2253 

00100  0 

OcT 

100 

01142 

REF 

1 

07,2254 

0 2311  0 

TC 

moveperm 

BRING  STATE  FROM  PMEMORY 

0115 

REF 

69  LAST  767  _ 

0_7,22_55 

0 6112  0 

rc 

INTPpET 

0116 

07,2256 

45345  1 

OLOAD 

DSU 

Form  tdec_tet 

0117 

REF  141  LAST  769 

07.2257 

02167  0 

TDEC 

0118 

ref 

4 LAST  767 

07,2260 

02047  0 

tet 

0119 

07,2261 

45240  0 

3MN 

DSU 

IS  state  lagging 

0120 

REF 

1 _ . _ 

07,2262 

. 16274  1 

NOINt 

NO,  TET  greater  THAN  TDeC 

0121 

ref 

1 

07,2263 

16220  0 

270SFCS 

0122 

07,2264 

66240  1 

3MN 

SSP 

0123 

REF 

2 LAST  7-69 

07,2265 

16274  1 

NOINT 

NO,  TET  greater  THAN  TDEC-270  S'CS. 

0124 

REF 

2 LAST  301 

07,2266 

02201  0 

MEASMODE 

bring  to  current  time-set  MEASMODE  (-1) 

0125 

07,2267 

77776  1 

OEC 

-1 

01251 

07,2270 

77624  1 

CALL 

01252 

REF 

2 last  766 

07,2271 

16324  0 

INITTNT 

INITIALIZE  BRANCH  REGS 

0126 

07,2272 

77650  1 

50TO 

0127 

REF 

1 

07,2273 

16153  1 

TESTI  OOP 

START  integration  FROM  TET  TO  TOEC 

0128 

07,2274 

77776  1 

NO'INT  EXIT 

TEMPORARY  STATEINT  EXIT 

0129 

REF 

1 

07,2275 

1 2544  1 

TCF 

INTOUT 

NO  INTEGRATION,  TERMINATE  THIS  U03 

633<»36A 

YUl  system  for  AgC;  revision  0 OF 

PROGRAM  BURST123  BY  NASA  2021106-031 

DEC  7, 

1967  (MAIN) 

Page  770 

L 

integration  initialization 

USER'S  Own  page 

NO.  5 

S3  EA 

ROZOO 

MOVET^MP  TRANSFEJRS  RR=^.C.T  TO  RSECI 

♦ 42  FROM  A-MfMORY  TO  P-ME.MDHY  

R0201 

R0202 

R0203 

CALLHO  SEOUENCE 

L-_  . IC  MQVl-T.EMe 

R020'* 


R0205 

NORMA 

- EXIT  . 

at  l+i 

0206 

07,2276 

0.  0006  1 

MOVETEMP 

EXTEND 

02061 

REF 

2 last 

40 

0T.2277 

23*627  0 

3XCH 

PBDDy 

temp.  HERE-PBODY  INITIALIZED 

Before  int 

02065 

REF 

1 

07*2300 

3 2370  1 

CAF 

FDRTYTWO 

0207 

ref 

1 

3T*2301 

56*605  1 

MTEMPLJP 

TS 

DIFEQCNT.  _ 

initialize  IN0EX„. 

0208 

REF 

2 LAST 

770 

07,2302 

51*605  0 

INDEX 

DlFEoCNT 

0209 

REF 

2 LAST 

766 

07,2303 

3 1400  1 

:A 

RRECT 

PICK  UP  RRECT  TO  RRECT  .42  FROM  A. MEMORY 

0210 

REF 

3 LAST 

770 

07,2304 

51*605  0 

index 

DiFEoCNT 

0211 

REF 

4 last 

323 

07*2305 

55*210  1 

TS 

REFRRECT 

STORE  IN  REFRRECT  TO  REFRRECT 

♦42  IN  P-M 

0212 

REf 

4 lAsT 

770 

07,2306 

11*605  1 

CCS 

difeocnt 

I5  TRANSFER  COMPLETE 

0213 

ref 

1 

07,2307 

1 2301  0 

rcF 

mtemplup 

NO  LOOP  AGAIN. 

021A 

ref 

3 LAST 

770 

07,2310 

0 1627  0 

TC 

pbddy 

R02142 

MOVeP 

-RM  transfers 

reFrrect  ■ 

TO  refrreCt 

♦42  from 

sMeMDRY  id  A_MfMOBY 

R0215 

0216 

07,2311 

0 0006  1 

MDvEPERM 

Extend 

02161 

ref 

4 LAST 

770 

07,2312 

23*627  0 

3XCH 

PBDDY 

TEMP.  HERE-PBODY  INIT.  BEFORE 

INTEGRATIO 

02165 

ref 

2 LAST 

770 

07,2313 

3 2370  1 

CAF 

FDRTyTWO 

0217 

REF 

5 LAST 

770 

07,2314 

55*605  1 

M^ERMLJP 

TS 

difeocnt 

0218 

ref 

6 LAST 

770 

07,2315 

51*605  0 

index 

DIFEqCNJ  . .. 

0219 

REF 

5 LAST 

770 

07*2316 

3 1210  0 

CA 

REFRRECT 

0220 

ref 

7 last 

770 

07*2317 

51*605  0 

index 

DIFFQCNT 

0221 

REF 

3_  last 

770 

07,2320 

55*400  0 

TS 

rrect 

0222 

REF 

8 LAST 

770 

07,2321 

11*605  1 

CCS 

difeocnt 

0223 

REF 

1 

07,2322 

1 2314  1 

TCF 

MPERMLUP 

0224 

ref 

5 LAST 

770 

07,2323 

0 1627  0 

TC 

pbddy 

02241 

07,2324 

66331  0 

INITINT 

SSP 

SSP 

02242 

ref 

6 last 

7J0 

0?,2325 

02230  1 

PBDDY 

EARTHTAB  INTO  PBOAY 

02243 

ref 

2 LAST 

767 

07,2326 

17743  1 

EARTHTAB 

02244 

REF 

1 

07,2327 

02205  1 

STEPEXIT 

TESTLOOP  INTO  STEPEXIT 

02245 

REF 

2 LAST 

769 

07,2330 

16153  1 

TESTi  OOP 

02246 

07,2331 

43014  0 

CLEAR 

clear 

022461 

REF 

1 

07,2332 

00262  1 

MIDFI  AG 

ZERO  ON  206 

022462 

REF 

1 

07,2333 

00263  0 

MDDNFLAG 

ZERO  ON  206 

02247 

07,2334 

43414  1 

clear 

RVD 

022471 

REF 

1 

07,2335 

00260  0 

wmatflag 

W-MATRIX  NOT  USED  ON  206 

633^t36A  YUL  SYSTEM  fOR  ''Gc!  ^iVISIOM  0 Op  PROGRAM  BURST123  BY  NASA  2021106-031 
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L integration  initialization 


USER'S  OWN  PAGE  NO.  6 S3  eA 


P0225  MIDTOAYE_PERfQR  Ms  JlHE__5IALE„VXaj3R,-Ifi.AN5 1 T I ON  Fr  J A CO  AST  1 ^ __PMAS  E 

R0226  USING  THe  ORBITAl  INTEGRATION  PROGRAMS  TO  A TRUSTING  PHASE  WHICH  USES 

R0227  AVERAgEG  INTEGRATION,  THE  ROUTINE  RESCALES  AND  TRANSFORMS  THE  STATE 
R0228  (/ECTORl  AT  TIGN-30,  TiGN-^  AND  TIGN  FROM  R£FERENC£_C0_DRD.LNAIE5.J0.  . . . „ 

Ro229  stable  Member  coordinates  as  directed  by  the  decision  routine 

R0230 

R023l  iNPUT.MlJUTOAVt  AS_SUMES.  THAJ_TH£  COASTING.  I NTeGRAT  ION  wASJjNlT  I-ALUED 
R0232  BY  the  AYETOMID  ROUTINE,  STATE  IN  ReF.  COORD,  IN  PMEMORY. 

R0233 

R023A  RRrCT,  RCV-POSITION,  IN  KM  SCALED  AT  2IF1A1 

R0235  YRECT,  VCV-  VELOCITY  IN  1/50RT(KM)  SCALED  AT  2(-6) 

R0236  TET,  TIME  IN  CSECS, 

R0237 ^ 

R0238  OUtPUT-STATE  IN  STABuE  MEMBER  COORDINATES 
R0239  AT  TIGN-30 

R02A0  RAVEGON,  POSlTION^IN  METERS  SCALED  IN  2(t2A) 

Ro2ai  vavegon,  velocity  in  meters/csec  scaleo  at  2 (+7) 

R02A2 

RQ2A3  AT  TI5N-2 

R02AA  RI3^2SEC,  POSITION  IN  METERS  SCALED  AT  2(+2A) 

R02A5 

R02A6  AT  TI5N 


R02A7 

R02a8  RIGNTION,  position  1N  METERS  SCALED  AT  2(+2A) 

R02A9  VI5NTI0N.  VELOCITY  IN  METERS/CSEC  SCALED  AT_2(*7J 

R025O  ■ 

R0251  calling  sequence 

R0252  (COMPUTE  TDECsTIME  OF  IGNlTIUN-30  SECS.) 

R0253  L-2  extend 

R025A  L-l  DCA  (2CA0R  OF  MIDTOAVE) 

R02541  I DXCH  Z 

R0255 

R0256  normal  EXIT 

R0257 L-fl  OF  CALLING  SEQUENCE 


R0258 

02581 

REF 

3 

LAST 

767 

07,2336 

53'631 

0 

RVUPDATE 

OXCH 

AvMIriRTN 

02582 

REF 

60 

last 

757 

07,2337 

3 7763 

1 

CAF 

BlTl 

SET  MEASMODE  TO  ■,!  TO  INTEGRATE  STATE 

02583 

REF 

A 

last 

719 

07,23AO 

1 23A3 

0 

TCF 

MIDTOAVE  +2 

TO  TDEC  AND  STORED  IN  RIGNTION  ONLY 

0259 

REF 

A 

LAST 

771 

07,23A1 

53'631 

0 

MIDTOAVE 

OXCH 

AVMISRTN 

02591 

ref 

6 

LAST 

A2l 

07,23A2 

3 7770 

0 

CA 

NEGO 

0260 

REf 

3 

last 

769 

07,23A3 

55*600 

1 

TS 

MEASmOqE 

SET  mEASmOdE  (-0)  TO  INTEGRATE  TO  lG-30 

02601 

ref 

6 

last 

769 

07,23AA 

0 6060 

1 

TC 

FLAGpUP 

SET  orbital  integration  FLAG 

02602 

07,23A5 

00100 

0 

OCT 

100 

0261 

REF 

2 

LAST 

769 

07,23A6 

0 2311 

0 

TC 

MOVEPERM 

BRING  STATE  FROM  PMEMORY 

0262 

REF 

70 

last 

769 

07,23A7 

0 6112 

0 

TC 

INTPrET 

02621  07,2350  7762A  1 CALL  INITIALIZE  ORBITAL  INTEGRATION  REGS 

02622  ref  3 LAST  769  07,2351  1632A  0 INITTNT 

0^3^ 07,2352  77650  I GOTO 

026A  REF  3 LAST  77Q  07,2353  16153  1 


TESTI  OOP 


GO  TO  ORBITAL  INTEGRATION 


633i.36A  YUL  SYSTEM  FOR  REVISION  0 OF  PROGRAM  BURST12D  3Y  NASA  2n2110fc-03l 


DEC  7,  1967 


(MAIN)  page  772 


L integration  initialisation  USER'S  Own  PAuE  no.  7 S3  EA 

R0265  THe  decision  R?OtINE_  5ETERMINE5_TFIE.  action  to  3E  IA<£N  AFL£R._0RB1TAI _ _ 

R0266  integration  HAS  UPDATED  THE  STATE  VECTOR  TO  THE  TIME  INDICATfD 
R0267  BT  TDeC.  THE  ACylON  TAKEN  IS  BASED  ON  THE  CONTENTS  OF  MEASMODE. 

R0268  - - . . - 

R0269  C(MEASMOOE) : (-0) . STATE  INTEGRATED  (REF,  COORD.)  TO  TIGN-30,  SET 
R027O  MeASMODEs (*0) . SET  TDECsT I GN-2SECS . 

Ro271  c(mea3Mode)=(+o) , PosiTioNVECjoR  integrated  TD  TIGN-2.  SEI  mEASMODE=,+1_  _ 

R0272  SET  TDECsTlGN 

R0273  C(MEA5M0DE)  = (*1>  . STATE  INTEGRATED  TO  TiGN,  TRANSFORM  STATE  FROM  ReF  TO 

R027A  SM  Coord,  system  and  return  td  mission,  program  ■ 


R0275  C(MEA3M0DE):(-I' . STATE  INTEGRATED  TO  TDeC  DURING  COAST  PHASf.  TERMINATE 

R0276  STATeINT  JOB  INITIATED  BY  MISSION  SCHEDULING  PACKAGE 

R0277  


0278 

D7 

.2359 

77776 

1 

DECISION 

EXIT 

0279 

REF 

LAST 

771 

D7 

.2355 

11 '600 

1 

CCS 

MEASMODE 

0280 

37 

.2356 

1 2361 

0 . 

TCF 

♦i 

STATE  IN  REF  COOR  AT  IGN 

0281 

D7 

.2357 

1 2361 

0 

TCF 

♦ 2 

STATE  IN  REF  cOORD  AT  IGN-2 

0282 

REF 

1 

D7 

.2360 

1 2971 

0 

TCF 

COASTINT 

coast  INTEGRATION  STEP  COMPLETE 

0283 

REF 

71 

LAST 

771 

37 

.2361 

J)_  6U2 

0 

JX 

INTPRET 

02831 

37 

.2362 

77629 

1 

CALL 

02832 

REF 

1 

37 

.2363 

17500 

1 

RECTIFY 

RECTIFY  AT  lGN-30. IGN-2, IGN 

02833 

37 

.2369 

77776 

1 

EXIT 

028A 

REF 

5 

LAST 

772 

37 

.2365 

11'600 

1 

CCS 

MEASMODE 

0285 

REF 

1 

37 

.2366 

1 2995 

1 

TCF  . 

REFTnSM 

STATE  at  TIGN-FINISH  UP  MIDTOAV- 

0286 

RtF 

1 

37 

.2367 

1 2921 

0 

TCF 

IGN-pSEc 

POS  AT  TIgN-2.  do  TIGN  NEXT 

0287 

37 

.2370 

00051 

0 

FDRTYTWO 

DEC 

91 

0288 

ref 

1 

37 

.2371 

1 2372 

1 

TCF 

AvEGON 

STATE  AT  TI&N-30.  DO  TlGN-2  NEXT 

0289  ■ 

REF 

72 

LAST 

772 

37 

.2372 

0 6112 

0 

AVEGON 

IC 

INTPRET 

0290 

37 

.2373 

66370 

0 

AXT.l 

SSP 

SET  LOOP 

0291 

37 

.2379 

00019 

1 

12D 

0292 

REF 

22 

LAST 

766 

37 

.2375 

00051 

0 

Si 

0293 

37 

• ^37  6 

00006. 

A 

6 

029A 

37 

.2377 

73773 

0 

S=ECPLS1 

YLDAOa 

vxsc# 

02991 

ref 

LAST 

770 

37 

.2900 

02015 

1 

RRECt  +12D,1 

02992 

REF 

1 

37 

.2901 

16259 

0 

SCLRMDAV  +12D,1 

REF  TO  SM  SCALE  FACTOR 

02993 

37 

,2902 

76521 

0 

MXV 

VSLl 

02999 

REF 

22 

LAST 

766 

37 

.2903 

01263 

1 

REFSMMAT 

02995 

ref 

3 

LAST 

790 

37 

.2909 

06131 

1 

store 

RAVEgON  +12Di1 

02996 

37 

.2905 

71300 

1 

TlX.l 

DLOAD 

02997 

ref 

1 

37 

.2906 

16377 

0 

SPECpLSI 

0295 

REF 

192 

LAST 

769 

37 

.2907 

02167  Q 

tdec 

TDEC  N0W=TIGN-30 

02951 

REF 

5 

LAST 

767 

37 

.2910 

01307 

1 

store 

PIPTIME 

SAVE  TlGN-30  IN  PIPTIME  FOR  AVERAGES 

02952 

REF 

3 

LAST 

675 

3: 

.2911 

02111 

1 

store 

TAVEGON 

TIME  TIG-30  for  DWNLINK  IN  NORMi’lEE 

0296 

37 

.2912 

77615 

0 

DAO 

0297 

ref 

1 

37 

.2913 

16216 

0 

28SECS 

TDEC  ♦ 28SECS 

0298 

ref 

193 

LAST 

772 

37 

.2919 

02167 

0 

STORE 

TDEC 

TDEC  SET  TIGN-2 

0299 

37 

.2915 

52131 

0 

5SP 

GOTO 

0300 

REF 

6 

LAST 

772 

37 

,2916 

02201 

0 

MEASmODE 

SET  MEASMODE: (+0) 
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integration  INITIALIzATK 


0301 

07.2417 

nnoon 

1 

_Q 

0302 

REF 

4 

LAST 

771 

07,2420 

16153 

1 

TESTI  OOP 

GO  INTEGRATE  STATE  TO  IGN-2 

03021 

REF 

73 

LAST 

772 

07,2421 

0 6112 

0 

l3N-2SEC_.r.C_ 

_1NT.PRET__._ 

0303 

07,2422 

74375 

0 

VLOAO 

VXSC 

TRANSFORM  POS  AT  IGN-2  FROM  REF  TO  SM 

030A 

REF 

5 

LAST 

772 

07,2423 

02001 

1 

RRECt 

0305 

REF 

2 

LAST 

772 

07,2424 

16240 

0 

SCLRMDAV 

0306 

07,2425 

76521 

0 

MXV 

VSLl 

0307 

ref 

23 

LAST 

772 

07,2426 

01263 

1 

REFSMMAT 

0308 

REF 

1 

07,2427 

lfel31 

0 

STODL 

RIG.2SEC 

POS  IN  SM  COORD,  AT  lGN-2 

.0309 

REF 

144 

LAST 

772 

07,2430 

02167 

0 

TOEC 

0310 

07,2431 

43214 

1 

30NCLR- 

DAD 

03101, 

REF 

Z 

LAST 

700 

07i24^3_2_ 

___.Q22.12 

1 

INTEr.RSW 

IF  set,  FINAL  TESTLOOP  GIVES  IGN+78  STAT 

03102 

REF 

1 

07,2433 

16442 

1 

I GN+28 

INSTEAD  OF  IGN  STATE  - FOR  MP  4 ONLY. 

0311 

REF 

1 

07,2434 

16222 

1 

2SECS 

0312 

REF 

145 

LAST 

773 

37,2435 

02167 

0 

tdecstor  store 

TOEC 

0313 

37 » 2436 

52131 

0 

SSP 

SOTO 

0314 

ref 

7 

LAST 

772 

37,2437 

02201 

0 

measmode 

SET  MEASMOOE=(*1) 

0315 

37.2440 

nnool 

0 

1 

03155 

REF 

5 

LAST 

773 

37,2441 

16153 

1 

testToop 

GO  INTEGRATE  STATE  TO  IGN  OR  IGN+28 

03156 

07,2442 

5Z0i5^ 

IGN+28  OAD 

GOTO 

03157 

rEf 

1 

37,2443 

16224 

1 

30SFCS 

for  MP4,  remove  after  FLiGhT  2o6. 

0316 

REF 

1 

37,2444 

16435 

1 

TDECcTOR 

031601 

REF 

7 

last 

761 

37,2445 

0 6076 

0 

REFTOSM  tC 

FLAG2DWN 

REMOVE  ORBITAL  INTEGRATION  GLAG 

031602 

37,2446 

00100 

0 

OCT 

100 

03161  ^ 

ref 

74 

LAST 

773 

37.2447 

0 6112 

0 

TC 

INTPRET 

0317 

37,2450 

66370 

0 

AXT,1 

SSP 

SET  UP  TIX  LOOP 

0318 

37,2451 

00014 

1 

12D 

12  IN  XI 

0319 

ref 

23 

LAST 

772 

07,2452 

00051 

0 

SI 

6 IN  SI 

0320 

37,2453 

00006 

1 

6 

0321 

37,2454 

73773 

0 

REFTOSMl  ^LOAO» 

vxSc* 

TRANSFORM  STATE  AT  TIgN  FROM  REF  TO  SM 

0322 

REF 

6 

LAST 

773 

37,2455 

02015 

1 

RRECT  +17D,1 

0323 

REF 

3 

LAST 

773 

37,2456 

16254 

0 

SCLRmDAV  +12D,1 

REF  TO  SM  SCALE  FACTOR 

0324 

37,2457 

76521 

0 

MXV 

VSLl 

0325 

REF 

24 

LAST 

773 

37,2460 

01263 

1 

REFSMMAT 

0326 

REF 

1 

37,2461 

06015 

0 

store 

RIGNTION  +12D,1 

STATE  at  TIGN  IN  SM  COORDINATES 

0333 

07,2462 

77500 

1 

rix,i 

EXIT 

0334 

ref 

1 

37,2463 

16454 

0 

REFTnSMl 

03341 

37,2464 

0 0006 

1 

EXTEND 

PLAY  SAFE  WITH  BAS  I C*<hhhhhhh*4  »»#*»»»*** 

033415 

ref 

5 

LAST 

769 

37,2465 

3 1447 

1 

3CA 

TET 

03342 

ref 

1 

01 *2466 

53«777 

0 

DXCH 

TIGNtION 

STATE  TIME  FOR  DOWNLINK  IN  VPATCHER 

0335 

REF 

5 

LAST 

771 

37,2467 

53*631 

0 

3XCH 

AVMIORTN 

03351 

ref 

31 

LAST 

76/ 

37,2470 

52  006 

0 

DXCH 

2 

R0336 

the 

CDAsTINT 

routine 

IERMINATEs  The  ORBITAl  integration 

JOB  4ET  by 

R03362 

R03363 

'R6336A 


img  coasting  PHASfS. 
the  routine  transfers  the  state  vector  and  all  other  orbital  integration 
QU ANJ  ITIES  to  P-MeMORY.  IT  FQRMS  a total  state  V-CTOR  and  ToANSFoRMS  it 
TO  stable  member  coordinates  and  stores  it  with  time  in  RN,  \/N  and 
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DEC  7,  1967  (MAIN)  PAGE  77A 


L 

INTE 

station 

initialization 

USER'S  Own  page  no,  9 

S3  E4 

P0337 

ST  AT  I ME 

FOR 

D0/YNLI_NK, 

. the  R.Q.UXINE  THEN 

REMOVES 

THE,  integration  FLAG.  _ 

R0338 

TO  al^Oiy  ground  UPDA 

E OF  the 

State  vector  and  does  endofjob. 

R0339 

03391 

ref 

102 

last 

762 

07  1 2471 

0 4161  0 

C3AST1NT 

TC  ... 

..PHASrHNG. 

03392 

07t2472 

05021  1 

OCT 

05021 

03393 

37,2473 

05000  1 

OCT 

0500ri 

03394 

REF 

2 

LAST 

767 

37,2474 

0 2276  0 

TC 

moyetemp 

03395 

ref 

133 

LAST 

77A 

37,2475 

0 4161  0 

j^oatint 

TC 

PHASCHNG 

0340 

37,2476 

05021  1 

OCT  . 

O5O21 

034001 

07,2477 

05000  1 

OCT 

O5OOO 

03401 

REF 

75 

LAST 

773 

37,2500 

0 6112  0 

TC 

INTRrET 

03402 

37,2501 

40575  1 

VLOAD 

VSR8 

FORM  TOTAL  STATE  VECTOR 

0341 

ref 

7 

LAST 

324 

37,2502 

01225  0 _ 

DELTAV 

0342 

07,2503 

53342  1 

VSR2 

VAD 

0343 

REF 

if 

LAST 

323 

37,2504 

01241  1 

REFRrV 

0344 

REF 

7 

LAST 

773 

3 7 , 2505 

260(a..l_ 

STOVl. 

RRECt 

0345 

REF 

7 

LAST 

324 

37,2506 

01233  1 

NUV 

0346 

37,2507 

53202  1 

VSR8 

VAD 

0347 

ref 

if 

LAST 

329 

37,2510 

01247  1 

REFvcV 

0348 

REF 

1 

37,2511 

02007  1 

STORE 

vrect 

total  VEL.  VECTOR 

0349 

07,2512 

66370  0 

AXTji 

SSP 

SET  TlX  LOOP  TO  TRANSFORM  STATE 

T3  SM 

0350 

37,2513 

00014  1 

120 

0351 

ref 

24 

last 

773 

07,2514 

00051  0 

Si 

0352 

37,2515 

00006  1 

6 

0353 

37,2516 

73773  0 

TRANTOSM 

^LOAO» 

vxSC* 

TRANSFORM  STATE  AND  RE-STORe  IN 

RRECT 

0354 

ref 

8 

LAST 

774 

37,2517 

02015  1 

RRECT  *120,1 

0355 

ref 

4 

LAST 

773 

07,2520 

16254  0 

SCLRMDAV  *12D,1 

0356 

37,2521 

76521  0 

MXV 

VSLl 

0357 

ref 

25 

LAST 

773 

37,2522 

01263  1 

REFSMMAT 

0358 

ref 

9 

LAST 

774 

37,2523 

06015  0 

STORE 

RRECT  *12D,1 

STATE  IN  SM  SYSTEM 

0359 

37,2524 

77700  0 

T1X,1 

0360 

ref 

1 

37,2525 

16516  1 

TRANTOSM 

0361 

37,2526 

71776  1 

£XIt 

0362 

37,2527 

0 0004  0 

INHINT 

INHIBIT  INTERUPT  TO  STORE  STATE 

IN  RN 

0363 

REf 

4 

lAst 

471 

07,2530 

3 7764  0 

caf 

eleven 

initialize  Index  to  dec  u 

0364 

ref 

36 

LAST 

365 

37,2531 

54  070  1 

STATORN 

TS 

RJPTREGI 

0365 

ref 

37 

LAST 

774 

37,2532 

50  070  0 

INDEX 

RJPTREGl 

0366 

REF 

10 

LAST 

774 

37,2533 

3 1400  1 

GA 

RRECt 

PICK  RRECT  ♦ next  11  REGS 

0367 

REF 

38 

last 

774 

07,2534 

50  070  0 

INDEX 

RJPTREGl 

0368 

ref 

7 

LAST 

766 

37,2535 

55'010  0 

TS 

RN 

JAM  IN  RN  TO  RN*11  FOR  DOWNLINK 

0369 

REF 

39 

LAST 

37,2536 

10  070_1 

CCS 

RUPTREGl 

0370 

REf 

1 

37,2537 

1 2531  0 

TCF 

STATORN 

0371 

37,2540 

0 0006  1 

EXTEND 

0372 

ref 

5 

LAST 

327 

07,2541 

3 125J  0 

OCA 

TE 

GET  STATE  TIME 

0373 

ref 

2 

LAST 

337 

37,2542 

53'327  1 

3XCH 

Si attme 

63^‘,3bA 

YUL  system  FoK  AGC: 

revision 

0 OF  PROORA'1  BURST120  BY  NASA  2o211O6-031 

DEC  7.  1967  (MAIN) 

page 

775 

L 

INTEoRATION  INITIALIZATION 

USeR.S  own  page  NO.  10 

S3 

E4 

037'<t 

37.2543 

0 0003  L 

_R£UM 

state  and- time  in  DOWNLINK 

RE&S 

0375 

REF  8 last  773 

37.2544 

0 6076  0 

imtout 

rc 

FLA3?DWN 

Remove  orbital  integration 

FLAG 

0376 

37.2545 

00100  0 

3CT  _ . 

100 _ 

03761 

REF  lOA  LAST  77A 

3Y.2546 

0 4161  0 

rc 

phaschng 

03762 

37.2547 

0_a0D_L  _Q 

3CT  _ 

_00001._  

, 

0377  REF  38  LAST  76& 


37f2550  0 5567  0 


rc 


ENODpJOB 


633<f36A 

yul  System  fo«  *gc:  Division 

0 Of  program  BUR5T123  BY  NASA  202U06-031 

DEC  7. 

1967 

(MAIN) 

PAGE  776 

L 

R0069 

orbital  integration  j^ogram 

FBR3  SETS  UP  A TimESIER  ^CALL. 

IJ3  XEPLER^  - - - - - 

USER'S  OWN  PAGE 

NO, 

1 

S3 

0070 

37,2551 

50595  0 F3R3 

3L3AO 

SR3 

0071 

ref 

1 

37,2552 

02165  1 

H 

0072 

3 7, 25  53  „ 

_ A326E  0 

SR3R 

DAO 

0073 

REF 

2 LAST 

766 

37,2559 

02095  1 

TC 

0079 

ref 

1 

37,2555 

16161  0 

STOOL 

TAJ 

0075 

ref 

3 LAST 

770 

37,2556 

17755  0 

EARTuTAB  +90 

0076 

37,2557 

59205  1 

3MP 

SRR 

0077 

ref 

5 LAST 

167 

DT/2 

0078 

37,2561 

21615  0 

l2D 

0079 

37,2562 

77615  0 

DAO 

oobo 

ref 

6 LAST 

773 

. 37,2563 

02097  0 

TFT 

0081 

REF 

7 LAST 

776 

37,2569 

02097  0 

STORE 

TET 

633ii36A  YUL  SYSTEM  FOR  ''GC:  REVISION  0 OF  PROGRAM  BURST123  BY  NASA  2nZ110ft-031 
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L orbital  integration  a^OgRAM  user's  Own  page  no.  2 S3 


Poors 

this 

ORBITAL 

kepleR 

subroutine 

FINDS 

the 

Position  and 

v.e£ocit_y_ 

OF  the  Vehicle  after  time  found  in 

GJVENt 

R0090 

since 

Rectification 

I O' 

POSITION  RReCT  and  VELOCITY  VReCT.  THf 

Resulting  position  and  velocity  are 

Left  in 

R0092 

FOJNDRi 

AND  FOUNDV,  R 

espectively. 

0093 

07 

,2565 

A03X5__ 

1 

<£pler.  . ^loao 

...S£T  ?_n  . 

- Unit  OF  BECJ I FliCAll On  position  lQ  0 . 

009A 

RCF 

11 

LAST 

77A 

07 

,2566 

02001 

1 

RRECT 

0095 

07 

.2567 

00001 

0 

0 

D096 

07 

,2570 

65256 

.0 

unit 

PDDL 

AND  length  of  ORIGINAL  IN 

6 

0097 

07 

,2571 

OOOA5 

0 

36D 

0098 

07 

,2572 

77715 

1 

2DVL 

length  of  position  at  RECTIFICArlDN, 

0099 

r_ef 

? 

LAST 

77A 

07 

,2573 

02007 

1 

VRECf 

0100 

07 

,257A 

61A36 

1 

VSD 

RDJNn 

0101 

07 

,2575 

A5205 

1 

5MP 

DSJ 

0102 

07 

,2576 

00007. 

0 

6 

length  of  position  at  RECTIFICArlDN 

0103 

ref 

1 

07 

,2577 

17702 

1 

dpi/a 

OlOA 

07 

,2600 

A1532 

0 

SL2R 

PUSH 

AA  TO  REGISTER  8 

0105 

07 

,2601 

57502 

1 

5R2 

DCDMP 

0106 

07 

,2602 

56215 

1 

DAO 

DDV 

0107 

ref 

2 

LAST 

777 

07 

,2603 

17702 

1 

DPI/4 

0108 

,260  A 

00007 

0 

(l  . 

0109  • 

07 

,2605 

50315 

0 

3DvL 

dot 

ALPHA  TO  REGISTER  10 

0110 

ref 

12 

LAST 

777 

07 

,2606 

02001 

1 

RRECT 

0111 

REF 

3 

LAST 

777 

07 

,2607 

02007 

1 

VRECT 

0112 

07 

,2610 

63306 

1 

ROUND 

PDVL 

A1  TO  REGISTER  12 

0113 

ref 

2 

LAST 

766 

07 

,2611 

02031 

1 

RCV 

OllA 

07 

,2612 

50256 

0 

UNIT 

DOT 

0115 

ref 

1 

07 

,2613 

02037 

1 

VCV 

0116 

07 

,261A 

77725 

1 

3DDL 

IR/2.VC  IN  lAD. 

0117 

07 

,2615 

000A5 

0 

360 

0118 

REF 

1 

07 

,2616 

16155 

1 

STODL 

ALPRiM 

RC  IN  ALPHAM 

0119 

REF 

6 

LAST 

776 

07 

,2617 

02163 

1 

DT/2 

0120 

07 

,2620 

6AAA2 

1 

SR3 

5R3R 

0121 

07 

,2621 

77071 

1 

DOV 

AXT,2 

0122 

REF 

2 

LAST 

777 

07 

,2622 

02155 

1 

ALPHAM 

0123 

07 

,2623 

00012 

1 

lOD 

MAX  ITERATION  COUNT  IS  10 

633<t36A 

YUL 

system  for  Rgc: 

REVISION 

0 OF  PROGRAM 

BURST123  by 

NASA  2021106-031 

DEC  7,  1967  (MAIN) 

PAGE  778 

L 

ORBITAL  integration 

570GRAM 

USER'S  OWN  page  NO.  3 

S3 

012^ 

0-7i262A 

-56325-0  - 

2002.^ 

- OjJM  - - - - 

Q IN  16  - - 

0125 

REF 

3 LAST  777 

37,2625 

17702  1 

OPl/9 

0126 

REF 

3 LAST  777 

37,2626 

02155  1 

alpham 

0127 

37.2627 

57225  0 

3SJ 

DMPR 

0128 

37,2630 

00013  0 

100 

1/9RC  : ALPHA 

0129 

37,2631 

00021  1 

160 

0(  ) 

0130 

37,2632 

57275  0 

3MPR 

DMPR 

0131 

37,2633 

00021  1 

l60 

00  ( ) 

0132 

ref 

1 

37,263A 

17709  1 

OPl/s 

0133 

37,2635 

52952  0 

SL3 

SL3 

013A 

07  *2636 

57325  1 

2D0L 

OMPR 

0135 

0136 

37,2637 

00017  1 

190 

160 

0137 

37,26A1 

91912  0 

SL9 

pjsr 

16(UR/2.VC)0  IN  20 

0138 

37,2692 

57221  1 

3D5J 

OMPR 

0139 

REF 

1 

37,2693 

17730  0 

DPl/9 

ouo 

37,2699 

95221  1 

3DSJ 

DSJ 

OUl 

REF 

2 LAST  778 

37,2695 

17730  0 

OPl/o 

0U2 

37,2696 

76905  1 

3MP 

SLIR 

0K3 

37,2697 

66215  1 

3A0 

5SP 

OUA 

ref 

1 

37,2650 

02051  1 

X<EP 

0U5 

ref 

lA  LAST  A27 

3J,2651 

00052  0 

52- 

0U6 

37,2652 

00001  0 

1 

01A7 

REF 

2 LAST  778 

37,2653 

02051  1 

STORE 

X<EP 

633i,36A  YUL  SYSTEM  pOR  AGcJ  TiVISlON  0 Op  PROGRAM  BURST123  BY  NAbA  2ri21106-031  DEC  7.  1967  (MAIN)  PAGE  779 


L orbital  integration  a:?OGRAM  USER'S  OWN  PAGE  NO.  4 S3 

P0148  iterating  equations  GIVEmA  JJv  MPACt^EJ_ND  TIME.  OF  FLIGtlJ-. - - 


0149 

0150 

0151 

07.2654 

07.2655 

07.2656 

61516  1 
66405  0 
00013  0 

<TIMen*1  3S3 
OMP 

Round 

SL2r 

100 

Form  alpha  x_suuared  and  call  s and  c 

0152 

07,2657 

45001  1 

SETPO 

call 

SET  PD  INDICATOR  TO  16 

0153 

07,2660 

00021  1 

160 

0154 

REF 

1 

_ 0_7,2i>61_ 

16751  0 

S_(\)r  (X) 

nl55 

07,2662 

42405  0 

3MP 

SLA 

■ 0156 

REP 

3 

LAST 

77B 

07,2663 

02051  1 

X<EP 

0157 

07,2664 

72405  0 

3MP 

SLl 

0158 

REF 

4 

LAST 

779 

07,2665 

02051  1 

X<EP 

0159 

07  f 2666 

76405  1 

3MP 

SLIR 

0160 

REF 

5 

LAST 

779 

07,2667 

02051  1 

X<EP 

0161 

07,2670 

00030  1 

store 

230 

A3 

0162 

07,2671 

65275  1 

OMPR 

POOL 

0163 

07,2672 

JODOll  1_ 

80 

0164 

REF 

6 

LAST 

779 

07,2673 

02051  1 

XK.E? 

0165 

07,2674 

42405  0 

OMP 

SL4 

0166 

07,2675 

00021  1 

160 

VALUE  OF  C 

0167 

07,2676 

41352  0 

5L1 

OMP 

0168 

ref 

7 

LAST 

779 

07,2677 

02051  1 

X<EP 

016_9 

07,2700 

77732  1 

5L2R 

0170 

07,2701 

00026  0 

store 

210 

A2 

0171 

07,2702 

74405  0 

OMP 

SRlRi 

om 

07,2703 

00015  0 

120 

Al 

0173. 

07,2704 

77615  0 

OAO 

017A 

07,2705 

57325  1 

2D0L 

OMPR 

0175 

07,2706 

00007  0 

6 

0176 

REF 

8 

LAST 

779 

07,2707 

02051  1 

X<E? 

0177 

07,2710 

77615  0 

OAO 

0178 

07,2711 

44206  0 

RUSH 

80SJ 

COMPARE  WITH  GIVEN  TIME  OT  FLIGHT 

0179 

ref  ■ 

1 

07,2712 

02161  0 

oIYEmT 

0180 

07,2713 

00021  1 

store 

160 

DIFFERENCE  TO  REGISTER  16 

0181 

Of. 2714 

77776  1 

exit 

633<(36A 

YUL 

SYSTEM  FOR  Aqc: 

REVISION 

0 OF  PROGRAM  BURST120  3Y  NASA  2n21106-03I 

DEC  7,  1967 

(MAIN) 

PAGE  780 

L 

0R31T9L  integration 

program 

USER'S  OWN  page  NO. 

5 

S3 

0182 

REF 

76  LAST  779 

07*2715_ 

...0  6112  o ._djmpdum.p_  tc 

PQR  DUMP  ONLY  »*»»*** 

0183 

07,2716 

95296  0 ABS 

DSJ 

OlBA 

REF 

1 

07,2717 

17679  1 

<EPStLON 

SEE  IF  within  epsilon 

OF  GIVEN 

TIME. 

0185 

07,2720 

61090  1 - - 3MN 

T1Xj_7 

IF  SO,  get  R and  V AND 

EXIT. 

0186 

ref 

1 

07,2721 

17036  1 

getranoy 

0187 

REF 

1 

07,2722 

16725  0 

GETNEWX 

0188 

07,2723 

77650  1 GOTO 

0189 

REF 

2 LAST  780 

07,2729 

17036  1 

GETRANOV 

0190 

07,2725 

41395  0 GETNEiVX  OLOAO 

OMP 

0191 

07, 2 726 

00013  0 

lOO 

ALPHA 

0192 

07,2727 

00030  1 

230 

A3 

0193 

07,2730 

99332  0 SL2R 

30SJ 

0199 

ref 

9 LAST  779 

07,2731_ 

J2051  1 

X<EP 

0195 

07,2732 

46905  1 OMP 

SL9R 

0196 

07,2733 

00015  0 

120 

A1 

0197 

07,2739 

14023  0 STOOL 

IRO 

0198 

07,2735 

00026  0 

210 

A2 

0199 

07,2736 

76905  1 OMP 

SLIR 

0200 

07,2737  QOQll  1 

8D 

A9 

0201 

07,2790 

77615  0 OAO 

0202 

07,2791 

65215  1 OAO 

PODLi 

0203 

07,2792 

00007  0 

6,  , . 

RO 

0209 

07,2793 

00021  1 

160 

0205 

07,2799 

93271  1 ODY 

OAO 

0206 

07,2795 

00023  0 

180 

0207 

ref 

10  LAST  780 

07,2796 

02051  1 

X<E? 

0208 

REF 

11  LAST  780 

07,2797 

36051  0 STCALL 

X<E? 

0209 

ref 

_1  

07,2750 

.1665^1 

<TIMcN*l 

4 
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L orbit'll  integration  program  USER'S  OWN  PAGE  NO.  6 S3 

P0210  subroutine  FOR  COMPUTING  THE  UNIVERSAL  COnjiC  FUniCIIOnS  S(X)  ftNP  C(X).  THE  ACTUAL  OJJJP^UJ_OF  TXiS  ROUTINE 
R0212  CONSISTS  OF  SCALED  VERSIONS  DEFINED  AS  FOLLOWS  - 

R02Ii S (X)  s 5(SAX) C (X)  = C(6LX)/A 

R0214  S S 

R0215  IT  IS  assumed  THAT  THE  INPUT  ARRIVES  IN  MPAC.MPaC.1  AND  THAT  IT  LIES  BETWEEN  -30/64  AND  40/64.  UPON  FXIr. 

R0217  S(X)  WILL  Be  left  IN  MPAC.MPAC.i  AND  C(X)  ON  TOP  OF  THE  PJSHriOWN  1-IST. 


0218 

07.2751 

00043 

0 

S(X)C(X)  store 

3aD 

X TO  34D 

02  li 

07.2752 

63434 

1 

7,TB 

DS3 

0220 

ref 

1 

07.2753 

17000 

1 

A(X) 

0221 

07.2754 

41506 

1 

ROUND 

PUSH 

0222 

07,2755 

00045 

0 

STORE 

36?  _ ___ 

A SQUARED  TO  36D 

0223 

07.2756 

76405 

1 

OMP 

SLlR 

0224 

07.2757 

00043 

0 

34D 

2 2 

0225 

07.2760 

. 57Z21 

1 

3DSJ 

DMPR 

C (X)  = A (.25  - 2XA  j JO  PD  list 

0226 

ref 

1 

07.2761 

17702 

1 

P051/4 

S 

0227 

07,2762 

00045 

0 

3bD 

02J8  . 

07.2763 

64525 

1 

9DDL 

SR2R 

2 

0229  • 

07,2764 

47125 

1. 

3DDL 

RT3 

A /4  TO  PD  LIST 

0230 

07.2765 

00043 

0 

34D 

0231 

ref 

1 

07.2766 

17017 

1 

B(X) 

0232 

07,2767 

61516 

1 

DSO 

ROJNn 

0233 

07,2770 

57325 

1 

ADDL 

DMPR 

B SQUARED  TO  PO  LIST 

0234 

07,2771 

00043 

0 

34D 

0235 

07,2772 

00045 

0 

36D 

0236 

07,2773 

57221 

1 

3DSU 

OMPR 

2 2 2 

0237 

ref 

1 

07,2774 

17706 

0 

POSl/16 

LEAVES  S (X)=B  (.0625-A  X),A  /4  IN  MPAC 

0238 

07.2775 

43415 

0 

OAO 

ITCO 

S 

0239 

07,2776 

74631 

0 

-1/12  2DEC 

-.1 

DONT  MOVE. 

C0239  _ 

07,2777 

63145 

1 

633<.36A 

YUL  SYSTEM  FOK  AGC! 

REVISION 

0 OF  PROGRAM  BURST120  BY 

NASA  2021106-031  OEC  7, 

1967  (MAIN) 

PAGE  782 

L 

ORBITAL  integration 

PROGRAM 

USER'S  OWN  page 

NO.  7 

S3 

PqZAO 

A ANO  B polynomials 

/HOSE  Coefficients.  .weRe 

OBTAI/IEQ  i 

w.ix-L  xmf  .xauj.qcurv.eF.Ii)'  program.^  _ 

02A2 

REF  1 

07*3000 

0 7274  1 A(X) 

TC 

POLY 

02A3 

OF, 3001 

00004  0 

OEC 

02<tA 

07.3002 

26501  1 

2PEC 

_ 7.071067810  E-l 

C02AA 

07.3003 

07463  1 

02A5 

07.3004 

60724  0 

2DEC 

-4.7.4045180  E-l 

C02if5 

07.3005 

60210  1 

02A6 

07.3006 

03010  0 

2DEC 

9.42808914  E-2 

C02<»6 

07.3007 

26256  1 

02A7 

07.3010 

77554 J3„ 

2DJEC 

^ -8..979J.893  E-3 

C02<(7 

07.3011 

74242  0 

02<(8 

07.3012 

00010  0 

2DEC 

4.989987  E-4 

CO2<,0 

07.3013 

. 05475  1 

02<(9 

07.3014 

77777  0 

2DEC 

-1.79357  E-5 

C02A9 

07.3015 

66460  0 

0250 

ref  a last  36A 

07.3016 

0 6125  1 

IC 

DANZIG 

0251 

REF  2 LAST  78ii 

07,3017 

0 7274  1 BIX) 

IC 

POLY 

0252 

07,3020 

00004  0 

OEC 

4 

0253 

07,3021 

32101  0 

2 DEC 

- 8.164965793  E-l 

C0253 

07,3022 

17270  1 

025A 

07.3023 

65431  1 

2DEC 

-3.265986572  E-l 

C025A 

07.3024 

4Q174  1 

0255 

07,3025 

01710  0 

2DEC 

5.90988980  E-2 

C0255 

07,3026 

10660  0 

0256 

07,3027 

77676  0 

2DEC 

-4.0085592  E-3 

C0256 

07,3030 

52270  0 

0257 

07,3031 

00004  0 

2DEC 

2.781528  E-4 

C0257 

07.3032 

21652  0 

0258 

07,3033 

77777  0 

2DEC 

-1.25610  E-5 

C0258 

07,3034 

71323  0 

.0259 

ref  5 LAST  78?  _ 

07,3035 

0 6L25__1 

IC___ 

O.ANiIG__  _ 

4 


633<«36A 

YUL  SYSTEM  FOR  Aqc!  REVISION  0 OF  PROGRAM  BURST123  6y  NASA  2021106-031 

DEC  7. 

1967 

(MAIN) 

PAGE  783 

L 

P0260 

0R3ITAL  integration  3;:?oGRAM 

ROjmE  FOR  0BTAINIFL3'  R AllO  V.  ISQW,  THAT_JTjjE_£RO.PELi^  X HAS  BEFM  FOUM-D-^-,  . 

USER'S  OWN  PAGE 

NO, 

8 

S3 

0261 

07.3036 

40345 

1 

GETRANOV  3L0A0 

SETPn 

0262 

07.3037 

00026 

0 

21D 

A2  from  last  iteration 

0263 

07j3OAO 

00032 

0, 

250- 

026A 

07.3OA1 

74276 

1 

3CDMP 

YXSC 

0265 

07.3OA2 

00001 

0 

0 

UNIT  OF  GIYEN  POSITION  VECTOR 

0266 

07.30A3 

45325 

1 

0267 

07.30AA 

00023 

0 

IbD 

LAST  VALUE  OF  T 

0268 

07.3OA5 

00030 

1 

230 

LAST  VALUE  OF  A3 

0269 

07.30A6 

7431? 

1 

SL2 

YXSC 

0270 

REF 

A 

LAST 

777 

07.3047 

02007 

1 

VRECt 

0271 

07.3050 

76455 

1 

^AD 

YSLl 

ADDITION  must  BE  DONE  IN  THIS  OpDeR 

0172 

07.3051 

53206 

0 

3USH 

YAD 

0273 

REF 

13 

LAST 

777 

07.3052 

02001 

1 

RRECT 

027A 

07.3053 

45455 

1 

i/AO 

5T  AOR 

0275 

REF 

1 

07.3054 

_ 75,746 

0 

STORE 

FOJNDR 

resulting  conic  POSITION 

02  76 

07.3055 

77646 

0 

abyal 

0277 

07.3056 

14021 

1 

stool 

160 

017,8  - 

07.3057 

00013 

0 

100 

ALPHA 

0279 

07.3060 

66405 

0 

OMP 

SL29 

0280 

07.3061 

00030 

1 

230 

A3 

0281 

07.3062 

56225 

1 

OSJ 

DDY 

0282 

REF 

12 

LAST 

780 

07.3063 

02051 

1 

X<E  = 

0283 

07.3064 

00021 

1 

160 

length  of  found  position 

028A 

07.3065 

72561 

0 

YXSC 

YSL2 

0285 

07.3066 

00001 

0 

0 

UNIT  OF  Rectification  position 

0286 

07.3067 

70525 

1 

?DDL 

SRI 

0207 

07.3070 

00021 

1 

160 

0288 

07.3071 

56225 

1 

OSJ 

DDY 

0289  - 

07.3072 

00026 

0 

210 

0290 

07.3073 

00021 

1 

160 

0291 

07.3074 

53361 

0 

YXSC 

YAO 

0292 

ref 

5 

LAST 

783 

07.3075 

02007 

1 

YRECt 

0293 

07.3076 

77772 

0 

YSLl 

029A 

REF 

1 

07.3077 

36037 

0 

STCALL 

FOJNnV 

THIS  COMPLETES  THE  CALCULATION 

0295 

ref 

1 

07.3100 

02171 

1 

RBRANCH 

633ii36A 

YUL 

SYSTEM  FOR  AGC; 

REVISION 

0 OF  PROGRAM  BURST120  BY 

NASA  2021106-031 

DEC  7,  1967  (MAIN)  PAGE  786 

L 

ORBITAL  INTEGKAUON 

RROGRAH 

USER'S  OInN  page  NO.  9 S3 

P0296 

tHe 

POSTRUe  R0JTIJ>)£S 

SET  UP  the  beta  Vector  ano 

0IH  E_R  _ 

LNTITAI  conditions 

I _ F 0.8  . THE . NEXT  .ACCOMP , . ..  . 

0298 

07.3101 

77331  0 

POSTRUE 

5SP 

VLOAn 

TIME  STEP  CALLS  TO  KEPLER  RETURnj  HERE 

0299 

REF 

1 

07,3102 

02207  0 

SCALFA 

0300 

07.3103 

0000-6--Q-  ■ 

k 

0303 

ref 

1 

07.3106 

02053  0 

ALPHAV 

030A 

07.3105 

53261  1 

VSR 

VAO 

0305 

07,3106 

20613  1 

loo  . ___ 

0306 

REF 

3 LAST  777 

07,3107 

02031  1 

Rev 

position  output  of  KEPLER 

0307 

07,3110 

63156  0 

-XA,2 

30F 

0308 

ref 

9 LAST  710  . . 

_ 07..31i_l. 

. 02205^1. 

- OiFEnCNT 

0309 

REF 

2 LAST  770 

07,3112 

00360  0 

aIMATFLAG 

0310 

REF 

1 

07,3113 

17115  1 

NOSAwEl 

0311 

ref 

1 

07,3il6. 

- 12111  0 

STORE 

VECTAB.,2 

0312 

07,3115 

66331  0 

NOSAVEl 

SSP 

SSP 

SETS  UP  SCALE  b AND  GMODE 

0316 

REF 

1 

07.3116 

02210  0 

SCAlfB 

0315 

07,3117 

00016  0 

140 

0316 

REF 

1 

07,3120 

02173  0 

GMOOF 

0317 

07,3121 

00002  0 

2 

0318 

ref 

1 

07,3122 

02061  1 

STORE 

a_ET_Av 

633<t36A  YUL  SYSTEM  FOR  «GC!  REVISION  0 OF  PROGRAM  BURST123  6V  NASA  2n21106-031 


DEC  7*  1967 


(MAIN)  PAGE  785 


L ORBITAL  integration  PROGRAM  USER'S  OWN  PAGE  NO.  10  S3 

P0319  AGC  R3UT1NF  TO  COMPUTE  ACCELERATION  COMPONENTS. ' 


0320 

0321 

0322 

REF 

ref 

2 

3 

LAST 

LAST 

784 
7B_!>  _ 

07.3123 

37.3124 

07.3125 

53575  0 ACCOMP 
02053  0 
L6053  0 

YLOAi) 

. STDDL- 

JNl  T 
ALPHAV 
alpha  V. 

0323 

032A 

0325 

ref 

4 

LAST 

77B 

37.3126 

37.3127 
37,3130 

00045  0 
02155  1 
77600  1 

store 

30Y 

360 

alpham 

0326 

REF 

1 

37,3131 

17132  1 

ACC3MP2 

TURN  OFF  OVERFLOW  INDICATOR 

0327 

37,3132 

74575  0 ACC0MP2 

i/LOAO 

YSRl 

0328 

RE^ 

2 

LAST 

784 

37,3133 

02061  1 

BETAU 

0329 

37,3134 

40236  1 

YS3 

SETPO 

0330 

37,3135 

00001  0 

0 

033X_ 

37,3136 

61501  1 

NORM 

ROUND 

0332 

REF 

25 

LAST 

774 

37,3137 

00051  0 

Si 

0333 

37,3140 

60325  0 

5DDL 

NORM 

normed  b squared  to  pd  list 

033A 

REF 

5 

LAST 

767 

37i3141 

02L55  1 

ALPHaM 

normalize  (Less  one)  length  of  alpha 

0335 

ref 

4 

LAST 

678 

37,3142 

00047  1 

Xi 

SAVING  NORM  SCALE  FACTOR  IN  Xl 

0336 

37,3143 

63342  1 

SRI 

PDNL 

0337 

REF 

3 

LAST 

785 

37,3144 

02061  1 

BETAv 

C(PDL+2)  = ALMOST  NORMED  ALPHA 

0338 

37,3145 

77656  1 

jNit 

0339 

REF 

4 

LAST 

785 

37,3146 

16061  1 

STOOL 

BETAw 

03A0 

37,3147 

00045  0 

360 

03A1 

REF 

1 

37,3150 

02157  0 

STORE 

BETAM 

03A2 

37,3151 

55301  0 

NORM 

BODv/ 

FORM  NORMALIZED  QUOTIENT  ALPHAMyBETAM 

03A3 

ref 

1 

37,3152 

00050  1 

X2 

03AA 

37,3153 

41562  0 

SRIR 

PUSH 

C(PDL+2)  s ALMOST  NORMALIZED  RHO. 

03A5 

37,3154 

57144  1 

lXC,2 

XAD,7 

03A6 

ref 

2 

LAST 

785 

37,3155 

00047  1 

X2 

C(X2)  = -SCALE(RHO)  ♦ 1 

03A7 

ref 

2 

LAST 

78A 

37,3156 

02206  1 

scaCfa 

; -S(B)-N(B)+S(A)+N(A)+1 

03A8 

37,3157 

55074  1 

KAO, 2 

XSJ,2 

0349 

ref 

5 

LAST 

785 

07,3160 

00046  0 

XL 

0350 

ref 

2 

LAST 

78A 

37,3161 

02207  0 

scalfb 

0351 

37,3162 

53714  0 

INCR,2 

SRA 

0352 

37,3163 

00002  0 

2 

0353 

37,3164 

57176  0 

0,2 

0354 

37,3165 

64406  1 

3USH 

SR2R 

RHO/4  PD.6 

0355 

37,3166 

50315  0 

ADNL 

DOT 

0356 

ref 

4 

LAST 

785 

37,3167 

02053  0 

ALPHaV 

0357 

ref 

5 

LAST 

785 

37,3170 

02061  1 

BETAV 

0358 

37,3171 

44372  1 

slir 

BDSJ 

(RHO/4)  - 2 (ALPHAV/2.BETAV/2) 

0359 

37,3172 

57206  1 

3USH 

dmpr 

TO  PDL+6 

0360 

37,3173 

00005  1 

4 

633<t36A 

YUL 

SYSTEM  FOR  A&C: 

REVISION 

0 OF  PROGRAM 

BUR5T123  BY 

NASA  2n21106-031 

DEC  7,  1967  (MAIN) 

PAGE  786 

L 

ORBITAL 

INTEGRAT ion 

3R0GRAM 

USER'S  OWN  page  nO.  11 

S3 

0361 

37t3179, 

93206  1 - 

. . .. 

.0/9.  = RHQ  (CiPDL*9)  ) TO  PD*8D 

0362 

REF 

1 

37.3175 

17702  1 

OOJAbTER 

(Q*l)/9  TO  PD*10D 

0363 

37,3176 

75906  1 

3USH 

SORT 

3/2 

036A 

37,3177 

91975  1 

3MPR. 

_ PJS4. 

( (Q*l)/9)  TO  PD, 120 

0365 

37,3200 

00013  0 

100 

0366 

37,3201 

93352  1 

SLl 

DAD 

0367 

REF 

2 

LAST 

788 

37,3202 

_ . 17702  1 

OOJApIER  ...  .. 

3/2 

0368 

37,3203 

93325  1 

SDDL 

OAO 

(l/9),2((Q,l)/9)  TO  PD,l9D 

0369 

37,3209 

00013  0 

100 

0370 

REF 

3 

LAST 

77« 

37,3205 

.17730  0 _ 

DPI/7 

. 0371 

37,3206 

72975  1 

3MPR 

SLl 

0372 

37,3207 

00011  1 

80 

0373 

37.3210 

. _56215  1 

3A.0..  1 

OOV 

0379 

REF 

1 

37,3211 

17676  0 

THRFP/8 

0375 

37,3212 

00017  1 

190 

0376 

37,3213 

79275  1 

3MPR 

vxsr 

0377 

37,3219 

00007  0 

6 

0378 

REf 

6 

LAST 

785 

37,3215 

02061  1 

BETAvi 

0379 

37,321i 

695.15.  1. 

ADVL 

..  VSR3 . . . 

(G/2)  (C(P0,9) )b/2  TO  PD,l6D 

0380 

ref 

5 

LAST 

785 

37.3217 

02053  0 

ALPMAV 

0381 

37,3220 

91955  0 

VAO 

PUSM 

A12  + C(PD,l6D)  TO  PD,l6D 

0382 

37.3^21 

91395  0 

3L0AD 

OMP 

0383 

37,3222 

00001  0 

0 

0389 

37,3223 

00015  0 

120 

• 

0385 

37,3229 

61501  1 

norm 

ROOND 

gamma  to  PD,22D 

0386 

ref 

15 

LAST 

778 

37,3225 

00052  0 

S2 

- scale (GAMMA) -1  TO  XI 

0387 

37,3226 

70065  0 

3D0V 

LKC.1 

0388 

3T.3227 

00003  1 

2 

0389 

REF 

3 

LAST 

785 

37,3230 

00097  1 

K2 

C(X2)  = SCALE(RHO) 

0390 

37,3231 

56070  0 

HAO.I 

KAD.i 

0391 

ref 

16 

LAST 

786 

37,3232 

00051  0 

52 

C(S2)  : N( (B.B/9) (,.,.) 3/2) 

0392 

ref 

26 

LAST 

785 

37,3233 

00050  1 

SI 

C(S1)  = N(B.B/9) 

0393 

37,3239 

56070  0 

KAO,  1 

KAO.) 

0399 

ref 

3 

LAST 

785 

37,3235 

02207  0 

SCALcB 

0395 

REF 

LAST 

786 

37,3236 

02207  0 

slaCfb 

0396 

37,3237 

79276  1 

3C0MP 

VXSC 

0397 

37,3290 

00021  1 

160 

RESULT  OF  PRECEDING  EQUATION 

0398 

37,3291 

73206  1 

AUSM 

CGOTn 

0399 

REF 

2 

LAST 

789 

37,3292 

02173  0 

GMOOF 

0900 

ref 

1 

37,3293 

17299  0 

51  A3LE 

0901 

REF 

1 

37,3299 

17315  0 3 

Table  :aor 

3M00E10 

0902 

REF 

1 

37,3295 

17276  1 

CAOR 

oMODFll 

0903 

REF 

1 

37,3296 

J72^97  0 _ 

:adr 

3MOOF12 

633<t36A  YUL  SYSTEM  FOR  Aec!  ^EVjSiOr  0 OF  PrOGrAM  BURsT123  BY  nAsA  2n2UO6-031 
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L 

orbital 

integration 

PROGRAM 

USER'S  OWN  page  no.  12  S3 

P0404 

the 

SV1DDE12 

ROJTjnE 

SETS  UP  ' 

The  secondary,  body -D 

I ST J»RI^ 

js  ArrFi  fdat 

ION  FOR  ACCOMP. 

0406 

37,3247 

77657  0 3'10DE12 

VSL« 

-scale(GammA)-!  is  left  in  xl. 

0407 

37,3250 

20240  0 

310,1 

ADJUST  GAMMA  TO  SCALE  OF  -32 

0408 

ref 

1 

37,3^^ 

. 26103  1 

STD.VL  _ 

Fv 

0409 

REF 

7 

LAST 

786 

37,3252 

02061  1 

3ETAV 

0410 

REF 

6 

LAST 

786 

37,3253 

16053  0 

STOOL 

ALPHaV 

BETA  vector  into  ALPHA  FOR  NeXT  ACCOMP 

0411 

ref 

2 

LAST 

785 

3 7 ,32  5 4 

02157  0 

BETAm 

0412 

REF 

6 

LAST 

785 

37,3255 

02155  1 

STORE 

ALPHaM 

0413 

37,3256 

45014  0 

30FF 

CALL! 

0414 

REF 

2 

LAST 

770 

.37,3257 

0.0342.  1 

MIDFLAG 

0415 

REF 

1 

37.3260 

17322  1 

OBLATEST 

0416 

REF 

1 

37,3261 

17735  0 

moonpos 

0417 

REF 

8 

LAST 

787 

37,3262 

_02X)j61_  1 . 

STORE 

betav 

moon(earth)  position  will  Bi  beta  next 

0418 

37,3263 

43150  1 

LXA.l 

30F 

0419 

REF 

10 

LAST 

789 

37,3264 

02205  1 

OIFEoCNT 

SAVE  R/QV  IN  VeCTAB  FOR  W-MATRIX  UPDATE 

0420 

REF 

3 

LAST 

784 

37,3265 

00340  0 

a/MATFLAG 

0421 

ref 

1 

37,3266 

17270  1 

N0SAVE2 

0422 

REF 

2 

LAST 

784 

37,3267 

06117  0 

store 

VECTAB  +6,1 

0423 

37,3270 

65174  0 N3SAVE2 

AXLii 

XCHXx2. 

SET  UP  ALPHAM  AND  SCALEA 

0424 

37,3271 

00023  0 

19D 

SCALE  for  R/QV 

0425 

REF 

5 

LAST 

786 

37,3272 

02207  0 

scalfb 

SWAP  SCALEB  AND  X2 

0426 

37,3273 

521 3.4.  0 

-5XA.2 

_ 

0A27  REF  3 LAST  785  07.3274  02206  1 SCALfA 

0428  REF  2 LAST  785  07,3275  17132  1 ACCOMPZ 


ENTRY  IF  UNIT(ALPHAV)  AVAILABLE 
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L orbital  integration  program 


USER'S  OWN  PAGE  NO.  I3  S3 


P0A29  THe  GMODeli  ROJTINF  SETS  UP  THE  SUNS  Dl ST JRBIN5  ACCFLfRAT 1 OV. 


0A30 

0A31 

Oa32 

REF 

ref 

7 

1 

LAST  77O 

37.3276 

37.3277 

451A4 

02227 

1 

1 

GMoDEll 

_XC,2 

CaLLI 

PgOOY 

AOOTnFU 

set  x2  to  table  oF  proper  Constants 

0A33 

37,3301 

77624 

1 

call 

baricenter-to-sun  position  vector. 

0A3A 

REF 

1 

37,3302 

17737 

1 

sJNPns 

LEAVES  VECTOR  IN  PDL 

0A35 

37,3303 

76750 

1 

-XA,i 

VLOAo# 

COMPUTE  -R/PS  USING  CORRECT  TABLE  FOR 

0A36 

ref 

11 

LAST  787 

37,3304 

02205 

1 

DIFEQCNT 

MASS  RATIO,  ETC. 

0A37 

ref 

3 

LAST  78^ 

37,3305 

02117 

1 

VECTAB  *6.1 

0A38 

37,3306 

53357 

0 

VXSCw 

VAD 

0A39 

37,3307 

77770 

1 

8,2 

USE  SCALAR  AT  ENTRY  6 IN  THE  TA3LF 

OAAO 

37,3310 

66170 

1 

AXT.l 

SXA,, 

OAAl 

37,3311 

00034 

0- 

280 

0AA2 

REF 

6 

last  787 

37,3312 

02207 

0 

SCALES 

SET  SCALES  AND  RETURN  TO  ACCOMP 

0AA3 

REF 

9 

LAST  787 

37,3313 

36061 

0 

5TCALL 

BET  AV 

OAAA 

ref 

3 

LAST-787 

37,3314 

17132 

1 

ACC0MP2  - 

Roaas 

the 

GMODeio  routine 

ADDS  IN  ■ 

IHe  suns 

PeRtJRBINS 

acceleration  and  computes  tHe  oblateness  Contribution 

0AA7 

37,3315 

63144 

0 

GMODEIO 

-XC_t2 

1NCR.2 

0AA8 

REF 

6 

LAST  788 

37,3316 

02227 

1 

PBOOy 

37.3317 

77774 

0 

OEC 

-3 

0A50 

37,3320 

77624 

J.- 

CALL 

0A51 

ref 

2 

LAST  788 

37,3321 

17A34 

1 

AODTnFV 

0A52 

37,3322 

77614 

1 

33LATEST 

30N 

0AS3 

REF 

2 

LAST  77O 

07,3323 

_ -00303  1 

MO-ONfLAG 

0A5A 

REF 

1 

37,3324 

17422 

0 

NBRANCH 

esa'tsaA  YUL  system  for  agc:  revision  o of  program  burstizd  by  nasa  2021106-031 


P0455 

RoA57 

R0A59 

0A61 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 
0.474- 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 
54'86 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 
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orbital  integration  program 


USER'S  own  PAGE  No,  14  S3 


THe  D3LATE  RQUHNf  COMPUTES  THF  ACCfLfRATION  DJf  TO  TRf  EARthS  OBLAtfNfSS.  2T  USES  THE  UNIT  OF  tH_£  VjHHICLi 

position  Vector  found  in  alphav  and  the  distance  to  the  center  in  alpham,  this  is  added  to  the  sum  of  he 

DISTURBING  ACCELERATIONS  IN  FV  AND  THE  PROPER  OIFrO  STAGE  IS  CALLfD  VIA  Xl,. 

07»3325  77745  1 OBLATE  OLOAP 


REF  7 LAST  787  37 

07 

51 


3326 

3327 
3330 


REF  1 

ref  8 LAST  769 


02057  1 
57201  0 
00001  0 


ALPHaV  +4 
SETPD  DMPR 
!L 


Z COMPONENT  OF  POSITION  IS  COS 


3331 

3332 

3333 


17712  0 
63525  0 
02057  1 


REF  1 

ref  1 


3334 

3335 

3336 


3337 

3340 


57252  0 
17710  1 
.41425.  1 
17676  0 
57275  0 


3/4 
3D0L  DS3 

ALPHfl'V  _*4. 

SL3  DMPR 

15/16 

OS'J  PUSH 

3/8 

DMPr  o.mpr 


P2:/8  TO  REGISTER  0 


P3  : /4  TQ  _RE_GI_SJER_  2 


R.EF  9 LAST  789 

ref  1 


REF  1 

REF  10  LAST  789 
REF  1 

RE.F 1__ 

REF  1 


REF  7 LAST  787 


REF  1 

REF  8 LAST  789 


REF  11  LAST  789 
ref  12  last  789 


3341 
3 342 

3343 

3344 


3345 

3346 

3347 

3350 

3351 

3352 


3353 

3354 

3355 


3356 

3357 
3360 


3361 

3362 

3363 


3364 

3365 

3366 


3367 

3370 

3371 


.0205.7.1 
17716  1 
65352  0 
QQOOl  0 
44275  1 
17734  1 
57206  1 
02057  1 
65275  1 
17720  1 
00003  1 
44275  1 
17722  0 
62405  1 
17726  1 
43271  1 
02155  1 
00005  1 
56275  1 
17724  0 
02155  1 
74215  1 
00003  1 
02053  0 
16053  0 


. ...  ftLPHAV 

SLl 

7/12 

PDDL 

0 

P4:/16  TO  REGISTER  4 

DMPR 

BDSJ 

2/3 

PUSH 

DMPR 

BEGIN  computing  P5:/128 

ALPHaV  +4 

DMPR 

PDDC 

9/16 

2 


DMPR  gDSJ  FINISH  P5:/128  AND  TERM  USING  J'NIT 

5/12a POSITION  VECTOR  AT  ALPHA 

DMP  SL2 

J4REQ/J3 

DDV  DAD 

Alpham 

4 

DilPR__ODV 

2J3RF/J2 

Alpham 

DAD  vxsc 

2 

Alphav 

STODL  ALPHAV  
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0A98  07jJi72„  .„  72A.05  0_  iMP  _ _ _SL1  _ _ _ _ COMPUTE  .TERM  USING  IZ 


0A99 

REF 

2 

LAST 

789 

07.3373 

17726  1 

J4REra/J3 

0500 

07.337A 

43271  1 

5DY 

DAD 

0501 

REF 

9 

LAST 

789 

02r3375_ 

XI2155  1 

ALPMaM 

0502 

07.3376 

50525  0 

POOL 

SR3 

0503 

ref 

2 

LAST 

789 

07.3377 

17724  0 

2J3RF/J2 

050A 

. 07.3AOO. 

77675_0l. 

3MPR 

0505 

07.3A01 

43271  1 

30V 

OAO 

0506 

ref 

10 

LAST 

790 

07.3A02 

02155  1 

ALPHAM 

0507 

07.3A03 

77621  1 

3DSJ 

0508 

ref 

13 

LAST 

789 

07.3AOA 

02057  1 

ALPHaV  +4 

0509 

ref 

lA 

LAST 

790 

01.3405 

16057  1 

STOOL 

ALPHAV  +4 

0510 

REF 

11 

LAST 

790 

07,3406 

02155  1 

ALPRAM 

0511 

07.3407 

63516  0 

3S3 

OSO 

0512 

07.3410 

55301  0 

norm 

BODY 

0513 

REF 

6 

LAST 

78S 

07.3411 

00047  1 

XI 

051A 

ref 

1 

07.3412 

17714  0 

J2RED5Q 

0515 

07.3413 

62161  0 

vxsc 

INCR.I 

0516 

REF 

15 

LAST 

790 

07,3414 

02053  0 

ALPRaV 

0517 

07,3415 

00004  0 

0518 

07,3416 

53257  1 

VSL* 

VAD 

SHIFTS  left  on  ♦, 

RIGHT  ON 

0519 

07,3417 

Z020L  0_ 

0,1 

0520 

REF 

2 

LAST 

787 

07,3420 

02103  1 

Fv 

0521 

REF 

3 

LAST 

790 

07,3421 

02103  1 

STORE 

Fv 

0522 

07,3422 

72135  0 

NBRANCR 

SLOAO 

LXA.1 

0523 

REF 

12 

LAST 

788 

07,3423 

02206  1 

DIFEQCNT 

052A 

REF 

292 

LAST 

7A0 

07,3424 

00144  0 

MPAC 

0525 

07.3425 

73205  1 

OMP 

caoTD 

0526 

ref 

1 

07.3426 

16777  1 

-1/12 

0527 

ref 

293 

LAST 

790 

07.3427 

00145  1 

MPAC 

0528 

ref 

1 

07,3430 

. 17431  1 

OlFEnTAB 

0529 

REF 

1 

07,3431 

17526  0 

OIFEQTAB 

:adr 

OIFEO+0 

0530 

REF 

1 

07,3432 

17532  0 

CAOR 

DlFEo+l 

0531 

ref 

1 

07,3433 

17543  0 

CADR 

OlFEra+2 

0532 

07.3434 

77743  1 

AODTOFY 

3L0A0» 

SETS  UP  SI  ANO  S2 

PER  PRIMARY  33OY  TABLE 

0533 

07,3435 

77776  1 

0,2 

053A 

ref 

27 

LAST 

78* 

07,3436 

24051  0 

STOVL 

51 

0535 

07,3437 

00027  1 

220 

0536 

07.3440 

73670  1 

KAO.1 

VXSC* 

0537 

ref 

28 

LAST 

790 

07,3441 

00050  1 

SI 

0538 

07,3442 

77775  1 

1.2 

0539 

07,3443 

53257  1 

\/AD 

05A0 

01.3444 

20240  0 

310.1 

05A1 

ref 

LAST 

790 

07,3445 

02103  1 

Fv 

05A2 

REF 

5 

LAST 

79O 

37 1 

02103  1 

STORE 

Fv 

05A3 

07,3447 

_7T6i6  A 

lTC(i 
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PObAA  BEGIN  INTEGRATIDN.  SJ_£L?.JiLtl_e^CT.I£lC:ATION  AtS.-L._ _ , 


05A5 

07.3A5O 

17775 

1 

T IMEsTEP 

i/LOAO 

MOYE  temporary  DELTA  AND  NU  VECTORS 

05A6 

ref 

2 

LAST 

766 

D7.3A51 

02023 

1 

TNJ^/ 

TO  working  STORAGE 

05A7 

REF 

1 

07,3A52 

ZtlZl 

I 

STOYL 

2Y._  _ _ . . 

05A8 

ref 

2 

LAST 

766 

07.3A53 

02015 

1 

TOELTAV 

05A9 

REF 

1 

07.3A5A 

0221A 

1 

STORE 

YY 

0550 

37,3A55 

A5-2A6 

0 

abyal 

05J 

rectification  REQUIRED  IF  THE  Ls-MiTH 

0551 

REF 

A 

LAST 

766 

07.3A56 

17730 

0 

OPl/2 

OF  delta  is  greater  than  .5  (8<M). 

0552 

D7,3A57 

A50A0 

1 

3MN 

CALL 

0553 

REF 

1 

37.3A60 

17A62 

1 

INTSbATE 

055A 

ref 

2 

LAST 

772 

07.3A61 

17500 

1 

RECTIFY 

0555 

07.3A62 

66331 

0 

intgrate 

SSP 

SSP 

INITIALIZE  indices  AND  SWITCHES 

0556 

ref 

1 

D7j3A63 

02171 

1 

FBRANCH 

EXIT  FROM  DIFEQCOM 

0557 

REF 

1 

D7.3A6A 

16551 

1 

CADR 

FBR3 

0558 

REF 

2 

LAST 

783 

07.3A65 

02172 

1 

HBRAmCH 

EXIT  FROM  XEPLER 

0559 

REF 

1 

37.3A66 

17101 

1 

CADR 

POSTRUE 

0560 

37.3A67 

7761A 

1 

CLEAR 

0561 

REF 

1 

37.3A70 

00261 

1 

JSWITCH 

1 FOR  W MATRIX  EXTRAPOLATE,  0 OTHERWISE. 

0562 

37.3A71 

nii3 

1 

3IFEQ0 

yloao 

POSITION  deviation  INTO  ALPHA 

0563 

REF 

2 

LAST 

79l 

37,3A72 

022IA 

1 

YY 

056A 

REF 

16 

LAST 

790 

37.3A73 

16053 

0 

STODL 

ALPHaV 

0565 

ref 

1 

37.3A7A 

17732 

1 

OPZERO 

0566 

REF 

2 

LAST 

776 

37.3A75 

02165 

1 

store 

H 

START  H AT  ZERO.  GOES  0 (DELT/2 ) 3ELT. 

0567 

ref 

13 

LAST 

79O 

37.3A76 

36206 

0 

5TCALL 

DlFEnCNT 

ZERO  DIFEQCNT  AND  REGISTER  FOLLOWING. 

0568 

ref 

LAST 

79i 

37,3A77 

02171 

i 

HBRANCH 

GOES  0(-12D) (-2AD) . 
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L orbital  integration  5,:toGRAM  USER’S  owN  PAGE  NO.  17  S3 

P0569  the  rectify  SUBROUIInI  is  CALLEO  by.  THE-_I'(IEGRAU3N-J?.R0GJRA.M  anD.^QCCASLOnALLY  by  the -MEASUREMENT  I-NCORPOtATIOn 
R0571  ROJTHES  to  ESTABLISH'  A NEW  CONIC. 


0572 

37,3500 

40575 

1 

rectify 

yLoao 

YSR8 

RECTIFY  - Form  total  position  A\iO  vel. 

0573 

REF 

3 

LAST 

791 

.37,3501 

02015 

1 

TDELtAv 

AOjUST  SCALE  OlFFERENCE  (ASSUMeO  . . 

057A 

37,3502 

53342 

1 

YSR2 

VAD 

CONSTANT  HERE.) 

0575 

REF 

LAST 

784 

37,3503 

02031 

1 

RCY 

0576 

REF 

14 

LAST 

783 

37,3504 

02001 

1 

STORE 

RRECT 

0577 

REF 

5 

LAST 

792 

37,3505 

26031 

1 

5T0YL 

RCY 

SET  UP  CONIC  .ANSWER,  FOR  TIMEStE® 

0578 

ref 

3 

LAST 

79l 

37,3506 

02023 

1 

TNJ>/ 

0579 

37,3507 

. 53202 

1 

YSR8  . 

YAD 

same  FOR  VELOCITY. 

0580 

REF 

2 

LAST 

777 

37,3510 

02037 

1 

YCY 

0581 

REF 

6 

LAST 

783 

37,3511 

02007 

1 

store 

YRECt 

0582 

37j3512 

66370 

0 

AXT,1 

SSP 

0583 

37,3513 

00014 

1 

120 

ZERO  OELTA,  NU,  AND  TIME  SINCE  RECT. 

058A 

REF 

29 

LAST 

790 

37,3514 

00051 

0 

Si 

0585 

37.3515 

00002 

P 

2 

0586 

REF 

3 

LAST 

792 

37,3516 

16037 

1 

STOOL 

YCv 

0587 

ref 

2 

last 

79l 

37,3517 

17732 

1 

OPZEoO 

0588 

ref 

3 

LAST 

776 

37j3520 

02045 

.1 

STORE 

TC 

0589 

ref 

13 

LAST 

783 

37,3521 

02051 

1 

STORE 

XXEP 

ZERO  X. 

0590 

REF 

3 

last 

791 

37,3522 

06230 

0 

ZEROLODP 

STORE 

YV  .120,1 

INDICES  CAUSE  LOOP  TO  ZERO  6 CONSECUTIVE 

0591 

REF 

4 

LAST 

792 

37,3523 

06031 

0 

STORE 

TOELtAV  .120,1 

DP  NUMBERS  (DELTA  AND  NU  ARE  ADJACENT), 

0592 

37,3524 

43500 

0 

TIX,1 

ITCO 

LOOP  OR  start  integration  step  if  done. 

0593 

ref 

1 

37,3525 

17522 

1 

ZEROI  OOP 
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P059A 

THE 

three  DiF£3._EL0UTi  mE 

S - D1FEU*0>  D1FE3*12,  AmD  DiFEQ*24  - Are 

FnXEREDTO  PROCESS.  The  COmTrlBU-TI^O^  *T  XhE__. 

R0596 

0598 

0599 

BEG 

bef 

INHING,  middle, 
6 LAST  790 

AHD 

07 

07 

end  of 

,3526 

.3527 

the  timeste^*.  respecth/ely.  thf  updating  is  done  by  the  nystrom  Method, 

64575  1 OlFEQ+0  i/LOAO  YSR3 

02103  1 FY 

0600 

REF 

1 

07 

,3530 

36067 

0 

STCALL 

PHIY 

0601 

REF 

1 

07 

,3531 

17635 

1 

OIFEnCOM 

0602 

07 

f3532 

74575 

0 

DlFEQ.l  YLOAO 

YSRl 

0603 

ref 

7 LAST 

793 

07 

,3533 

02103 

1 

FY 

0604 

07 

.3534 

53206 

0 

2USH 

VAO 

0605 

bef 

2 LAST 

793 

07 

♦ 3535 

02067 

1 

PHlY 

0606 

REF 

1 

07 

.3536 

26075 

1 

STOVL 

PSIY 

0607 

07 

♦ 3537 

53362 

0 

YSRl 

YAO 

_ _ 06oa 

REF 

3 last 

793 

07 

♦ 3540 

02067 

1 

phiy 

0609 

REF 

4 LAST 

793 

07 

♦ 3541 

36067 

0 

STCALL 

PHIY 

0610 

REF 

2 LAST 

793 

07 

♦ 3542 

17635 

1 

OIFEnCOM 

. 061L  ^ 

07, 

.3543 

57345 

DIFEQ+2  DLOAO 

DMPR 

0612 

REF 

3 LAST 

791 

07 

♦ 3544 

02165 

1 

H 

0613 

REF 

1 

07 

♦ 3545 

17734 

1 

0P2/:i 

0614 

07 

♦ 3546 

74206 

0 

3USH 

Yxsr 

0615 

ref 

5 LAST 

793 

07 

♦ 3547 

02067 

1 

PHIY 

0616 

07 

♦ 3550 

53372 

1 

YSLl 

YAO 

0617 

ref. 

2 LAST 

791 

07 

♦ 3551 

02222 

1 

zv 

0618 

07 

♦ 3552 

53361 

0 

YXSC 

YAO 

0619 

ref 

4 LAST 

793 

07 

♦ 3553 

02165 

1 

H 

0620 

REF 

4 LAST 

792 

07 

♦ 3554 

02214 

1 

YY 

0621 

REF 

5 LAST 

793 

07 

♦ 3555 

26214 

1 

STOYL 

YV 

0622 

ref 

8 LAST 

793 

07 

♦ 3556 

02103 

1 

Fy 

0623 

07 

♦ 3557 

53322 

1 

YSR3 

YAD 

0624 

REF 

2 LAST 

793 

07 

♦ 3560 

02075 

1 

PSIY 

0625 

07 

♦ 3561 

76561 

1 

YXSC 

YSLl 

0626 

07 

♦ 3562 

43055 

0 

YAD 

BoFF 

SEE  IF  THIS  IS  STATE  VECTOR  OR  Y COLUMN. 

0627 

ref 

3 LAST 

793 

07 

♦ 3563 

02222 

1 

ZY 

0628 

REF 

2 LAST 

79l 

07 

♦ 3564 

00341 

1 

JSWifCH 

0629 

ref 

1 

07 

♦ 3565 

17605 

1 

enostate 

0630 

07 

♦ 3566 

77770 

1 

AXT.l 

0631 

07 

♦ 3567 

00000 

1 

0 

0632 

REF 

1 

07 

♦ 3570 

12341 

1 

STORE 

W +72D.2 

VELOCITY  COLUMN  VECTOR 

06321 

07 

♦ 3571 

77745 

1 

DLOAO 

0633 

ref 

6 LAST 

793 

07 

♦ 3572 

02214 

1 

YY 

0634 

REF 

2 LAST 

793 

07 

♦ 3573 

12275 

1 

store 

W +36D.2 

POSITION  COLUMN  VECTOR 

0635 

07 

♦ 3574 

52104 

0 

TlX.2 

GOTO 

#*#***##** 

0636 

ref 

1 

07 

♦ 3575 

17577 

1 

NEXTrOL 

0637 

ref 

2 LAST 

770 

07 

♦ 3576 

02204 

0 

STEPEXIT 
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0638 

07 13571 

_ 77773  L 

mExtcol  y-LOAo* 

. -SE-T  UP  NEXL_ columns  OF  W MATRIX.,  .. 

0639 

REF 

3 

LAST 

793 

07.3600 

75502  1 

W *360.2 

0690 

REF 

7 

LAST 

793 

07.3601 

32219  1 

stovl* 

Yv 

0691 

ref 

9 

LAST 

79“* 

_ _ 07.3602 

J5916_A 

W ♦770.2 „ 

0692 

REF 

LAST 

793 

07.3603 

36222  0 

stcall 

ZV 

0693 

REF 

1 

07.3609 

17971  0 

OlFEnO 

0699 

REF 

4 

LAST 

792 

37.3605 

26023  1 

ENOSTATE  STOVL 

TNJV 

0695 

REF 

8 

LAST 

799 

D7  *3606 

02219  1 

Yv 

0696 

REF 

5 

LAST 

793 

07.3607 

16015  1 

STOOL 

toeCtav 

0697 

ref 

5 

LAST 

793 

_ 07.3610 

021 65_  1 

H 

0698 

01,3611 

69902  0 

5R9 

SR2R 

0699 

37.3612 

77615  0 

3AD 

0650 

ref 

4 

LAST 

792 

37.3613 

02095  1 

TC 

0651 

ref 

5 

LAST 

799 

37.3619 

02095  1 

store 

TO 

0652 

37.3615 

77019  1 

30FF 

AXT.7 

0653 

REF 

9 

LAST 

787 

37.3616 

00390  0 

6MATFLAG 

0659  . 

REF 

3 

LAST 

793 

37.3617 

02209  0 

STEPFXIT 

0655 

37.3620 

00099  1 

360 

0656 

07.3621 

76131  fl_ 

5SP 

AXT.1 

0657 

ref 

17 

LAST 

78«> 

07.3622 

00052  0 

S2 

0658 

07,3623 

00006  1 

6 

0659 

REF 

1 

07.3629 

17655  1 

oow.. 

0660 

07.3625 

66130  0 

5XA.1 

5XA.1 

0661 

REF 

2 

LAST 

791 

37.3626 

02170  0 

fbranch 

0662 

REF 

9 

LAST 

791 

37.3627 

02171  1 

HBRANCH 

0663 

37.3630 

76019  0 

INVERT 

AXT  .1 

0669 

REF 

3 

LAST 

793 

37.3631 

00161  1 

JSWITCH 

0665 

07.3632 

130000^1 

0 

0666 

07.3633 

77650  1 

50TO 

0667 

REF 

2 

LAST 

793 

37.3639 

17577  1 

NEXTrOL 
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P0668  COMES  HERE.-TQ  FlNjm_r  LR5_T  _TWa  .D-LEE£L_CQMRJJTATXDN5_, 


0669 

0670 

0671 

REF 

8^ 

7 

6 

last 

LAST 

777 

79A 

37.3635 

37.3636 

37.3637 

43345  1 OlFEOcDM 
02163  1 

02165  1 

3LOA0  oad 

DT/2 

dL 

increment  h and  dIFEQCNT. 

0672 

37.36A0 

66110  1 

INCR.I  SXA.1 

0673 

37.36A1 

77763  0 

3EC  -12 

067A 

REF 

lA 

LAST 

791 

37.36A2 

0_22Q5_J  _ 

DIFEoCNT 

DIFEOCNT  SET  FOR  NEXT  ENTRY. 

■ 0675 

ref 

7 

LAST 

79S 

37.36A3 

02165  1 

store  h 

0676 

37.3644 

74561  0 

YXSC  YSRl 

0677 

REF 

9 

LAST 

793 

37.3645 

02103  1 

FY 

0678 

37.3646 

74255  0 

yAO  yxsc 

0679 

REF 

5 

LAST 

79A 

37,3647 

02222  1 

Zv 

0680 

ref 

8 

LAST 

79S 

37,3650 

02165  1 

H 

0681 

37.3651 

77655  1 

yad 

0682 

ref 

9 

LAST 

79A 

37,3652 

02214  1 

YV 

0683 

REF 

17 

LAST 

791 

37,3653 

36053  1 

STCALL  ALPHaV 

068A 

REF 

3 

LAST 

79A 

37.3654 

02170  0 

FBRANCH 
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L 

P0685 

ORBITAL 

orbital 

integration  370GRAM 
routine  For  £<TRAPOLAlIuN  of 

the  )) 

matrix,  it  computes  the 

USER'S  OWN  page 

second  Derivative  of  i 

NO.  21 
EACH  column 

S3 

POSITION 

R0687 

R0689 

0691 

VECTORi 
USES  A 

of  the  matrix  and  calls  the  NYStROM- 
table  of  vehiC'.e  Position  vectors  Ci 

_ 07.3655  50575  0 D3l 

integration 
OMPUTEO  DURIN 

Routines  to  solvethe  differential 
G the  integration  of  tHe  Vehicles 

EQUATIONS,  the  PROGRAM 

position  and  Velocity, 

0692 

REF 

18 

LAST 

795  07,3656 

02053 

0 

ALPHflV 

0693 

07.3657 

53513 

0 

PDVL* 

unit 

069A 

REF 

LAST 

78B  _ 07.3660  _ 

02111 

1 . 

VECTaB.I 

0695 

07.3661 

96315 

1 

PDVL 

VPRO'i 

0696 

ref 

19 

LAST 

796  07.3662 

02053 

0 

alphav 

0697 

_ v xsc_  _ 

0698 

REF 

1 

07.3669 

17700 

0 

3/16 

0699 

07.3665 

91325 

0 

PDDL 

OMP 

0700 

07.3666 

00093 

0 

390 

0701 

07.3667 

00095 

0 

360 

0702 

07.3670 

95591 

0 

v/sc 

STAOo 

0703 

REF 

10 

LAST 

79T> 0'7».367X  __ 

41679 

1 

STCALL 

Fit 

070A  REF  2 LAST  78B  D7*3672  17A22  0 NBRAmCH 
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L ORBITAL  integration  PROGRAM  USER'S  OWN  PAGE  NO.  22  S3 

MI05 CONST- ANI5 


0706 

07.3673 

00000  1 

<EPSIL3N 

3CT 

00000 

0707 

37,3674 

00002  0 

OCT 

00002 

0708 

37,3675 

14000  1 

THREE/B 

2DEC- - 

.375  - - - - 

C0708 

07,3676 

00000  1 

0709 

37,3677 

06000  1 

3/16 

2DEC 

3 B »4 

C0709 

37.3700 

-00000-1- 

0710 

37,3701 

10000  0 

D = l/4 

2DEC 

.25 

' C0710 

37,3702 

00000  1 

0711 

37,3703 

12525  0 

DAl/3 

2DEC 

.333^33333  _ ^ _ _ 

C0711 

37,3704 

12525  0 

0712 

REF 

4 LAST  778 

07,3701 

D3UARTER 

equals 

OPl/4 

0713 

37j3J705 

02000  0 

P3S1/16 

2DEC 

.062s 

C0713 

37,3706 

00000  1 

0714 

REF 

5 LAST  797 

07,3701 

P3S1/4 

equals 

OPl/4 

0715 

REF 

2 last  786 

07,3J)75 

3/8 

equals 

THREf/8 

0716 

37,3707 

36000  1 

15/16 

2DEC 

15.  B -4 

C0716 

37,3710 

00000  1 

0717 

37,3711 

30000  1 

3/4 

2DEC 

3.0  B -2 

C0717 

37,3712 

00000  1 

0718 

37,3713 

12577  1 

J2REQS3 

2DEC 

.335914874  SECOND  HARMONIC  TIMES  SIJUARE  OF  RADIUS. 

C0718 

37,3714 

24106  0 

0719 

37,3715 

22525  0 

7/12 

2DEC 

.5833333333 

C0719 

37,3716 

12525  0 

07J0 

37,3717 

22000  1 

9/16 

2DEC 

9 B _4 

C0720 

37,3720 

00000  1 

0721 

37,3721 

01200  1 

5/128 

2DEC 

5 B _7 

C0721 

37,3722 

00000  1 

0722 

37,3723 

77711  0 

2J3RE/ J2 

2DEC 

-.005309146 

C0722 

37,3724 

71033  1 

0723 

37,3725 

23377  0 

J4RE0/J3 

2D£C 

.60932709 

C0723 

37,3726 

06703  0 

0724 

37,3727 

20000  0 

DRi/2 

2DEC 

.5 

C0724 

37,3730 

00000  1 

0725 

37,3731 

00000  1 

DPZERO 

2DEC 

0.0 

C0725 

37,3732 

00000  1 

0726 

37,3733 

25252  0 

DP2/3 

2DEC 

• 666A.666667 

C0726 

37,3734 

25253  1 

0727 

REF 

2 LAST  793 

07,3733 

2/3 

equals 

DP2/3 

633ii36A 

yul  System  for  *gc: 

REVISION 

0 OF  program  BuRST123  3Y  NASA  2021106-031 

DEC  7.  1967  (MAIN) 

pA&E  798 

L 

ORB1T9L  integration 

program 

USER'S  OWN  page  NO,  23 

S3 

P072B 

DUMMYtOOfj  position  BO'JTLnE*-; 

position 

1 ROUTImE.  AmD  PB3DY  TABLE  F3k 

CHECKOUT  OF  EArTH-ORBiTAL  OnLY. 

0730 

0731 

REF  1 

37.3735 

37.3736 

93575  1 
17799  0 

M30NP0S  vLOAO 

iTCa 

vIOONv/EC 

LOAD  constant  VECTOR  INTO  A AN3 

Exit. 

0732 

0733 
073A 

REF  1 

37.3737 

37.3790 

37.3791 

77201  1 
00001  0 
17797  0 

SJNPOS  setpo 

VLOAn 

0 

5JNVFC 

RETURNS  WITH  VECTOR  IN  VAC  AND 

IN  PDL. 

0735 

37.3792 

77616  0 

1TC3 

0736 

0737 

37.3793 

37.3799 

00006  1 
00000  1 

EARThTAB  3EC 
20EC 

6 

0.0 

C0737 

0738 

0739 

37.3795 

37.3796 

37.3797 

00000  1 
00012  1 
00000  1 

3EC 

_ -2CEC  _ 

10 

0.0 

C0739 

07A0 

C0790 

37.3750 

37.3751 
37^752 

00000  1 
00000  1 
00000  1 

2DEC 

0.0 

07A1 

0792 

C0792 

37.3753 

37.3759 

37.3755 

77793  1 
29219  0 
11299  0 

3EC 

20EC 

-28 

• &33c;627 

28  3/2 

900/SQRT (MU) 

0793 

0799 

REF  9 LAST  77& 

REF  ' 5 LAST  79» 

07.3793 

07.3796 

'130NVEC  EQJALS 
SJNVEC  EQOAlS 

EARTuTAB 
EARTmTAB  +3 

6331,36^  YUL  SYSTEM  FOR  ^GC!  REVISION  0 OF  PROGRAM  BURST12D  6Y  NASA  2021106-031 
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L LMP  command  ROJTINES  USER'S  OWN  PAGE  NO.  1 S3 

ROOOl  THf  FQLL0WIM5'  SUBROUTINES  ALLOW  MISSION  PROGRAMS  TO  RFoUfST  LMP  (LEM  MISSION  PROGRAMMER)  OUtPJtS. 

R0003  the  proper  decimal  code  IS  entered  into  a table  A\(D  from  THFmCE  to  CHANNeU  10  VIA  TARUPT  and  are  included  IN 
Roods  the  downlink. 


R0006 

FOUR  ROUTINES  ARE  PROVIDED: 

AOOOT  

_IC 

_ iLMP 

CALLED  UNDER  FXFC  OR  RUPT.  DFLIVFRS  CODE 

AOOOB  OEC  LMPcODE  AND  RETURNS  IMMEDIATELY. 


A0009  . . _ 2LMP  SAME  AS  ILMP  BUT  TWO  CODES  ARE 


AOOlO 

AOOll 

OEC 

OEC 

LMPCnDEl 

LMPC0DE2 

SENT. 

A0012 

rC 

iLMP+DT 

ASSUMES  called  AS  PART  OF  WAITLIST  TASK. 

A0013 

OEC 

1 MPCoDE 

delivers  LMP  CODE.  DOES  A VARDE-AY  FoR 

aooia 

DEC 

DT 

DT.  AND  then  RETURNS  UNDER  WL  CONTROL, 

A0015  rC  2LMP*DT  same  as  iLMP+DT  but  two  codes  SrNT. 

A0016 OFC  rMPmOEl 

A0017  OEC  LMPCOOE2 

A0018  DEC  DT 

R00185  WARNI  \16  »»»»*  PROGRAMS  UNDER  EXEC  WHICH  CALL  iLMPi  + zLMP  MJaT  FIRST 

R00186  . _ Inhibit  interrupt. ...returns  still  inhibited. 


0019 

5052 

3L0C< 

02 

0020 

REF  212  LAST 

76l 

5052 

50  002  0 

2 LMP 

INDEX 

D 

_ 0021 

5053 

3 0000  1 

CA 

0 

PICK  UP  1ST  CODE 

0022 

REF  213  LAST 

799 

505A 

2A  002  0 

INCR 

Q 

0023 

REF  21A  LAST 

799 

5055 

22  002  0 

uXCH 

Q 

SAVE  2ND  code  ADDRESS  IN  L 

00231 

0002 

lmpgroup 

EQUALS 

2 

00232 

REF  1 

1115 

lmptbase 

equals 

TBASC2 

00233 

ref  1 

1102 

lmpphase 

equals 

PHASE2 

002A 

ref  3 last 

57I 

5056 

0 5063  1 

TC 

STORrOM  -I 

TO  STORE  IN  BUFFER  AND  UPDATE  RDTNTER 

0025 

ref  215  LAST 

799 

5057 

22  002  0 

-XCH 

Q 

RETREIvE  2ND  CODE  ADDRESS  FROM  .. 

0026 

REF  216  LAST 

799 

5060 

50  002  0 

ILMP 

INDEX 

3 

0027 

REF  217  LAST 

5061 

3 0000  1 

CA 

0 

GET  LMP  CODE 

0028 

799 

5062 

2A  002  0 

INCR 

3 

SET  RETURN. 

0029 

REF  35  LAST 

56l 

5063 

6 77A5  0 

AD 

31T1K 

SET  SIGN  TO  SHOW  NEW  COMMAND  IN  BUFFER 

0030 

REF  A last 

33/ 

506A 

51'1A3  0 

STORCOM 

INDEX 

LMPUi 

0031 

REF  22  LAST 

337 

5065 

55'133  0 

ts 

LMPCMD 

INSERT  IN  NEXT  SLOT  IN  BUFFER 

0032 

ref  5 last 

799 

5066 

11'1A3  1 

JPLMPI N 

CCS 

LMPIN 

update  pointer 

633<>36A  YUL  SYSTEM  TOR  AGC;  REVISION  0 OF  PROGRAM  BURST12D  BY  NASA  2021106-031 
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L 

0033 

LMP  COMMAND  1 

RnJl INES 

5067 

1 5071 

0 

TCF 

♦ 2 

USER*S  OWN  PAGE  NO.  2 

S3 

fi03A 

ref  14 

LAST 

543 

5070 

3 7765 

1 

:af 

SEYFN 

0035 

REF  6 

LAST 

799 

5071 

55' 143 

1 

TS 

t'mpin 

0036 

REF  218 

-LAST 

7^99 

5072 

-D  OOQ2J 

rc 

_a 

0037 

REF  219 

LAST 

800 

5073 

50  002 

0 

2LMP+DT 

INDEX 

3 

0038 

5-074 

OQOO 

1 

_CA  0 

PICKJJ-P-  ISlT  -CODE 

0039 

REF  220 

LAST 

800 

5075 

24  002 

0 

INCR 

3 

00i(0 

REF  221 

LAST 

800 

5076 

22  002 

0 

LXCrl 

3 

2ND  CODE  ADDRESS  IN  L. 

00<(1 

REF  4 

LAST 

799 

5077 

0 5063 

1 

TC 

STDRcOM  -1 

STORE  IN  buffer  AND  UPDATE 

pointer 

0042 

5100 

1 5102 

0 

TCF 

+ 2 

0043 

5101 

0 0006 

1 

1LMP*DT 

EXTEND 

SAVE  RETURN  FOR  RESTARTS 

0044 

REF  1 

5102 

23*146 

0 

3XCH 

LMPRFT 

IS  tXCH  IF  from  ABOVE 

0045 

ref  15 

LAST 

31A 

5103 

3 0006 

1 

CA 

3BANX 

0046 

REF  1 

5104 

55*147 

0 

TS 

LMP3RANX 

0047 

5105 

0 0006 

1 

cXTE>iD 

0048 

REF  2 

LAST 

800 

5106 

5 1146 

0 

index 

LMPRET 

0049 

5107 

3 0001 

0 

DCA 

0 

PICK  UP  CODE  AND  DT 

0050 

REF  5 

LAST 

800 

5110 

0 5063 

1 

TC 

STDRCOM  ,1 

GO  TO  STORE  CODE  AND  UPDATE 

pointer 

0051 

REF  1 

5111 

23*150 

1 

lxch 

SAY3T 

SAVE  FOR  restart 

OO52 

REF  ’135 

last 

77P 

5112 

0 4161 

0 

TC 

PHASCHNG 

RESTART  PROTECT  DELAY 

OO53 

5113 

47OI2 

1 

3CT 

4 TOli 

0054 

ref  2 

LAST 

800 

5114 

76627 

0 

-3ENA0R 

SAYDt 

00545 

-REF  2 

LAST 

799 

E2 

EBAN<= 

TBAsf2 

0055 

5115 

05123 

1 

2CADR 

LMPRST 

C0055 

REF  1 

&l  li. 

04062 

l_ 

0056 

REF  3 

LAST 

800 

5117 

3 1150 

1 

:a 

SAY3T 

WAIT  DT  SECONDS 

0057 

REF  5 

LAST 

141 

5120 

0 5704 

1 

rc 

VARDELAY 

0058 

REF  3 

LAST 

800 

5121 

51*146 

0 

lmpexit 

INDEX 

LMPRET 

0059 

5122 

0 0002 

0 

TC 

2 

0060 

REF  2 

LAST 

800 

5123 

3 1147 

1 

lmprst 

:a 

LMP3RANK 

LMP+DT  RESTARTS  COME  HERE 

0061 

REF  16 

LAST 

800 

5124 

54  006 

0 

TS 

BBANX 

AFTER  DELAY, 

0062 

ref  1 

5125 

A -5JL21 

0 

TC 

LMPEXIT 
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L AS206  MISSION  SCHeDUlING  PACKAGE  USER'S  OWN  PAGE  NO.  1 S3 

Roool  thf  followinS'  routines  implfMfnt  thf  mission  schfdji'ing  LOGIC  AS  described  in  chapter  4 OF  THf 

R0003  AS2O6  operations  PLAN,  THe  FOLLOWING  ROUTINE  IS  ENTERED  ONCe  EACH  SeCOND  FOR  MOSp  OF  THe  DURATION  OF  THf 
ROO05  flight,  once  I IFt-OF?  has  occurred,  an  EKLePTIDN  to  this  is  -fHE  TIMe-CRI 


R0006 

RESTART 

GROUP  For 

•USSION  SCHtDULING 

package  is  Group 

3 • 

0007 

31,2000_ 

-3A.N.K..... 

31 

0008 

RLF 

6 

LAST 

335 

E2 

£BANK= 

MTIMcR4 

0009 

REF 

35 

last 

68  7 

_J1  *2000 

3.  6311  1 

mmaint  caf 

three 

LOOP  TO  PROCESS  ALL  FOUR  TIMERS, 

0013 

REf 

40 

LAST 

774 

31,2001 

54  070  1 

viLoop  rs 

Ruptregi 

0014 

REF 

2 94 

LAST 

76l 

31 1.2002 

_50  000  1 

INDEX 

A 

LOOK  AT  TIMER. 

OOlS 

REF 

7 

LAST 

801 

31,2003 

11*164  1 

CCS 

MTIMPR4 

0016 

REF' 

1 

31,2004 

1 2010  0 

TCF 

MCOUNT 

PNZ  - ACTIVE  AND  COUNTING  DOWN. 

0017 

REf 

1 

31.2005 

1 2055  1 

tcf 

MOJE 

♦0  - MISSION  Phase  due. 

0018 

REF 

153 

LAST 

741 

31,2006 

6 7763  1 

AD 

ONE 

NNZ  - FREE  BUT  LOADED  BY  GROUND. 

0019 

31,2007 

4 0000  0 

COM 

-0  - FREE. 

0020 

REF 

41 

last 

801 

31,2010 

50  070  0 

MCOUNT  index 

RUPTREGi 

place  updated  timers  AND  PHASE  RFoISTfRS 

0021 

REF. 

1 

31,2011 

55'174  0 

T5 

MT1MFR4T 

INTO  COPY  buffer  FOR  RESTART  PROTECTION. 

0026 

rEf 

42 

last 

801 

31,2012 

10  070  1 

MDUErET  CCS 

RUPTrEGI 

0027 

REF 

1 

31,2013 

1 2001  0 

TCF 

MLOOP 

0028 

REF 

31,2014 

11*201  1 

M.CHKST  CCS 

STATfCTR 

SEE  IF  POSSIBLY  TIME  FOR  INTERNAL  STATE 

0029 

REF 

1 

31,2015 

1 2034  0 

TCF 

MSTAtEOK 

VECTOR  extrapolation. 

OO3O 

■REF 

36 

LAST 

801 

31,2016 

3 6311  1 

CAF 

THREE 

IF  SO.  DO  UPDATE  UNLESS  WE  ARE  WITHIN  16 

0031 

REF 

43 

last 

801 

31,2017 

54  070  1 

mstateck  rs 

RUPTREGi 

SECONDS  OF  THE  INITIATION  OF  ANr  MISSION 

0032 

ref 

2 

LAST 

210 

31,2020 

4 5343  1 

cs 

L0W4 

PHASE. 

0033 

ref 

44 

LAST 

aOi 

31,2021 

50  070  0 

INDEX 

ruptregi 

0034 

ref 

8 

LAST 

801 

31,2022 

7 1164  1 

MASK 

MTIMFR4 

0035 

31.2023 

0 0006  1 

EXTEND 

0036 

REF 

2 

LAST 

801 

31,2024 

1 2033  1 

3ZF 

MSTATEOK  „1 

BRANCH  IF  PHASE  DUE  WITHIN  16  SECS. 

0037 

REF 

45 

LAST 

801 

31,2025 

10  070  1 

CCS 

RUPTREGI 

0038 

REJ^_ 

1 

31,2026 

1 2017  1 

TCF 

MSTATECK 

00  39 

REF 

1 

31,2027 

3 5633  1 

CAF 

PRI05 

0040 

REF 

26 

LAST 

764 

31,2030 

0 5516  0 

TC 

FlNDuAC 

TO  DO  the  integration. 

0041 

REF 

146 

LAST 

773 

E4 

eban<= 

TDEC 

0042 

31,2031 

02247  1 

2CADR 

STATfINT 

C0042 

ref 

1 

31,2032 

16064  1 

0043 

ref 

1 

31,2033 

3 5204  1 

-1  CAF 

STATECRI 

0044 

REF 

2 

last 

801 

31,2034 

55*201  1 

mstatedk  ts 

STATFCTR 

0045 

ref 

106 

LAST 

800 

31,2035 

0 4161  0 

TC 

PHASCHNG 

0046 

31,2036 

00113  1 

3CT 

OOllA 

0047 

ref 

1 

31,2037 

3 2054  1 

RED03.11  caf 

ISEC 
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L 

AS206  mission  SCHEOU 

liInG  PACKA5E 

user*s  own  page  nO.  2 

S3  E2 

0048 

REF 

116 

LAST  765 

31«2U40 

D 5663 

-1 

rc 

-WAilLlST-  - 

0049 

REF 

9 

LAST  801 

E2 

?BAN<= 

MT 1 MER4 

0050 

31,2041 

02000 

0 

2CADR 

MMAInT 

C0050 

REF 

2 

LAST  66 

31,2042 

62062 

1 

0051 

31,2043 

0 0006 

1 

EXTEND 

0052 

REF 

2 

LAST  801 

31,2044 

3 1175 

0 

OCA 

MT IMFR4T 

0053 

REF 

10 

LAST  802 

31,2045 

_ 53*165 

0 

. OXCH 

MJIMER,4 

0054 

31,2046 

0 0006 

1 

EXTEND 

0055 

REF 

3 

LAST  802 

31,2047 

3 1177 

1 

OCA 

MTIMFR4T  *Z 

0056 

ref 

LAST  335 

31,2050 

53*167 

1 

OXCH 

MT I MfR2 

00565 

REF 

1D7 

LAST  801 

31,2051 

0 4161 

0 

TC 

PHASCHNG 

00566 

31,2052 

40133 

1 

DCt  . 

0057 

REF 

104 

LAST  76> 

31,2053 

0 5727 

0 

TC 

1 ASCnVER 

DEC 


0081 


3l«205A  001A4  0 ISEC 


100 
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L AS206  MISSION  SCHEDULING  PACKAGE  USER'S  OWN  PAGE  NO,  3 S3  E2 


P0082 

the 

F OLLOWi  \i o'  coo t f\)G 

DisPATCHFS  OUE  MlSSlOw  PHASES  wiA  A 

TAB-L-E  OF_EX-E_CUT.i.VE_.PH.i-ORiTiES^AMD-  zCAORi.  , ^ 

008A 

ref 

LAST 

801 

31,2055 

3 0070  0 

MDUE 

CA 

RUPTREGl 

0085 

REF 

1 

3L*2.a56  - 

-5-5.' 200  0 

-IS 

MDJETEMP - 

COPY  FOR  restart  PROTECTION 

0086 

ref 

A7 

LAST 

803 

31,2057 

50  070  0 

INDEX 

RJPTrEGI 

GET  number  of  new  PHASE  AnD  MP  3Y  NUMBER 

0087 

REF 

A 

LAST 

335 

31j2060 

3 1170  0 

CA 

MPHASE4 

OF  TABLE  entries  PER  PHASE  TO  3-T  ADORES 

0088 

31,2061 

0 0006  1 

EXTEND 

OF  TABLE  ENTRY  FOR  THIS  PHASE. 

0089 

REF 

1 

31,2062 

1 2410  1 

3ZF 

3AD3MASE 

INACTIVE  MPHaSE  HERE  IS  VERY  BAO. 

0090 

REF 

9 

LAST 

709 

31,2063 

54  764  0 

rs 

phasenum 

HOLDS  current  HP  NUMBER  FOR  DOWlLINK 

0091 

31,2064 

0 0006  1 

EXTEND 

0092 

ref 

37 

LAST 

801 

31,2065 

7 6311  0 

IP 

THREf 

0093 

ref 

1A8 

LAST 

15  A 

31,2066 

50  001  0 

INDEX 

L 

OO94 

REF 

1 

31,2067 

3 2333  0 

CA 

MTA3I  E 

PRIO,  INHIBIT/ENABLE  INFO,,  ETC. 

0095 

ref 

3A 

LAST 

508 

31,2070 

54  071  0 

IS 

RJPTREG2 

0096 

REF 

-15 

LAST 

800 

31,2071 

7 7765  0 

MASK 

SEVEN 

HONOR  INHIBIT/ENABLE  FUNCTION. 

0097 

ref 

19 

LAST 

761 

31,2072 

7 0076  1 

MASK 

FLA3wRD2 

0098 

ref 

295 

LAST 

801 

31,2073 

10  000  0 

CCS 

A 

0099 

REF„ 

-i- 

31,2074 

L Z117  -0 

TCP 

M31PA-SS- 

0103 

REF 

8 

LAST 

759 

31,2075 

3 5660  1 

CAF 

PRI037 

OlOA 

■ref 

35 

last 

803 

31,2076 

7 0071  0 

MASK 

RUPTCEG2 

0105 

REF 

2 

LAST 

683 

31,2077 

54  063  0 

rs 

NEWPRIO 

0106 

31,2100 

0 0006  1 

EXTEND 

0107 

REF 

1A9 

LAST 

803 

3it2l0l 

5 0001  0 

INDEX 

L 

PICK  UP  2^^ADR  and  do  FINDVAC, 

0108 

REF 

2 

LAST 

803 

31,2102 

3 2335  0 

OCA 

MTA3I  E +1 

0109 

REF 

2 

LAST 

68A 

31,2103 

0 5526  0 

rc 

SPVAr 

010905 

REF 

A5 

LAST 

763 

31,2104 

0 4141  1 

TC 

2PHSCHNG 

01091 

31,2105 

00032  0 

OCT 

32 

2.3  SPOT  FOR  REDOMDUE 

010915 

31,2106 

00003  1 

OCT 

3 

GROUP  3 OFF 

01092 

REF 

1 

31,2107 

0 2121  1 

MTIMEDWN 

TC 

MTIMEFIX 

0110 

ref 

‘ 9 

LAST 

7AA 

31,2110 

3 5210  1 

CAF 

PRI030 

0111 

ref 

26 

lAst 

759 

31,2111 

0 5505  1 

TC 

NOVAC 

0112 

REF 

11 

LAST 

802 

E2 

=BANK= 

MTIMFR4 

0113 

31,2112 

02145  0 

2CADR 

JPDATKIL 

C0113 

REF 

1 

31,2113 

62062  1 

OllA 

REF 

9 

LAST 

77P 

31,2114 

0 6076  0 

TC 

FLA52DWN 

0115 

31,2115 

00020  0 

OCT 

20 

01185 

REF 

105 

last 

802 

31,2116 

0 5727  0 

TC 

TASKnVER 

01187 

ref 

2 

LAST 

803 

31,2117 

0 2121  1 

M3YPASS 

TC 

Ml IMFFIX 

01189 

REf 

1 

31,2120 

1 2012  1 

TCF 

MoJERET 

0119 

REF 

233 

last 

757 

31,2121 

4 7767  1 

MTIMEFIX 

CS 

ZERO 

0120 

REF 

2 

LAST 

803 

31,2122 

51'200  1 

INDEX 

mojftemp 

MAKE  THIS  MTIMER/MPHASE  PAIR  AVAILABLE. 

0121 

RtF 

12 

LAST 

803 

31,2123 

55'164  1 

TS 

MTIMFR4 
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01215 

RE-F 

3 

LAST 

603 

^3,L.212A 

.51 '200 

1 

XNJ1£X_ 

^JldJElEMP 

01217 

REF 

5 

LAST 

803 

31.2125 

55' 170 

1 

TS 

MPHAsEA 

0122 

REF 

4 

LAST 

boa 

31,2126 

5H200 

1 

INDEX 

MDJETEMP 

01225 

REF 

4 

LAST 

bok  _ 

31.2127 

55'17A 

0 

JS 

Mtl MfRAT 

01227 

REF  222 

LAST 

800 

31,2130 

0 0002 

0 

rc 

3 
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P0I23  RESTART  ROUTIN  E TO  RESCHEDULE  MISSION  PjASE___ 


012A 

0U5 

REF 

10 

LAST 

803 

31»2131 

31.2132 

3 0764 
0 0006 

1 

1 

REDOMDJE  CA 

EXTEND 

PHASENUM 

FIND  PRIO  AND  2CADR  OF 

NEW  MP 

In  table. 

0126 

REF 

38 

LAST 

803 

31.2133 

7 6311 

0 

MP 

THREE 

0128 

ref 

150 

LAST 

803 

31.2134 

50  001 

0 

INDEX 

L 

0129 

REF 

3 

LAST 

803 

31.2135 

3 2333 

0 

CA 

MTA3I  E 

0130 

REF 

9 

LAST 

803 

31.2136 

7 5660 

0 

MASK 

PRI037 

0131 

ref 

3 

LAST 

803 

31.2137 

54  063 

0 

IS 

NEXPRIO 

0i32 

31.2140 

0 0006 

1 

EXTEND 

0133 

REF 

151 

LAST 

605 

31.2141 

5 0001 

0 

INDEX 

L 

0134 

REF 

4 

LAST 

805 

31.2142 

3 2335 

0 

OCA 

MTA3I  E +1 

0135 

REF 

3 

LAST 

803 

31,2143 

0.  532.6 

0 

rc 

SPYAC 

DO  FINDVAC  WITH  _2CADR 

IN  A.  + 

LI 

0136 

ref 

1 

31.2144 

1 2107 

1 

TCF 

MIIMEDWN 

R0137 

DO  A pseudo  Verb  34 

enter  to 

KILL  AN 

UPDATE 

IN  progress 

. AND  TO  RfLeASe 

the  dsky. 

0139 

REF  1 

31,2145 

3 2373 

1 jpdatkil  CAF 

340CT 

ouo 

REF  10  LAST  283 

31.2146 

54  304 

1 

TS 

REDRFT 

0141 

REF  129  LAST  765 

31,2147 

0 5206 

0 

TC 

bankcall 

0142 

REF  9 LAST  288 

31,2150 

12314 

1 

caor 

JPDAtVB  -1 

0143 

REF  44  LAST  757 

31.2151 

0 5225 

1 

TC 

POST.lUMP 

0144 

' REF  3 LAST  311 

31,2152 

11333 

1 

CADR 

VBTErM 

GOES  TO  ENDOFJOB  WHEN  DONE 
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POIAS  the  F01-L0WlN5-5UBR_0Uj:Ui£_MAY.(iE  _JSED_  3Y._MI_5.SiO.N_PROGRAW5_T3_.SET  HlSSlOji  PHASE/JiMER  PAiRS  TO  InITIAIE 

R0U7  the  various  mission  7HASES  (SEE  CHAPTER  A OF  THE  SSOP). 

R01A8  calling  SEQUENCE  IS  AS  FOLLQhS:  _ 


A01A9 

AOISQ 

A0151 

A0152 

A0153 


rc  MPENtRY  under  control  of  exec  or  rupt. 

OEC  INDEX  INDEX  OF  TIMER  (1  TO  A). 

OEC  Phase  mission  phase  number. 

ADRES  DT  DT  = time  (SECONDS)  TO  INITIATION. 

(EBANK  MUST  ALREADY  BE  SET.) 


015A 

5126 

3L0C< 

02 

0155 

..  5A2.6 

_ 0_  0 0 .0  A 

0 

m=entry 

INHINT 

0156 

REP 

223 

LAST 

80A 

5127 

50  002 

0 

INDEX 

3 

MAKE  INTERNAL  INDEX. 

0157 

5130 

A 0000 

0 

cs 

0 

0158 

REP 

.23 

last 

7A5 

_ . 51.31 

6 7761 

0 

AD 

FOUR 

0159 

REP 

4-8 

LAST 

803 

5132 

5a  070 

1 

IS 

RjPToEGl 

0160 

REF 

2^6 

last 

803 

-M3  3 

50  000 

1 

IND.EX 

A 

IF  this  MISSION  phase  ReGISteR  I&  not 

0161 

REP 

6 

LAST 

80A 

513A 

11'170 

1 

CCS 

MPHASEA 

-0.  IT  HAS  Been  changed  by  the  srdund. 

0162 

REP 

I 

5135 

1 5lAA 

1 

TCF 

mentryt 

so  leave  it  alone. 

0163 

REp 

2 

last 

806 

5136 

1 51AA 

1 

TCF 

MENTHYT 

0l6A 

REP 

3 

LAST 

806 

5137 

1 51AA 

1 

TCF 

MENTRYT 

0165 

REF 

22A 

LAST 

806 

51A0 

50  002 

0 

INDEX 

3 

0166 

51A1 

3 0001 

0 

CAF 

1 

0167 

REP 

A9 

LAST 

806 

51A2 

50  070 

0 

INDEX 

RJPTpEGI 

0168 

REP 

7 

LAST 

806 

51A3 

55'170 

1 

TS 

MPHASEA 

0169 

rep 

50 

last 

806 

51AA 

50  070 

0 

M'nTRYT 

INOEX 

RUPTsEGl 

IF  the  Timer  is  -o.  set  it  to  he  impjt 

0170 

REF 

13 

LAST 

803 

51A5 

11* 16A 

l_ 

CCS 

MTIMfRA 

value,  otherwise,  assume  it  has  been 

0171 

REF 

15A 

last 

801 

51A6 

6 7763 

1 

AD 

ONE 

SET  BY  the  ground  AND  JUST  FORCe  it  P3S. 

0172 

REP 

1 

51A7 

1 5155 

1 

TCF 

MENTaBS 

0173 

5150 

1 51A6 

0 

TCF 

-2 

017A 

REP 

225 

LAST 

806 

5151 

50  002 

0 

INOEX 

3 

0175 

5152 

3 0002 

0 

CAF 

2 

0176 

REP 

297 

LAST 

806 

5153 

50  000 

1 

INOEX 

A 

0177 

515A 

3 0000 

1 

CA 

0 

0178 

REF 

51 

LAST 

806 

5155 

50  070 

0 

McNTABS 

index 

RJPTpEGI 

0179 

REF 

lA 

LAST 

806 

5156 

55* 16A 

1 

TS 

MT I MFRA 

0180 

ref 

39 

last 

805 

5157 

3 6311 

1 

CAF 

Three 

make  up  return  so  common  ROUT! VP  can  be 

0181 

REF 

226 

LAST 

806 

5160 

6 0002 

0 

AD 

3 

USED  TO  INITATE  TIMER  COUNTING. 

0182 

REF 

1 

5161 

55'207 

1 

-1 

TS 

MRETURN 
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P0183 

subrojiTine  to  start 

.•IlSSLOtsl-J 

I LMhRS^ 

TH£.t  AR£„.mDJ__GI1IN.C 

i .Already, 

Ol8A 

REF 

20 

LAST 

803 

5162 

3 0076  0 

MSTART 

:a 

FLA3WRD2 

SEE  IF  TIMERS  ENABLED  ALREADY, 

018S 

ref 

?8 

LAST 

596 

5163 

7 7757  1 

MASK 

BITS 

0186 

REF 

298 

LAST 

0 

0 

GO 

5164 

10  000  0 

CCS 

A 

0187 

REF 

I 

5165 

1 5202  0 

rcF 

MDDNf 

YES  - RETURN, 

0188 

5166 

1 5171  1 

rCF 

♦ 3 

there  used  to  Be  a phase  change  Here. 

0189 

ref 

AO 

LAST 

635 

5167 

0 4736  1 

TC 

CCSHOLE 

0190 

REF 

A1 

last 

807 

5170 

0 4736  _1 

TC 

CCSHOLE 

0191 

REF 

7 

LAST 

771 

5171 

0 6060  1 

IC 

FLA3?UP 

SHOW  timers  enabled. 

019_1 

5172 

00020  0 

OCT 

20 

0193 

5173 

0 0004  0 

INHINT 

0197 

REF 

2 

LAST 

801 

5174 

3 5204  1 

caf 

51 ATfCRI 

initialize  State  vector  extrapolation 

0198 

ref 

3 

LAST 

801 

5175 

55'201  1 

TS 

statfctr 

TIMER. 

0199 

rEf 

155 

LAST 

806 

5176 

3 7763  1 

caf 

Oi^E 

0200 

REF 

117 

LAST 

802 

5177 

0 5663  1 

TC 

WAITI  1ST 

0201 

REF 

15 

LAST 

806 

E2_ 

£BANK= 

MT1MFR4 

0202 

5200 

02000  0 

2CADR 

MMAINT 

start  COUNTER  MAINTENANCE. 

C0202 

ref 

3 

LAST 

802 

5201 

62062  1 

02Q3_ 

5202 

0 0003  1 

MDONE 

RELINT 

020A 

■ ref 

2 

LAST 

806 

5203 

0 1207  0 

TC 

MRETlJRN 

0205  _ 

5204 

01033  0 

SIATECRI 

OEC 

539  . . 

calls  for  integration  every  539  SFC. 

02.06 

5205 

00145  1 

lSEC+1 

OEC 

101 
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P0207 

surrdjtine  calls  for 

YARIOUS 

UPUATE  OPllD'JS  tSEE^ 

jSOPL., 

FNTPR  UNDFR 

EXEC  with  interrupt  INHIBITED. 

0209 

31.2153 

3AN< 

31 

0210 

REF 

1 

31.2152 

0 2265  1 

00V70 

,TC  ^ 

UlliltRUP 

, verb  70 

0211 

ref 

2 

LAST 

321 

31.215A 

1 2351  0 

TCF 

ENDUP 

0212 

REF 

1 

31.2155 

0 2221  1 

00V71 

rc 

MPHASEUP 

VERB  71 

0213 

REF 

2 

LAST 

325 

31.2156 

1 2161  1 

TCF 

D0Y77  +2 

021^ 

REF 

2 

LAST 

808 

31.21571 

0 2221  1 

D0V72 

tc 

MPHASEUP 

VFRB  7? 

021'5 

REF 

2 

LAST 

806 

31.2160 

0 2265  1 

TC 

MTIMERUP 

0216 

REF 

3 

LAST 

325 

31.2161 

3 1202  0 

♦ 2 

:a 

JPPH»'SE 

FOR  V72.  WE  DON.T  ALTER  THE  MPHASF 

0217 

REF 

52 

last 

806 

31.2162 

50,  070  0 

index 

RUPTREGl 

REGISTER  UNTIL  SURE  THAT  TIMER  CHANGE 

0218 

REF 

e 

LAST 

806 

31.2163 

55*170  1 

IS 

MPHASEA 

IS  LEGAL. 

0219 

REF 

■ 3 

LAST 

808 

31.216A 

1 2351  0 

TCFENOJP 

TCF 

Endup 
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P0221 

INVFRT  INHIBIT/ENABLE  SWITCH 

whose  INDfX  is  in 

upindfx 

(1  10  3).  FNTER  under  FXfC  with  interrupt  INHI3ITFD. 

0223 

REF 

90  LAST 

745 

31.2165 

4 7762 

1 D3V73 

:s 

T-vD 

0224 

REf 

7 last 

325 

31.2166 

6 1204 

0 

_ _ AC- 

JPlNnEX  - - 

0225 

REF 

9 LAST 

185 

31.2167 

0 4323 

1 

TC 

MAGSUB 

SEE  IF  INDEX  LEGIT. 

0226 

31.2170 

77776 

1 

DEC 

-1 

0227 

REF 

1 

31.2171 

1 2356 

1 

rcF 

JPERrOR 

0228 

REF 

8 LAST 

809 

31.2172 

51*204 

0 

INDEX 

JPINDEX 

0229 

REF 

2.2  LAST 

687 

31.2173 

3 7760 

1 

CAF  ____ 

8_ll3_-l 

BITS  IN  POSITIONS  3.  2.  AND  1 OF 

0230 

REf 

152  last 

805 

31.2174 

54  001 

1 

TS 

L 

FLAGWRD2  (SEE  SwITcH  ASSIGNMENTS). 

0232 

REF 

21  LAST 

807 

31,2175 

3 0076 

0 

:a 

FLA  3wRD2 

023J 

31.2176 

0 0006 

_l 

EXTEND 

0234 

REF 

153  LAST 

809' 

31.2177 

06  001 

0 

9X0R 

ii 

0235 

REF 

22  LAST 

809 

31.2200 

54  076 

1 

rs 

FLAowjRD2 

0236 

REF 

4 LAST 

808 

31.2201 

2351 

0 

TCF 

ENDUP 

R0237 

the 

follqwi MG'  Coding 

ISSUES 

THf  SINGLf 

lmp  Command  found  in 

upindex  provided  tHe  timeRs  aRe  enabled 

P0239 

(Non 

I IMF  critical 

phase  of  MISSION). 

0240 

REF 

23  LAST 

809 

31*2202 

4 0076 

1 03V67 

:s 

FLAGWRD2 

0241 

REF 

29  LAST 

807 

31.2203 

7 7757 

1 

*lAS< 

S1J5 

0242 

REF 

299  LAST 

807 

31.2204 

10  000 

0 

CCS 

A 

0243 

REF 

2 LAST 

809 

31.2205 

1 2356 

1 

TCF 

JPERpOR 

0244 

REF 

25  LAST 

76l 

31,2206 

4 7754 

1 

:s 

eiTs 

command  MUST  Be  BETWEEN  1 AND  255. 

0245 

REF  • 

9 LAST 

809 

31.2207 

6 1204 

0 

AD 

JPINDEX 

0246 

REF 

10  LAST 

809 

31.2210 

0 4323 

1 

TC 

MAGSUB 

0247 

31.2211 

77600 

1 

DEC 

-127 

02^t8 

ref 

3 LAST 

809 

31.2212 

1 2356 

1 

TCF 

JPERROR 

0249 

REF 

1 

31.2213 

3 2220 

0 

CAF 

TCILMP 

0250 

ref 

10  LAST 

809 

31.2214 

55*203 

0 

rs 

JPINDEX  -1 

0251 

ref 

1 

31.2215 

3 2164 

0 

CAF 

TCFEmDUP 

0252 

REF 

11  LAST 

809 

31.2216 

55*205 

0 

TS 

JPINDEX  +1 

0253 

REF 

12  ^AST 

809 

31.2217 

0 1203 

1 

TC 

JPINDEX  -1 

0254  REF  20  last  765  3U2220  0 5060  1 TCiLMP  TC  IlMP  FOR  ERASABLE  CALL. 
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REVISION 
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P0255 

THi- 

TOLLoWlNi  COUlNS 

UPDA.TES  A. 

MISSION  -PHASE 

-NUMBeR-LHQSf 

index  is  in  upindeX-to  ihe  value  found 

R0257 

IN  UP^HASE.  RETURN 

IS  TO  caller  if  data 

D<*  OR  TD  UPeRROR  IF  DATA 

OUT  OF  RANGE. 

0259 

RtF 

227  LAST 

806 

31*2221 

3 0002 

0 

M^HASEJP  CA  - 

3 

0260 

REF 

1 

31*2222 

0 2250 

1 

TC 

Ch< JdDEX 

check  index  value  and  make  internal  NoX. 

0261 

REF 

4 LAST 

808  _ 

- -31  *2223 

11 '202 

1 

CCS 

JPPHaSE 

CHECK- ON  SIZE  OF  PHASE.  - 

0262 

31.2224 

1 2230 

0 

rcF 

0263 

ref 

4 LAsT 

809 

31.2225 

1 2356 

1 

rcF 

JPERrOR 

0264 

ref 

5 LAST 

8 10 

31.2226 

1 2356 

1 

rcF 

UPERROR 

0265 

REF 

6 LAST 

810 

31.2227 

1 2356 

1 

TCF 

UPERROR 

0266 

REF 

11  LAST 

809 

31.2230 

0 4323 

1 

♦ 4 TC 

MAGSUB 

0267 

31.2231 

77756 

0 

dct 

-21 

ALLOW  PHASES  1 - 180  ONLY. 

0268 

REF 

7 LAST 

8IO 

31.2232 

1 2356 

1 

tcf 

UPERROR 

FOR  BAD  return  FROM  MAGSUB 

0269 

REF 

5.  LAST 

blO 

31 .2233 

4 1202 

1 

cs 

upphase  - 

CHECK  legality  of  UPPHASE 

0270 

REF 

18  LAST 

709 

31.2234 

6 6306 

1 

AD 

SIX 

0271 

REF 

3D0  LAST 

809 

31.2235 

10  000 

0 

CCS 

A 

0272 

ref 

8 LAST 

810 

31.2236 

1 2356 

1 

TCF 

UPERROR 

0273 

31.2237 

72400 

0 

MPLEGAL  dct 

72400 

BITS  15  - 1 = 1 FOR  HP  7-21  LEGAL 

0274 

31 .2240 

1 2242 

0 

ICF 

♦ 2 

0275 

ref 

9 LAST 

blO 

31.2241 

1 2356 

1 

TCF 

UPERROR 

0276 

ref 

331  LAST 

810 

31.2242 

50  000 

1 

inoek  a 

0277 

ref 

36  LAST 

799 

31,2243 

3 7745 

0 

CA 

- - -31  TU 

0278 

REF 

1 

31.2244 

7 2237 

1 

MASK 

MPLEr.AL 

0279 

31.2245 

0 0006 

1 

EXTEND 

0280 

ref 

10  LAST 

blO 

31.2246 

1 235S 

1 

3ZF 

UPERoOR 

0281 

REF 

3 LAST 

807 

31.2247 

0 1207 

0 

TC 

MRETIJRN 

R0285 

MINOR  subroutine  TO 

CHECK  mission  TIMeR/PRASE  UPDATE 

INDEX  and  LFAVE  CORRESPONDING  VALUE  IN  RUPTREGi. 

R02B7 

TO  f 

3E  ENTERED  (*lTH 

I NTERRUPT 

INHIBITED: 

0288 

REF 

4 LAST 

8IO 

31.2250 

55'207 

1 

CHKUPDEX  ts 

mreturn 

CALLER'S  return  ARRIVES  IN  A. 

0289 

REF 

13  LAST 

809 

31.2251 

1 1*204 

1 

♦ 1 CCS 

Up  INDEX 

0290 

31.2252 

1 2256 

0 

TCF 

0291 

REF 

11  LAST 

blO 

31.2253 

1 2356 

1 

TCF 

UPERROR 

0292 

REF 

12  LAST 

810 

31.2254 

1 2356 

1 

TCF 

UPERROR 

0293 

REF 

13  LAST 

blO 

31.2255 

1 2356 

1 

TCF 

UPERROR 

0294 

ref 

3 LAST 

418 

31.2256 

7 5340 

1 

♦4  MASK 

NEG3 

0295 

REF 

332  LAST 

810 

31.2257 

10  000 

0 

CCS 

A 

0296 

REF 

14  last 

BlO 

31.2260 

1 2356 

1 

TCF 

.JPERrOR 

0297 

REF 

14  LAST 

810 

31,2261 

4 1204 

1 

CS 

UPI NDEX 

MAKE  internal  VALUE. 

0298 

REF 

24  LAST 

806 

31.2262 

6 7761 

0 

AD 

FOUR 

0299 

REF 

53  LAST 

808 

31.2263 

54  070 

1 

TS 

RUPTrEQI 

0300 

REF 

228  LAST 

810 

31.2264 

0 0002 

0 

TC 

0 
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L AS206  mission  SCHEDULING  PAC<AGE  USER'S  OWN  PAGE  NO.  11  S3  E2 


P030I 

THf 

FOLLOWING'  CODING 

JPOATfS  ■ 

rHF  MISSION 

1 TIMfR 

WHOSf  INDfX 

is  in  UPINDfX  by  adding  THf  CONTfNTa  of  JPDT 

R0303 

TO 

IT.  i 

outcomes  I 

DePENO  on  whether  the  timer  was  c 

iountin 

o AT  the  time 

, AND  the  sign  of  THe  ReSULt  (See  3S0P). 

0305 

REF 

2 79 

last 

810 

31  <2265 

3 .0002- 

0 

_ MU  merjp 

rA 

...  . 

_ . Go  TO  COMMON  SUBROUTINE  TO  SAVE  RETURN 

0306 

REF 

2 

LAST 

810 

31.2266 

0 2250 

1 

TC 

CH< jpDEX 

AND  check  index. 

0307 

REF 

5A 

LAST 

810 

31.2267 

50  070 

0 

index 

RjPTREGl 

SEE  IF  TIMER  IS  COUNTING  NOW. 

0308 

REF 

16 

LAST 

807 

J1 ,2270 

ll.'.164.. 

1 

CCS 

M_TLM£RA 

0309 

REF 

1 

31.2271 

1 2276 

1 

TCF 

TJP3IISY 

POS  INDICATES  IT  IS. 

0310 

ref 

2 

last 

811 

31.2272 

1 2276 

1 

rcF 

TjPSUSY 

0311 

31.2273 

.1  22  74 

0 

NOOP 

0312 

REF 

3 

last 

325 

31,2274 

3 1203 

1 

CA 

JPDT 

IF  NOT  BUSY,  LOAD  WITH  DT  DIRECTLY,  WITH 

0313 

REF 

1 

31,2275 

1 2303 

1 

TCF 

CTRRrS 

NO  CHANGE  TO  THE  MAINTENANCE  FLAG  STATE. 

0316 

REF 

A 

last 

811 

31.2276 

11'203 

0 

TJPBUSY 

CCS 

JPDT 

IF  timer  counting,  SEE  IF  DT  ZERO. 

0317 

_ree^ 

L 

31.2277 

L 

TCF 

CTRAD 

NZ  - DO  ADD. 

0318 

ref 

2 

last 

811 

31,2300 

1 2303 

1 

TCF 

CTRABS 

+0  - Phase  dul  next  maintenance  cycle. 

03.19 

REF 

2 

LAST 

811 

31,2301 

1 2306 

1 

TCF 

CTRAD 

0320 

REF 

23A 

last 

803 

31,2302 

4 7767 

1 

C5 

zero 

IF  -0,  DISABLE  TIMER. 

0321 

REF 

55 

LAST 

811 

31,2303 

50  070 

0 

ctrabs 

INDEX 

RUPTREGi 

03^2^ 

REF 

17 

LAST 

811 

31.2304 

55*164 

1 

IS 

MTIMFR4 

0323 

REF 

5 

LAST 

810 

31.2305 

0 1207 

0 

TC 

MRETiiRN 

Q3t26i  . 

REF 

_L 

31.2306 

0 2314 

0 

CTRAD 

TC 

ctradsub 

0327 

REF 

303 

LAST 

810 

31,2307 

10  000 

0 

CCS 

A 

IF  RESULT  negative  OR  ZERO,  PHASE  DUE 

0328 

REF 

6 

LAST 

811 

31,2310 

0 1207 

0 

TC 

mreturn 

NEXT  MAINTENANCE  CYCLE. 

0329 

REF 

7 

last 

811 

31.2311 

0 1207 

0 

TC 

MRETllRN 

0330 

REF 

235 

LAST 

811 

31,2312 

3 7767 

0 

CAF 

ZERD 

03302 

REF 

3 

LAST 

811 

31,2313 

1 2303 

1 

TCF 

CtRArS 

(THIS  ALONE  REVERTS  -0  TO  +0.) 

03304 

REf 

I AST 

811 

31,2314 

3 1203 

1 

cTRADSjr  rA 

JPDT 

03306 

ref 

56 

LAST 

811 

31,2315 

50  070 

0 

INDEX 

RUPTrEGI 

03308 

ref 

18 

LAST 

811 

31,2316 

6 1164 

0 

AD 

MT1MER4 

0331 

31,2317 

54  000 

0 

DVSK 

03312 

31,2320 

1 2322 

1 

TCF 

+ 2 

NO  OVERFLOW  (NORMAL  CASE), 

03314 

ref 

15 

LAST 

810 

31,2321 

0 2356 

0 

TC 

JPERrOR 

IF  OVFLO,  GO  TO  UPERROR  WITH  TIMER 

03315 

ref 

57 

LAST 

811 

31,2322 

50  070 

0 

INDEX 

RUPTREGI 

UNCHANGED. 

03316 

ref 

19 

LAST 

8ll 

31,2323 

55' 164 

1 

T5 

Ml  1 MFR4 

03318 

ref 

230 

LAST 

811 

31,2324 

0 0002 

0 

rc 

D 

9 
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AS206  MISSIO^ 

1 Scheduling  packa 

iGE 

USER'S  OWN  page  no.  12 

S3  E2 

P0332 

the 

FoLLOWI'li  COUlNG_ 

Is  tHe 

same  AS^_MTlMrRJP  BUJ  ACCEPTS  DP 

-Get  -IN  UPGET  (See  gsop). 

W 

O33A 

REF 

77 

LAST 

780 

31*2325 

0 6112 

0 

MoETUP 

TC 

INIPoET 

MAXE  sure  this  entered  WITH  VAC  AREA. 

9 

0335 

31,2326 

44234 

1 

RTB 

3DSJ 

TIME  IN  CS. 

0336 

REF 

4 

LAST 

73s 

31,2327 

33454 

1 

LDADtIME 

J 

0337 

ref 

2 

LAST 

325 

31»2330_ 

01206 

1 

JPGFT 

0338 

31,2331 

54205 

1 

3MP 

SL 

convert  to  sec  6 MOVE  TO 

MAJOR  PART. 

0339 

ref 

1 

31,2332 

22372 

1 

1/130 

J 

03<(0 

31,2333 

_20217 

1 

0341 

31,2334 

50004 

0 

30VB 

3MN 

0342 

ref 

16 

LAST 

811 

31,2335 

62356 

0 

JPERPOR 

• 

0343 

REF 

17 

LAST 

Ell 

. „31j2336 

62355 

0 

JPERROR  .1 

(DOES  -AN-EX-I-T.J  . 

.0344 

31,2337 

77776 

1 

EXIT 

9 

0345 

31,2340 

0 0004 

0 

INHINT 

0346 

REF 

30 

LAST 

809 

31,2341 

3 7757 

0 

CA 

3IT5 

insure  that  maintenance 

IS  still  enabled 

0347 

ref 

24 

LAST 

809 

31,2342 

7 0076 

1 

MAS< 

FU13liRD2- 

0348 

31,2343 

0 0006 

1 

EXTEND 

0349 

REF 

18 

LAST 

812 

31,2344 

1 2356 

1 

3ZF 

JPERrOR 

O35O 

REF 

3 

LAST 

811 

31,2345 

0 2251 

0 

rc 

chxjpdex  +1 

0351 

ref 

2 94 

last 

790 

31,2346 

3 0144 

0 

;A 

MPAc 

CONTAINS  DT  IN  SECONDS. 

0352 

REF 

58 

last 

811 

31,2347 

50  070 

0 

INDEX 

RJPTREGl 

0353 

REF 

20 

last 

811 

31,2350 

55*164 

1 

rs 

MTIMER4 

INSERT  DT  DIRECTLY  INTO 

timer. 

R0359 

oeneral 

EXIT  location 

1 FOR  SUCCESSFULLY 

completed  jpdatei 

0355 

ref 

236 

last 

811 

31,2351 

3 7767 

0 

ENDUP 

CAF 

ZERO 

TURN  OFF  GROUP  6. 

i 

03552 

ref 

8 

LAST 

682 

31,2352 

0 4246 

0 

TC 

NEnPhASE 

03553 

31,2353 

00006 

1 

dct 

6 

03555 

ref 

39 

LAST 

775 

31,2354 

1 5567 

1 

rcF 

ENDDFJOB 

R0356 

exit 

• FUR 

general  update  errors 

(RANGE 

DF  data. 

ETC.) 

s 

0357 

31,2355 

77776 

1 

-1 

EXIT 

J 

0358 

ref 

5 

LAST 

202 

31,2356 

0 4571 

0 

jaerror 

rC 

FALTON 

0359 

REF 

5 

LAST 

809 

31,2357 

1 2351 

0 

rcF 

ENDUP 

RELINT,  6 ENDOFJOB, 

1 

J 
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L AS206  MISSION  SCHeDU-UNG  PACKAGE  USER'S  OWN  PAGE  NO.  13  S3  E2 

P0361  THf  following  TABLE  SPfCIFIfS  STARTING  LOCATIONS  ANO  PRTORlTiFS  OF  ALL_2H6.  M 1 S_5 1 0_N__PHA,SeS  INITIATED  SY 

Ro363  THe  MISSION  TIMERS  (SaB-LeM  SeP  AND  BEYOND).  IT  AuSo  CONTAINS  INHIBIT/ENABLE  INFORMATION,  ETC.  EACH  ENTRY 
R0365  CONSISTS  OF  THREE  WORDS.  tHe  FIRST  IS  PACKED  WITH  SEVERAL  PIECES  oF  INFORMATION,  AND  THE  SECOND  TWO  CONTAIN  THE 

R0367  ?CaDR  of  THf  LDCAtION  AT  WHICH  THE  PHASE  IS  TO  BeGIN.  THf  INTERPRETATION  OF  WORD  1 IS  AS  FOLLOWS; 


R0369 

BIT15! 

SPARE 

R0i70 

BITS  lA-io: 

JOB  PRIORITY. 

R0371 

BITS  9-5: 

SPARE 

R0372 

BIT4: 

1 IF 

timers  to 

BE  D15A3LED  ON  PHASE  INITIATION. 

■ R0373 

bits: 

1 JF 

RCS  TESTS 

(INHIBIT/ENABLE 

INFO)  . 

R037A 

BIT2: 

1 IF  DPS  COLD  SOaKi 

R0375 

biti: 

1 IF  RCS  Cold  soao 

R0376 

NOTE 

spares  coJLd  Be 

used  For 

Switching 

OOWNLISTS 

, ETC. 

R0377 

PHASES  I - 

s_  are  not 

included 

since  they 

ARe  not  initiated  by 

THe  mission  scheduling  RqUtINfS. 

0379 

31.2360 

20010  1 

MTABLEl 

dct 

200ln 

MP7 

0380 

REF 

147 

LAST  801 

E4 

EBAN<= 

TOEC 

0381 

31  l2361 

02474  1 

2CADR  MP07JOB 

C0381 

REF 

1 

31,2362 

52064  1 

0382 

31.2363 

20012  0 

OCT 

2001? 

MP8 

0383 

REF 

12 

LAST  755 

E3 

£BAN<= 

rateindx 

038A 

31,2364 

02564  1 

2CADR 

MP8J0B 

C038A 

REF 

1 

31,2365 

56063  1 

0385 

31.2366 

20010  1 

OCT 

20010 

MP9 

0386 

REF 

148 

LAST'  813 

E4 

£BAN<= 

TDEC 

0387 

31,2367 

02724  1 

2CA0R 

MP9JnB 

C0387 

REF 

1 

31,2370 

66064  0 

0388 

31,2371 

00243  1 

1/100 

2DEC 

0.01 

MP  10. 

UNUSED  SLOT. 

C0388 

31,2372 

32703  1 

0390 

31,2373 

00034  0 

340CT 

OCT 

00034 

0391 

31,2374 

20010  1 

OCT 

200ln 

MPll 

0392 

REF 

149 

LAST  813 

E4 

EBAN<= 

TDEC 

0393 

31,2375 

02000  0 

2CADR 

MPITiOB 

C0393 

ref 

1 

31,2376 

74064  0 

039A 

REF 

42 

LAST  807 

31,2377 

0 4736  1 

TC 

CCSHOLE 

MP  12. 

unused  slot. 

0395 

ref 

43 

last  813 

31,2400 

0 4736  1 

TC 

CCSHOLE 

0396 

REF 

44 

LAST  813 

31,2401 

0 4736  1 

TC 

CCSHOLE 

0397 

31,2402 

20010  1 

OCT 

2001O 

MP13 

0398 

REF 

150 

LAST  813 

E4 

-BAN<= 

TOEC 

0399 

31,2403 

03114  0 

2CADR 

MPl3'iOB 

C0399 

REF 

1 

31,2404 

56064  0 

OAOO 

REF 

45 

LAST  813 

31,2405 

0 4736  1 

TC 

CCSHnLE 

MP  14. 

unused  slot. 

OAOl 

REF 

46 

LAST  613 

31,2406 

0 4736  1 

TC 

CCSHOLE 

0402 

REF 

47 

LAST  813 

31,2407 

0 4736  1 

TC 

CCSHOLE 

0403 

REF 

1 

31,2333 

MTABLE 

equals 

MTABi  El  -21D 

MP  1-6 

Not  actually  included  in  table. 
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L 

AS206  MISSION  scheduling  PACKAGE 

USER'S  OWN  PAGE 

NO.  14 

S3  E2 

0^04 

REF 

39 

LAST 

66^  _ 

Ji*24j.0_ 

0 ^35-.A 

5ADPha.S£-  t5  . 

._ALAm 

ALARM  WHEN  MPHASE 

Comes  due 

8UI 

MPHASE 

0A05 

31.2411 

00601  0 

OCT 

00601 

register  Is  zero 

(-0  MEANS 

INA; 

IIVE). 

0A06 

REF 

10 

LAST 

80S 

31.2412 

3 5660  1 

CAF 

PRI337 

0407 

REF 

27 

LAST 

BOi 

31.2413 

0 5505  1 

IC 

NOVAr 

0408 

REF 

33 

LAST 

748 

E3 

EBAN<= 

LSTl 

0409 

31.2414 

02007  1 

Fnf?riPTTT 

C0409 

REF 

3 

LAST 

313 

31.2415 

16063  0 

0410 

REF 

106 

LAST 

803 

31.2416 

0 5727  0 

rc 

TASKOVER 
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L 

206  SERVICE  ROUTINES 

USER'S  OWN  PAGE  NO. 

1 

S3 

R0012 

R0013 

ROOIA 

MOD  NO.  00  MODIFICATION 

MOD  NO.  J MODJFICAT.JON 

BY  A. 
BY„D._ 

<OSMALA 

LICKLY 

NOV.  1966 

JAN_.196T  _ _ . 

R0015  »FJ'(CTIONAL  DtSCR  I 5T  ION* 

R0016  the  normal  ENTRY  TO  THf  THRUST  MISSID^I  CONTRJi  PROGRAM  IS  THROUGH  PReR^AD,  PRfRfAO  SCHfPULfS  THe  JoB 

R0018  LAST3IAS,  BOOST  PHASE  ENTERS  THE  PREReAD  ROUTINE  AT  3IBIBIAS,  BYPASSING  THe  LASTBIAS  JOB.  PIPS  ARE  CL-AReD, 

R0020  AVeRASE  g flag  Is  Set.  drift  flag  is  unset.  D\/  monitor  and  findcud  are  initialized,  the  job  NORMLIZe  Ia 

R0022  SCHEDJLED,_  AND  A WAITLIST  CALL  IS  HADE  TO  START  ReAOACCS  -[-wo  SfCONDS.  

R0023  NORMLIZe  PERFORMS  THE  SCALING  AND  INITIALIZATION  REOJIReD  PRIOR  TO  THE  FIRST  ENTRY  TO  AVERAGE  G. 


R0025  in  the  ReADACCS  section,  the  accelerometers  are  Read  by  the  PiPASR  subroutine.  if  the  average  g flag  is 

R0027  SET.  REAqAccS  IS  cAl^SD  TO  RECYCLE  IN  TWO  SECONqS.  IF  ThE  Av/ERAGF  G FLAG  IS  dOwN,  AVERAGE  G EXIT  (AVE3-XIT) 

R0029 LS  Set  FqR  the  final  aaSS,  and  ReADACCS  is  not  CA.LeD  again. __ in  , either  case,,  the  SeRV1.CeR_J0B  is  ESTAS'ISHeO. 

R0031  the  servicer  routine  CHECHS  for  runaway  pips  (DELV  GREATfR  than  3200  PULSES/SeC  for  2 SeC)  and  SENOs 

R0033  A.CaRM  ^DE  205  IF  BaO  PIP  IS  FOOnD.  PiPS  aRE  COMPENSATED  In  1/PiPa  SUBROUTINE.  MaSS  IS  UPDaTED  BY  MaSSMOm 

Ro035  SUBRoJitINe,  ANO  AVeRA&eG  DOeS  the  (NAVIGATION.  THE  AVERAGE  r,  ROUTINE  UPDAfES  RN,  VN,  AND  GDT/2  VeCtoRS,  JSING 

Ro037  THe  subroutine  CaLCRVo.  CONTROL  IS  tHeN  TRANSFERRED  TO  THE  MONITOR  SPECIFIED  BY  DVSeLeCt.  DVSeLeCt  IS  SpT  BY 

Ro039  tHe  boost  PHASE  TO  BOQStMON,  AND  BY  THe  E'^GINeON  ROUTINE  TO  THE  PGNCSMON.  USERS  STARTING  SeRVICER  BeFOre  THe 

RoOAI  eNoINe  is  ON  SHOULD  INSURE  BYPASSING  DVMON  INITIA-LY  BY  SeTTTNG  DVSeLeCt  TO  tHe  GeNADR  OF  AVERAGE  G. 

R00A3  ' TiE__BOOST  MONITOR'  (BOOSTMQN)  CHeCKS  DELV  AGAIviSt  THRSHLO*.  THE  THRESHOLD  ACCELERATION  FOR  THE  BOQST  PHASf. 

R00A5  jF  DEJV  IS  BELOW  THRESHOLD.  iNDfCATlNC  TERMinATiOxj  OF  BOOST.  MiSSiOm  PHASE  6 IS  SCHEDULED  As  A JOB,  DVSELeCT 

RoOa7  is  altered  to  bypass  SOOStMON  and  proceed  DIReCTLY  to  AVERAof  g. 


R00A8  the  PGNCS  MONITOR!  (PGNCSMON)  COMPARES  ACTUAL  tHRJST  TO  TWE  THRESHOLD  VALUE  FOR  THE  +X  ACCELERATION 

R0050  (100  CM/SEC).  IF  THrJST  iS  FOU^D  BELOW  THiS  VALUE  FOp  3 CYCl  ES  (I.E.,  A TO  6 SECOnDS)  As  DETERMINED  BY  DVCnTR, 

R0052  and  the  engine  FLAG  IS  REMOVED.  (INDICATING  THAT  IHe  ENGINE  HAS  BfEN  TURNeD  QFF)  CONtRQL  IS  BRANCHED  TO  THE 

R005A  LOCATION  SPeCIFIeD  BY  DVMNEXIT.  PREVIOUSLY  SET  BY  THe  USERS  PROGRAM.  DVSELeCT  IS  ALteRED  TO  BYPASS  PNoCSMON  IN 
Ro056  SUBSejUENT  PASSES.  I-,  HqWeVeR.  THe  ENGINE  FLAG  IS  StILL  ON  AT  THIS  TIME,  CONTROL  IS  TRANSFERRED  TO  EN3NFAIL. 

R0058  this  sends  aLARM  C0D£  1405  AND  KILLS  THAT  MISSION  PHASE.  ANY  TIME  THE  THRUSt  IS  LESS  THAN  THe  THRESHOLD  VALJe. 

Roo60  the  Steering  is  detached  (No  exit  via  aveSexit)  anD  exit  is  made' thru 'SeRVex it.” 

R0062  the  normal  exit  is  thru  AVeGeXIT.  WHICH  MUST  HAVE  BEEJN  SET_BY  THE_  USERj_^  IHE  FINAL  EXIT.  StT  INTO  AV::GfXIT  BY 

R006A  READACCS  WHWTT  THE  AVERAGE  G pL-AS  DOwN,  SETS  UP  pREF  pALL  GYRO  COmpeNSAt I'ON,  SETS ’ THE  DRIpf  pLAG  ON, 

Ro'066  performs  avetomid  routine,  and  transfers  Control  ro  pooh,  thus  clearing  all  activity  until  a new  mission 
R0068  phase  is  due. 

R0069  warning  to  USERS  »***» 

R0070  the  J”SER  must  StT  DVMiNEXIT  TO  THE  2CADR  OF” A JOB  TO  Be  PERFORMED  WHEN  ENGINE  SHUTDOWN  IS  DETECTED  BY  SERVICER. 

Roo72  in  General,  the  average  o flag  will  be  turned  off  by  the  user  at  that  time,  allowing  just  one  more  pass  through 

Roo7a  average  g.  all  activity  of  the  users  mission  phase  must  have  Been  completed  Before  this  last  pass  through 

Roots  average  g,  due  To  the  performance  of  Pooh  as  described  above. 

R0077  AVGEXIT  MUSI  BE  SET  BY  THE  USER  TO  THE  2CADR  OF  THE  JOB  (E.G.,  STEERING)  TO  Be  PERIORMED  AFTER  EACH  PASS 

R0079  through  average  G.  IF  NO  OTHER  JOB  IS  TO  BE  DONE,  AVeGEXIT  SHOULD  BE  SeT  TO  SERVeXIT. 
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user  must  iniiia_-IZ£  dvsllect  to  thf  gfnadr  of  avfragf  3 unCfss  thf  engineon  .routine  has  Seen  Performed 

BEFORE  the  START  OF  SERVICER. 

users  (exceRt  foRl.boosi  Phase)  must  perform  miDtoavp  rdjtinf  bfforf  starting  preread. 


CAllI'IG  SEQUENCt  15  N0RMA|_  wAITlIST  CAlL  FOR  PReREAD.  (ReAOACCS  wIlL  StART  TWO  SECONDS  lATER.) 


R0088  subroutines  CALLED 


M 

R0089 

R0091 

LAST3IAS  PIPASR  FLAS'lUP  FLAGzDWN  NoRMLIZE  READACCS  , SERVICeR  1/PIPA  MaSSMon  AVeRAGe  G CaLCRVG 
PHASCHNG  AVETOMIO  =OOH  FORGeTIT 

R0092 

NORMAL!  EXIT.  Moots  .j  .A.VG.GEXI T . UVMNEXII  . FaSXO-VER,  ENOOFOoB-  . 

* 

R0093 

R0095 

ALARM  CODE  205  <5lVEN  IF  RUNAWAY  PIP.  PROGRAM  THEM  CONTINUES  IN  NORMAL  SEQUENCE. 

alarm  code  1A05  GIVEN  IF  fNGINe  FAILURE  IS  DeTECT-D.  PROGRAM  THEN  TERMINATES  THe  MISSION  PHASE.  (TO 

FORGfTIT) 

t 

R0097 

R0098 

erasable  INITIALIZATION  REQUIRED 

Mass...  initialized  in  erasable  load 

i 

R0099 

Ravegon  and  vavegon  ..  initialized  In  erasable  Load  - updated  before  each  call  for  preRead. 

j 

ROlOl 

OUTPUT 

R0102 

DELV(6)  RN(6)  VN(6)  GDT/2(6)  CDUTEMP(6)  MASS(2)  DELAREA(2)  P1PTIME(2)  OLDBTKl) 

ROlOA 

debris 

R0105 

R0106 

centrals  ...  A.  L.  0 

other  ....  DVCNTR*  ITEMPl.  ITEMP2.  RNKa).  VNKa).  GDT1/2(a1.  DAREATMP(7).  MASSTEMP(2).  PIPAGE. 

m 

X 

R0108 

TEMY.  lEMZ.  TEMxY.  PIPCTR 

% 

RoIqR 

»»•  thrust  Mission  control  is  restart  protect-d  and  uses  restart  group  5.  »*» 

- xl 

Roosi 

R0083 

R008A 


R0086 
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REVISION 
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L 

206 

SERVICE 
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0111 

Ji0,2000  _ 

- 3A_N_<L 

_3.U . . 

-M  •• 

0112 

REF 

17 

LAST 

751 

E5 

EBAN<= 

OVCNITR 

Rons 

»*»»»IHH(»**«**»*(Ht**IHH*»**JHHHH(*4#*** 

0116 

ref 

138 

LAST 

802 

30,2000 

0 4161  0 

PREREAO  TC 

PHASrHNG 

0117 

30,2001 

07015  1 

OCT 

O7O1  5 

0118 

30_l2OO2 

77777  0 

OCT 

7 7X77_  _ 

- 0119 

REF 

18 

LAST 

8lT 

F5 

eban<= 

OVCNTR 

0120 

30,2003 

0201 1 0 _ 

2CADR 

B1 BTRl AS 

SKIP  LASTBIAS  AFTER  RESTART 

C0120 

REF 

2 

LAST 

676 

30,2004 

60065  1 

0121 

REF 

3 

LAST 

166 

30,2h05 

3 5653  1 

CAF 

PR  I 0-32 

0122 

REF 

28 

LAST 

81A 

30l2O06 

0 5503  1 

rc 

NOi/Ar 

0123 

REF 

2 

LAST 

3O 

F3 

rBAN<= 

NBDX 

0124 

30,2007 

03575  0 

2CADR 

LASTrI AS 

DO  last  gyro  compensation  in  FRrp  FA 

LU 

C0124 

ref 

2 

1 AST 

68 

30,7010 

74063  1 

0125 

REF 

1 

30,2011 

0 2574  0 

3IBIBIAS  rC 

PIPASR 

CLEAR  + RfAD  PIPS  LAST  TIME  IN  pRfE 

FALL 

0126  , 

REF 

6 

LAST 

696 

30,2012 

_0_6051  0__ 

_ . tc 

FLASjJJP 

SET  AVEG  flag 

0127 

30,2013 

00001  0 

OCT 

1 

01271 

REF 

3 

LAST 

4S0 

30.20L4 

3 1337.1 . 

CA 

STARtDVC 

X please  dont  move-dvcntr  shoulo  be 

0128 

REF 

10 

LAST 

803 

30,2016 

0 6076  0 

TC 

FLAS7DWN 

KNOCK  DOWN  DRIFT  FLAG 

0129 

30,2017 

40000  0 

OCT 

4000O 

0132 

REF 

4 

LAST 

7O8 

30,2020 

3 7751  0 

CAF 

EBA\1ic4 

0133 

REF 

5 1 

LAST 

748 

30,2021 

54  003  0 

TS 

F0  Ml/ 

0134 

REF 

1 

F4 

-BAN<= 

AXIS 

corCt  is  ofad.  Long  livf  axis 

0135 

REF 

44 

LAST 

671 

30,2022 

3 7746  0 

CAF 

3IT14 

INITIALIZE  AXIS  TO  (0.5, 0,0) 

0136 

REf 

2 

LAST 

817 

30,2023 

55*640  0 

TS 

Axis 

FOR  findcdud 

0137 

REF 

237 

LAST 

812 

30,2024 

3 7767  0 

CAF 

ZFRO- 

0138 

REF 

3 

LAST 

817 

30,2025 

55*641  1 

TS 

AXIS  +1 

0139 

REF 

4 

LAST 

817 

30,2026 

55*642  1 

TS 

AXIS  +2 

0140 

ref 

5 

last 

817 

30,2027 

55*643  0 

TS 

Axis  +3 

0141 

REF 

6 

LAST 

817 

30,2030 

55*644  1 

TS 

AXIS  +4 

0142 

REF 

7 

LAST 

817 

30,2031 

55*645  0 

TS 

AXIS  +5 

01421 

ref 

9l 

LAST 

809 

30,2032 

3 7762  0 

CaF 

T 

DIRECT  REREADAC  To  REaDACCS  IN  CASE 

01422 

REF 

1 

30j2O33 

55*161  1 

IS 

P 1 P A?.F 

OF  A RESTART 

0143 

REF 

2 

LAST 

38l 

30,2034 

3 5644  1 

CAF 

PR  I 021 

SET  UP  TO  DO  NORMLIZE  RFOUIRFD  sRIOR 

0144 

REF 

27 

LAST 

BOl 

30,2035 

0 5516  0 

rc 

FINOVAC 

to  first  entry  to  average  G. 

0145 

REF 

4 

LAST 

772 

F4 

-BAN<= 

RAi/F?.ON 

0146 

30,2036 

02412  1 

2CA0R 

NORMi  IZF 

C0146 

REF 

2 

LAST 

67 

30,2037 

60064  0 

633436A 

YUL 

SYSTEM  FOR  AQC 1 

REVISION 

0 OF  PROGRAM 

BURST120  BY  NASA  7021106-031 

DEC  7,  1967  (MAIN)  PAGE 

BIR 

L 

206 

S-RYICE  1 

routines 

USER'S  OWN  PAGE  NO.  4 S3 

E4 

0148 

REF 

118 

LAST 

807 

30,2041 

0 5663  1 

rc 

«AI  TI  1ST 

0149 

REF 

20 

LAST 

817 

F5 

^BAN<= 

OvCNTR 

0150 

30,2042 

07047  0 

2CADR 

RFAOiCCS 

C0150 

REF 

1 

30,2043 

60065  1 

0152 


30,20<i5  40025  1 


OCT 


40075 
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0156  REF  2 LA&T.  .6?  E5 EBAjE4i^_:i£iX0V. 


0157 

REF 

23 

LAST 

633 

30,20A7 

A 1 000 

1 

READACCS 

:s 

T5ADR 

TO  PREVENT  LOST  DO,YNRUPTS,  AOJJST  THE 

01575 

REF 

1 

30,2050 

6 2125 

0 

AD 

PILTaO 

relative  phasing  between  reaoaccs  and  a 

0158 

30,2051 

0 0006 

L 

SXIS.ND 

DAP  FOR  MINIMUM, INTERFERENCF.  THESE 

01585 

REF 

1 

30,2052 

1 7060 

1 

3ZF 

«ASFTl  T 

TESTS  ARE  NECESSARY  ONLY  wHFN  T HF  TRIM 

A01587 

GIMBAL  IS  BEING  USED,  BUT  IT  TA<FS  TDD  i 

0159 

REF 

2A 

LAST 

819 

30,2053 

6 1000 

1 

:s 

T 5 A0R 

LONG  TO  CHECK  FOR  THIS  SITUATION  TO  RF 

01595 

REF 

1 

30,2056 

6 2126 

0 

ao 

ol  SftD 

WORTH  IT. 

0160 

30,2055 

0 0006 

EXTEND 

J 

01605 

REF 

1 

30,2056, 

1.  2121 

0. 

3ZF 

SLIRQNF 

0161 

REF 

1 

30,2057 

1 2066 

0 

rcF 

PI PRfAD 

01615 

REF 

16 

LAST 

633 

30,2060 

A 0030 

0 

^ASFILT 

cs 

TIMF5 

0162 

REF 

65 

LAST 

762 

30,2061 

6 77A3 

0 

AD 

POSMAX 

01625 

30,2062 

0 0006 

1 

EXTEND 

0163 

REF 

2 

LAST 

819 

30,2063 

1 2121 

0 

3ZF 

SLlPnNE 

0l6A 

REF 

2 

LAST 

817 

30,2066 

0 2576 

0 

PIPREA3 

IC 

PIPASR 

- 

0165 

30,2065 

0 0006 

1 

PIPSDONF 

-xtend 

SUPER  high-speed  PHASE  CHANGE  iD 

0 1 66 

REF 

1 

30,2066 

3 21  30 

1 

DCA. 

5.31 cFT 

MINIMIZE  THE  TIME  SPENT  IN  THE  RFADACCS  J 

0167 

REF 

1 

30,2067 

53*110 

1 

2XCH 

fP. BASES 

TASK. 

0168 

rEF 

92 

LAST 

817 

30,2070 

3 7762 

0 

RED05.31 

:af 

T«D 

SHOW  PIPS  have  been  read  for  REjFaDAC.  k 

0169 

REF 

2 

LAST 

817 

30,2071 

55*161 

1 

T5  ..  . 

PIPAGE 

0170 

REF 

26 

LAST 

716 

30,2072 

A 0075 

1 

CHEKAVEG 

:s 

FLASWRDI 

% 

0171 

REF 

61 

LAST 

771 

30,2073 

7 7763 

0 

MASZ 

aiTI 

0172 

REF 

30A 

LAST 

all 

30,2076 

10  000 

0 

CCS 

A 

IF  AVEG  FLAG  DOWN  SET  FINAL  FXIt  AVEG 

0173 

REF 

1 

30,2075 

0 2116 

0 

TC 

AYFSnUT 

% 

nl7A 

REF 

2 

LAST 

817 

30,2076 

3 2235 

1 

CAF 

200DFC 

READ  PIPS  AT  2 SECOND  INTERVALS 

0175 

ref 

1 9 

LAST 

818 

30,2077 

0 5663 

1 

IC 

aIAITI  1ST 

J 

0176 

■REF 

2 

LAST 

J58 

E5 

EBAN<= 

RMFMORY 

0177 

30,2100 

02067 

0 

2CADR 

RFADaCCS 

C0177 

REF 

2 

LAST 

818 

30,2101 

60065 

1 

i 

0178 

REF 

7 

last 

721 

30j2102 

3 7766 

0 

MAKESFRV 

CAF 

PRn?o 

ESTABLISH  SERVICER  ROUTINE 

0179 

REF 

28 

LAST 

817 

30,2103 

0 5516 

0 

TC 

FlNDiMC 

0180 

REF 

3 

LAST 

819 

F5 

FBAN<= 

BMEMORY 

J 

0181 

30,2106 

02133 

1 

2CADR 

SERYiCSR 

Cnl81 

ref 

2 

LAST 

68 

30,2105 

60065 

1 

0182 

30,2106 

0 0006 

1 

EXTEND 

HIGH  SPEED  PHASE  CHANGE.  A 

01823 

ref- 

1 

3Pj2i07 

3 2132 

0 

3CA 

5.6S(tT 

5.6  FOR  RFREADAC  TASK  6 SERVICER  JOB. 

01826 

REF 

2 

LAST 

819 

30,2110 

53*110 

DXCH 

-PHASF5 

0183 

REF 

17 

LAST 

7A7 

30,21 11 

4 0025 

1 

cs 

TlMFl 

SFT  TBASE.  J 

01833 

ref 

2 

last  680 

30,21  12 

55*123 

1 

TS 

TRASP5 

0186 

REF 

1 D8 

LAST 

818 

30,2113 

1 5727 

ICF 

TAS<nVFR 

END  PREVIOUS  READACCS  WAITLIST  TASK 

j 

j 

j 


j 
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0185 

REF 

last  819 

. . £5  _ 

3yi£YiQRy____  _ 

0186 

0187 

0188 

REF 

ref 

1 

17 

LAST  762 

30,2119 
30,2116 
_ _ 30,2_U7 

02579  0 
3 2129  1 
55'310  0 

PIP2CA3R 

A(/EGOUT 

2CADR 

:a 

_rs  _ 

P1PA5R 

AvO.JtADR 

Dj/S-ELFCT 

0189 

ref 

1 

30,2120 

1 2102  1 

TCF 

MA<FcFRv/ 

01892 

REF 

156 

LAST  807 

3^2_lil.L 

9_J7763  0 __ 

SLIPONE 

:s 

ONE 

reschedule  DAP  EVENT  TO  OCCUR  I.3  MS 

0189A 

01902 

_J)l90A 

REF 

REF 

19 

2 

LAST  819 
LAST  58l 

30,2122 

30,2125 

30,2127 

26  030  0 
02015  1 
_ 7779_6_1 

5.31SFT 

ADS 

3ENA0R 

20CT 

TIMF5 
KiGTRB 
77791  00031 

farther  into  the  FUTURE. 

■ C0190A 
01905 
CO1905 

30.2130 

30.2131 

30.2132 

00031  0 
77771  0 
OOOOi,  1 

5.6SET 

20cT 

77771  00006 

633936A 

YUL 

system  FOR  A&C:  REVISION  0 OF  PROGRAM  BURST123  BY  NASA  2n2110A-031 

DEC  7, 

1967 

(MAIN) 

page  R21 

L 

206 

S-RVICE  ROJTinES 

USER'S  OWN  page 

NO. 

7 

S3  F5 

R0193 


R0199 

DO  : 

SA,/EM  and 

restore*!'  latfr  if 

normal  rfstahts  should  EVFR  RFTURN 

0195 

REF 

93  LAST 

819 

30,2133 

3 7762  0 

SERVICER 

CAF 

T-«0 

0196 

REF 

1 

30,2139 

55'512  1 

PIPCHFC< 

TS 

PIPCTR 

0197 

30,2135 

6 nooo  1 

OOUBLF 

0198 

REF 

305  LAST 

819 

30,2136 

50  000  1 

INDEX 

ft 

0200 

RtF 

1 

__  30,219(D 

0 215Q  1 

TC 

PlP’hOP 

0208 

REF 

e LAST 

eol 

30,2150 

siFfse  1 

PIPLOnP 

IKS 

Rcnansp 

0 UE  T 0 e M 

Ci09 

R£F 

1 

30.2151 

1 2139  1 

D T Prurr^ 

0210 

REF 

no  LAST 

818 

30,2152 

0 9161  0 

TC 

PHASrHNG 

RESTART  RFREADAC  ♦ SERVICER 

0211 

30.2153  16035^0 

OCT 

IaQxe 

0212 

30,2159 

20000  0 

OCT 

20000 

0213 

REF 

5 LAST 

820 

F5 

tBAN<= 

RMEVInRY 

OZl<k 

30.21 55 

02191  0 

C0219 

REF 

1 

30,2156 

60065  1 

0215 

REF 

130  last 

805 

30,2157 

0 5206  0 

rc 

BANXCALl 

piPA  compensation  call 

0216 

REF 

2 LAST 

30,2160 

25222  1 

CADR 

1/PIPA 

0217 

REF 

78  LAST 

812 

30,2161 

0 6112  0 

oOMASS 

rc 

INTPRFT 

0218 

30,2162 

51575  1 

VLOAO 

ABVAr 

0219 

REF 

9 LAST 

685 

30,2163 

00909  1 

DFLV 

0220 

rEf 

7 LAST 

735 

30,2169 

36535  1 

STCAI  L 

ABOFi'V 

0221 

REF 

1 

30_l2JL65 

6L206  1. 

.MA.SSMOFL  , . 

vO 

0222- 

30,2166 

77629  1 

CALL 

p»v*v 

0229 

30,2170 

77776  1 

EXIT 

^ J 

0225 

ref 

111  LAST 

82l 

30,2171 

0 9161  0 

TC 

PWASrHNG 

0226 

30.2172 

10035^.0 

OCt 

10035 

0227  30i2173  0 0009  0 COPYCYCt.  INHINT 

0228  ref  2 LAST  59A  30,2179  3 7760  1 2AF 

0229  REF  31  LAST  73l  30,2175  59  061  1 TS 


EIGHT 

ITEYPI 
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0230 

30,2176 

6 nooo 

_1_ 

tOubi  E 

0231 

ref 

43 

LAST 

708 

30,2177 

54  062 

1 

TS 

ITFVIP? 

0232 

30,2200 

0 0006 

1 

EXTEND 

0233 

REF 

44 

LAST 

62  2 

30,220.1 

5 0062 

0 

LND.£..X._ 

_ILEyp2 

0234 

REF 

1 

30,2202 

3 1051 

1 

DCA 

RNl 

0235 

REF 

45 

LAST 

822 

30,2203 

50  062 

0 

INDEX 

I T E\1o2 

0236 

REf 

R 

L AST 

774 

30.2204 

53*011 

1 

IXCH 

RN 

0237 

REF 

32 

LAST 

82l 

30,2205 

10  061 

1 

CCS 

ITFVIPI 

0238 

REF 

1 

30,2206 

1 2175 

1 

TCF 

COPYCYCL  *2 

^239 

30,2207 

n nnof* 

1 

EXTEND 

0240 

REF 

1 

30,2210 

3 I 560 

0 

5CA 

DARFiTMP 

0241 

REF 

2 

LAST 

335 

30,2211 

53,552 

0 

DXCH 

DFLARFA 

074? 

30,2212 

0 0006 

1 

EXTEND 

0243 

REF 

1 

30,2213 

3 1 562 

1 

DCA 

masstfmp 

0244 

REF 

7 

LAST 

748 

30,2214 

53,321 

1 

3XCH 

V1ASS 

02  4& 

30.2215 

0 0006 

1 

EXTEND 

0246 

REF 

6 

LAST 

772 

30,2216 

3 1 307 

1 

DCA 

PI PTtME 

0247 

REF 

3 

LAST 

77A 

30,2217 

53,327 

1 

DXCH 

STATIME 

STATE  VECTOR  TIME  FOR 

DOWNLINK. 

0248 

REF 

42 

LAST 

716 

30,2220 

3 7760 

1 

:af 

31  T4 

SIVBGONE  BIT 

0249 

REf 

27 

last 

819 

30,2221 

7 0075 

1 

v\As< 

F L A SwRD 1 

0250 

_30,2222 

0 0006 

J. 

•XTENO 

0251  , 

ref 

1 

30,2223 

1 2230 

0 

3ZF 

OHoPwASF 

0252 

ref 

4 

LAST 

670 

30,2224 

3 5655 

1 

CAF 

PR  I 034 

0253 

REf 

29 

LAsT 

817 

30,2225 

0 5505 

1 

rc 

NOvAr 

0254 

ref 

34 

LAST 

634 

F6 

EBAN<= 

OT 

0255 

30.2226 

02713 

0 

2BCA0R 

1/ACrS 

C0255 

REF 

2 

LAST 

49O 

30,2227 

54066 

0' 

0256 

REF 

1 1 2 

LAST 

82l 

30,2230 

0 4161 

0 

CHGPHASF 

rc 

PHASCHNG 

0257 

30j2231 

10035 

0 

3CT 

1 0035 

0258 

REF 

I 8 

LAST 

820 

30,2232 

0 1 310 

1 

TC 

OVSFI  FCT 

0^9 

_RE£_ 

6 

last 

757 

30,2251 

AoSMON 

-QUAI  S 

aufragfg 

0260 

30,2233 

63401 

1 

-'IAXDFLY 

DEC 

-6398 

3200  PULSFS/SEC  FOR  2 

SFC.  CCS  TAKES  1. 

R0261 

xxxxxxxxxxxxxxxXxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxMAl NT A1 N tHf  ORDfh 

OF  the  constants  Between 

the  asterisks. 

0263 

30,2234 

00620 

0 

PLUSXDVA 

dec 

400  ; 

200  cM/sEC(2)s  Ascent 

Threshold 

0264 

30,2235 

00310 

0 

230DEC 

DEC 

200  / 

0265 

R0266 


30,2236  00055  1 PLU5XDVD  OEC 

» IHHHt  *»*»»»*  )t  **»»»*»*»»**»»  X *»***»  lUtlHHt  » 


A5 


22.5  CM/SFC  so  s DESCENT  THRESHHOLD. 


0267  REF  31  LAST  7A7 


30,2237  3 7762  0 PoNCSMDN  CAF 


bit? 


CHECK  CHANNEL  30  TO  SEE  IF  STA3IN5  HAS 


0269 

0270 


30,2241  02  030  0 2AND  30 

REF  306  last  821  30,2242  50  000  1 INDEX  A 


AND  DESCENT  PLUSXDV  IS  USED  — OTHER/iTSF 
THE  ASCENT  PLUSXDV  IS  EMPLOYED. 


c 
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0273 

REF 

B 

T 

82l 

30.22^t§ 

e 0636 

1 

ESTEND 

PaJBvflVA 

0276 

ref 

21 

LAST 

818 

30»2250 

55'511 

1 

ts 

avCN®R 

HRUS  is  < R S 

H DV  M 1 

I R 

0277 

REF 

1 1 3 

last 

822 

3Q.225J. 

0 9161 

0 _ 

_A/ERAgEG  TX 

.PJrlASCHNr, 

0279 

30,2253 

0 0006 

1 

EXTEND 

O2B0 

ref 

2C 

LAST 

762 

30,2259 

3 1073 

1 

OCA 

AVoFylT 

0281 

REF 

32 

LAST 

773 

30,2255 

52  006 

0 

OXXH 

z 

AVERAGEG  EXIT 

• ' 

0282 

0283 

0289 

REF 

REF 

REF 

22 
1 1 
28 

LAST 

LAST 

LAST 

823 

758 

822 

30.2256 

30.2257 

- _3lDi226D 

11  '511  1 
1 2323  0 
S 0075-0 

THRI^TLO 

CCS 

rCF 

CA_ 

Dv/CNtR  2 
SFRi/FXIT  _1  > 
FI  A'.yprii ^ 

' NO  Steering  if  no  thrust. 

0285 

REF 

31 

LAST 

812 

30,2261 

7 7757  1 

'^AS< 

BITS 

• 

0287 

REF 

1 

30,2263 

1 2317  1 

TCF 

YES,  GIVE  Fail  alarm. 

0288  • 

REF 

1L4 

LAST 

823 

30,2269 

0 9161  0 

TC 

PHASCHNG 

NO.  GO  out  thru  dvmnexit. 

0289 

30,2265 

10035  0 

OCT 

10035 

0290 

REF 

1 

30,2266 

3 2315  1 

CAF 

aitfgaddr| 

REMOVE  DV  MONITOR. 

0291 

REF 

19 

LAST 

822 

30,2267 

55*310  0 

IS 

OYSFI  FCT  I 

0292 

30,2270 

0 0006  1 

DYEXIT 

-XTEND 

BRANCH  To  SELECTED  LOCATION 

0293 

REF 

10 

LAST 

762 

30,2271 

3 1075  1 

OCA 

S 

0299 

REF 

33 

LAST 

823 

30,2272 

52  006  0 

OXCrl 

0295' 

REF 

9 

last 

823 

30,2273 

9 1539  0 

BOOSTMON 

cs 

ABOFi'v 

COMPARE  ARDELV  TO  THRSHLD*  TO  OFTFCT 

1 

0296 

REf 

1 

30,2279 

6 2316  1 

AD 

THRSMl D+ 

BOOSTER  SHUTDOWN 

0297 

30,2275 

0 0006  I 

rXTEMO 

0298 

REF 

7 

last 

822 

30,2276 

6 2251  0 

3ZMF 

anfragfg 

* 

0299 

30,22  77 

0 0009  0 

INHINT 

SHUTDOWN  HAS  OCCURRED 

0300 

REf 

8 

last 

819 

30,2300 

3 7796  0 

caf 

PRI 050 

0301 

REF 

30 

LAST 

822 

30.2301 

0 6505  1 

rc 

NOYAr 

SET  UP  MISSION  PHASE  6 JOB 

0302 

REF 

6 

last 

821 

F5 

EBANAf 

BMEMORY 

0303 

30,2302 

02509  1 

2CADR 

MP6 JnB 

NO  VAC  ARFA  NEEDED 

r 

C0303 

REF 

1 

30,2303 

56065  1 

0309 

REF 

115 

LAST 

823 

30,2309 

0 9161  0 

rc 

PHASrHNG 

0306 

30,2306 

?nooo  0 

OCT 

200'^n 

0307 

REF 

7 

LAST 

823 

F5 

r8ANC= 

BMEMORY 

0308 

30,2307 

02509  1 

2CA0R 

MP6JnB 

633A36A  YUL  SYSTEM  FOR  Agc  : REVISIOiN  0 OF  PROGRAM  BURST120  BY  NASA  202110A-031 


DEC  7t  1967  (MAIN)  PAGE  82A 


03081 

206 

REF 

SERVICE  routines 
116  LAST  823 

30.2311 

0 9161 

0 

TC 

PHASrHNG 

USER'S  OWN  PAGE 

NO.  10  S3 

03082 

30,2312 

1D035 

0 

DCT 

1 003*5 

0309 

REF 

2 

last 

823 

30,2313 

3 2315 

1 

DVMNKILL 

CAF 

AVEGADOO 

REMOVE  DV  MONlTLOR 

FROM  SERVICER- 

0310 

REF 

20 

LAST 

823 

30,2319 

55*310 

0 

IS 

DVSFI  FCT  / 

0311 

REF 

8 

LAST 

823 

30,2315 

0 2251 

0 

AVEGAOOR 

rc 

AVF^AGFG 

0312 

30,2316 

ni  72A 

1 

THRSHLD* 

DEC 

980 

BOOSTER  SHUTDOWN 

AT  1/2  G OVFR  2 SECS 

0313 

REF 

91 

LAST 

821 

30,2317 

0 9755 

1 

ENGNFAIL 

rc 

alarm  ^ 

0319 

30,2320 

01405 

1 

DCT 

1906 

DVALARM.  FNGINE 

ON  BUT  NO  THRUST. 

0315 

REF 

95 

LAST 

805 

30,2321 

0 5225 

1 

IC 

POST  lUMP 

0316 

REF 

A 

LAST 

eiA 

30,2322 

1 6007 

1 

CAOR 

FORGFTIT 

SHUTDOWN. 

1 


0317 

0318 

0319 

0320 


DPP 

1 A^T 

R73 

30t2323 

551511 

JL- 

_TS 

oi/rMTP 

REF 

117 

last 

82A 

30,2324 

0 4161 

0 

SERVFXlT 

TC 

PrIASrHNG 

30,2325 

00035 

1 

OCT 

00035 

REF 

90 

LAST 

812 

30,2326 

1 5567 

1 

TCF 

EMOOfJOR 

L 

206 

5-RVlCF  ROJTINES 

USER'S  OWN  page  NO.  11  S3  F5 

• 

• 

P0321 

»*»»»  GIMBL  MONITOR  - 

> USED  PRIOR  TO  POUCSMON  IN 

32S  3.jR_NiS  »»**»»*«*»*»** 

« 

0322 

REF 

10 

LAST 

823 

F5 

EBAN<= 

ABDFI  V 

first  condition  for  USE  OF  TRIM  GIMBAll. 

• 

0323 

REF 

2 

last 

88 

30,2327 

3- J3A6, 

_D 

5IMBLM3N 

:a 

. SLDSMCTR . _ 

032't 

30.2330 

0 0006 

1 

EXTEND 

THAT  SLOSH  HAS  NOT  BUILT  UP  TD  THF 

• 

0325 

REF 

1 

30,2331 

1 2357 

0 

3ZF 

SI  MSI  OFF 

, POINT  THAT  THE  GIMBAL  IS  NOT  USEFUL 

• 

0326 

-XTEND 

f 

0327 

REF 

3 

LAST 

825 

30,2333 

27*336 

1 

DIM 

SLDSuCTR 

0328 

REF 

1 

30,^339 

A 2365 

1 

IS 

^jHRSHLD._  _ 

second  condition  FOR  USE  OF  TRIM-  GIMBaL- 

0329 

REF 

1 1 

LAST 

825 

30,2335 

6 1539 

1 

AD 

abdflv 

that  DPS  THRUST  HAS  ATTAINED  A FAIR 

c 

0330 

30,2336 

0 0006 

1 

rXTFND 

DEGRFF  of  STABILITY 

0332 

rbf 

25 

LAST 

812 

30,2390 

9 0076 

1 

:s 

THIRD  condition  FOR  USE  OF  TRIM  GIMBAL- 

0333 

ref 

93 

LAST 

822 

30,2391 

7 7760 

0 

v|AS< 

SI  T9 

THAT  THROTTLING  IS  NOT  NOW  JNDERWAY. 

c 

0339 

30,2392 

0 0006 

1 

EXTEND 

THIS  FLAG  IS  SET  WHEN  THROTTLING  IS 

0335 

REF 

3 

LAST 

215  _ 

30,2393 

1 22  3J 

1 

3ZF 

BGNCSMON 

BEGUN  AND  RESET  WHEN  IT  IS  OVER. 

(. 

0336 

REF 

93 

LAST 

68P 

30,2399 

3 7752 

0 

CA 

3 1 T 1 n 

FOURTH  CONDITION  FOR  USF  OF  TRIM  GIMBAL- 

0337 

30,2395 

0 0006 

1 

-XTENo 

THAT  GiMRAi  HAS  NOT  FAIi  FD 

0338 

30,2396 

02  032 

1 

32 

0339 

30,2397 

0 0006 

1 

extend 

0346 

30,2351 

0 0009 

0 

GIMBLON 

INHINI. 

IF  WE  GET  THIS  FAR  IT  IS  OK  TO  TURN  ON 

0397 

REF 

7 

LAST 

632 

30,2352 

9 7762 

1 

cs 

ISFDdJTS 

THE  glorious  TRIM  GIMBAL 

( 

0398 

REF 

SO 

LAST 

765 

30,2353 

7 0077 

0 

MAS< 

OAPSnOLS 

0399 

REF 

Si 

LAST 

825 

30,2359 

69  077 

0 

T5 

DAPSnOLS 

0350 

30,2355 

0 0003 

1 

RELINT 

J 

0359 

30,2357 

0 0009 

0 

gImbloff 

INHINT 

IT  IS  necessary  for  some  Reason  to 

0355 

REF 

S2 

LAST 

825 

30,2360 

4 0077 

0 

CS 

DAPSnOLS 

turn  off  the  trim  GIMBAL 

[ 

0356 

REF 

8' 

LAST 

825 

30,2361 

7 7762 

1 

HAS< 

ISFDRJTS 

L0360 

206 

5-RVICE  ROJTSnES 

39  2365 

000  4 

t, 

GTBRSHLO 

3EB 

60 

A0B5SXSMOIIiHLIFAGBONOBS  IBKUST  ) S3  E5 

( 

P0362 

REF 

9 

LRa® 

788  0 

kmina 

R flDACES 

AN3  A1/  RA 

G=^B6N<  = 

OVTOTAL 

0363 

REF 

7 

LAST 

622 

30,2366 

3 1 307 

1 

A\/GEND 

C.A 

PIPTIMF  *1 

FINAI  AVFRAGF  G FXIT 

0365 

REF 

8 

LAST 

807 

30,2370 

0 6060 

1 

TC 

FLAS7UP 

SET  DRIFT  flag 

0366 

30,2371 

40000 

0 

3CT 

40000 

0367 

30,2372 

0 0006 

1 

FXTFND 

0368 

REF 

1 

30,2373 

3 2911 

1 

3CA 

Av/FMtDAD 

transfer  state  vector  via  AVFTOMIO 

0369 

REF 

39 

LAST 

823 

30,2379 

52  006 

0 

3XCH 

z 

0370 

REF 

118 

LAST 

829 

30,2375 

0 9161 

0 

TC 

PHASrHNG 

0371 

30,2376 

04025 

1 

3CT 

04075 

POOH  WILL  TURN  OFF  PHASES 

0373 

REF 

29 

LAST 

823 

30,2900 

7 0075 

1 

>1AS< 

FLASWRDl 

FLAG  IS  Up  BUT  RA1HER  TO  ENOOF  JOB 

0379 

30.2901 

0 0006 

1 

FXTEND 

0375 

REF 

2 

last 

723 

30,2902 

1 9272 

0 

32F 

POOH 

03751 

REF 

119 

LAST 

826 

30,2903 

0 9161 

0 

TC 

PHASrHNG 

MAKE  GROUP  5 INACTIVE 

03752 

30,2909 

00005 

1 

OCT 

8 

03759 

REF 

21 

LAST 

763 

30,2905 

0 6067 

0 

TC 

fla:,i'  own 

NOT  MORE  THAN  ONE  USE  OF  THIS  FIag. 

03756 

30,2906 

00040 

0 

OCT 

00040 

0376 

REF 

91 

LAST 

829 

30,2907 

1 5567 

1 

TCF 

FNOOFJOR 

0377 

REF 

6 

LAST 

773 

F4 

rBAN<= 

avmidrtn 

0378 

30,2910 

071  16 

0 

A\/FMIOAD 

2CA0R 

AkFToMID 

C0378 

REF 

i_ 

30,2911 

16069 

1 
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L 206  SERVICE  RoJTINES  USER'S  OWN  PAGE  NO.  13  S3  F6 

P0379  N07MLIiE  PERFqRMS  THE  I N I T I Al  I ;^AT  I ON  _R^£QIII  RED  sRlaR  ID_JHf  FIRST  FNTRY  To  aVERA&EG.  AND  SCaI  FS  Rn  So  THAT  IT 

R03B1  HAS  I LEADING  BINARY  ZERO.  IN  MOST  MISSIONS,  RN  WILL  3F  SCA'fD  AT  2(*29),  BUT  IN  THE  206  MISSION,  RN  WITl  BE 
R0383  SCALED  AT  2(+2A>M.  TIME  OF  RN,VN  IS  IN  STATIME  FOR  DwNLINC 


03r4 

REF 

1 AST 

817 

E4 

-EBANUi 

RAVFr,QN 

0385 

30,2412 

0 0004  0 NDRMLIZF  INHINT 

0386 

REF 

5 

LAST 

77A 

30,2413 

3 7764  0 

CAF 

FLF(/fN 

IN.ITIALIZF  INDEX-DEC  11 

0387 

REF 

59 

LAST 

8lZ 

30,2414 

54  070  1 __ 

IS 

RUPTREGI 

0390 

REF 

61 

LAST 

827 

30,2417 

501070  0 

tNDFX 

ROOFRBSl 

0393 

REF 

62 

LAST 

817 

30,2422 

102070  ® 

ICF 

NORMI  ffzr  *2 

V 

03Q4 

30.2423 

0 0006  1 

EXTEND 

0399 

R F 

LAS 

30,2430 

4S175  0 

3K0AD 

SAAl'iIM 

S A IM  F R DWNLINIC 

0400 

REF 

10 

LAST 

827 

30,2431 

01011  0 

RN 

LOAD  RN  VFC  FOR  CALC6RAV 

0401 

REF 

1 

_ 30_i24i2 

61103  1 

CALCr-RAV 

INITIALIZE  UNITR  RMAG  GDTl 

0402 

REF 

2 

LAST 

685 

30,2433 

01025  1 

STORF 

3DT  /2 

68S0S6A  *BE 

SYSTE«SirOB2ftGCi 

R90lai9N  OlORsRSOtRAM  BURST121)CBY  NABADaBa(LBn4-03 1 

DEC  7.  1967  (MAIN)  PAGE  828 

L 206  SERVICE  fiQJllNES _ __  ■ . - USER'S  OWN  PAGE  NO.  14  _ S3 E14_ 


P0405 

R0407 

VPATCHeR  IS  An  adaptation  of  NORMLIZf  'IHICH  is  CALi'fD  AFicR  MIOTQAVe  Has  BeeN  PeREORMfD  and  prior  tq 
pRfBjrn  programs  that  Require  ignition  stAtf  position.  YfLoctty.  and  gravity  Vfctors  in  rfgistfrs  rn.vn. 

, AND 

R0409 

gdt/2.  the  Registers  are  re-initializfd  by  normlize  when  prfread  calleoRed  by  normltze  when  prfRead  is 

CALLfO 

R0411  NAMF;  DATE= 

R0412  VPATCHER  _ 20  OCTOBER  1966 

R0413  programmer  subroutines  called 

R0414  SCHULFNBfRG  CAI CGRAV 


R0415  CALLING  SEQUENCE 

R0416  if  in  basic  L-1  TC  INTPRET 

R 0 4JLI L CALL  VPATCHER 

R0418  L+1  EXIT 

R0419  NORMA'i  exit 

R0420  AT  L*1  OF  CALLING  SEQUENCE 

R0421  debris 

R0422  RN.  YN,  GDT/2,  UNITR,  RMAG 


R0423  OUTPUT 

R0425  VTSNITION  IN  VN»2(*7)M/CS 

R0426  GDT/2  AT  IGNITION  IN  QDT/2*2 (hT) M/CS 

R0427  UNlf  RIGNITION  IN  JNITR  »2(+l)M 

R0428  RMAG  AT  2(+24)M 


0429 

0430 

0431 

rEf 

1 

30.2436 

30.2437 
30,2440 

77420 
01  155 
0 0004 

1 

1 

0 

VPATCHER 

5TQ 

INHINT 

FXI  T 
TFMX 

0433 

ref 

5 

LAST 

817 

30,2441 

3 7751 

0 

CAF 

FBANk'^ 

0434 

REF 

52 

LAST 

817 

30,2442 

56  003 

1 

XCH 

EBANX 

0435 

REF 

36 

LAST 

803 

30  * 24A3 

54  071 

0 

T5 

RJPTRFG2 

0436 

REF 

6 

LAST 

627 

30,2444 

3 7764 

0 

CAF 

FLFv/FN 

INITIALIZF  INDEX  TO  DEC  11 

0437 

REF 

63 

LAST 

827 

30,2445 

54  070 

1 

vpatloqp 

TS 

RJPTRFGI 

0438 

REF 

64 

LAST 

828 

30,2446 

50  070 

0 

INDEX 

RJPTdFGI 

0439 

REF 

2 

LAST 

773 

30,2447 

3 1 400 

1 

CA 

RIGNTION 

0439  ref  z’DTsT  773  30,2447  3 1400  1 " Ya  iTsMTlON 


0440 

REF 

65 

LAST  828 

30,2450 

50  070 

0 

INOFX 

RJPToFGl 

0441 

REf 

1 1 

1 AST  h?7 

30.2451 

_5AVQ1Q_  _0_ 

- TS 

RM 

STORF  RN.l/N 

0442 

REF 

66 

LAST  828 

30,2452 

10  070 

1 

CCS 

R JPTRFGI 

0444 

REF 

30,2454 

0 0006 

1 

TKrEMD 

»/PAtI  OOP 

REF 

2 

LASXJ7  73 

30,2455 

3 1 777 

1 

. OCA- 

TIG'iLTlQN- 

0446 

REF 

5 

LAST  827 

30,2456 

53'327 

1 

OXCH 

ST ATIME 

STATE  TIME  FOR  DWNLINK 

0447 

REF 

37 

LAST  828 

30,2457 

3 0071 

1 

CA 

RJPTpFGF 

04^r8 

REf 

53 

1 AST  828 

30.2460 

54  003 

-il- 

r 

FRAMK' 

0449 

30,2461 

0 0003 

1 

RELIMT 

0450 

REF 

30 

LAST  827 

30,2462 

0 6112 

0 

TC 

INTPdFT 

0451 

30  »_2.h63 

- 45175- 

-0 

VLOAO^. 

CAL-U  - . 

YUL 

bYbItfvi  hJK  AL)C.; 

KtVlbiON 

0 Uh  PKUbKAM 

BUkbllEO  BY  NAbA  2021106-031 

• ’ 

^)EL  1,  iS»67  . . (MAriir  PAGE 

820/ 

L 

<fue> 

bEKVICE  riOUtiNEb 

USER* 5 

OInN  rage  no.  lb  “53" 

0<rb^i 

RtF 

12  LAi>l  ti2tl 

30.246** 

01011 

u 

KN 

UUAO  RN 

vEc  For  callgrav 

Oiti'i 

RfF 

2 LAbI  b2r 

30,246b 

61103 

1 

CALUiKAV 

REF 

b LAbI  b21 

30,2466 

3b02b 

0 

b|V.ALL  bUT/<; 

-(WT5 rET 2 LAbI  30,2Wf  U116S  1 ^ TEWT 


^63T2T3T5A  rue  blfbltr^  fJR  A^jt:  RtVlblUN  0 Of  HKUORAM  BUKbi  120  DY  NASA  2021106-031 


Ott— 7‘,-r96T rfvAINr  PAOt  B30 


IT  ■ 

TTOb  5ERTFICE  ROUTINES  ' ' 

■ ■ ustKfS  owm^A0t  mi — ~ ~ 5? 

EA 

f 

HO^bV 

»***»*»**»»*»»»»»*»»*****»***»*»*  FLAG  SUbROUIlNES 

it  *******  iHUHHHt  *********  n **  iHHHHHHHI  ****  » 

0A61 

K0A62 

6USI  bLOLR 

IHE  flag  SUbRUUTlNES  ARE  USED  TO  SET  OR  RESEI  FLAGS 

03 

(BiTi)  in 

FLAGWRDl  AND  F‘LAGIaiRD2.  TME  blllS)  TO  bE  SEI 

OR 

K046b 
AU46  t 

RETSET^  TSIBRET  INUTtATEtTbY  IFIE^OtTAL  NUMBEFTTOLEOifrlNG 

IL 

IFIETTL  call 

FLAGlUP 

• 1 He  CAULiNci  Sequences  ake  • 

SET  blT(S)  iN  |-LAt3iNKUl  EOKKEbPONUl Nti 

TO 

A0^b8 

ocr 

^ AA  A A 

THE  1 BITS  NUMtJEH  XXAXXV 

A04fcy 

IL 

flagidwn 

RESEI  bn(S)  IN  FLAGWRDl  CORRESPONDING 

A0A70 

UC.  1 

A X X X A 

|U  int  I Dll'S  II**  INUDD^r^  AAAAA* 

KU^t  i 1 

IhE  calling  seuuences  for  flagwruz  are  similar. 

KOA72  NUIt  IhAI  fLAOWRUl  AND  fUA0WRD2  COKRtSPOND  lU  iNItKHRtUVt  SWllOHfcS  16D  I HKOUGh  <*AD. 

KOA/A 
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30,3206  DANH  30 

* * » * A It  » ' »■  » V * It  * It  A A A A A A A A If  A A'  A A A IT  A A A 

1HE  mass  update  routine  EXTENDS  FROM  APPROX  1 MA I ELY  HERE  10  IHE  NEXT 

ROW  OF  HTsteKISKSV  ■ ^tOMF>UTAT  lDTIS"7WE~AS^Xin.CmiST4-  ^ 

U)  /AF/  = MAGNITUDE  DV/DT , SCALED  IN  UNITS  OF  2(-3)  M/CS/CS. 

(2)  prefurce  = /afv  mass*  approximate  Present  thrust*  scaled  at 

Some:  3.3'”P0UND5  PER  brt;  PREFOKCE  1_ATER~t5ECOMEb-PREFURCE/2FMAX. 

(3)  nominal  exhaust  velocity*  VEXNOM  = VEXSIEP  + (PKEFORCe-FSTeP) 
SLOPE*  where  VEXSTeP*  FSTEP*  AND  SLOPE  ARt  SELECTED  FROM  THE 
•VEXTAbLE*  bY  THE  ROUTINE  BEGINNING  AT  VEXFINDDT  THE  FSTEPS 

and  vxsteps  Define  certain  discrete  points  un  the  curve  of 
exhaust  velocity  versus  thrust*  the  associated  SLOPE  IS  ALWAYS 
THAT  FOR  the  SEGMENT  JUST  PRECEEDING  I HUSt  POINTS,  (UNITS 
FOR  VEXNOM*  AS  FOR  NEGVEX*  ARE  2(6)  M/CS.) 

(4)  AREARATE*  a moderately  abstruse  (NOT  (0  SAY  ABSURD)  FUNCTION 

OF  delarea  (EROSION)  AND  preforce.  ((He  ai<ea  in  question  is 
THAT  OF  (HE  THROAT  OF  THE  ENGINE.) 

(3)  Delarea  s delarea  + arearate  deltat*  scaled  iiy  units  uf  2U)  * 

(6)  NEGVEX  = -(VEXNOM  - CVEX5  DELAREA). 

in  mass  = MASS  + (/DELV//NEGVEX)  MASS*  SCALED  IN  UNITS  UF  2(13) 
XILUGRAMS. 


(He  Following  initialisations  must  be  made  defure  launch: 

C(MASS)  = 0*  C(LeMMASSI)  = SCALED  MASS  OF  LEM  CUM  DPS*  C(LEMMASS2)  = 
scaled  mass  of  LeM  without  dps.  upon  LEM-SIVB  separation  mass  MUSI 
bp  reinitialised  using  LEMMASSI  and  delarea  must  bE  set  to  dp  SERO. 
later*  when  the  dps  parts  company*  mass  must  bE  initialised  still 

AGAIN  USING  LEMMASS2.  

THE  Following  is  an  inelegant  superfluity:-  inputs:  mass*  Delarea* 
DeLV*  DeLtAT*  emanations  from  the  VEXTAbLE*  A TAbLESPUON  OF  SALT  AND 
Seven  bYSANUNE  dodu  eggs.  outputs:  /af/  and  mass.  debris;  prefurce* 

NEGVEX*  AND  AReARATE  (TO  LEARN  MORE  AbOUI  THeSe  GeMS*  See  AbUVE) . 

-SIOBKOUT INeS  called:  MASSMULT  n a- PART^OF  thro  T T Le  con  (ROD  and  the 
interpreter.  ERASAbLES:  bANTS  5 AT  PRESENT.  EYLES  WROTE  THIS  STUFF} 
HIS  LAST  modification  THeREOF  (NUMBER  N+2)  WENT  INTO  AGC  REVISION  20. 
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0121 

REF 
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0 
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0164 
A0165 

30.3401 

30.3402 

00411 

03423 

0 

1 

LDWFCKIT 
MAS5CK1 1 

ULI 

OtL 

411 

.173031V64 

about  720  POUTIDSI'  SCAl-ED 
MASS  OF  LEM  W1|FI  DPS  > MASSCRIT  > MASS 
OF  LEM  WIIHOOT  DPS 

0166 

30,3403 

13165 

1 

KCSVEX 

20tL 

.41343  73 

EXHAUST  VELOCllY  FOK  KCS  JETS 

L0166 

30,3404 

30244 

0 

0I6T 

30,3405 

171 14 

0 

APSVtX 

2DEC 

,473441350 

EXHAUST  ‘V£CecrT'Y"FUK^ASCENT  UNGINE 

C016  7 

30,3406 

33562 

0 

0168 

30,3407 

00316 

0 

CVEXl 

OtL 

+.012338840 

016V 

30,3410 

76221 

1 

CVEX2 

OtL 

-,0b^b7S066 

0170 

30,3411 
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0173 

' TEaSS"  CALCUI.A(0R 

30,3414 

02035  0 

MINMASSA 

2UtC 

2106.4833  B-15 

USERIS  OWN  PAGB~NCr.  "5  “S3  E5 

MAS5  OF  APS  EMPTY 

t.0173 

30,3415 

U7&6  y 1 

017^ 

30,3416 

06062  0 

MINMASSU 

20tL 

6245  B-15 

PESLENT  WITFI  no  ops  fuel  and  405  PCS 

AOl  75 

30,341 7 

20000  0 

AOl  76 
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01  yy 
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THE  VEXTABLE 

0181 
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01713  0 

FSTEPl 

+.0592346907 

25» 

0182 

30,3421 

11736  0 

SLOPEI 

+.31041 7231 7 

0183 

30,3422 

16445  0 

VXSTtPl 

2L)bL 

+.4553963093 

ABOUT  2914.53  M/S 

(.0183  30,3Aii3  066AA  1 


30,3424 

03“62T>  0 

F5TTP2 

-QtX. 

+.1184693815 

50* 

0185 

30,3425 

76531  1 

SL0PE2 

-.0413889642 

0186 
■ - rn  1 Rft 

30,3426 

16375  1 
— rrrxzra — i — 

VXSTEP2 

ABOUT  2898.84  M/S 

018f  30,3A30 06275  1“  fSTtPS  ut(^ +.1990285610  BASi  

0188  30,3431  06741  0 SL0Pt3  UtO  +.2168355662 

0189  30,3432  17033  1 VX5TtP3  20tt  +.4704127421  ABOUT  3010.64  M/S 


C0159 

30,3433 

07603 

0 

0190 

30,3434 

07100 

1 

F5TEP4  ■ 

' +.72262  76618 

93* 

oiyi 

30,3435 

76601 

1 

SL0PE4 

PEL 

-.03895 79859 

0192 

30,3436 

17014 

1 

VXSTEP4 

20tL 

+.4694933687 

ABOUT  3004.75  M/S 

(.0192  30,343  7 06573  (7 


"0193 

30,JtF90 

3 777  7 

1 

HIFSIEP 

PEL 

♦•9999999999 

JUSI  IN  CASE,  anomalously. 

019A 

30,34A1 

00000 

1 

HISLOPE 

DEL 

♦•OOUUOOOQOU 

PREhORCE  appears  TO 

019> 

30,3^^42 

1 7014 

1 

HIVXSIEP 

2PEL 

♦ •46949336b  7 

EXCEED  100*. 

■ A01V6 

3U»?443 

05573 
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REF  17  LASI  845 

30,3444 

02565 

0 

ETHROIL 
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tIHKUl 
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L " ‘ THfroTrut.  CUNfRDL^  “ UStKVS  0t(N  PA&E^fTO.  1 S3 

KooOl  iMKciltfc  (.ONTKUL  C.AN  Bt  UStD  IN  tilHtP  OF  I WU  MubtBi  iN  "PtH(.tN[AOt  MUOt"  (WHtN  A (-tUlAiN  FKAbTiON  OF 

R0ub3  “MAXrnUM  IKKUSI  is  OtSIRtOr  AIW  IN“"AO;tl-tRATrON  MOOt""  (wfftN  |Ht  THK0!>I  PtSFKtD  is  THAI  COBRtSPONDINO  TO  A 
KoOOb  SPtOlFltL)  ALOtOtRATION)'. 

^WbObS  PtKXENTAGt  Moot  ACCEttRAT  lOTi^HOOt 

AOUOa  THt  FKAOUUN  of  maximum  THRUSI  (NOMINAUUY  OtSIRtO  ACttLERA  I I ON  * IN  UOUbLt  PREOISIUN, 

AOOIOI  10300  T’OUSiUST  OESTREDV^l  N SITHoUF  PRETTISTTTNT ' T5"  ITT  UNITS  OF  2t-5)  M/CS/C5T“TS^UACED  IN  /ACT/. 

A0013  PLAthU  IN  RONIF.  ENTRY  IS  VIA  A D I (.b  AN  THt  ENTRY  IS  VIA  A OTOB  ON  I HE  2UADR  OF  IHROIUON, 

AOOlSt  2rAOR  OF  PCNIFMAX.  THE  ROUTINE  BtOlNNlNCj  AT  THE  ROUTINE  BtOINNINO  AT  THROTtUN  SETS  UP  A JOB  - 

TTOOI®  nSENTFMAX  SETS  UP  A JOB  - PCNTJOB"  A ATTO  RETURNS  A'CCLJOB"-  AND  RETURNS"  T^CTTTmTSER- (AT  THE  ' 

AOOia  TO  IHt  USER  (AI  IHt  INSIRUCIION  IMMEDIATELY  INSTRUCTION  FULLOTwINU  THE  UlCb). 

«002(T)  FOLLOWINC  THt  DTCb), 

A0022  ■ ACClJOB,  "AFTER  A TTt  START  PHOT  EOT. 

R002A  PCNTJUb,  AFTER  A RESTART  PROTECT.  COMPUTES  0ESII3E0  ACCELERATION,  FC  = /ACF/  MASS, 

A002i!  TURNS  OFF  THt  TRIM  UlMbAL,  SETS  UP  A TNAITLIST  SCALED  AT  ABOUT  2,7  POUNDS  PER  BIT, 

R0028  TASK  (DESCRIBED  LOCALE Y1  , COMPUTES  THRUST  OESTRED,  "" 

A0030)  ' FC  = PCNTF  FMAX,  SCALED  AT  ABOUT  2,T  POUNDS  PER  BIT,  (NOTE  THAT  IN  THE  ACCELERATION  MODE  THE  TRIM 

A0032  AND  TCF'S  AROUND  THt  COMMENCEMENT  OF  ACCLJOB  TO  OIMBAL  IS  NOT  TURNED  OFFi  U IS  ASSUMED  TO  BE  OFF 

R0036  FoLDCaLC,  by  THE  time  THROTTLE" charges  are  "COMMANDED, 

RO036  FuLDCALC  BtUINS  BY  COMPUTING  PRESENT  THRUST,  FOLD  = MASS  /AF/,  SCaLeD  AS  IS  FC,  NEXT,  SINCE  /AF/  IS 

R003B  M£RtLT  AN-^AVERAGE"  OF  THE  1 HKOTTLE  LEVELS  "OF  THE  PKELEEDINU  PIPA  INTERVAL,  FTOLIT  TS  WEIGHTED  Dr  FWEIOHT,  A 

Rqoao  Function  of  the  preLleDing  throttle  lommand  (Described  locally),  to  prellude  a spurious  weighting  that  would 

ROOA2  OTHERwiSt  OCCUR,  FwEIgHT  IS  2ERUED  1,93  SECONDS  AF  T tIR  tVERy  PERCENTAGE  MODE  THROTTLlNo, 


RooAA  NeXT,  to  Compensate  for  the  differential  between  bits  fur  maximum  thrust  and  bits  for  full  throttle,  the 

ROOAb  ' number  Fold  - food  is  computed  and  Set-  into  PIFPSeI  whenever  FCOLD  indicates  the  throttle  is  at  MAXIMUM, 

ROOAB  Since  PIFPSeT  is  used,  RATHeR  than  PIFt  PIF  ST  ill  reflects-  ACCURATELY  THE  A'^TUAL  TTWUst  CHANGlt  AI^O^WErrUHT  IS 
R0U30  COMPUTED  PRUPERLY, 

R003T  next  COMeS  1S_1T-0N,  HERE  THE  ENGINE'-OF F "DI T T‘1A  OF  CHANNEL  H)  TS  CIUeRTED!  TF"THF~EN,aTNE  IS  OFF 

Ro033  FCOLD,  |He  SlNGLt  PRECISION  HISTORY  REGISTER,  IS  Sei  )U  io»  FMAX  AND  PiFPSET,  A PRESETTING  ADDED  TO  PIF  AT 

R0053  THE  LAST  MOMENT,  IS  SET  TO  -1098  FMAX  TO  COMPENSATE  FUr  THE  ASSUMED  SETIINU  UF  THE  MANUAL  THrOTTLE, 


Roost  the  SeRIeS  of  Decisions  beginning  at  wheReto  causes  jHt  throttle  to  React  to  users,  deSireS  in  the 

R0039  manner  Described  by  figure  3.3-3  of  the  flight  200  gsup,  wmeReTD  rhoceeds  (or  branlheS)  to  flatoot  uf  the 

-ROObl"  THROITLe  level  ASKED  FUR  IS  IN  THE  FORBIDDEN  REGION)  UR  |0  UUPIF.  FLa  I OUT  RESE  TS  FL-r0"-9«-  FMAX , SeTS  FEXTRA 

ROOb3  (A  BOOST  GIVEN  TO  THE  THROTTLE  TO  KEEP  I)  JAMMED  AGAhmST  ITS  STOPS)  InTD  PIFPSET,  AnD  PROCEEDS  TO  UOPlF. 

R0063  DUPIF,  AFTER  A i'TYPE  C"  RESTART  PROTECT  (NeCeI>1>I  T A I eD  BY  IHe  FACT"  THAT  ‘ FLOtELTTND-p^LFr-USEU  eARLIeR  , ARE 

ROObT  ABOUT  TO  Bt  MODIFIED),  SETS  FCOLD  s FC,  COMPUTES  RIF  (PULSE  INCREMENT  FUR  ACCELERATION)  = FC  - FOLD,  AND,  AS 

ROObV  It  PRULEEDS  (0  DUIT,  HAS  THIS  NUMBER  PLUS  PIPPSeT  IN  A b L. 


ROU7U  dUIT  DDEs  it.  IT  Ts'S  INTO  ThRUsT,  ThE  CHANNEL  (35)  LEAdING  TO  dECA,  ThE  TpRUT TLE-AGC  INTERFACE 

R0U72  ClKCUil,  and  SETS  BIT  ^ IN  CHANNEL  11,  THt  SIGNAL  FUR  THRUST  TO  B£  LOON) eD  DOWN  (AT  3200  PRS),  FINALLY, 
"R007A  " FWETIGHT  ='FTPIF)  IS  COMRUTEO  for  use  next  PASS'.  — - ' 

ROO/3  AFieR  ANOI'IIeR  KeSTAR)  RROTeCT  a ICF  ENDUFJUB  ends  |HRU)|Le  LUNTRDL. 
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53,575  0 

THRO  ICON  DxLH 

KTNHOLO 

retaining  2CAUR  pDR  RETURN  TO 

u;>ER 

01 2 B 

RLF 

10 

LAS  1 

B03 

30.3A7 ) 

3 5210  1 

LAF 

PK1030 

012V 

30,3500 

0 000^*  0 

INFIIN  1 

0130 

REF 

iZ 

LASI 

B5l 

30,3501 

0 5505  1 

IL 

NOVAL 

0131 

REF 

zo 

LAS! 

B51 

“LBWNKTs 

^TflROT 

0132 

30,3502 

035A0  0 

^LALK 

ALLLJUb 

C0132 

REF 

z 

LASI 

6) 

30,3503 

60065  1 

0133 

■30, 350 A 

0 0 003  I 

KtUlNI 

A013A 

THIS  RETURN  IS  COMMON  TO  BOTH 

entries. 
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REF 

3 

last 

BSi 

30,3505 

53*575  0 

AWAY  LALH 

RTNHULD 

0136 
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52  006  0 
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HOi37 

AOUt) 

Aouy 

* tOMPUTATION  » 

A0X4U 

OiAl 

30,3507 

0 0004 

0 

PCNIJOB 

INMIN 1 

blNtt  THROTILING  lb  ABOUT  TO  tOMMENtt. 

014b 

■RtF" 

T 

3YI,35T0 

3 3464 

T 

LAF 

THRO  I DT^ 

bET  UP  A^TASR  10  ZERO  FWEIGHT  IN  2 bEtS 

0146 

RtF 

131 

LA5I 

b33 

30,3511 

0 5663 

1 

It 

WAI ILISI 

Oi^  f 

RtF 

21 

laei 

bbl 

E5 

tbANKs 

EIHKOI 

OlJtB 

30,3513 

03456 

0 

2CA0K 

PCFTTOVER 

eoi^b 

REF 

2 

LAbI 

63 

30,3513 

60065 

1 

01A9 

REF 

46 

LAbI 

B03 

30,3514 

0 4141 

1 

It 

2PHbLHNL 

OlbO 

30,3515 

40031 

1 

UL  1 

40031 

l.SbPUT  FOR  F'tNTOVEK 

Olbl 

30,3516 

05034 

1 

Utl 

05024 

015^ 

30,3517 

25000 

0 

utT 

25000 

30,3530 

0 0006 

1 

tXltfNU 

01b6 

REF 

2 

LAbI 

b46 

30,3531 

4 3701 

0 

OLb 

-FMAX 

0157 

Ref 

LAbT 

B50 

30,3523 

52  145 

0 

OXLH 

MPAt 

015B 

REF 

f 

UAbi 

746 

30,3533 

3 1323 

1 

LA 

PtNIF 

0150 

REF 

5 

LAbI 

3 7B 

30,3524 

0 735  7 

1 

It 

SHOKIMP 

0160 

REF 

3U0 

LAbI 

b5'2 

3U*i525  ^2  145 

0 

0 aLH 

MPAt 

LUAOIMG 

0161 

REF 

2 

LAbI 

336 

30,3536 

53*571 

1 

OXLH 

Ft 

btORlNG 

0116<? 

REF 

245 

La  b 1 

B50 

30,352  7 

3 7T6~r 

0 

LA 

ZtHu 

zeroing  FWErCHT  IJENtE  II  *S  UNKNOWN 

0163 

REF 

3 

LAbI 

bbO 

30,3530 

55*576 

0 

lb 

FWEIGHT 

0164 

REF 

4 

LAbI 

B53 

30,3531 

55*577 

1 

Fk^tlLHT  4-1 

are^s 

■RtF 

r 

30*35^4 

T 35*rf 

0 

fULOtAtt 

A01651 

ao  Dane  □□□□□□  DO  a □□□!□□□□□  □□□□□□□□□□□□□Doupaa  DUO  uacDCiDDDOQuaaaaDnDaDDnp  anon 

01653 

30,3533 

00063 

1 

bCALEFAL 

AOEt 

♦51.R46VB7  B-lA 

OUAbUNEWTONb  TO  PULSE  UNITS 

to  1 652 

30 ,35“34' 

36233 

0 

01653 

30,3535 

31000 

0 

2.PG.FR 1 

OEt 

12B0O 

IWitt  PGUIO  IIMF  PULSE  RATE 

01654 

30,3536 

^4034 

0 

-LOCRl 1 

OtL 

-2014 

IHE  lower  MlO-bCALE  tRlIERlON 

0 1 65‘5 

RtF 

1 

3U»3536 

FEXTRA 

- 

-LOtRlT 

01656 

30,3537 

00666 

1 

♦ FLOW 

UtL 

♦ 43b 

minimum  attainable  thrust 

AU165  ? 
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0166 

REF 

132 

LAbI 

B33 

30,3540 

0 4161 

0 

accljub 

It 

PHAbtHNG 

016  7 

30,3541 

0502A 

1 

otj 

05024 

016b 

3U  *3542 

30000 

1 

OLi 

30000 

016V 

30,3543 

0 oooo 

1 

LX]tNO 

rthP 

1 

30135W 

r 1323 

\r 

TTtA 

“TTECFT 

0171 

REF 

2 

LAbI 

b45 

30,3545 

0 3445 

1 

It 

MASbMULI 

01  ^2 

REF 

3 

LAbI 

b52 

30,3546 

53*571 

1 

OXLH 

Ft 

Ft  = MASS  /Atp/,  StALEU 
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0171  - 30,3533  0 0006  I tXitNU 
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AOJTiO 
AO  1 BT 
aoibz 

A01B3 

AOiBA 

A01B3 

A01B6 

A01B7 

AOIBB 

AOIBR 


IF  IH£  THROIILE  IS  AT  MAXIMUM,  THE 
QUANTITY  “-'TTTJDCrAFDUTT^  T^^COMPUTEU  AND 
PUT  INTO  PIFPSEI  TO  LUMPENSAIE  FUR  I HE 

difference  Between  the  number  of  bus 

TILE.  TCLSEST^ORFTESPUND TNG  TO  100» 
THROTTLE  (FOOD)  AND  THE  NUMBER  CORRES- 
PONDING TO  AClUAL  THRUST  (FOLD).  THIS 
C0MPEN5ATIDN"r5~NEEPE:iT'lF  THS  THROTTLE 
returns  to  the  THRUIILEABLE  REGION  THIS 
PASS,  IF  II  DOES  NOI,  PIFPSET  IS  RESET 


AOi^O 

U191 

REF 

lasi 

btJd 

30,3636 

A 776/ 

1 

FCOMPSET  CS 

ZERO 

IN  FLATOUT. 

019Z 

REF 

1 

30,365  t 

63»3  74 

1 

rb 

PIFPSET 

0193 

REF 

1 

30,3660 

4 3704 

U 

♦HICRIT 

0l9<t 

REF 

1 

30,3561 

6 1567 

1 

AO 

FCOLD 

0195 

30,366Z 

0 0006 

1 

EX  1 EINU 

0196 

REF 

1 

30,3663 

6 366  f 

0 

BZMF 

lS-1 l-ON 

BRANCH  IF  FCOLD  < HICRIT,  OTHERWISE 

01V7 

RpF 

1 

30,366A 

4 367  7 

0 

iwb 

+ FODD 

CUMPUTE  THE  COMPENSATION  NUMBER 

0198 

REF 

3 

LASI 

B>3 

30f 3565 

6 1665 

0 

Ay 

fold 

0199 

REF 

d 

LAi>l 

tit>3 

30,3566 

55*574 

1 

1 s 

PIFPSET 

■ AOZOO 

AOilOl 

AOZOZ 

AOZ03 

AOZOA 

AOZ03 


THIS  ROUTINE  CHECXS  TH£  ENGINE-OFF  BIT. 
IF  IHE  engine  is  off.  FcOLD  is  set  10 
10  PERCENT  FMAX,  AND,  SINCE  /AF/  DOES 
NOT  REFLECT  THE  SEItING  OF  THE  MANUAL 
IHRUTTLT:.  that  SEIIING  (AROUND  IZ*)  IS 
placed  NEGATIVELY  IN  PIFPSET. 


(r<rt;^6 

REF 

35 

LA5I 

B3Z 

30,3567 

4 0076 

1 

lb-1  1 -U(N  Eb 

FLAGWRUl 

...  .... 

0^0  f 

REF 

5 

LAbI 

316 

30,33  70 

7 776  7 

1 

MAbK. 

ENGINBI 1 

o^;o9 

30,3671 

0 0006 

1 

tx 1 enu 

oz  10 

RLE 

1 

30,3574 

1 357  7 

0 

HHERtIO 

BRANCH  HERE  IF  ENGINE  IS  ON 

0^11 

REF 

1 

30,3573 

3 353  7 

0 

EA 

♦ FLUW 

o^lif 

REF 

LASI 

B53 

30,3674 

56'66  7 

0 

1 s 

FCOLD 

SET  1 ING  FCOLD 

REF 

LAb  • 

653 

4 353  r 

E5 

■'♦'FLOW — 

0<ilA 

REF 

3 

LAb  1 

653 

30,3676 

56>57A 

1 

1 s 
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» DtUSION  * 
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Aoziy 

AOZZU 

AOZZI 

AOZ2Z 

A0223 


THlb  LOGIC  OtTtRMlNEb  IHKOTTUNG  IN  ThE 
REGION  10*  - VA*.  THE  MANUAL  IHKOITLE. 
set  TOT'irNIMOfrBT  MlSSTQN  phase  PROGRMS, 
PROVIOES  THE  lower  bOUNUi  A STOP  IN  1 HE 
ENGINE  ITSELE  PROVlOE?  1 HE  UPPER. 
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ref 

LASl 

bS2 

30,35T( 

3 

1S70 

1 

WHERE lU  LA  " “ 

FC 

REF 

1 

LAbl 

bS2 

30,3600 

6 

3536 

1 

MU 

-LOCRl r 

Oi'^b 

30,3601 

0 

0006 

1 

EA 1 ENU 

DZZ7 

REF 

1 

30,3602 

6 

3620 

0 

OOP  IF 

BRANCH  IF  FXTX  LOCRIT  “ 

REF 

3 

LAbI 

30,3603 

15?0 

0 

Lb 

FC 

0229 

RpF 

2 

LAbI 

bb3 

30,360A 

6 

37OA 

1 

AO 

+H1LR1T 

(723X1 

30,36175“ 

U 

“0006” 

1 

£TX  1 END" 
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I 

30,3606 

6 

3613 

0 

PAMF 

FLA  1 OUT 

BRANCH  IF  FC  > OR  = HICRIT 

0232 

REF 

3 

LAbI 

bb^t 

30,360 ( 

4 

370*t 

0 

Lb 

+ H1CR1  1 

0233 

REF 

3 

LASl 

bb3 

3O  « 36  i 

6 

156  ( 

1 

- MU 

fcolo 

023A 

30,3611 

0 

0006 

1 

tX 1 thU 

023S 

REF 

1 

LAbI 

bb*t 

30,3612 

6 

3620 

0 

B2MF 

OOPIF 

BRANCH  IF  FCOLO  < OH  = hlCKlI, 

633^J6A' 

YUL 
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* EAEEUTION  * 

Ao^;<tu 

IHHl  * * * * * * * 

OiJAl 

30,3613 

0 0006 

1 

flatooi 

EAIENU 

KEF 

E 

30,361A 

3 3703 

0 

UCA 

♦ FHIOFI 

" “ 02« 

b 

LAbI 

bb4 

30,3bl5 

bT'bfl 

T 

OXLPI 

FC 

KEF 

i 

3U«3616 

9 3536 

0 

Lb 

FEXIRA 

KEF 

4 

LAb  1 

bb3 

30,3617 

55'579 

1 

i b 

PIFREET 

0^46 

KEF 

E23 

LAbl 

b52 

30,3620 

0 9161 

0 

UOPIF 

IE 

PMAbLMNL 

02^.7 

30,3621 

04024 

0 

UEi 

09029 

7 

30*3622 

0 0006 

1 

LX  1 LINO 

o<i^y 

REF 

7 

LA5I 

bbb 

30,3623 

3 1571 

0 

OLA 

FE 

0iJ5D 

REF 

4 

LAbl 

85A 

30,3624 

55'567 

0 

1 b 

FCOLO ‘ 

■TUBrORT 

02S1 

KEF 

1 

30,362b 

53»b  73 

0 

OXLH 

PIF 

0232 

30,3626 

0 0006 

1 

EX  1 tlNO 

02  53 

Re  F 

4 

LAb7 

853 

30,3627 

9 1566 

I 

OLb 

FDEO 

0^•:>^ 

KeF 

^ 

LAEI 

bbb 

30,3630 

21»57^ 

0 

OAb 

PIF 

PIF  = FE  - FOLO 

025A5 

KEF 

L 

30,3631 

0 3713 

i 

JE 

OAPLOOIE 

O^b!) 

REF 

3 

LAbl 

bbb 

30,3632 

3 157<i 

0 

oaplkein 

LA 

PIF 

0^:56 

KEF 

b 

LA^I 

bbb 

30,3633 

6 1579 

0 

AO 

H1FH8ET 

AOO  IN  PlFPbET*  NOI  CHANOING  PIF 

025  1 

KEF 

b 

LAbl 

4Ub 

30,3639 

59  055 

0 

OUIT 

1 5 

IHRUbI 

025b 

REF 

124 

LAbl 

■bbb 

30,3635 

0 9161 

0 

Te 

PMAbLHNL 

T)r?9 

30 ,3636 

04024 

0 

ULi 

U4024 

0^:60 

REF 

44 

LAiJl 

b2b 

30,363  7 

3 7760 

1 

LAI- 

BIT9 

0^61 

30,3690 

0 000b 

1 

t'X  IB  NO 

30,3691 

05  019 

1 

wUK 

19 

ANO  the  engine  DOtb  THE  KEbT... 

»02b3 

blNEE  /AF/  15  NOT  ATT  INbTANTANEOUb 

A026A 

aeceleration  (woulo  tnai  it  weke»)  but 

A0265 

KATHeK  an  "AVERAGE"  OF  THE  AEEEUEKAIION 

AQ^66 

LEVtLb  of  THE  T-Abl  PIPA  INTERVAL,  ANU 

A0^6  r 

blNEE  FOLO  lb  EOMPUIEO  OIKECTLY  FROM 

A026b 

/AF/,  FOLD  IN  ORDER  lU  EORKEbPOND  |U  THE 

A'0'269 

AETDAr  THRUbl~LBVE1r  AT  1 HE  END  OF  IFIE 

Ao^; 

INTERVAL  MUbI  BE  WEIGHTED  BY 

A02  7i 

PIF  PPRUCEb PTF“APTF7 

A027i! 

FWLigHT  • 

A02  73 

PGUID  2 PGUID  FKATE 

A0^7^ 

where  PPROCEb  15  IHE  1 IME  BETWEEN  PIPA 

A027t3 

reading  and  IHE  blARI  OF  IHRUITLING, 

A027  6 

PGUID  IS  the  GUlDANEE  PERIOD  (2  bEEUNDb) 
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AO<^77 

ANO  FRATE  lb  IHE  IHROIJLING  KATE  (bOME 

A027B 

A0^7V 

3200'  UNITS  PER  5EL0NDI,  FIERE  FREIGHT 

lb  LOMPUTEO  FOR  USE  NEXT  PASS. 
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U UOUb 

i 

tx  i END' 
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0 
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REF 

301 

LAbI 

853 
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53  145 
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UXLH 

MPAL 

0Z183 — 

30,3645 

0 0006 
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LAbI 
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30,3646 
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0 
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REF 
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LAbI 
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LAbI 
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30,3651 

56  145 

1 
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MPAL  *X 

Oiibb 

REF 

*tb 

LAbI 

819 

30,3653 

1 7743 

1 

nAbK, 
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IN  LASE  THAI  LUUbY  SIGN  BIT  lb  bET 
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CTO 006- 

X 
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o<:yo 

REF 
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LAb  1 
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30,3654 
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0 

uv 
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30,3655 

0 0006 

1 

EXI ENU 

vz<rr 

REF' 

LAb  1 

Bbb 

3U 

~7  15  14 

X 

REF 

b 

LAbI 

bbi 

30*3bb ( 

53  157  1 

1 

UXLH 

FWEIOHI 

freight  = (PPKULEb/PGUlOlPlF , bU  FAR... 

0i9A  ref  1 30t366U  3 3535  I OA“  ^.PO.FR! 
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REF 
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LAbI 

bbb 

30,3661 

56  i44 

0 

xlh 

MPAl 

TO  BE  UbED  Ab  A OlvlbUR  LATER 
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REF 

b 

LAbI 

_bbb 

30,3663 

11'572 

1 

LLb 

PIF 

029T 

RLF 

Xb  r 

LAb  1 
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*3  0 1 3 b b 3 

b 7763 

1 

M0‘ 

ONE 

02Vb 

30,3bbA 

1 3666 

0 

1 LF 

♦ 2 

02yy 

REF 
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LAbI 

Bbb 

30,3665 

6 1763 

1 

AO 

ONfc. 

0300 

30  * 3 bbb 

0 000b 

X 

EX  1 ENO 
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REF 

b 

LAbI 

bbb 
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1 1573 

1 

MP 

PlF 
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30,36  10 

0 0006 

1 
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03  U 3 

KrF 

30b 

856 

3O  f 3b  / X 

10  144 

X 

OV 

MPAL 

RHIEH  LUNTATFrb  2-,PG,FRT 

030A 

30,3673 

33  00 i 

0 

LXLH 

f 

0305 

REF 

7 

LAbI 

bbb 

30,3675 

31 '57  1 

i 

OAb 

Freight 

030b 

ref 
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UAbI 

Bbb 

30,3614 

0 4161 

0 

IL 

PHAbLHNG 

030/ 

30,3615 

OOOOA 

0 

ULi 

00004 
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y? 

LAb  1 
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A0311 
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A0313 


CONSTANTS  FCK  UEClblON 


031A  “ i0,3tl{  13ya32  D"  ♦TD'DD  u>£C  +3866  B-H  THIS  MUCF1  SATURATE'S  THROTTLE 


031S 

30,3  100 

1 

-FMAX 

2DEL 

-38M2 

b-l^» 

NOMINAL  MAX  IMRUSI  IN  BIT  UNITS 

o^it 

30,3101“ 

30,3702 

rail 

unou 

u 

1 

♦FHIUH 

■^VtL 

♦ 36Ab 

b-l4 

MAX  attainable  thrust,  UNEKODED 

(.0316 

30,3103 

uoouu 

X 

03T7 

30,370A 

0A31A 

u 

+ H H-K  X 1 

UH- 

t22S2 

b-  14 

THE  HIGHER  r-TlC^SCAtlt  GKiTtKIUN 

R033S  □DnnBcanDnnBDanaauDDDaDQaDaDaDDaniaDiupLioanaDnDnQaDQCJaaDaanaainaaaDDaaaaaauD 
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kOOOi  PPQGHAM  OeSGKIPTION-  IMU  COMPENSATION  (LeM)  OATt-  I DEC  66 

kOOOy  MOO  NO-  0 ^ ' “tOG.  SECTION^  TMU~C0MPENSA1  TON  PACKAGE 

KOOOl  MOO  BY-  GILBtKI  ASSEMBLY-  SONBURSI  REVISION  A8 

K0009  PUNCUONAL  OtSCKlPTlON 

Koolo  [He  iMJ  Compensation  package  is  designed  lo  compensate  pok  pipa  bias  and  scale  pactor  emhur  and  at  the 

Koui2  same  time  accumulate  gyro  TOKOUING  commands  NeLePSARY  10  compensate  POR  the  associated  bias  and  acceleration. 

RoOlA' — CAUSED  GYRO  OKIPtS.  1/PIPA  'MUST  Be  DALLEO  at  Least  evert- i.bs  seconds  DOE  TO  scaling-  CONSTUEPrArTONS-7--  ■ 

R0016  SPECIP ICALLY , I HE  CORRECTION  IS 

R0017  PIPA  = (1  + scale  Factor  erruripipa  - iBiAsnuELiAT) 

ROOlb  C I 

Kouiv  where  pipa  is  the  Compensated  data  obtained  prom  the  sampled  data  pipa  - - ^ 

R0020  C 1 

Roo21  the  compensateu  data  is  tHen  uSed  to  Compote  the  ikig  torqoing-neCessary  to  cancel  the' nbd-t  aoia,'  and- adsra 

K0023  gyro  COEPFICIENTS. 

R0U2A  SPECIUCALLY,  THE  COMPUTATIONS  ARE 
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Rooil  this  compensaiIon  IS  summed  into  tHe  gcump  Registers  and  when  tHe  magnitude  oP  any  trig  command  exceeds  2 
R0  0 33  Pulses,  the  commands  AirrsENT  tctthe  gyros.- - - 

R003A  DURING  PRee-FaLL  PHaSeS  oP  A PLIGHT  nBDA,  nBDY  , AND  NBDA  ARe  I He  ONLY  ReLeVANT  COEP*"  i C 1 ENT  S,  IHeSE  BIAS  TERMS 

Ro'036  -Will 1'ntegrated  BY  Routine  NBuoNCirAPPKax-TMATELT  eVeRY  ei.93  seconds  pollowing  atv -irAEtOT ive'Call  by  the  dummy 

R003B  TASK  OP  IHe  WA1|L1St  PROGRAM,  NBDqNLY  IS  ENABLED  WHeN  bit  IS  OP  PLAGWRD2  IS  SeT  TO  INDICATE  PREE-PALL,  DURITyG 

ROUAU  THIS  TIME  1/PIPA  IS  NOT  CALLED. 


Rooai  lastbias  is  Called  via  executive  when  making  the  transition  prom  pree-pall  to  a pipa  reading  mode,  the  nbd  terms 

RoUA3  are  compensated  POR  PROM  THE  LAST  NBDONLY  CALL  UP  TO  PIPA  ZEROING,  PR£READ  WILL  THEN  ENABLE  I/PIPA  AT  IIS 

Rouas  Regular  interval,  the  drift  flag  must  be  down  oust  prior  to  LAsiaiAs,  g y rocump^a^s-tve ver-cmll&- t as t bias.  - 

ROOA7  SCALING  Considerations 

ROOAB  - - units  - - MAX-,  VALUE’  INTERNAL  UNITS  AND  S'CAtl-NG 

ROOSO  PIPA  BIAS  (CM)  / (SECMSEC)  3.1ZS  (PlPA  PULSESJ/ICS)  X Zl-S) 

R00S2  PI  FA  scale  FACTORS  P.P.M.  ' IVS^.-TZS rPPMT  X 21-V)  - “ ' 

ROUSA  nbd  T^IERU  12B.7A6UA  (GYRO  PULSES)/(CS)  X 2(-5) 

ROOS6  ADIA  (MERU)/(G)  630,36633  (GYRO  PULSES )/( P 1 PA  PULSE)  X 2(-6) 

-RUOb-B  adsra-  — - - ' TMETTury  (Trr  - 6-30.366-3-3 (gtro-fuicses)  / iPiFA-pucser-x  -2  t-s-) - 
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L ~ 

ImO 

OOMHtNSAl  lOIN 

KAL^AQah 

UbtKib  VViN  KALt  rNU.  8 b3  L3 

osa  1 

RpF 

6 

EASI 

864 

. 12,3601 

11'963 

0 

NBOONLY 

LLb 

OLONKbW 

BYPASS  IF  GCOMPSW  NEGATIVE 

ozm 

12 « 36^^ 

1 3605 

U 

1 Lh 

+ 3 

oiibv 

12,3603 

1 3505 

0 

KF 

+ 2 

Oil'iO 

REF 

96 

LAS( 

86b 

12,3509 

1 556  ) 

1 

ILF 

ENPOFJOB 

Oi'yuot) 

12,3506 

0 0004 

0 

INHIN 1 

OEVOl 

REF 

30 

EASI 

831 

12,3506 

10  0)6 

1 

LL^ 

FLAGwRo2 

PREREAp  T3R0PI  may  COlNcIpE 

02902 

RET 

97 

UA5I 

ti66 

12,350) 

”I  55b  ^ 

1 

rcT 

LNDOF JOb 

02903 

REF 

98 

EASI 

866 

12,3510 

1 556  ) 

1 

ILF 

ENPOFJOB 

0<;90A 

12,3511 

1 3512 

0 

ILF 

♦ 1 

0E9I 

REF 

18 

LA61 

819 

12,3512 

3 0025 

0 

LA 

1 IMEl 

(CS)  X 2(+19) 

029*^ 

REF 

6 

LAbl 

864 

12,3513 

56  765 

0 

ALh 

1/PlPAOI 

PREVIOUS  TIME 

029Z5 

12,3519 

0 0003 

1 

KEUNT 

0293 

12,3515 

4 0000 

0 

LUM 

029<» 

REF 

7 

LASI 

866 

12,3516 

6 0766 

0 

AO 

I/PIPAPI 

029S 

RtF 

311 

EASI 

864 

12  f 351  ( 

10  OOU 

0 

NB02 

LLo 

A 

CALCOUATE  ELAPSEP  I IME 

0296 

REF 

1S9 

LAbI 

866 

12,3520 

6 ) )63 

1 

AO 

ONE 

NO  1 IMEl  OVERFLOW 

029) 

REF 

1 

12,3521 

1 3526 

1 

ILF 

NBD3 

RtSIURE  time  PIFFEKENCE  ANP  JUMP 

■ 0298 

1 2 « 3622 

1 3529 

0 

1 Ch 

*2 

HMtl  UVtKFLUW 

0299 

ref 

99 

LAbI 

866 

12,3523 

1 556  ) 

1 

ILF 

LNDUh JOb 

IF  ELAPSED  TIME  = 0 (DIFFERENCE  = -01 

0300 

12,3529 

9 0000 

0 

COM 

calculate  ABSOIJOITTITFE’RENCE 

0301 

REF 

EASI 

866 

12,3525 

6 )793 

0 

AO 

PQSmAx 

0302 

12,3626 

0 0006 

1 

NB03 

EA 1 ENO 

L^A^  ? Ot-LlAl  IL6)  X 2I*14^ 

0303 

REF 

44 

LAbI 

82b 

12,352) 

7 7752 

1 

MP 

BITIO 

SHIFT  RIGHT  5 

030^t 

REF 

20 

LAST 

8b3 

12,3530 

52  113 

0 

OXLH 

VBUF 

. 030S 

1 2 t 3 6 ^ 1 

0 00U6 

1 

IPX  FtNt?" 

0306 

REF 

21 

LASI 

866 

12,3532 

3 0113 

1 

OLA 

VBUF 

030T 

REF 

319 

LAbI 

864 

12,3533 

52  196 

0 

UXCFI 

MPAC 

OELIAT  NOW  scaled  ICS)  X 2(+19) 

0308 

REF 

2sa 

LAbI 

86^ 

12,3639 

3 )76) 

0 

LAh 

AERO 

0309 

REF 

6 

LASI 

866 

12,3535 

56'463 

0 

IS 

OCOMPSW 

indicate  commands  2 PULSES  OR  LESS 

OTl'O 

RtF 

!)8 

LAbI 

866 

1 2 f 3 5 3b 

?9  12U 

0 

lb 

BOF 

PI  PAX,  PlPAYl^P'EPAir 

0311 

RfF 

6 

LASI 

863 

12,3537 

9 1999 

0 

Lb 

NBPX 

(GYRO  PULSES)7(CS)  X 2(-s) 

RVF 

l2  *3640 

0 ^566 

1 L 

fbiassob 

• ^ ND[TX MDt'L ^ A pUL^tb;  X 2^  + 14) 

0313 

12,3591 

0 0006 

1 

EX ( ENO 

RtF 

22 

866 

12  «3542 

9 0113 

0 

PCS 

VBOF 

0313 

REF 

320 

LaSI 

866 

12,3693 

52  196 

0 

OXLh 

MPAC 

DELIA!  SCALED  (CS)  X 2(+19) 

031b 

REF 

2 

LASI 

862 

12,3599 

3 1446 

0 

LA 

nbpy 

(GYRO  PULSES)/(CS)  X 21-5) 

RE.F 

1 L 

Fb  fA^iUb 

0318 

12,3596 

0 0006 

1 

LX  1 LNO 

0'3 1'V 

RLF 

23 

LAb  1 

866 

i 2 ,364  r 

9 0113 

0 

pCb"  ■ 

VBOF 

0320 

ref 

321 

LASI 

866 

12,3550 

52  196 

0 

OXCH 

MPAL 

DLUA1  SCALED  (CS)  X 2(  + l9) 

0321 

REF 

2 

LASI 

862 

12,3561 

9 1996 

1 

Lb 

NbP2 

(GYRO  PULSES))(CS)  X 2(-6) 

RfF 

060 

12,3662 

0 3666 

1 L 

■HtfAbbUb 

♦ (MbtX2)  (OEL  ) HaYKO  PULSt5)  ^ 2‘i^l4) 
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0323 

ReF  ! 

LASI 

b66 

12.3333 

11 IA63 

u 

(jGOMPSW 

AKt  tiYHO  COMMANDb  CaKEATtK  THAN  Z PULbbi> 

0329 

^RTF”  i 

LA^r 

tib^ 

12,3339 

1 3933 

l- 

Kh“ 

I/6YRU 

yes  ■■ 

0323 

ref  lUU 

LASI 

bbb 

12,3535 

1 356/ 

i 

ENDOF JOb 

NU 

^63J^tT6T^ 
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IMJ 
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FAC^AOt 
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S3  E3 

0326 

RtF 

LAbt 

b63 

12,3bb6 

56  002 

0 

FBlAbSUB  ALM 

u 

^ 0327 

RtF 

"39 

LAb  1 

b&O 

12 ,355  1 

5A  121 

1 

1 b 

HOF  ♦! 

032b 

REF 

iiA3 

LAbI 

bbb 

12,3560 

3 0002 

0 

LA 

u 

MBO  bLALED  (GYRO  PULbtb)/tLS)  X 

2(-5) 

072V 

12 ,3561 

0 0006 

i 

LA  1 ENU 

0330 

REF 

LAbI 

bb6 

12,3562 

1 OlAA 

1 

MP 

MPAL 

OELIAl  SCALEO  (Cb)  X 2(+l9) 

0331 

RLF 

60 

LAbI 

bbb 

12,3563 

50  120 

1 

INULA 

HUF 

0532 

R(.F 

LAb7 

bbb 

1 2 ,356A 

7r»A56 

CaXOr'FP 

Ftl  (lYBDt  CDEL  1 AT  ) TtiYKO  PULSEb) 

A 2 14-1A> 

0333 

REF 

LAbI 

bbb 

12,3565 

3 0002 

0 

La 

u 

NOW  fractional  PAR| 

033't 

1 ^ « 3 bbb 

000b 

1 

EX  1 Enu" 

0335) 

REF 

LAbt 

bbb 

12,356t 

7 01A5 

0 

MP 

MPAL  +1 

0336 

ref 

IBB 

LAbI 

bbA 

12,3570 

5A  001 

1 

1 b 

L 

0337 

REF 

LABt 

bbb 

12,3571 

3 77b  ^ 

0 

LAf 

2ER0 

033B 

REF 

bi 

LAbI 

bbb 

12,35 

50  120 

1 

INULA 

BUF 

033V 

ref 

LAt)l 

bbb 

12,3573 

21  'Abb 

0 

UAb 

GLOMP 

INBO) (DELTA! ) (GYRO  PULSEb) 

X 2(+lA) 

03^0 

REF 

i 

12,35  7“* 

1 3A20 

0 

|EF 

ORF |bUB2 

CHELK  MaCNIjOUE  oF  LoMPENbAllON 

03A1 

ReF 

b 

LAbI 

bb  r 

12,3575 

11  '963 

0 

EASTblAb  LCb 

bCOMPbW 

BYPASS  IF  GLUMPSW 

NEGATIVE 

03Jf2 

T<r3bT©^  1^  36TJt  1 

^rcp 

+ 3 

03A3 

12,3577 

1 3601 

1 

ILF 

♦ 2 

03AA 

REF 

101 

L/\b  1 

bb  7 

12,3600 

1 5567 

1 

ICF 

ENDOF JOB 

03Ab 

RfF 

2 

LAbI 

6 75 

12,3601 

3 5652 

0 

LAF 

PRI031 

2 SECONOS  SCALED 

(LSI  X 2(+8) 

03Ab 

REF 

b 

LAbI 

bbb 

12,3602 

56  765 

0 

ALH 

1/plPADl 

0347 

1 2 t 3b03 

9 0000 

t? 

COM — 

03A8 

REF 

10 

LAbt 

bbb 

12,3609 

6 1307 

1 

MU 

PJP 1 IME  +l 

TIME  AT  PIPAl  ; 0 

03A9 

REF 

1 

12,3605 

1 351  7 

0 

ILF 

NbU2 

0P50 

0351 

0352 

RcF 

Ref 

REF 

■ 3 
bi 
b 

last 

LASI 

LASI 

bbb 

bb3 

bfai 

' 1 2, 3 6 06 
12,3607 
12,3610 

3 3 955  ID 
56  003  1 
59  153  1 

-CjC-OMP-^tK  LAP 

ALh 

1 b 

LGCOMP 

EbANk. 

MODE 

KOUIINe:  to  rtKCr-OLOMP-tJtPUKL  PlKbT 
CALL  TO  1/PlPA 

03b3 

REF 

2b4 

LASI 

bbb 

12  ,3611 

3 776  7 

0 

LAP 

EERO 

03b4 

REF 

9 

LASI 

bbb 

12,3612 

55'963 

0 

1 s 

CiCCMPbW 

Rtf’ 

bbb 

1 2 « 3b 1 3 

55  # ^^55 

0 

Lb" 

(JtOMR 

0356 

RpF 

24 

LAbI 

bbb 

12  ,3619 

55>956 

0 

1 b 

glomp  +1 

0357 

REF 

2b 

LASI 

bbb 

12,3615 

5b»4b< 

1 

IS 

bLOMP  >2 

Rt:P 

26 

LAbI 

1 2 1 3b  i b 

5!> ' 4b0 

- lb 

GLOMP  +3 

035'7 

REF 

2 f 

LAbI 

bbb 

12,3617 

55>961 

1 

1 b 

GLOMP  +9 

0360 

REF 

2b 

LAbI 

bbb 

12,3620 

55'962 

1 

1 b 

glomp  +5 

0361 

REF 

7 

LASI 

bbb 

12,3621 

3 U153 

0 

LA 

MOUt 

0362 

REF 

b2 

LAbI 

bbb 

12,3622 

54  003 

0 

tb 

LbANS. 

L A 9^  1 

bb3 

1 2 ♦ 3 6 2"3 

1 5221 

1 

■ iLr 

SwRt  TURN' 

KEIORN  TO  LALOFR^ 
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KOyUU2  PROGRAM  name  - bEGIN206 
KOOUOA  MOD*  NO.  3 

R000U6  Mod  by  - D.  LIUCLY  AND  J.  SAMPSON 
R00008  OAIE  - NOV.  22*  1966 

' ROOW  COG^SECriClN  - DUMMY  206  I NI7  ITin  Z'ATTON  “ “ 

R00012  ASSEMBLY  - SJNBUKSI  REVISION  36 

■ ROUOlA  “TUNLITONAL  DESLRlPnON^-^STARTTJP  TO  TWCTDECATEP  J0B5TJK  TASKS  AFTER  SLAP],  FOR  SIMUlTATTDRTTJRPOSE^i  “ 

R0UU2A  fixed  INIT  IALI2AI  ion  REUUIReD  - PATCH  SIARTDIl  AND  S|ARTDI2  IU  REPReSeNI  IHE  TIME2.UME1  VALUE  AT  THE  TIME  AT 
K0D02B  "“WHlCH~rHE  U0B5  TJR  tasks  are  TO  BEGIN 

R0003  PATCH  LADKl  AND  LAURi;  IF  SOME  OIHER  TASF.S  THAN  TASK.!  AND  TASK.2  ARE  TO  BE  USED 

R0UU3A  PATCH  CADR3  AND  LAURA  IU  IHE  2CADR  OF  | HE  UUBS  TO  BE  STARTED 

ROU03B  PATCH  206BEGIN  10  TC  ENUOFUOB  IF  ONLY  ONLY  ONE  TASIC“OR“  UOET  1^  TU  BE  STARTED 

ROU0A2  PATCH  lASM  AND  I AS62  WITH  DIFFeRENI  PRIORI  I IES  IF  DESIRED 

ROUOA6  SUBROUIINES  CALLED  - FINDVAC.  WAITUSl 


R000A8  normal  EXII  MODES  - ENDOFJOB.  TASKOVER 
ROODS  ALARM  UR  ABURI  EXII  MODES  - NONE 

ROOOS2  OUTPUl  - 2 wAIlLlSr  OR  FINDvAC  CALLS  FOR  THE  2CADRS  PA | CHEU  IN 


ROOOSA  erasable  ini  I IALI2A1 ion  REOUIRED  - NONE 

R000S6  Debris  - .ITEMPI*  centrals.'' ERASABLESTNSUBPOOTrNES^  called 

Roooss  NqIeB  - since  only  THe  LOw  order  part  of  StAR|D|i  and  S|ARtD|2  are  used  to  compote  |He  DeLIAT  for  waitlist,  |He 

R00062  - REOUIRED  I ASUS  AND  UOBS  WItL  'BE  CALLED  WITHIN  163, SECONDS  - - - 


OOlU 

3b»3b4b 

bANK 

3b 

0020 

3S,35'96' 

0 0004" 0 

BEG  INZO'6 

7"NHXNI 

003U 

REF 

19 

lasi 

b6b 

3S,3597 

9 0025  1 

t-b 

TlMEl 

PATCH  SLAPl  10  COME  HERE  10  SIART  UP  |W0 

OU^fU 

ffCK 

I 

3b  *^55^0 

6 3573  0 

AL) 

b 1 AK 1 U1 X ♦ X 

delayed  TASktS  UK  UOBS  POR  SIMULATIONS 

uut>u 

REF 

^6 

LASI 

632 

3S.3SS1 

6 7796  0 

AO 

B1T19 

006U 

REF 

97 

LASI 

bby 

3S,35S2 

6 7796  0 

AU 

BIT19 

0070 

R€f^ 

b? 

L7\b  I 

822 

3 5 ,73  65  3 

bb  Ubi  u 

“xcn 

ITEMPT 

OObU 

Ref 

b*t 

LASI 

bb9 

35,3559 

3 OObl  0 

LA 

11EMP1 

00*^0 

RjtF 

L^3 

LA^  i 

fabb 

35 ,3555 

0 5663  1 

le 

WAl 1 List 

009S 

REF 

b5 

LAbI 

bb9 

to 

EBANX= 

IIEMPI 

0100 

35,3556 

03576  0 

LADRl 

^LAUK 

1 ASM 

MAY  BE  PATCHED  POR  ANOTHER  TASK 

COIOO 

KtF 

i 

357355  f 

72060  1 

0110 

REF 

LAbI 

bbV 

35,3560 

4 002b  1 

206BEG1N 

Lb 

1 IMEl 

patch  to  TC  ENDOPUUB  10  STAR  1 1 TASK 

0120 

REF 

1 

35,3561 

6 3575  0 

MU 

SIAKIDT2  .1 

KEF 

<tb 

LAb  1 

bb9 

3b  1 3b62 

6 774b  0 

MU 

TJITI9- 
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Ol^»U 

RtF  A9 

LAbT 

869 

35,3563 

6 77A6  0 

MU 

tJlTlA 

0150 

REF  86 

t./'6  I 

869 

3?*356‘» 

66  06 X 0 

ALIi 

1 1 EMKl 

0160 

RtF  B 1 

LAbI 

B70 

35,3565 

3 0061  0 

LA 

UtMRl 

trlTOr- 

0175 

oibo 

— KEF 
RtF  88 

LAb  1 
LAbI 

869 

B7U 

3b » 366t 
36*3667 

^0  5663  1^ 

to 

03603  1 OADRZ 

1 L 

tbANI^: 

^LAUR 

“TYATI  U 1 b t 
= 1 ? tMP  I 
1 ASK.Z 

OOUtU  Bt  PAKMtD 

COlffU 

oiyu 

Tier  1 
RtF  lUZ 

LAbI 

868 

“3?*3^TU 

36*367i 

7^U6U  X 
0 6667  0 

1 0 

tNDOFJOB 

OZOO 

35,35  7Z 

00000 

1 

blARlUl 1 

ZULU 

600 

PATLH 

OOZOO 

35 ,35  13 

0TT3CT 

1 

OZIO 

35.357A 

OOOOO 

1 

bTARIUIZ 

ZDtL 

200 

patlh 

LOiXO 

35.3575 

00310 

0 

ozzo 

RtF  A 

LAb 1 67A 

35*3676 

3 66^1 

1 

1 ASK  1 

L'AF 

PtrtUlS 

, . OR  YOOP  OWN  T'R’tOPl  TY  , , ' 

0Z3U 

RtF  ZV 

LAbI  819 

35,357 ( 

0 5516 

0 

It 

FINDVAC 

35,3600 

7 77  7 7 

0 

LADR3 

ULI 

inn 

BETItR  PATLH  A ZCADR  HERt 

0250 

36*3601 

nni 

0 

UL  1 

mil 

0Z60 

REF  116 

LAbI  B57 

35,36UZ 

0 57Z7 

0 

IL 

1 A5K.UVEK 

0Z70'  ^'RLF  si  LAbI  BZ3  35.3603  3 77A6  0 TAbKZ  OAF  PRIOZU 


OZbO 

RE6 

30 

LAbI 

8 70 

35,3605 

0 5516 

0 

K 

FINUVAC 

0Z90 

35,3605 

7 7 7 7 7 

0 LAURA 

ULI 

ni  ( f 

..HtRt  ALSO.. 

0300 

35 ,3606 

nm 

0 

UL  1 

7 777  7 

. 0310 

RtF 

117 

LAbI 

8 70 

35,360  1 

0 57Z7 

0 

k’ 

rA5K.UVLK 
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KOOOl 

KduOi: 

PRQljRAM^NAht  - StCDNL)  UPS  GUIDANCE 

KOU03 

MOU  NU.  - U 

ROOOA 

MoUiFlCAlIUN  bY  - KLUMPP  AND  tYLtS 

KOOOb 

functional  UtSCRiPTlON  - 

Rooob 

ffOOBB 

RoOlU 
Royi^  ' 
KOOiA 
KOUlb 

|HtRf  ARt  IWO  MuDtS  OF  OPbRATlUN  OF  tHe  SeCuNU' UPb  GUIDANCE  PROGRAM  (Z^PS),  PRIOR  TO  THe  IGNITION 

SeuUENCE  2UP5  IS  operated  in  the  pre-ignition  mode  FUR  TH^PURPOSe  of  PKOVID-ING,  FDKTHE  IGNmxiN 

SeOUeNCe,  |He  IIMe  of  INITIATION  AND  THe  DIReCIIUN  OF  |HRUSl,  IMMeDIAIeCY  AEteR  THe  IGNI I ION  SeUUeNCe 
IS  completed,  INCLUDING  THe  COMMAND  OF  MAXIMUM  | HRUS I , eDPS  IS  ENGAGED  IN  THE  IhRUSllNG  MODE  FOR  TH£ 
purpose  of  PROVIDING  THRUST  AGCeCeRATION  MAGNITUDE  and  DIReCUON  GUMMANDS  NeCeSSARY  TU^CONDUG  I T^He 

simulated  powered  landing  maneuver. 

R0017 
Rouir 
ROOEl 
R0023 
K0026 
R002  ! 

PRIOR  TO  LAUNCH,  ERASABLE  MEMORY  MUST  BE  LOADED  vnyH  THE  SeMI-UNIt  NORMAL  TO  THE  T'tANEnil — THE 
REDUIReD  oRBil  CPTb/2,  AND  DATA  WHICH  INDTReC|LY  SKeCIFICIeG  I He  NOMINAL  IGNITION  TIME  I IGNOM.  THeSe 
DATA  MAY  BE  ADJUSTED,  AS  A GROUP,  VIA  1 He  UPLINX,  UN|1L  ^00  SECONDS  PRIOR  TO  THE  TIGNoM  IMPLIED  BY  THE 
PRE-tAUNCp  LOAD  UR  IMPLIED  BY  THE  UPLINX  DATA,  WHICHEVER  IS  EARLIER.  A DESCRIPTION  0F“  THE  ME  1 HOD  OF 

Updating  tignom  is  in  the  province  of  iHe  mission  control  program  (mcpj  mission  phase  ii  - 

DPS<;/hl  TH/APSI.  the  TARGETING  IS  CUNIROLLeO  BY  THE  SEMI-UNIT  VECTOR  CPIb/2  AS  DESCRIeeD  IN  THE  206  GSOP. 

ROU2R 
R0031 
R0033 
RoU3S 
Ro03  1 
R0D39 

Rquai 
RoOA3 
^ " RoOAb 

ROOA7 
ROOAV 

- rdobi 

R00S3 

AT  Approximately  ibo  seconds  prior  to  TiGNUMt  the  M,cp  engages  20ps  in  the  pRe-igiyition  mode  by 
PROVIDING  AN  extrapolated  IIMe  AND  SfATE  IN  THe  ReGISteRS  TET«  RIGNTION,  VIGNtION,  ANd  TRANSFERRING 
Control  to  location  prebukn  in  2Dps.  this  time  and  siate^are  at  approximately  eo  seconds -pki or  to‘ 
tignom.  (THe  names  RIGNTION,  VIGNUON,  CHoSeN  TO  INDICATE  USAGE  WITH  uTHeR  GUIDANCE  PROGRAMS,  ARE 
misleading  with  eDPS  in  that  the  extrapolated  state  provided  in  these  registers  is  not  that  expected  at 
IGNITION  but  rather  AT  50  SECONDS  PRIOR  TO  IGNITION.)  TiDpS  T RANSFeRS -T  FtE’-CGNT-£NTS— OT — T'ri'”rO“PTP'T  tME"  " 
and  Calls  subroutine  vpatchek  which  tRanspers  the  state  to  rn,  vn  and  initializes  Fur  calcrvg. 

USING  calcrvg  as  a SOBRoUriNE,  AND  INTERNAL  SUBROUTINES  IGNI TNI  AND  IGNirN2«  2DPS  MOVES  )Ht  TIME  ANO 
State  forward  to  a time  gretateR  than  or  eoual  to  tollg-s  seCunos  and  leSs  than  oR^eooal-tO'  TUllg-s, a seconds. 
Leaving  this  consistent  set  in  piptime,  Rn,  vn,  wmeite  tullg  is  tHe  precise  time  for  ullage  to  be  iniiiated 
and  is  Left  in  the  Register  of  that  name,  edps  leaves  a semi-unit  vector  in  tHe  direction  in  which 
thrust  1S-to-Be“(pOMMANDeO~UUR1NG-tHe:“1GNITION  SeUOeNCe  ITT  THe' RlGTS  T-ER-POiNIVSM-flND-BrrAMCtTES— ro  ’ 

Location  reirreb  in  the  mission  control  program. 

R005A 

K0066 

ROUSb 

RDDbO 

K0U62 

R006A 

- USING  THt  OATA  LEFT  BY  THE  PRE-IGNITIUN  MuUE  OF  ZUPSv  THE  MCP  ENGAGES  RALCr'rANUn'Cr-PKOPEKLT 

Orient  the  spacecraft  for  the  ignition  SeOUeNCe.  and  issues  the  waitlist  calls  which  cause  the 
READACCS,  SeRVICeR,  PGNCSMON  loop  to  be  established  (WITH  2DPS  NUT  IN  THE  LOOP)  ANO  PRODUCE  ULLAGE, 
engine  ignition,  and  finally  MAXIMUM  THRUST.  IMMtDl  AT  ELY  AF  T ER  MAXIMUT^- THRUST^  TS-tOMMANDt'D  r THt  MtP 
Places  the  ebcaor  of  burn  (ebank=  ezdps)  in  the  avgexii  which  causes  zdps  to  be  adued  to  the  readaccs. 
Servicer*  pgncsmun  loop  immediately  following  calcrvg. 

ROObS 
RoUb  ( 
- RoOb? 

when  Control  is  given  to  zups  with  the  2Bcadr  uf  burn  in  avgexit,  2DPs  operates  in  ihe  thrusting 
mode,  it  Generates  the  Seouencing  reuuireD  to  cutvdult  the  simulated  ruweRed  landing  maneuver  and  issues 
the  IHRUbj  acceleration  MAGNItODE'  AND  DIRECT  ION  COMMANDS. - - 

R007U 

ROOT2 

edps  Generates  the  seouencing  by  incrementing  the  high  order  part  df  avgexit,  by  an  appropriate 
integer,  to  accomplish  each  CHANGe  liF  zDPS  PHASei  THe-INCReMeNI  ING  OF-  AVGrXlT  CADSeSy  ON  THE  SUBSeOOeNT 

'63r456«' rul^STSIET'  l-'JK  AtiC;  KEVISION  0 Ol"  pKOCjKAM  BUKb ri ZU  Br  NASA  ZOZU06-O31 


T7EC“/7  1W7  fMAlN)  PASS  87Z 


t SrCURD  WS  tiJIDANCt  ' UStRrs  0WN^SCE~N0.  7 " S3 

KOO?A  Pass  THRUUtiH  ZPPS,  CONTPOL  10  BtOlN  AT  A NfcW  PU1N|  IN  [Ht  StOONU  OPS  PUTS  StOUtNCt  lAbLE,  AND 

K0076  " CONSEUOENTtT  IHE  OORKESPONUINK  ZDF5  MOOINO  TO  Bt  t^lABinSHEUV  “ " " “ " ^ 

K0077  ZOPS  OtNfcRAItS  I Ht  THRUST  AOCELtPAIlON  MAUNllUUt  AND  DlRttllUN  COMMANDS  ON  THE  BASIS  OP  Iht 

KOOT9 contents  t)P’ PI  PTIt'ErrHTNT'TfNVAT — rPim*EO  1 NN I Nti*-OP — |Tli— PASSr,  - [O  1 SijUt  I Pir~THKUST"AtXeLtKAT“l-ON-&tKECTlt)N- 

Roubi  Command,  2Dps  places  a semi-unit  vector  in  the  reuuired  direchun  in  ihe  RE'^iSTER  aaisu  and  calls 

R00B3  UNDCDUD  AS  A SUBROUTINE.  10  ISSUE  THE  MAONIIUDe  COMMAND,  ZDPS  PLACES  THE  REUUIReD  MACN I TUDe ‘ I N THE 

TT0085  RECISTEK^/AC1-y  AND"  CALLS  THROTCON  AS  A SUBROUTINE.  “ " “ " ' 

R0DB6  BtPURt  but  NOT  INCLUDING  THE  LAST  PASS,  zDPS  IeRMINATES  |He  JOB  PERIODICALLY  SIAKTED  BY  KeADACCS 

ROOSB  “ BY  BRANCHING  TO  tNDOFJOB.^  

ROOBV  UN  IHE  LAST  PASS  2DPS  PLACES  THE  SeMI-UNII  VeCIUR  ALUNB  |HE  NORMAL  TO  IHE  DESIRED  ORBIIAL  PLANE* 

ROOVI  CPT6/Z,  IN  me  REQISIER  AXiSo,  CALLS  PINDCDUD*  ANd  BRANCHES-  I O lOCA  I I'ON~KETBORN— IN  THE  MCP. tPTE-TMCP “ 

Rouvs  Removes  zDps  prom  the  readaccs,  servicer,  pgncsmun  luup  and  issues  me  waitlist  calls  which  produce  the 

Kouvs  random  MROIILINB.  me  MCP  DOES  NO  I CHANGE  THE  Cun'ieNIS  OP  AXISD  SUPPLIED  BY  ZDPS.  CUNSEUUeNTLY  THE 

R0097  thrust  acceleration  during  RANDOM-tHHOTTLING-  IB  NORMAL  I'D  the  ORBI'ITIL-  PLANE. 
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StY^UND  "DPs  "GjrcANCt 
INrtRhAl.t  SPtCJI- ItAT  IONS  - 


aStfOS^  OS/FPA<iE  NO, 


ROlOO 

“RCUOl^ 

ROlOi! 

' RoT0^3^ 
ROlOA 
ROlUS 
■RoTOb 
R0107 
ROlOb 
K0'109 
ROllU 

TRO  i 1 1 

Roll,; 

ROU3 

ROllA 

R0U6 

ROllb 

R0119 

R012U 

R0121 

R0122 

R0123 


bPtOIhlOATlON 

^ca  cmro^s  eoo  t N L 
l^ORNAC  I I 5 


ABORT  tXlTS  - 
ALAKMb  - 


R012S 
R0126 
R012  f 


PRt-lONI riON  Moot 
oTCb  To^Pkeborn 

ltBANK=  t20Pb) 

OTCB  TO  Location 

KETPRtB  IEBANK.= 
tMPllJOB)  IN  MISSION 
CONIROL  PKUORAM, 


IHROSI INO  Moot 


0*1  CB^  lU  born 
(tBANA=  t20PS) 

PRTOR  To  LAS (PASS* - 
1C  TO  ENOUt-JUB 

LASl  PASS  - 
0 1 Lb  10  LOLA  I ION 
RtIBOKN  ItBANXs 
tMPllJOB)  IN  MISSION 
LONIROL  PROORAM 


NONE 

OrN  OVtRELOW  PRIOR  TO  OR 
OJRINO  computation  OF 
ACS  OR  AFCS, 

SET  alarm  OUAIO 

ANO  RETAIN  the  VARIABLES 

computeo  on  the  previous 

PASS. 

ON  overflow  DURINO 
COMPUlATlON  OF  AFLS  , 


NONE 

SAME 

IN  AOOITION,  IF  overflow 
UCLURS  AFIER  COMPUTATION 
OF  THir  afurementioneo 

VARIABLES, 

SEI  ALARM  UOAU 
ANO  SHIP  ISSUANCE  OF 
AT  I nOOE  ANO  THROTTLE 
LUMMANOS. 


(YIELDS  POSMAX)  , 
RETAIN  POSMAX  ANO 


SET  APTRT»rOUAH. 

CP16/2  (IMU  COOROS) 
OTHER  TNTrIA^T2AT10N 

done  internally 


R012b 

RXn2R 

R0130 

R0131 

R0133 


eras  ini  I IAL12AT10N  - 


2BCA0R  OF  BURN 
lEBANM  E20PS)  MUST 
BE  IN  AVOEXl 1 , UTHtR 
INI  I lALUAI  ION  DONE  IN 
-PRE- 1 (jN  I I lON-MOOt-T 


R013A 

RDI35 

RU136 


INPUTS 


“ROTTr 

R013B 

R0139 


^UiJIPUIS  - 


TET 

RIGNTION 
VIONT lUN 


ROIAO" 

ROlAl 


PTPTTHF* 

RN 

VN 


PIPI IME 
-KN 


AX  1 50“ 
/ACF/ 


TtTLLG 

POINT VSM 


R01a2  ERASABLtS  - 


AMEMORY  THROUGH 


-533^36^  bTbltM  t JH  AliCj  KEVISION  0 Of^  PKUCjKAM  HURbllZUTST  NAbA  ZUi^UOb-'Jll Dt-CTTT^lW? (NAIN)  PAC,t  b?A 


L 

KOi^i 

btCUNU  UHS  IjJIDANCE 

AMtMORY  +2  lb  OU 

UStR«S  OViN  PAGE'’NOi  A 

5S 

KOl^'f  ~ 

KOl'tS 

RUUD  LR]b/2  IN 
NON  bHARABLt  tALUAD 

RD  P*t  ' 

K0i47 

K014« 

5U0RT3OI  iNES  XALLaU 

ROOTP5R5 

VPATtHER 

CAL(.RVG 

ROUTRIjRS 
t-  INOEUUL) 
IHROIEON 

KOl^y 
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01E5  ReF  1 22,2000  PREBURN  = 1N1I2DPS 

01b~b RTF 1 zzrzvuo — 0 3531  0 mTT217F^“-rC RRmirn irrrtTALlZES  iNIEKPRElER 

ROib?  EleAR  ORBIIAL  INIEGRATION  variables  from  REGISIeRS  in  EUMMON  WllH  20PS 


Olbb 

Ref 

83  LASI  8A/ 

22,2001 

0 6112 

0 

IE 

INTPREI 

Oibv 

22,2002 

1 

DLUAO 

0160 

rff 

8 LAST  716 

' 22,2003 

0209  1 

0 

1 ET 

EATRAP0LATET3  1 IME  FROM  OKB'ITAL  INTtGRAIN 

0161 

RLF 

11  LASI  868 

22,2009 

3530  1 

0 

5 1 CALL 

PlPl IMfc 

TIME  REGISTER  UF  PIPASR 

0l6Z 

REF 

3 LASI  729 

22,2005 

60936 

u 

vpaiemer 

TRANSFERS  RlGNllON,  VIGNTION  TO  RN,  VN, 

RT16T 

22,2006 

77776 

1 

tm  1 

AND  DUPE r C ATE S'fTTNE'Tl'ONSTJF  N0RMLI2E 

Oib^ 

rlf 

121  LASI  858 

22,200 1 

0 9161 

0 

1 E 

PHASEHNG 

PRE-IGNITION  MODE!  S I MR | 2OPS  PROTEETN, 

0165 

22,2010 

05022 

1 *502 

ULi 

05022 

establishing  PRIORIIY. 

0166 

22,2011 

20000 

0 

Uci 

20000 

prevent  RErEAlINq^rbI  TAL  iniegration 

A016T 

variables  afier  writing  over  them. 

R016B 

eommun  regisiers 

are  ELEARED 

0169 

REF 

bA 

LAbT 

b/b 

22,2012 

0 6112 

0 

IL 

INTPREI 

01  10 

22,2013 

17795 

1 

PLUAU 

0171 

RTF 

1 

22,2019 

05707 

I 

IGNAUGL 

0172 

RLF 

LAbI 

B23 

22,2015 

25073 

1 

SlUVL 

AVGEXll 

set  up  RETURN  ADDRESS  IN  AVGEXll 

0173 

REF 

1 

22,2016 

05722 

u 

2ERUPUS 

0179 

RTF 

2 

LAb  1 

37 

22,20ir 

02211 

1 

S 1 URL 

GPU  1 Ml 

DERI  VAT7  VE"UI — G FOK^  USE'  BY  IGtil  l N1 

■ 0175 

REF 

LAbI 

37 

22,2020 

I6l6  1 

0 

SlUDL 

UNAFL72 

0176 

RLF 

LAbl 

B fb 

22,2021 

05722 

0 

2ERUP0S 

‘ 0177 

rlf 

2 

LA  b I 

36 

22,2022 

02055 

u 

SI  ORE 

1 IF/9IMP 

zero  AS  IF  LUMING^FROM  RRE V I UUS  PHASE 

0178 

22,2023 

71776 

I 

EXIT 

01  19 

REF 

3 

LAbl 

b fb 

22,2029 

3 3721 

0 

LA 

2ERUP05 

0180 

rtf 

2 

L~Kb  1 

36 

22,202S 

' 5 5’ 9 01: 

1 

1 s 

FEPASSO 

SHOWS  TFI IS T^S'TMFrTAt >915^  TFtlS  PHASE 

0181 

REF 

1 

22,2026 

0 3393 

0 

1 L 

XIRI PIP 

SETS  TPIP  EXIRAPOLATED 

0182 

REF 

4b 

LAbT 

B66 

22,2021 

3 1793 

0 

LA 

POSmAx 

0183 

REF 

2 

LAbl 

37 

22,2030 

55<562 

0 

1 S 

/AFL/ 

FURLES  TNTTIAT.I'ZATITJN  of  lountfl 

0189 

REF 

3 

LAbl 

b r? 

22,2031 

55'563 

1 

1 S 

/AFL/  +1 

ONLY  REASON!  TU  ASSURE  GOOD  PARITY 

0185 

RLF 

2 

LAbl 

36 

22,2032 

55 19O9 

1 

IS 

LOUNI FCl 

ONLY  REASON!  TO  ASSURE  GOOD  PARITY 

^1S6 

RfF 

22 

LAbl 

B7b 

22,2033 

0 1072 

0 

1 L 

avgExi t 

RErT'URRSr—T'CF'AppRGpRlATE  T-OLAT  ION  IN  20pS 
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K0190 

INOIKtLI 

AL'IJRtSStS 

0191 

REF 

1 

22,20A3 

bUKN 

= 

UUAUOA 

019^ 

ooor 

BRTTENU 

- 

I 

0193 

ouo^ 

PARE 

= 

2 

019A 

0003 

IBRL 

= 

3 

0l99 

OOOA 

H0D2DPb 

“ 

. 0196 

0005 

ITF/ALR 

5 

019  ? 

0006 

BRXENU 

= 

6 

0198 

REF 

1 

22»203A 

1 223A  1 

IGNALG 

K(- 

IIFINLR 

0199 

ref 

1 

22,2039 

1 2216  1 

IGF 

auufnu 

AS  If  coming 

from  PREVI0U6  PHASE 

0200 

22,2036 

00000  1 

uc 

00000 

0,;01 

REF 

1 

22,2037 

0212A  1 

AUKtb 

IBRIGAL 

0202 

22,20AO 

0003<i  0 

UGI 

00032 

0203 

22,2DA1 

f fbbh  0 

-1*5  t 2 

b -15 

-1*5  bECONObf 

TTF  UNI  IS,  compares  TIF/A 

020a 

REF 

1 

22,20A2 

1 27A1  0 

ICh 

tXHjtND 

0205 

RtF. 

2 

UAb  I 

S f 0 

22,20A3 

1 223A  1 

auAoox 

1 CF 

T I FI  NCR 

0206 

RfF 

1 

22,20AA 

1 2233  0 

IGF 

RET  1 1 FNU 

AS  IF  GONTINUING  PREBURN  PHASE 

0207 

22,20A9 

00000  1 

OGI 

00000 

XI206! 

■ RLF 

1 

22  t20^6 

02130  1 

AOKtb 

EBRUOAL) 

0209 

22,20A? 

OOOA2  1 

ou 

000A2 

0210 

22,2090 

73A69  1 

PEL 

-0A5  E 2 

B -19 

-0A9  SECONOS, 

IIF  ONUS,  COMPARES  TIF/A 

021 1 

RtF 

1 

22,2061 

1 3017  0 

I CF 

EXQULIN 

0212 

REF 

3 

LASI 

B fb 

22,2092 

1 223A  1 

UUAOOF 

IGF 

r I FINER 

02  1 3 

REF 

2 

LASI 

B 76 

22,2093 

1 ^2l6  1 

IXF 

AX)T  1 FNLI 

021A 

22,209A 

00027  1 

ULI 

0002  7 

0219 

REF 

2 

LA6I 

ti  fb 

22,2099 

02130  1 

AOKtb 

1 bRUUAO 

0216 

22,?096 

0U0A2  1 

uei 

000A2 

021  r 

22,2097 

77591  0 

vt^ 

-3.0  t 2 

B -19 

-3.0  SEGONDS, 

TTF  UNI  IS,  COMPARES  TIF/A 

0218 

ref 

2 

LASl 

B ^6 

22,2060 

1 301 7 0 

KF 

tXQULlN 

0219 

REF 

1 

22,2061 

1 3271  1 

LINGUF 

IGF 

LSEI EVN 

0220 

REF 

2 

LASl 

B fb 

22,2062 

1 2233  0 

1 C.F 

RETI 1 FNU 

022^1 

if  ^ * ii0b3 

00027  1 

OC 

0002  7 

0222 

REF 

1 

22,206A 

0213A  0 

AORES 

IBRLING 

0223 

22,2069 

OOOA2  1 

ou 

00042 

Z ^ ^ ^Obb 

777A6  1 

-.50  E 2 

b -15 

-.50  SECONDS, 

0229 

REF 

3 

LAbI 

B fb 

22,2067 

1 3017  0 

IGF 

EXQULIN 

633436A 

YijL“ 
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StCUiNO  1 

JP5  OJlUANLt 

USERib  OWN  TAGE^NO.  7 53  £4 

0^26 

REF 

i 

22,2070 

1 33I2 

0 

LINGIF 

ILI- 

LSEIOOD 

022  7 

REF^ 

3 

LAST 

8 76 

22,2071 

1 2216  1 

rci- 

adttfnu 

22,20  72 

00056 

1 

UL  1 

00056 

REF 

2 

LAbI 

8 fb 

22,20  73 

02134 

0 

AOKtS 

IBRLINQ 

0230 

2'2r2'074 

ooo7r2 

X 

UL  i 

0231 

22,2075 

7 7746 

1 

UtL 

-.50  E 2 B -15 

-.50  bELONUb,  TTF  UNI  lb.  LOMPARtb  TIF/4 

0232 

Rff 

4 

LAbI 

8 fb 

22,2076 

1 3017 

0 

ILF 

EXUULIN 

0233 

REF 

4 

LAbI 

8 fb 

22,20  77 

1 2234 

1 

UUA02F 

1 Lf 

1 IFINLR 

0234 

REF 

4 

LAbI 

877 

22,2100 

1 2216 

1 

ILF 

At)Tl  FNU 

TT2T5^ 

22,2101 

00065  X 

ULI 

00065 

0236 

REF 

3 

LAbI 

87S 

22,2102 

02130 

1 

AUKtS 

IBRUUAU 

023  7 

22,2103 

00043 

0 

901 

00043 

0238 

22,2104 

7 7551 

0 

UhL 

-3»0  t 2 b -15 

-3.0  SECONOSt  TTh  URTTS*  LOMKAKtS  TII"/4 

0239 

REF 

5 

LAbI 

87  ? 

22,210b 

1 3017 

0 

1 LF 

EXQULIN 

0240 

REF 

" 2 

LAST 

876 

22,2106 

1 3271 

1 

LING2P 

ICh 

L5ETEVN 

0241 

REF 

3 

LAbI 

8 fb 

22,2107 

1 2233 

0 

1 LF 

RETl 1 FNU 

02^2 

22,2110 

0006b 

1 

OLi 

00065 

0243  " 

ref 

3 

LAbt 

87  7 

22,2111 

02134 

0 

AOKEb 

IBRUNG 

0244 

22,2112 

00043 

0 

UL  1 

00043 

0245 

22,2113 

7 7746 

1 

UtL 

-.50  E 2 B -15 

-.50  bELONOb,  |TF  UNIIS,  LOMPAREb  TIF/4 

02^46 

REF 

& 

LAbI 

877 

22,2114 

1 301  7 

0 

I O' 

EXODLIN 

024  7 

REF 

2 

LAbI 

877 

22,211b 

1 3312 

0 

L1NG3F 

1 LF 

LbEIOOU 

0248 

REF 

5 

last 

877 

22,2116 

1 2216 

1 

“ ILF  ^ 

ApTI  F1YU 

0249  , 

22,211  7 

00114 

0 

ULI 

00114 

0250 

0251 

REF 

4 

LaSI 

877 

k!2,2U0 

22.2121 

02134 

00043 

0 

0 

AOKtS 

ULI 

TBRLING 

00043 

. - - 

025i;  22,2122  7776J  0 Utt  -,2b  t 2 b -lb  -,2b  SttONUb,  HI-  UINllS,  COMHARtS  rif-/A 

0253  REF  1 22,2123  1 3043  1 I C.F  EXFINAL 
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R0255 SeCDNU  OPS  ROAO  MAP5^(BKA7|CH‘  TABLES)  ' ' ' ' ' " “ “ " 
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R02Vr  "TWrRECT  ADDRESSES"  ~ “ ' 


0258 

0000 

BRIGNI 

0 

0ZS9  ' 

0001 

BRLTNG 

- 

r 

0260 

0002 

BR1GN2 

= 

2 

0261 

0003 

BRXMID 

= 

0262 

REF 

1 

22,212A 

1 

3077  0 

TBRIGAL 

KF 

IGNl 1 N1 

0263 

REF 

1 

22,2125 

1 

2AA2  0 

lOF 

1 I F7A0L 

026A 

REF 

1 

22,2126 

1 

3172  1 

\ Ch 

i CaNi  1 N2 

OZbi> 

REF 

1 

22,2127 

1 

2702  1 

IGF 

EXIGMIO 

0266  REF  1 22,2130  1 2210  1 IBRUUAO  I OF  RETIONI^ 


0267 

REF 

2 

LASI 

22,2131 

1 

2992 

0 

ILF 

1 IF790L 

0268 

REF 

1 

22,2132 

1 

2615 

0 

lOF 

RET1GN2 

0269 

REF 

( 

LAS  1 

b ?7 

22,2133 

1 

301  ( 

0 

1 OF 

EXODUN 

0270 

REF 

1 

LASI 

B ^B 

22,2139 

1 

2210 

1 TBKUNCd 

lOF 

RETIGNI 

0271 

ref 

i 

22,2135 

1 

3326 

1 

1 OF 

LlNGUlD 

0272 

Rff 

2 

LASI 

B /B 

22,2136 

1 

2615 

0 

lOF 

KET1GN2 

0273 

REF 

a 

LASI 

B78 

22,2137 

1 

301  7 

0 

lOF 

EXODLIN 

EA  


' YUt 

bYb(b>  FOK  -AoC; 

REVlblOlM 

0 OF  PkOOKAM  BUKbllZO  Bf  wAbA  2021106-031 
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■■  L ' 

5e;CUNU  dps  UbtK*^  OWN  KA^t-  NO*  9 

It  iHHt  ****##*#  iHHHHHt  *****  *^  *****  ^^  it  * *«*  <^  ***# 

KOdli 

INI  1 lALl^Al I JN  MJK 

tACH  PA55 

HOdlb 

It*********************************************************************** 

T<oTTr 

■ NTCrPffbT  -S^b  ITJOICt  b , “ H LCb  - 

tptholo, 

, TRIP,  R,- \T  evert  PAbS}  BKANLHES 

TO  IGNIjni  , AUTTFITO  WHEAT  APPROPRIATE. 

0^  ?y 

22.2190 

0 0006 

1 

NTLZPAbb  tXItlTU 

OZBtJ 

■RTF' 

2T  ETbl  T6 

22T7TR1 

77’9ir6‘ 

i 

UXCFI 

“FfETN'l  CZ 

SAyC  RElORN  AyyRESi 

OZBl 

REF 

23  LAbI  8F5 

22,2192 

9 1072 

1 

AVOEXIT 

T)ZBZ 

REF 

2 LAST  B75 

22,2193 

6 3706 

0 

AD 

IGNAEOL 

02B3 

22,2199 

0 0006 

1 

tX 1 tND 

OZBA 

RfF 

1 

22,2193 

1 2132 

I 

NlLzPbbX 

BRANCH  IF  AND  ONLY  IF  PKE-IGNITiON  HOPE 

OZbS 

REF 

‘ft  LAbI  BbZ 

22,2196 

0 9191 

1 

K 

ZPhbLHNG 

THRUbTlNG  MODE,  FIRbT  PHASCHNG  IN  zUPb: 

0286 

22,2197 

00035 

1 

Uti 

00035 

IN  group  5,  RETAIN  ONcY  PiPA  TAbK. 

" TJZ87 

22,2150 

05022 

1 

^6^2  OC 1 

05022' 

IN  GROUP  2 b|7WI~ZUPS^*ROTECT10N 

OZBB 

22,2151 

20000 

0 

ULi 

20000 

WITH  PRIORITY  20, 

OZBV 

REF 

2 LAbI  875 

22,2132 

0 3531 

0 

NTLZPbbl  IL 

PRET INI  1 

INIIlALIZEb  X'NTFRPRETER' 

K029U 

Set 

MODE 

ozyl 

REF 

2A  LAbI  BA9 

22,2153 

51 '072 

0 

iNDtA 

AVGEXIT 

ozvz 

REF 

1 

22,2159 

3 0009 

0 

OA 

MODZUPb 

0293 

ref 

1 

22,2155 

0 9122 

1 

■ - 

NtWFiODtA 

K0Z99 

SET 

1NU1LE5 

0295 

22,2156 

0 0006 

1 

LXIENU 

0296 

RfF 

25  LAbI  B79 

22,2157 

5 1072 

0 

INDEX 

AVGEXIT 

0297 

RfT 

I 

22,2160 

3 0003 

X 

DtA 

PARE 

0298 

REF 

2 LAbI  3fa 

22,2161 

53'901 

1 

UXLH 

NUX2UP5 

0299 

22,2162 

0 0006 

1 

EX  1 ENU 

0700 

T?EF 

7T2A5I  B79 

22,2163 

9 1901 

i 

DLb 

NDX2UH5 

0301 

REF 

31  LAbI  890 

22,2169 

50  110 

i 

INDtA 

FXXLOL 

0302 

REF 

1 LAbI  790 

22,2165 

52  097 

0 

DX^H 

XX 

LOAUb  BOTH  INI  HP  NUX  REGb,  NEEDED  OK  NOT 

K0303 

fill 

IPIPOUD  AND  TRIP 

070  A 

22,2166 

0 0006 

X 

-exTEmr 

0303 

REF 

2 LAbI  ib 

22,2167 

3 1997 

1 

UOA 

TPIP 

030b 

Ref 

2 LAbI  36 

22,2170 

53'951 

X 

DXLH 

IPXPOLU 

0707 

RlF 

128  LAbI  875 

22,2171 

0 9161 

0 

1C 

PHAbLHNG 

PROIECT  TT>1P0LD  AND  ' ' 

030B 

22,2172 

09022 

0 

♦ ^t02  OCI 

09022 

PREVENT  RETURNING  10  PREVlOUb  PROGRAM 

0309 

22,2173 

0 0006 

1 

EX  1 ENU 

OTTO 

RETF 

12  LAbI  775 

22,2179 

3 130^ 

i 

VCA-  - 

ITAE 

0311 

REF 

3 LAbI  879 

22,2175 

53*997 

0 

DXCH 

TPXP 

R07T2 

FILL 

R AND  V 
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bFC-ONO 

OPS  CjJ1DANC.F 

USERtS  OWN  PACnFO.  '10  S3  EA 

0313 

REF 

bb 

LAbI 

B7b 

22,21 A6 

0 6112 

0 

1C 

INTPKET 

031A 

22,2177 

1 1 7 7b 

i 

VLUAO 

031b 

Rff 

lA 

LAbI 

B<t3 

22,2200 

01011 

0 

KN 

0316 

REF 

2 

LAbI 

36 

22,2201 

26061 

1 

blUVL 

R 

RN  10  R WITHOUT  REbCALlNO 

“D7TT 

17fF 

Ti* 

LAb  1 

8^3 

22,2202 

01017 

0 

I7N 

0310 

22,2203 

lllhi 

0 

ybH^^ 

0319 

REF 

2 

LAbI 

36 

22,220A 

02067 

1 

blUKt 

V 

VN  10  V WITH  bCALlNO  ADJUSTMENT 

0320 

22,220b 

777T6“ 

1 

EXIT 

K0321 

IGNUMl 

AMO 

ADT IFNU 

BRANCH  OECIblONb 

0322 

REF 

2 

LAbI 

36 

22,2206 

bl'AOl 

0 

iNUtA 

NOXBK 

0323 

REF 

1 

22»2207 

1 0000 

0 

ICF 

BRIONl 

TO  lONITNl  when  APPROPRIATE 

032A 

REF 

129 

LAbI 

079 

22,2210 

0 A161 

0 

RETlCNl 

1C 

PHAbCHNO 

RETORN  HERE  WHETHER  OR  NOT  DO  lUNITNl, 

032b 

22,2211 

09022 

0 

+ A02 

UU 

0A022 

PROIECT  TTF/AIMP  AS  USED  BY  IGNlTNl  PROM 

A0326 

WlPEOCrPBY  AU  1 I F NO  AND  TTFINCR.  ALSO 

A0327 

PROIECT  RTEMP,  VTEMP,  UDOTMlT  FROM 

AO320 

RS,  Vb,  ASPRT.  (TIME  SHARED) 

032V 

REF 

3 

LAbI 

B/S 

22.2212 

ll'A02 

1 

CCb 

FLPAbbO 

0330 

REF 

b 

LAbI 

ail 

22,2213 

1 223b 

0 

ICF 

IT  1-1  NCR  *l 

ON  other  THAN  FIRST  pASS  IN  ANY  PHASE. 

033T 

RfF 

26 

LAbI 

079 

22,221A 

51*07^ 

0 

iNl^t  A 

MV<jtAX  1 

0332 

REF 

1 

22,221b 

1 0001 

1 

ICF 

BRT IFNU 

TO  adttfnu  when  appropriate 

R0333  AOO  I IF/AMU  TO  TIF/9  FROM  LAbl  PASS 


0339 

22,2216 

0 0006 

1 

adttfnu  ExIEND 

03  36 

RtF 

1 

LA6  t 

36 

22,2217 

3 1^53 

1 

T7CA 

ttf/a 

0336 

ref 

3 

last 

07b 

22,2220 

S3 '9b3 

0 

DXCH 

1TF/9IMP 

0337 

REF 

4 

LAbI 

079 

22,2221 

SI  '900 

1 

iNUtA 

NDX2DPS 

0330 

RLF 

1 

22 ,2222 

3 3562 

0 

- 

T 1 F 7 9NU 

0339 

REF 

4 

LAbI 

000 

22,2223 

2 7'95A 

1 

AUb 

TTF/9IMP 

0390 

REF 

130 

LAbI 

000 

22,2229 

0 9161 

Q 

IC 

PHASCHNU  PROIECT 

TTF/9 

03^1 

22 ,222S 

09022 

0 

♦402  UC 1 

09022  “ 

0392 

22,2226 

0 0006 

1 

LA  1 two 

0393 

REF 

b 

LAbI 

000 

22,222  7 

3 195S 

1 

DCA 

TTF/AIMP 

RtF 

3 

88U 

22  ^2230 

53  »453 

0 

U ACH 

T TF  / 9 RETftWED 

TTF  /4 

039b 

REF 

131 

LAbI 

000 

22,2231 

0 9161 

0 

IC 

PHASCHNO  PROIECT 

TTF/9IMP  FROM  WIPEOUT  BY  TTFINCR 

03<f6 

22,2232 

0^02^ 

0 

♦ 902  UC‘1 

04022 

0397 

ref 

3 

LAbI 

b ^9 

22,2233 

0 1906 

1 

RETTTFNU  IC 

RETNILz 

RO390 

i I'JkpricrntlM  1 1 1 r/H 

K036U 

9»*»********»*»*»*9»**»*»,(**»**»A9*»********«*»**ft******  »»*»»*#**»**»*»* 

0331 

HLr 

i 

22^,223^ 

u 214U 

0 

nhiiNLK-  rc: 

NTL^PAbb 
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0352 

22,2235 

0 0006 

1 

♦ 1 

t* 1 LNO 

03  S3 

R£.F^  3 L/^SI 

b ^9 

22,2236 

A 1A51 

1 

OCb 

XPrPOLD 

035^ 

RfF  32A  LASI 

B68 

22,223/ 

52  1A5 

0 

MPAC 

0355 

22.22AU 

0 0006 

1 

tXItNO 

03T6" 

'Rrr  A XAsr 

8T9 

22,22AX 

^ TAA7 

1 

OCTT 

^IP 

0357 

RFF  3^5  last 

881 

22,22A2 

20  1A5 

0 

UA6 

MPAC 

0358 

ref  1 

22.22A3 

3 7750 

1 

CA 

TSCALL 

O'SSR 

REF  1 

22,2ZAA 

0 1375 

1 

1 CT 

QMPhbUB 

( TPIP-TPIPOLO) /A  luTMPAC,  TTF  UNITS 

0360 

22.22A5 

0 0006 

1 

tXILNO 

036  i 

REF  A LAST 

880 

22,22A6 

3 1’453 

I 

OCA 

TTF/A 

0362 

REF  3116  LASI 

88l 

22,22A7 

20  145 

0 

UA6 

MPAC 

YIELDS  incremented  TTF/A  IN  MPAC 

0363 

RLF  327  last 

88l 

22,2250 

52  1A5 

0 

UXCH 

MPAC 

036A 

KLh  6 L/\i  1 

880 

22,2251 

53'A55 

0 

OXCH 

TTFaATMP 

0365 

ref  132  LASI 

880 

22,2252 

0 4161 

0 

K 

PHAbCHNC 

PROIECT  TTF/4 

0366 

22,2253 

04022 

0 

+ 402 

uci 

04022 

UJU7 

22,225A 

0 0006 

I 

EXTEND 

0368 

ref  7 LASI 

881 

22,2255 

3 1455 

1 

UCA 

TTF/AIMP 

0369 

REF  5 Last 

881 

22,2256 

53'453 

0 

UXLH 

TTF/A 

INCREMENTED  HF/A 

R0370  ' «■#******» »**#*K***»*T(****|iH(**«******)HS»*»#»»*f»)f>)f)r»*1f»)fJf)H(X**)HHH( ****** 

R0371  Set  up  STAlt  IN  LOCAL,  PLANE*  SPHERICAL  COOROlNAItS 
K0372  It it***  iHt*****IHt***##**<Ht*t ******* 


0373 

ref 

^9 

LASI 

87b 

22,225/ 

3 77A3 

0 

S1UP2DPS  CA 

POSMAX 

037A 

RLF 

2 

LAbl 

■3  7 

22,2260 

55'52A 

1 

IS 

CRS2 

SET  CRS2  TO  MAXIMUM.  RESET  LATER  ONLY  IF 

03?5 

RfF 

3 

LAST 

“881 

22*2261 

55'525 

0 

t b 

t.Kb2  ♦! 

KC/RSO  DOES  tlOX produce XTVETYFtOW 

0376 

REF 

86 

LASI 

880 

22,2262 

0 6112 

0 

IC 

INTPRtT 

0377 

22,2263 

535  /S 

0 

VLUAU 

UNIT 

03  TB 

ref 

3 

LASI 

880 

22,226A 

02061 

1 

K 

0379 

ref 

LASI 

36 

22,2265 

26012 

0 

SIUVL 

CLT/2 

DEFINITION  OF  MATRIX  CL1/2 

0380 

RfF 

4 

L7TST 

326 

22,2266 

0235  / 

n 

~CPT6T2 

03b1 

22,226/ 

53A35 

0 

vxv 

UNIT 

0382 

R£F 

3 

LASI 

881 

22,22  /0 

02012 

0 

CLT/2 

0383 

R£F 

A 

LAST 

881 

22,2271 

26020 

1 

S l UVL 

LLTx2  +6 

03BA 

REF 

5 

LAST 

881 

22,2272 

02012 

0 

CLT/2 

038b 

22,2^73 

76A35 

1 

vxv 

VSLl 

0 J86 

Rrf 

6 

LAbl 

881 

22,227A 

02020 

1 

LLT/2^*6 

0387 

RfF 

7 

LAbl 

881 

22,2275 

26026 

1 

STUVL 

CLT/2  +1A 

0388 

RfF 

3 

LASI 

880 

22,2276 

0206  / 

1 

V 

0389 

XZ,22// 

/6521 

“0 

MXV“ 

'YSLl 

0390 

REF 

8 

LAST 

881 

22,2300 

02012 

0 

CLT/2 

- * - 

0391 

RLF 

2 

LASI 

36 

22,2301 

26075 

1 

SIUVL 

VL 

VL  = 2 CLT/2  V 

OJ92 

ref 

A 

BBX 

~Z2rfT30Z^ 

—R 

0393 

22,2303 

/2AA1 

0 

UUI 

8L1 

039A 

REF 

b 

LAST 

881 

22,230A 

0235  t 

1 

CPT6/2 

- - 

0395 

REF 

Z 

LAb  1 

36 

2Z^230t> 

02103 

1 

b 1 UKt 

RP2 

-RP2  = R.CPT6"  
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03V6 

22,2306 

63316 

0 

usu 

PDVL 

PUSH  OOImN  KP2  SOUAREO 

039T  ' 

REP 

EAST 

881 

2272307“ 

02061 

i 

K 

03V8 

22,2310 

50235 

0 

vxv 

DOT 

0399 

REF 

4 

LAST 

881 

22,2311 

0206  T 

1 

V 

O'^CTO' 

RtF 

6 LA5I 

8¥1 

“22  7231 2 

02357 

I 

CPT6/2 

0401 

22,2313 

77752 

1 

SLl 

. - » 

0402 

REF 

2 

L/\bl 

37 

22,2314 

26105 

1 

SlUVL 

MAP2 

MAP2  s 2 R*V.CPT6/2 

OA03 

‘ Rl'F^ 

6 

LASI 

882 

22,2315 

02061 

1 

■R 

040A 

22,2316 

7 1646 

0 

AbVAL 

- 

040S 

REF 

3 

LASI 

37 

22,2317 

02111 

1 

SlUKt 

RS 

RSO  = AbVAL(R) 

WCT6 

22,2320 

45316 

1 

usu 

T75U 

pushing  UP  RP2“SQUAKEtr 

0407 

22,2321 

77766 

0 

SUKI 

2 2 

0408 

REF 

2 

LASI 

37 

22,2322 

02107 

0 

STURE 

RC 

RC  = SQRTIRSO  -RP2  ) 

0409 

22,2323 

51025 

1 

usu 

BPL 

BRANCH  IF  RC/RSO  WOULD  OVERFLOW 

0410 

REF 

4 

LASI 

882 

22,2324 

02111 

1 

RS 

0411 

REF 

1 

22,2325 

4433<i 

0 

SRS2L0MP 

0412 

22,2326 

56345 

u 

OLUAO 

ODV 

0413 

ref 

3 

LASI 

882 

22,232T 

02107 

u 

RC 

0414 

REF 

5 

LASI 

882 

22,2330 

02111 

1 

RS 

0415 

RiF 

4 

Last 

881 

22,2331 

02125 

0 

S I UKt 

LKS2 

COSINE  (RS2)  ” RC/RSO’ 

0416 

22,2332 

56345 

0 

SRS2C0MP  OLUAO 

oov 

0417 

REF 

3 

LASI 

881 

22,2333 

02103 

1 

RP2 

0418 

R^F 

6 

LAS  1 

882 

22,2334 

02111 

1 

RS 

0419 

ReF 

2 

LASI 

3 1 

22,2335 

02127 

1 

SIUKt 

SRS2 

51NE(R52)  I KP2/RS0 

0420 

22,2336 

6 756^ 

1 

SKiK 

ARCSIN 

042  1 

22,2337 

52405 

1 

UMH 

SL3 

0422 

REF 

1 

22,2340 

05740 

1 

Pl/4 

0423 

REF 

7 

LASI 

882 

22,2341 

16115 

0 

STOOL 

RS  +4 

RS2  = AkCSlN(KP2/KS0) 

0424 

RrF 

4 

LflS  1 

882 

22,2342 

02103 

1 

0425 

22,2343 

77671 

1 

uuv 

0426 

REF 

4 

LASI 

882 

22,2344 

02107 

0 

RC 

042  7 

rlf 

2 

LaS  I 

37 

22  *2345 

16131 

0 

SIUOL 

T KS2 

TANGENT  (RS2)  ’s  RR2/RC 

0428 

REF 

3 

LASI 

88l 

22,2346 

02101 

0 

VL  +4 

0429 

22,2347 

65271 

0 

uuv 

POOL 

This  PUSH  DOWN  Is  for  3RD  COMP  OF  VS. 

0430 

REF 

"8 

La  s I 

8 82 

22 ,2350 

RS 

0431 

RpF 

4 

LASI 

882 

22,2351 

0207  7 

u 

VL  +2 

0432 

22,235E 

65271 

0 

oov 

POOL 

THIS  PUSH  DOWN  IS  FOR  2ND  COMP  OF  VS. 

0433 

RLF 

5 

LASI 

882 

22,2353 

02107 

0 

RL 

0434 

REF 

5 

LASI 

882 

22,2354 

02075 

1 

VL 

0435 

22,2355 

77666 

1 

VOtF 

DEFINITION  OF  SPHERICAL  VELOCITY  VECTOR 

0436 

Ref 

3 

LA'S  1 

37 

^2  *2358 

16117 

1 

SIUOL 

VS 

0437 

REF 

4 

LASI 

882 

22,2357 

02121 

1 

vs  +2 
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LASI 

880 

22,2631 

3 107^ 

0 

CA 

AVGEXl T 

5631 

HTfF 

2 

Last 

887 

9^63^ 

55*724 

0 

1 s 

D0WN2DPS 

+ 1 

0632 

REF 

3 

LAST 

748 

22,2633 

3 566^: 

0 

LA 

EBANK  7 

make  up  a word  which  may  be  used  TO 

06322 

REF 

63 

LAST 

868 

22,2634 

56  003 

1 

XCH 

EbANk 

FIND  OUT  hHEKE  THE  DOwNLIST  POINTER  IS 

0632A 

RrF 

245 

LAST 

868 

22,2635 

54  002 

I 

1 s 

u 

AT  1 HE  MOMENT » 

06326 

REF 

13 

lasi 

333 

E7 

EBANKi 

TMINDEX 

0633 

REF 

14 

last 

88  7 

22,2636 

3 I4O2 

0 

LA 

TMINDEX 

06332 

22,2637 

0 0006 

1 

EXI end 

ref 

20 

Last 

863 

22  ,2640 

7 7753 

0 

MF 

B1T9  '■ 

PUT  LOW  6 BITS  OP  TMTTVUE^X  IfTTO  BITS 

06336 

REF 

14 

LAST 

339 

22,2641 

3 1401 

0 

CA 

DNTMGOTO 

14  - 9 Of  L. 

06330 

RfF 

11 

LAST 

5 70 

22,2642 

7 4564 

0 

MASK 

L0W8 

063A 

REF 

159 

LAST 

668 

22,2643 

26  001 

1 

AL5S 

1. 

add  LOW  8 BITS  OF  DNTMGOTO, 

063A2 

22,2644 

0 0006 

1 

EX  1 END 

063^4 

REF 

64 

LASI 

887 

22,2645 

22  003 

1 

lxlh 

EBANK 

06346 

REF 

5 

Last 

875 

L4 

tbA(SlK.= 

E2DPS 

0635 

REF 

12 

LASI 

8S0 

Zd  %'Zb^b 

3 1320 

1 

LA 

MASS 

06352 

ref 

3 

LASI 

887 

22,2647 

53*726 

1 

DxCH 

D0wN2DpS 

*z 

063&4 

REF 

B0 

LASI 

885 

22,2650 

0 6112 

0 

1 C 

INTPRET 

06356 

22,2551 

77745 

1 

DLUAD 

0636 

RfF 

5 

LASI 

886 

22,2652 

02163 

1 

.-■yAFXT 

0637 

RfF 

4 

LAST 

887 

22,2653 

26330 

0 

STUVll 

D0WN2DPS 

0638 

RETF 

4 

LAST 

866 

2<^92654 

^dlb  ( 

0 

0639 

REF 

5 

LAST 

887 

22,2655 

02332 

1 

STUKt 

D0WN2DPS 

*b 

0640 

22,2656 

mib 

1 

EXIT 

0541 

22,2657 

0 0003 

1 

KELT  NT 

0642 

REF 

4 

Last 

880 

22,2660 

25*402 

0 

INCH 

FLPASSO 

INCH  FIRST  PASS  FLAG.  REPEATS  ARE  OR. 

06^,3 

ref 

28 

Lasi 

887 

22,2661 

51*072 

0 

i NL>LX 

AVGEXIT 

0644 

REF 

1 

22,2662 

4 0005 

0 

LS 

TTF/4CR 

0645 

REF 

12 

last 

887 

22,2663 

6 1452 

0 

AU 

TTF/4 

0646 

22,2664 

0 0006 

1 

EX  1 end 

0647 

REF 

5 

LASI 

886 

22,2665 

5 1401 

0 

INUtX 

NDXBR 

0648 

Ref 

1 

22,2666 

6 0003 

1 

B2MF 

BHXMID 

CONIINUE  present  PHASE 

633<t36A  YUL  SY5TEI"  ^ DR  AIjCJ  REVISION  0 OF  PKOORAM  BURSI12U  tJY  NASA  2U2U06-031 


tJE^7TT967  CFiAIW  PAOt  888 


X ^ ’SECOND  DPS  XJIDANCE 


UStR^S  OWN  PaOE  no.  T8  ’ ’ S3  EA 


06A9 

REF 

29 

LAST 

8b  1 

22,2667 

3 1072 

0 

LA 

AVGEXIT 

0650” 

REF 

2 

Last 

36 

22,2670 

* ^Ub 

0 

1 5 

AVGXl tMF 

0651 

REF 

136 

LAST 

886 

22»2671 

0 9161 

0 

IC 

PHASCHNG 

0652 

22,2672 

09022 

0 

+902  UCI 

09022 

“0653 

TTEF 

*3 

LAST 

B58 

^2  • ^ 6 ^ ^ 

3 1 AT)5 

1 

LA 

ATGXT  EMP 

065A 

REF 

16 

Last 

803 

22,2679 

6 7765 

1 

AD 

SEVEN 

0655 

REF 

30 

last 

888 

22,2675 

55'072 

1 

1 s 

AVGEXIT 

0656 

REF  Z56 

LAST 

883 

22  ♦ 26  ^6 

3 “7767 

0 

L7T 

“ZERO 

0657 

RfF 

5 

last 

887 

22,2677 

55<902 

1 

1 s 

FLpASSO 

0658 

RfF 

LASI 

888 

22  ,2700 

51 <905 

1 

INDEX 

AVGXl EMP 

. 065R 

TTEF 

1 

22,2701 

1 UUU6 

0 

1 O’ 

BRXEND 

PREPARE  FOR  NEW  PFiASE 
TEMPORARY  PKtriECTlON-F OR  AVGEXIT 
PROTECT  AVGtXIT 


RESET  flag  indicating  pASS  ZERO  (FIRST) 


6 3 34 36 A 


L 

P066U 

R0'66i 

K0662 

R0663 

R0665 

TR01666“ 

K0668 

R0669 

R0b71 

R0673 

K067b 


R0676 
R06  78“ 

0680 

A068r 

0682 
0683  ■ 
068A 

0685 

0686 

0687 

0688 

0689 

0690 

06^T 

0692 

0693 

0699 

0695 

0696 

0697  - 

0698 

0699 

0700 

0701 

0702 

0703 
0709 

0705 

0706 
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*************************************************** ************ 

'ROUTINES  FOR  EXITI NG  FROM' SECOND^DPS' GUIDANCE.  ' THESE  ARE!^'  ' 

************************************************************************ 

'r. EXI'GMIO  CALCS' CALCRVCj  as  an  IPTERpRETIVE  SUBROUriNE  Up  UNTIE' bUT  NUT 'INCCUDIN'G“THE 'LAST  pASS  DURINfc, 

THE  PREPURN  phase.  UPON  return  EXIGMID  KeSIARTS  2DPS. 

'2. eXIGENDTS  used  ON' the'  CAST’ PASS' during  PREBORN.  IT  SETS  UP  FOR  KALCMANU,  F0TT"THE~SUB5eQUEN'T  '20PS 

BURN,  and  exits  TO  THE  MISSION  CONTROL  PROGRAM. 

3'.'  eXOJLIN  IS  used  to  terminate  EACH  PASS  UP  UNTIL  'BUT  NOT  INCLUDING  THE  LAST  PASS' ONFALL' 2'DPS'BUKN 

PHASES,  EXUDLIN  obtains  ATTUUDe  and  IHRuTILe  control  and  terminates  the  job. 

'A.'  pXFlNAL  IS  the  FINAL  20PS  EXIT.  IT  SETS  UP  AND  ISSUES  THE  ATTIl  UUe 'COMPAND  FOR  RANDOM  THROTTL'ING  

ANp  EXITS  TO  the  MISSION  CONTROL  PROGRAM. 


exicmid  spis  UP  For  calcrvg  to  mqve  state  Forward  a specified  tiMe»  initializes  tHe  interpreter,  calls  calcrvg 
AS  AN  INTfRPRETl  Ve'SUBROUtI'NE  , 'AND' UPDN'  R'ETURN-Sct5'UP-F0R^1'GNACG''ANO' branches  ■TNDrFrpCTtY'ntTERETU. ' ' 


ref 

3 

Last 

879 

22,2702 

0 3531 

0 

EXIGMID 

1C 

PRETINIT 

REF 

B9 

LAST 

887 

22,2703 

0 6112 

0 

1C 

INTPRET 

22,2709 

93395 

1 

DLUAD 

DAD 

REF 

1 

22,2705 

0572  1 

0 

PIGNALG 

REF 

13 

LAST 

879  . 

22,2706 

01307 

1 

PIPTIME 

RIF 

2 

Last 

36 

22,2707 

26045 

1 

^ 1 U V L 

P I P 1 1 MET 

REF 

4 

LAST 

8 75 

22,2710 

05722 

0 

ZEROPOS 

REF 

a 

LAST 

22,2711 

34404 

0 

STCALL 

DELV 

R^F 

z 

LA51 

821 

22,2712 

61137 

0 

'CALCRVG 

22,2713 

mtb 

1 

EXIT 

RIF 

i 

2Z,T27I9 

3 3 7 OS 

0 

LA 

EZDPSL 

RLF 

6b 

LASI 

88  7 

22,2715 

59  003 

0 

IS 

EBANX 

RfF 

137 

LAST 

888 

22,2716 

0 9161 

0 

1C 

PHASCHNG 

22,2717 

04022  U 

♦ 902 

oci 

“09022 

22,2720 

0 0004 

0 

RNVNSlOK 

INHINT 

REF 

1 

22,2721 

3 3791 

0 

LA 

NSCALK-1 

■RfF 

67 

LAST 

828 

22,2722 

59  070 

1 

rvstor 

1 S 

RUPIRtGl 

REF 

68 

last 

889 

22,2723 

50  070 

0 

INDEX 

RUPT  REGl 

REF 

3 

LAST 

843 

22,2729 

3 1050 

0 

CA 

RNl 

“RpF 

69 

Last 

869 

22,2725 

50  070 

0“ 

■ i NULX 

RUPT  REGl 

ref 

15 

last 

880 

22,2726 

55'010 

0 

1 5 

RN 

REF 

IQ 

lasi 

689 

22,272  1 

10  070 

1 

CCS 

RUPTREGl 

RIF 

I 

ZZTZ73D 

T 2722  0 

ret* 

"RVSTOR 

22,2731 

0 0006 

1 

EXIEND 

RfF 

3 

Last 

889 

22,2732 

3 1995 

0 

DCA 

PIPTIMET 

RfF 

889 

22,2733 

53 '307 

0 

UXCH 

'PTP  T IME  ' 

INITIALIZES  interpreter  FOR  CALCRVG 
succeeding  CODING 'MUST  NOT  UNDO' 


updated  PIPT  iMr'Tt'MPORTWY-STORAGE- 
DELV  = 0 

STEPS  FORWARD-IM  TI'MF  LEAVING  RNl,  VNl 


assure  correct  ebank-before 
doing  phaschng 

PROTECT  PIPTIME.  PREVENT  REDOING  CALCRVG 


set  inhibited  LOOP  TO  STORE  FOR  DWNLINK 


STORE  UPDATED  RN , VN 


updated  PIPriME' 


4 
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0707 

22,2734 

0 0006 

I 

EX  1 END 

0708  " 

RfF  15  Last 

689  ■ 

22,2735 

3 1307 

X 

oca 

PEPTIME 

0709 

REF  6 LAST 

828 

22,2736 

53I32T 

1 

UXLH 

STAT IME 

TIME  FOR  DWNLINK 

0710 

22,2737 

0 0003 

1 

KELINT 

tnrr 

PEP  31  Last 

888 

22,2740 

0 r072 

0 

1 c 

“AVGErxrr 

returns  ICPAPPROPRl ate  LOCPTl'ON  IPI  2DPS 

R0712 

EXIGENO  EXIKAPOLATEb 

UNAFC/2 

TO  ttf/4  = 0,  Sets 

UP  FUR  MISSION  CONTROL 

PROGRAM,  Sets  up  for  the  succeeding 

^ ROTIA 

B'RffKIiNG  PHASEi  am;  Ba  I T5  TO  THE  MlSblUIN  LuNTKUL 

r vj  « ri « 

K071b 

extrapolate 

JNAFC/2 

R0716 

UNAFC72  = UNAFC/2+ (UNAFC/'2-UNAFC/20)  ITTF)  / (TPIRULO-IPIP) 

DTI’r 

22,2741 

0 0006 

1 tXlGENO 

LX  1 ti'ii; 

0718 

RpF  4 Last 

881 

22,2742 

3 1451 

0 

OCA 

TPIPOLD 

0719 

ref  339  Last 

88/ 

22,2743 

52  145 

0 

OXLH 

MPAC 

0720 

22T2T44^ 

U TJD06  1 

“TOCTETTO' 

0721 

ref  6 last 

887 

22,2745 

4 144  7 

0 

ULS 

TPIP 

0722 

REF  340  last 

890 

22,2746 

20  145 

0 

LAS 

MPAC 

0723 

RfF  2 Last 

881 

22,2747 

3 7750 

1 

LA 

T5CALE 

072A 

22,2750 

0 0006 

1 

EXIENO 

0728 

REF  23  Last 

809 

22,2751 

7 7761 

1 

MP 

BIT3 

MULIIPLIES  BY  N = 4 LEAVING  RESULT  IN  L 

072ET  ' 

REP“  160  LAS  1 

887 

22,2752 

3 0001 

0 

LA 

L ■ ■ ■ 

ASSUMES  NTTP1TXJLD4TP11')74>1'TF/a  IN  MAGN, 

0727 

REF  2 last 

88l 

22,2753 

0 7375 

1 

IC 

OMPNSUB 

N(TFIPULD-TPIP) /4  TO  MPAC,  TTF  UNITS 

0728 

22,2754 

0 0006 

1 

EX  1 ENO 

0729 

ref  13  LAST 

887 

22,2755 

3 1453 

1 

OCA 

T1F/4 

0730 

REF  341  Last 

690 

22,2756 

52  145 

0 

OXCH 

MPAC 

DIVIDEND  TO  MPAC 

0731 

REF  62  last 

868 

22,2757 

52  121 

1 

OXCH 

BUF 

DIVISOR  TO  bUF 

0732 

pfP  r 

22,2760 

0 5317 

1 

|-C 

DSPRCADK' 

0733 

REF  1 

22,2761 

00352 

0 

LAUK 

OOV/BUDV 

(TTF/4)/(N(TP1P0LD-TP1P)/4)  TO  MPAC 

' 0739 

REF  Last 

888 

22,2762 

3 7767 

0 

■ LA  ■ 

ZERO 

0735 

REF  8 Last 

B68 

22,2763 

54  153 

1 

1 s 

MODE 

TO  INDICATE  OP  IN  MPAC 

0736  ^ 

KEF  90  Last 

889 

22 ,2764 

0 6112 

0 

1 L 

INTPRET 

0737 

22,2765 

52315 

1 

POVL 

V5U 

0738 

REF  5 last 

887 

22,2766 

0216  T 

0 

UNAFC/2 

0739 

RrF"  3 lasi 

37 

22»276  f 

02175 

0 

UIWPC/30- 

07A0 

22,2770 

74352 

0 

VSL2 

VXSC 

VSL2  UNDOES  MP  BIT3  PRECEDING 

07A1 

22,2771 

77655 

1 

vao 

0742 

KEF  6 Las  I 

890 

22,2772 

0216  T 

0 

UNAFC/2 

— Y 1 ELDS^XTRAPOLAT'b'D'UAWF  C/2 

R07A3 

SfT  up  for  mission  control  program 

07A9 

REF  4 last 

729 

22,2773 

15656 

0 

STUDL 

POINI VSM 

STOKE  FOR  KALCMANU 

07A5 

REF  14  LAST 

890 

22,2774 

02053 

0 

ITF/4 

0T4t) 

22,277S 

4rl3T6- 

1 

LCUWP 

■WTP 

07A7 

ref  2 last 

887 

22,2776 

05721 

0 

rSCALlNV 

0748 

22,2777 

17615 

0 

OAO 

KrF“  16'  Lasi 

890 

22,3000 

oi3or 

1 ' 

PI  PI IME 

M 
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0750 

REF 

3 Last  7ao 

22,3001 

02057 

1 

STORE 

TULLG 

TIME  AT  V/HICM  ULLAGE  IS  TO  START 

0751 

22,3002 

TT615 

0 

OAU 

C752 

REF 

i 

22,3003 

055A7 

1 

PULLGCS 

0753 

“RTF 

nr  E7T5T  75A 

27,300  a 

"02270 

0 

6 1 UKET 

TTGN 

DTSPLAY  TIGN  FuP  U0NNL1n)C, 

K07SA 

set 

UP  fop  bramng 

phase 

075S 

22,3005 

77776 

1 

EXIT 

0756 

RLF 

138  last  889 

22,3006 

0 A161 

0 

1C 

PHASCHNG 

PROIECT  TTF/A  AND  PREVENT  REREADING  REG- 

0757 

22,3007 

0A022 

0 +402 

UC  1 

C740ZZ 

ISTERF  REWR“lTTEN~Bm»ri‘ST')  CONT  PROGRAM 

0758 

22,3010 

0 0006 

1 

EX  1 END 

0759 

REF 

8 LAST  88l 

22,3011 

3 1A56 

1 

UCA 

TTF/ATMP 

0760 

REF 

15  LAST  890 

22,3012 

53  *453 

0 

UXCH 

TTF/A 

K0761 

return  to  mission 

control  program 

0762 

Ref 

A Last  bbo 

22,3013 

0 3531 

0 

1C 

PREl INI! 

INIIIALIZES  INTERPRETER 

0763 

22,301A 

0 0006 

1 

EX  1 ENO 

“ 076A 

REF 

1 

22,3015 

3 3713 

1 

1^^  A 

RTTPHEBL 

0766 

22,3016 

52  006 

0 

UTCB 

'Sy5TEh‘  F3«‘T'igC;  R 0 OF  pT^OGRAM' BURST  12U  BY  NASA  2021106-031 
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L 

slcoNCtotts  guidance 

USER'S  OWN  PAGEITO.  22  S3  E4 

P0766 

EXUDLIN 

SjORES  xHE 

SEMI-UNIt 

vector  I 

defining  the 

direction  oF  Commanded 

thrust  acceleration  (unafc/2)  in  the 

“K7)T&8 

APPKDFTrrATt^t^I  1- il^  ^ffXlpL;)  ANU  TiJNywuuu  WNU  OtfDKCJU  | ilNb.3.  - - - 

R0770 

FINALLY 

EXUDLIN  IERMINATES  THE  JOB. 

' RfF- 

~rtr 

888 

?2V3017  ru  711 

1 

EXQDCIT^ 

yCb 

OVFIND 

l>  OVH  AFTEH  CD^iPUTlN^  AT-CS'i*  ALARM*  ANU 

0772 

REF 

1 

22,3020 

1 3073 

1 

ICF 

0vF2dRS4 

DO  IVOT  ISSUE  attitude  Ok  THROTTLE  CMdS. 

0773 

22,3021 

1 3023 

1 

ICF 

♦ 2 

0T7‘A 

' 2 

LA'S  I 

892' 

22  « 3022 

1 7073 

1 

1 o 

■DVF2DHS4 

IN  CASE  OVFIND  t-1 

0775 

REF 

91 

L/VSI 

890 

22,3023 

0 6112 

0 

1C 

INTPRET 

OTTB" 

22 ,3024 

77775 

1 

■VLUAD 

0777 

REF 

7 

LAST 

890 

22  ,3025 

0216  7 

0 

UNAFC/2 

0778 

RfF 

Last 

840 

22,3026 

36233 

0 

bKALL 

AXISD 

0779 

REF 

3 

L/\  b 1 

73^ 

22,3027 

6070P 

0 

FINDCDUD 

ATTITUDF  CONTROl^ 

0780 

22,3030 

74545 

0 

DLUAD 

SRIK 

LOAD  good  /AFC/, 

0781 

REF 

6 

L/\bT 

887 

^ ^ 9 3 Ob  1 

02163 

1 

/AFCa 

btALt  ^0"  THHOTCON  “Uf'Tl'T  b « 

0782 

REE 

2 

lasi 

852 

22,3032 

01323 

1 

SIURE 

/ACF/ 

store  in  THROICON  ACCEL  CMD  REGISTERS 

0783 

22,3033 

77776 

1 

EXIT 

OT87T 

22,3074“ 

0 0006 

1 

EXTEND 

0785 

REF 

1 

22,3035 

3 3717 

0 

DCA 

THRO  1 COL 

0786 

22,3036 

52  006 

0 

DTCB 

THROTTLE  CONTROL 

0787 

ref 

^8 

last 

879 

22,3037 

0 4141 

1 

EXOVFLOW 

1C 

2PHSCHNG 

PREVENT  recalling  THROTCON  AND  FINDCDUD 

0788 

22,3040 

00034 

0 

UCI 

00034 

4.3SPUT  FOR  ALCLJOB 

0789 

22,3041 

00002 

0 

♦ 002 

uci 

00002 

INACT  I VATE  GKODP“  2 " 

0790 

REF 

103 

LASI 

870 

22,3042 

0 5567 

0 

1C 

ENDOF JOB 

terminates  the  job  periodically  started 

A0791 ^ BY  A WAlTUrST^CAtt  f ROM”  REAOACCS 


Rq792 

R0794 

exfinal 
IN  AxlSC 

IS  tHe  final  exit  from  2DPS.  FIRST  eXFINAL  PLACeS  tHe  SeMI-UNIt  NORMAL  TO  THe  URBITAL  PLANe  (CP|6/2) 

1 and  Calls  findcdud  as  a subroutine,  this  causes  further  thrustinij  to  be  normal  to  the  oRbItal  plane. 

^0T96 

0798 

FltJALLY 
RLF  92 

tAriiAjMi-  r^^jU^iNb  |j  nrboiuN 

LflSi  892  22,3043  0 6112  0 

EXFINAL 

1C 

wni^n  tAEv-yit^ 
INTHKtT 

jnt  KniNiUOF'  ifirCUTXu i Nva * 

0799 

22  *3U44 

77775 

1 

VLUAD 

0800 

REF 

7 

last 

882 

22,3045 

0235  7 

1 

CPT6/2 

0801 

REF 

5 

last 

892 

22,3046 

36233 

0 

STCALL  AXISD 

08t)2 

REF 

La6  I 

892 

22,3047 

60703 

0 

r iNOcouu 

“ATTITUDE  CUNTKOt: 

0803 

22,3050 

777  7b 

1 

EXIT 

080^ 

RTF 

139 

Last 

891 

22,3051 

0 4161 

0 

1 c 

PHASCHNG 

T'REVtNT^^ECAtLlNG  “FINDCDUD 

0805 

22,3052 

04022 

0 

+ 402 

UCI 

04022 

T)8TD’6 

RfF 

5 

L A b 1 

891 

22 , 3053 

0 3531 

0 

K 

PTYETINIT  " “ 

IN  1 1 17TL rZES“  IitTERPRETER 

0807 

22,3054 

0 0006 

1 

EX i end 

0808 

REF 

I 

22,3065 

3 3715 

1 

OCA 

RETBUKNL 

0809 

, 3Ub6 

““52“0tr6~ 

“cr 

DTCB 
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R081A  OVERFLOW  ACTIONS' 

KOBl^J  ******  *******#******#**HHH*******iHHHHHHH*»**» 


0816 

0817 

22,3057 

22,3060 

77775 

77776 

1 

1 

0VF2DPS2 

VLUAD 

EXIT 

FROM  PUSH  LIST,  PURPOSt;  RESET  POINIER 

0b18 

R8F 

42 

last 

824 

22  ,3061 

0 4755 

1 

0VF2UPS1 

IC 

alarm 

OVERFLOW  PRIOR  TO  (PRtSUMAbLY  DURINU) 

0819 

22,3062 

00410 

1 

UCJ 

OOAlO 

computation  of  ACS  OR  ARCS 

0820 

RfF 

93 

Last 

892 

22,3063 

0 6112 

0 

IC 

INTPRLT 

OVFINO  RESET  bY  BOVb  UR  BOV,  NO  REPEAT 

0821 

22,3064 

77650 

1 

IjOIO 

■ ■ 08Z2 

re:f 

1 

22,3065 

44555 

1 

RET0VF12 

0823 

0824 

REF 

43 

Last 

893 

22.3066 

22.3067 

0 A755 
00411 

1 

0 

0VF20PS3  )C 
UCI 

ALARM 

00411 

divide  overflow  durincj  computation  UF 

AFCS  . E.OVB  RESETS  OvFlND. 

A0825 

0826 

REF 

9A 

last 

893 

22,3070 

0 6112 

0 

IC 

INTPRET 

t 

SET  ALARM  AND  RETURN 

0827 

22,3071 

77650 

1 

UOlO 

0828 

KEF 

1 

22,3072 

44570 

0 

AFCCALC 

0829 

0830 

REF 

REF 

11 

4A 

LAST 

LAST 

892 

893 

22.3073 

22.3074 

54  111 
0 4755 

1 

1 

0VF2DPSA  ]S 
1 C 

OVFlND 

ALARM 

OVERFLOW  AFTER  COMPUTATION  OF  ACS,  AFCS, 
AND  Arcs  . reset  OVFIND,  SET  ALARM,  AND 

053T 

2Z1JD75 

0O4T2" 

~0 

UCI 

ffOTTU 

A0832 

RETURN  SKIPFINO  CALLS  OF  FINDCDUD  AND 

0833 

REF 

1 

22,3076 

1 303  7 

1 

ICF 

EXOVFLOW 

THRUTLON. 

7.  1967  {>1707?)-  page:  ggA 
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U SECOND  OPS  OJIDAnCE  -UStR < ST  oWN'EaGT  WoT“  ^ 4 ' 53  E4 

P0834  **»»**»»*»***»*»»*****»******»****»***»*»•**»**»*****»****************** 

ROT33  IGNITION  algorithm  — 

R0U36  «^  *»***#*****»*»*******»**•*********«**.**»**»***»»*******  **************** 

R05T7 IGNTTlri  EltTRAPOtATES-THE-GI  VH>rSTATE“Fom?ARD'TMROOGM— rWE'  Tl^E  INTERVAU' KEQOIKEO'TCTAC'COMPtl'SH-tJCLAGE  AND  TO 

R0839  LITE  at  LoW  {HBUST  AND  TRIM  THe  ENGINE,  THE  eATKAPOLAT ION  ENDS  AT  THE  UMe  MAXIMUM  THROSt  RCULD  Be  COMMANDED 

R0841  IF  the  LITeUP  PROCEDURE  WeRE  INITIATED  AT  THE  CURRENT  GIVEN  TIME.  (THE  GIVEN  TIME  IS  NOT  TRUE.  ALL  GIVEN 

R0'S43 CONDITIONS  INCLUDE  A'  FREE-FALL-EXTRAPULATION-OF'- THE  'ACTUAtr  ORBIT,  ) THE  EXTRAPOLTTrlONTTRFCIKMEU  BY  IGNItNt 

R0846  INCLUDES  ALL  eFFeCTS  OF  ENGINE  THRUST  DURING  THe  LIieUP  PROCEDURE,  AND  IT  USES  tHe 
R0847  THRUSI  pointing  UIReCtION  WHICH  WILL  BE  COMMANDED  AT  |He  INITIATION  OF  MAXIMUM  THRUST, 

RO'849  THIS  extrapolated  STATE  IS  THEN  FED  TO  THE  GUIDANCE  EUOATIONS,  WHICH'  COMPUTE  TttE  THKtrST-ROlTTTlNG 

R0851  DIRECTION  (UNAFC/2!  AND  THE  THRUST  ACCELERATION  MAGNITUDE  COMMAND  (/AFC/). 


R08S3 

R085S 

R0857 

R0559 

R0881 

R0863 

H0865 

ROB'67 


1GNITN2  then  ReCeIVeS  THI S OUTPUT  DATA  FROM  THE  GUIDANCE  EQUATIONS  AND  DETERMINES 'WHETHER' THE  THRUST 
acceleration  magnitude  command  is  mONOTONICALLy  increasing,  when  it  is,  IGNITN2  USeS  the  present  and  PREVIOUS 
values  to  compute  one  quarter  of  the  present  time  (TTF/4)  relative  to  the  time  at  which  the  thrust 
acceleration  magnitude  command  will  Reach  tHE  criterion  value  (/AFC/CR)- WHlCH-eoRREST^ONDS-TO-MATaMUM  throttle. 
{(HEN  TTF/4  so  computed  REACHES  THE  TIME  CRITERION  FUR  TERMINATING  THE  PrEBUrN  PhAsE  (TTF/ACr)* 
exIGend  Is  processed,  terminating  the  phase  and  Returning  control  to  the  mission  control  program. 

THE  mission  Control  program- executes  the  computed  ignition  sequence.- ignitnz  must' also-,- on-eacft  pass. 
Reestablish  Certain  data  required  for  the  subsequeni  pass. 


R0868  Ignition  algorithm  part  i ' 

R0869  **»*****»«*  ***»*w*****#*»x*»****ftx**)t  *******************  »**»****x**»»»x* 


TRTT8T0  DO  TEMPORARY  SlURAGE 


0871 

REF 

95 

Last 

893 

22,3077 

0 6112  0 

IGNITNl  1C 

INTPKET 

08  !Z 

22,3100 

777^5  1 

PtC7AU“ 

0873 

REF 

7 

LAST 

892 

22,3101 

02163  1 

/AFC/ 

0874 

REF 

2 

LASf 

37 

22,3102 

26165  1 

srovL 

/AFC/OLD 

OLD  VALUE  OF  /AFC/  FOR  USE  BY  IGN1TN2 

0875 

REF 

8 

LA5I 

892 

22,3103 

02167  0 

UNAFC/2 

0876 

REF 

LAS' 

890 

22,3104 

26175  0 

STOVE 

UNAFC/20 

Old  value  of  unafc/2 

R0877 

extrapolate 

STATE 

0878 

KFr 

LA3I 

22 ,31(05'- 

I 

~R~ 

0879 

REF 

1 

22,3106 

24011  1 

STOVE 

RDUh 

0880 

REF 

5 

LAST 

882 

22,310'7 

02067  1 

V 

06^ 

RrF 

1 

22 ,31 10 

24017  1 

dlUVL  VrUUn  ■ ■ 

0882 

REF 

3 

LAST 

875 

22,3111 

02211  1 

GDOIMI 

0883 

REF 

1 

22,3112 

14025  0 

STUDU 

JDUM 

RE  K 

1 

22,3113 

0 

PFCULLG 

' ' -ullage  PERKOLT 

0885 

REF 

1 

22,3114 

14007  0 

STUDL 

PDUM 

DUMMY  PERIOD 

0886 

REF 

1 

22,3115 

05551  0 

AFULLG 

LEAVE  AFULLG  IN  MPAC 

O^'BT 

f 'Sl  lb 

7T624  1 

CAl^ 

EXTRAPOLATES  DUMMY  STATE  AND 

0888 

REF 

1 

22,3117 

45255  1 

XTRIGNl 

leaves  initial  gravity  IN  GDUM 

0889  2Z.31Z0  r/7/i  1 


VLOAD 
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L 

SfCoND  I 

DPS  guidance 

USETTTS'  OWN  PagF  No.  25  S3  E4 

0890 

REF 

1 

22,3121 

00033  1 

GDUM 

0B9l 

RfF 

3 

Last  37 

22,3122 

26203  1 

SfDDL 

GDDMPRE5 

^AVE  INITL  GRAVITY  FOR  COMPUTING  GDOTMl 

0892 

REF 

1 

22,3123 

05553  1 

PFCLITE 

LITEUP  PERIOD 

TfFF^ 

2 

L/‘Sr  894 

2?,  31 2^4 

TJTOCr?  0 

5T0DL 

PDUM 

089^ 

REF 

1 

22,3125 

05555  1 

AFLllE 

LEAVE  AFLITE  IN  MPAC 

0895 

22,3126 

77624  1 

CALL 

0896 

ReF' 

LA^T  894 

22,3127 

45255  1 

XTRIGNl 

EXTRAPOLATE 

0897 

22,3130 

77745  1 

DLUAU 

0898 

REF 

1 

22,3131 

05557  0 

PT^CTRIM 

TRIM  PERIOTT 

0899 

REF 

3 

Last  895 

22,3132 

14007  0 

STOOL 

PDUM 

0900 

REF 

1 

22,3133 

05561  0 

aftrim 

LEAVE  AFTRIM  IN  MPAC 

' ^ 09in~ 

22,3134 

77624^1 

CSCC 

0902 

REF 

3 

last  895 

22,3135 

45255  1 

XTRIGNI 

yields  final  extrapolated  state 

09ff3 

22,3136 

77775“! 

VCOSC” 

O9O4 

REF 

2 

last  894 

22,3137 

00011  1 

RDUM 

0905 

Ref 

1 

22,3140 

26111  1 

STUVL 

RTEMP 

RESIART  protection  FOR  EXTRAPOLATED  R 

O9O6 

REF 

2 

LAST  894 

22,3141 

000  W 1 

VDUM 

0907 

REF 

1 

22,3142 

36117  0 

bTLALL 

VTEMP 

RESIART  PROTECTION  FOR  EXTRAPOLATED  V 

R0906 

COMPUTE 

DERIYATIYE 

OF  GRAVITY 

0909 

ref 

1 

22,3143 

45521  0 

GDUMCL 

yields  FINAL  gravity  IN  MPAC  AND  GDUM 

WTO  ZTiTm  T0251  0 ?5D  VTSC 

0911  REF  9 UASl  895  22,3145  02203  1 GDUMPHES 

0912.  ReF  1 22,3146  05537  0 PPHMl  COMPLETES  COMPUTATION  OF  DERIV  OF  G 


0913 

REF 

1 

22,3147 

02133  1 

- STOKE  GDOTMl T 

- FOR  USE  NEXr^PAS^; -RESTART- protected. 

0914 

22,3150 

777  76  1 

EXIT 

R09l5  GlNERATIOM  OF  EXTRAPOLATED  DATA  COMPLETE,  PROTECT  AND  'TR'ANSF  EK  TO  STORACe.-  


0917 

REF 

140 

last 

892 

22,3151 

0 4161 

0 

1C 

PHASCHNG 

PROIECT  R,  V 

0-918 

22,3152 

04022 

0 +402 

UCI 

04022 

0919 

REF 

96 

LAST 

894 

22,3153 

0 6112 

0 

1C 

INTPRET 

0920 

22,3154 

77745 

1 

DLUAU 

0921 

REF 

9 

L/\  S 1 

891 

22,3155 

02055 

0 

1 I F /4T  MP 

0922 

REF 

16 

last 

891 

22,3156 

26053 

0 

STUVL 

TTF/4 

KESIORES  TTF/4  TO  LASI  VALUE  BY  GUIDANCE 

0923 

REF 

2 

Last 

895 

22,3157 

02111 

1 

RTEMP 

0924 

RrF 

8 

L.T'SI 

894 

22  f 3 1 60 

26061 

1 

SIUVL 

- - - - - - 

EXTRAPOLATED-  R ' 

0925 

Ref 

2 

LAST 

895 

22,3161 

02117 

1 

VTEMP 

0926 

RFF 

6 

LASI 

894 

22,3162 

26067 

1 

STUVL 

V 

EXTRAPOLATED  V 

0927 

RLF 

2 

LAS  1 

895 

22  « 3 i 63 

02133 

1 

GDOTMIT 

0928 

REF 

Last 

894 

22,3164 

02211 

1 

STURE 

GDOTMl 

DERIVATIVE  OF  G 

0929 

22,3165 

77776 

1 

EXIT 

0930 

RET 

4 

L/'S  1 

886 

22  ,3166 

3 14T)4 

0 

-LA 

-COUNTFCT 

0931 

REF 

2 

last 

36 

22,3167 

55*403 

0 

1 s 

COUNI FC 

FOR  IGNITN2 

0932 

REF 

2 

LAST 

8 /b 

22,3170 

0 3343 

0 

1C 

XTRIPIP 

YIELDS  TPIP  EXTRAPOLAIED 

0933 

REF 

3 

Last 

878 

22,3171 

1 2210 

1 ' 

1 Ch 

RETIGNl 
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IGNITION  algorithm  PART  2 

ustTirs^oi^N  Page  no.  ZS 

S3  E9 

K0935* 

0936 

22,3172  0 0006  1 IGN1TN2  EX  1 END 

YJ93'T 

l<Zt  n B95 

^ 1 ( ^ 

3 i^i)3 

1 

ULM  1 

0938 

ref  10  LAST  895 

22,3179 

531955 

0 

DXLH  TTF/9TMP 

save  TTF/9  for  next  PASS 

0939 

ref  191  LASl  895 

22,3175 

0 9161 

0 

1C  phaschng 

PKOIECT  TTF/9 

T)9‘^0 

22,3176 

09022 

0 

♦ 902 

UCl  0^4X322 

0991 

ref  50  LAST  881 

22,3177 

9 7793 

1 

CS  POSMAX 

0992 

Ref  18  LASl  896 

22,3200 

55*952 

I 

lb  TTF/9 

PREVENT  PREMAIUPE  TERMINATION  OF 

PREBURN 

K09A3  TEST  WHETHEK  /AFE/  > /aFC/OLD,  IF  SO  TEST  WHETHER  CuUnTFO  = 0. 


tJWf 

22,3201 

' 0 0006“ 

1 

EX  1 END" 

0995 

RfF  8 

Last 

B94 

22,3202 

3 1563 

0 

DCA 

/AFC/ 

0996 

REF  392 

lasi 

890 

22,3203 

52  195 

0 

DXCH 

MPAC 

0997 

22,3209 

U UUU6 

1 

EXTEND 

0998 

REF  3 

Last 

B94 

22,3205 

9 1565 

1 

DCS 

/AFC/OLD 

0999 

RfF  393 

LASl 

B96 

22,3206 

20  195 

0 

DAb 

MPAC 

/AFC/./AFC/OLU  in  mpac 

0950 

ReF  399 

last 

B96 

22,3207 

10  199 

1 

CCb 

mpac 

TEST  HI  ORDER 

0951 

. REF  1 

22,3210 

1 3216 

0 

ICF 

TCOUNTFC 

0952 

REF^  1 

22,3211 

1 3213 

0 

rt.'i' 

1 bJLUAFL 

0953 

REF  3 

LAST 

B78 

22,3212 

1 2613 

0 

ICF 

RET1GN2 

-2 

RESET  COUNTFC 

0959 

REF  395 

LAST 

896 

22,3213 

3 0195 

1 

TSTLOAFC 

LA 

MPAC 

♦ 1 

TESI  LO  ORDER 

og’ss 

■2’2T3Z1‘T 

U UUU6 

1 

TfXI  EN& 

0956 

REF  9 

Last 

896 

22,3215 

6 2613 

1 

B2MF 

RET1GN2 

-2 

RESLT  COUNTFC 

0957 

REF  3 

LAST 

895 

22,3216 

11*903 

0 

TCOUNIFC 

CCb 

COUNTFC 

095^0 

RrF  5 

Last 

896 

22,3217 

1 2614 

1 

ICh 

RET1GN2 

UECKEMtM  CUUNT^^C 

R0959 

Reset  tif/9 

BY  EXTRAPOLATING 

/AFC/ 

K0960 

TTF/9  = 

(1/9) (TPIPOLP-TPIP) (/AFC/-/AFC/CR) / ( /AFC/ULD-/AF C/ ) 

0961 

22,3220 

U UUU6 

^rtlND 

0962 

REF  5 

Last 

890 

22,3221 

3 1951 

0 

UCA 

TPIPOLD 

0963 

REF  396 

LAST 

896 

22,3222 

52  195 

0 

DXCH 

MPAC 

0969 

U UUU6 

r 

EX  l'E“ND“ 

0965 

REF  7 

LAST 

890 

22,3229 

9 1991 

0 

DCb 

IPIP 

0966 

REF  397 

LAST 

896 

22,3225 

20  195 

0 

UAb 

MPAC 

09B7“ 

TTtr  3 

L/'5T 

890 

22,3226 

3 7750 

1 

LA 

TSCALE 

0968 

RfF  3 

last 

890 

22,3227 

0 7375 

1 

IC 

OMPNSUB 

(1/9) (TPIPOLD-TPIP)  TO  MPAC,  TTF  UNITS 

0V^9“ 

0970 
09/ 1 

REF 

RfF 

9 

348 

LAST 

Last 

896 

896 

22', 3230 

22.3231 

22.3232 

0 0006 
3 1563 
52  150 

T 

0 

1 

EXFENO- 

DCA 

DXCH 

/AFC/ 

MPAC 

+ 3 

0972“ 

22,3233 

0 0006 

1 

“ "t  X"l  E1YEH 

0973 

REF 

1 

22,3239 

9 3593 

1 

DCb 

/AFC/CR 

0979 

REF 

399 

LAST 

896 

22,3235 

20  150 

1 

UAb 

MPAC 

♦ 3 

0975 

REF 

10 

Last 

850 

22,3236 

0 7155 

1 

IL 

DMP' 
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0976  REF  3S0  LAST  B9fe 22,3237  001A7  0 OENADK  MPAC ^ 


0977 

0978 

REF 

4 

LAST 

896 

22.3240 

22.3241 

0 0006  1 
3 1565  0 

EX  1 END 
UCA 

/AFC/OLD 

WI9 

RTF'" 

63 

LAST 

890" 

22,3T42 

^2  I2TT1 

DXCH 

BUF 

0980 

22,3243 

0 0006  1 

EX  1 END 

0981 

REF 

10 

LAST 

896 

22,3244 

4 1563  1 

DCS 

/AFC/ 

0982 

' RTF 

64 

LAST 

897 

22,3245 

20  121  1 

Li'AS 

BUF 

0983 

REF 

2 

lasi 

890 

22,3246 

0 5317  1 

IC 

USPRCADR 

0984 

REF 

2 

LAST 

890 

22,3247 

00352  0 

CAUK 

i;DV/bDDV 

yields  TTF/4  in  MPAC 

0986  REF  12  UASI  893  22,3250  10  111  1 GCb  OVFIND 

0986  REF  b last  696  22,3251  I 2612  1 I Ch  RET1GN2  -3  IF  ITF/A  OVFL,  RESETS  OvFIND,  COUNTFC, 


0987 

REF 

351  LASI 

897 

22,3252 

52  145 

0 

UXLH 

MPAC 

0988 

RLF 

19  last 

896 

22,3253 

53'453 

0 

DXCH 

TTF/4 

0989 

REF 

7 LAST 

897 

22,3254 

r 2615 

u 

RETIGNZ  ' 

R0990  ************************************************************************ 

Ro991  special  Purpose  state  e^i Rapolation  subroutine  for  ignitnj 

R0993  XTRIUNi  RfCeIVeB  THe  EXTRAPOLATION  PERIOD  IN  POUMj  tHe  INITIAL  STATE  iN  RDUM,  VDUM ; TH£  THRUS I ACCeLeRAIION 

R0995  magnitude  IN  MPAC,  DIRECTION  IMUNAFC/25  AND  JERK  IN  “JDUM.'  " - 

R0996  IT  leaves  GRftVITY  In  GDUM , THE  TOTaL  INITIaL  aCCELERaIION  IN  aDUM,  aND  THE  EXTRaPOLaTLD  STaTE  IN  RDUM,  VDUM. 


R0998  PReI>ENTLV  TH£  DUM  ReGISteRS  OCCUPY  LOCATIONS  FlXLoC  +8  THRU  FIXLOL  +45  OCTAL, 


IDOT 

1001 

1002 

ref 

2 

Last 

36 

22.3255 

22.3256 

22.3257 

77620 

0200/ 

(4352 

15  5(TRT5NT" 

1 

0 

""STIj 

SLl 

RETXIGNI 

VXSC 

SAVE  dPRET 

1003 

RtF 

9 

LAST 

894 

22,3260 

0^16^ 

0 

UNAFC/2 

1004 

22,3261 

45006 

0 

PUSH 

CALL 

PUSHES  AF  UNAFC 

1005 

REF 

2 

lasi 

895 

22,3262 

45521 

0 

GDUMCL 

yields  gravity  in  MPAC  AND  GDUM 

1UU6 

22,3263 

45455 

1 

VAU 

STADR 

1007 

REF 

1 

22,3264 

77736 

0 

STORE 

ADUM 

ADUM  ; AF  UNAFC.G 

1008 

22,3265 

77624 

1 

CALL 

"1009 

RET^ 

1 

22  9 3266 

45471 

1 

XTRDUMST 

EXTRAPOLATES  ROOM,  VDUM  " 

1010 

22,3267 

77650 

1 

GO  10 

1011 

REF 

3 

last 

897 

22,3270 

02007 

1 

RETXIGNI 
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TOTT^" 

REl^ 

2 

LAST 

880-  - 

22,3271 

0^1  AO- 

a 

LSETEVN 

TC 

NTLZPASS 

1018 

REF 

97 

last 

895 

22,3272 

0 6112 

0 

1C 

INTPKET 

1019 

22,3273 

77773 

1 

VLUAD* 

TOZO  - 

REF^ 

3 

L/^5  I 

885 

22,327A 

U556A 

0 

ADb  f i 

“ 

— 

1021 

Ref 

1 

22,3275 

16175 

0 

SlUDL 

ADLINS 

ADLINS 

= AOS,  ADLINS  s ASPRT  SUCH  THAT 

1022 

REF 

b 

LAST 

885 

22,3276 

02135 

1 

ASPKI 

♦ 2 

1 1 

1023 

RfF 

2 

Li*'  57 

898 

22,3277 

0217  7 

1 

51  UKt 

*2 

int  1 MKUt 1 lO  ^tKU  MNOULMK  nUHN 1 UH  KA i t 

102A 

22,3300 

A0015 

1 

DAD 

BOV 

1025 

ref 

7 

Last 

886 

22,3301 

02151 

0 

AFCS 

+ 2 

1026 

REF 

1 

2273302 

f i 

”tSEOVF 

1027 

REF 

3 

LASI 

885 

22,3303 

261A3 

0 

LSENOVF 

STOVL 

ACS 

*2 

ACS  = 

ASPRT  +AFC5 

1028 

RcF 

3 

LASI 

898 

22,330A 

02175 

0 

ADLINS 

1 

1 1 

T0Z9” 

”22,3305 

7 7650 

“T" 

BOl  0 

1030 

REF 

1 

22,3306 

A531  7 

0 

LlNSEl 

1031 

22,3307 

5203A 

1 

LSEOVF ■ 

KTtJ 

BOTU 

place 

SIGNED  POSMAA  ”INTO  -MPAC  (,  RETURN, 

103Z 

REF 

16 

LaSI 

767 

22,3310 

73501 

1 

SIBNMPAC 

1033 

REF 

1 

22,3311 

A5303 

0 

LSENOVF 

K103A'  Set  linear  BJIDANCe  coefficients  in  odd  numbered  phases 


1036 

1037 

RfF 

REF 

3 

98 

LASI 

LASI 

898 

898 

22.3312 

22.3313 

0 21A0 
0 6112 

0 LSETOUt) 
0 

IC 

1C 

NTLZPASS 

INTPRET 

1038 

22,331A 

77773 

1 

VT.UAD* 

1039 

REF 

4 

LAST 

898 

22,3315 

0556A 

0 

ADS,1 

IOaO 

REF 

4 

Last 

898 

22,3316 

02175 

0 

5TUKh 

ADLINS 

ADLINS  = ADS 

Kio^i  Common  parjd  op  lsetevn  and  lsetodd 


10A3 

22,3317 

77645 

0 LlNSEl  BVSU 

104A 

REF 

4 LAST  898 

22,3320 

02141 

1 

ACS  - - 

1043 

Ref 

I 

22,3321 

16203 

1 STODL 

ADELLINS  ADELLTNS  -=  ALSiiADL ITvS  - 

10*6 

RLF 

20  LASI  897 

22,3322 

02053 

0 

TTF/4 

1047 

REF 

1 

22,3323 

02211 

1 STORE 

TTFLIN/4 

1048 

22,3324 

7 77  76 

T ETcrr — 

1049 

REF 

6 LAST  880 

22,3325 

1 2235 

0 ICF 

TTFINCR  +1 

K1050 

LIINtAK  UUIUAiNLt 

EUUATIONS  ■■  ■ 

K1051 

it  *****  ^^  it  * it  * **  #***  **  #*****»«  it  *** 

10E2 

Ktl- 

99  LA:>I  898 

22,3326 

0 6112 

0 LINGUlU  IX 

ITTTPHtT ■ ' ■"  " 

633't36«  fUl- 
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L 

1053 

SECOND  DPs  GJIDANCE 

22,3327 

56395 

0 

DLUAD 

DDV 

USLft'S  OWN  Page  No.  29  S3  E9 

105<t 

REF 

^ LAST  898 

22,3330 

02053 

0 

TTF/9 

1055 

RfF 

2 Last  898 

22,3331 

02211 

1 

TTFLIN/9 

1056 

22,3332 

53361 

0 

VXSC 

VAD 

■ TTOF? 

"^RfF 

2 LAST  898 

22,3333 

02203 

1 

“AOELLINS 

1058 

REF 

5 last  898 

22,333A 

02176 

0 

ADLINS 

1059 

Ref 

5 Last  b98 

22,3335 

02191 

1 

bTUKE. 

ACS 

FOR  USE  BY  UNSET  FOR  FAZES  6 AND  9 

1060 

22,3336 

77651 

0 

V3I) 

1061 

RfF 

6 LASI  898 

22,3337 

02133 

1 

ASPKT 

1062 

ref 

8 LASI  898 

22,3390 

02197 

1 

STORE 

AFCS 

AFCP  5 TTF  ADELLlNS/TTFLlNtADLlNS-ASPRT 

11J5T  ■ 

~T2‘,T391 

“^'7650" 

1 

GO  10 

106't 

REF 

2 last  893 

22,3392 

99570 

0 

AFCCALC 

R1065 

R1066 

subroutine  tj  sei 

TPIP  EXTKAPOLATED 

R1067 

1068 

22,3393 

0 0006 

1 

XTRTPIP  tXIEINO 

1069 

REF 

17  last  890 

22,3399 

3 1307 

1 

OCA 

PIPTIME 

1070 

REF 

8 LAST  896 

22,3395 

53'997 

0 

DXCH 

TPIP 

1071 

22,3396 

0 0006 

1 

txi tND 

1072 

REF 

1 

22,3397 

3 3591 

1 

DCA 

PPHMICS 

1073 

REF 

9 Last  899 

22,3350 

21'997 

0 

OAb 

TPIP 

633A2T&A 

Yux  system  For  AGC;  revision  OoT  program  BURStIZO  by  NAJA  2021106-031^ 

DEC  r,  1967 TMAlirr  PAGE 

900 

L - 

SECOND  DPS  GUIDANCE 

UStR I S 

OWN  PACE  TJO,  30  S3 

EA 

P107S 

- RT0T6 
R1077 

GfiPiEf^AX.  bUBROimf^tS  CONTRIBUTED  Bt  SECOND  OKS  GUILTANCE 

RIOTS' 

R1079 

R108O 

Double  pk^usion  root  finder  subroutine 

RlObl  N N-1 

K1082  ROOIPSKb  FINDS  ONt  KOOT  OF  THE  POWER  SERIES  AX  +A  X ♦...  +AX+A 


R108A 

“N“ 

TC-1 

j jj 

RIO86 

USING 

newton'S  Method 

Starting  with  an 

INITIAL 

GUtSS 

FOR 

1 the  root. 

tHe  entering  data  most  Be  as  follows: 

A1088 

A 

SP 

LOC-3 

ADRES  For  referencing  PWR  COF  TABL 

A1089 

L 

sp 

N-1 

N IS  the  degree  of  the  power  series 

A1090 

MPAC 

DP 

X 

INITIAL  GUESG -pTTR^ROO'r 

A1091 

L0C-2N 

DP 

A(0) 

A109E” 

• • • 

AI093 

LOC 

DP 

A(N) 

A109A 

LOC  + 2 

bP 

PRECKOOT 

PREL  rod  OF  HOOT  (AS  FRACT  OF  1ST  GOeSS) 

R109S 

the  Dp 

Result  is  left 

IN  MPAC  UPON  exit 

, AND  A 

Sp  count 

OF  the  iterations  to  convergence  is  left  in  MPAC+2, 

R1097 

Return 

IS  TO  LOCITC  POWRSERST+l, 

Rl098  . PKtCAUTION;  ROOjPSRS  MAKeS  NO  CHECKS  FOR  UVtREuOW  OR  FOR  IMPROPER  DSAGe*  IMPROPER  USAOE  CoULD 

Riioo  preclude  convergence  or  reouIRe  excessive  iterations,  as  a Specific  example*  rootpsks  eorms  a derivative 

RITOZ’  -CoEPf-lClENT  TAWLe  BY  MULl  I PLY  TN<S  EACH  A(I)  BY  I,  WHtRt  I -RANGtS  FROM  T TO  Nv  l-p  AN-ECEMENT-Of-^r-DER  IVATl  Ve 

Rii'oa  Coefficient  table  = i oR  > i in  magnitude,  only  tHe  ekceSs  is  retained,  rooipsrs  may  converge  on  tHe  cqRReCi 

R1106  RnOT  nonetHeCess,  but  It  may  take  an  excessive  number  of  iterations,  therefore  tHe  useR  should  Recognize: 


■ RiioB  1.  USER'S  Responsibility  to  assure  that  1 x aui  <•  1 in  magnitude  for  all  i. 

“Rmo  2.  O&eRiS  KeSPoNSIbIL'ItV  to  AGS-URe  TTveRFCOW  will- not  occur  in  evaluating- either  the  ReSIOUAI^  or  THe^DeR1v*T I ve 

RIII2  power  series,  this  overflow  would  Be  produced  by  subroutine  POWRSeRS,  CaLLeD  by  ROOTPSRS,  and  might  not 
RiiiA  preclude  eventual  convergence. 


Rlllb  3,  at  present,  erasable  LOCATIONS  ARE  RESERVED  ONLY  FuR  N UP  TO  5,  AN  N IN  EXCESS  OF  S WILL  PRODUCE  CHAOS, 

RlllT  ALL  eRASABLeS  USeD  BY  ROOTPSRS  ARE  UNSWITCHED  LOCATED  IN  THE  REGION  FROM  MPAC-33  OCT  TO  MPAC+7, 


R1119 

A,  the  IIfRAIION 

count  Returned  in  mpac+2  may  be  used 

TO  detect 

abnormal  Performance. 

A1 1 21 
1122 

22,3352 

0 0006  1 

ROOTPSRS  extend 

STQf^t  ETiTEHlNG  data*  INiTU^Ct  EKAS>ADUE:> 

t tZT 

Rff 

1 

22,3353 

22  122  0 ■ 

-UXCH PET-ROO-T 

RETURN  'ADRE'S  " " 

112A 

RrF 

1 

22,335A 

5A  lOI  0 

IS 

PwRPTR 

PWR  TABL  POINTER 

1126 

ref  352  LASI  89T 

22,3355 

52  150  1 

DXCH 

MPAC 

+3 

PWR  TABL  ADRES,  N-1 

Krr 

i 

2 * 3 3 S 6 

3 -3A70  1 

- -VA 

DtRT  ABLE 

633'.36A  Vut  SY5Tt^'  F^R"  AGC  :TREVr5IT3N“  O^TIF  PROeRSH'roR5TT2U"BY'Ti??S7\  T02  ITO'^-^ST 
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L 

SECOND  1 

JPS  GJIDANCE 

user  IS  OWN  FaCjF  No.  31  S3 

E4 

1127 

REF 

1 

22,3357 

54  131 

0 

IS 

DERPTK 

DER  TABL  POINTER 

1128 

REF 

353 

East 

900 

22,3360 

54  151 

0 

1 5 

MPAC 

+ 5 

DER  TaBE  ADKES 

1129 

REF 

354 

LASI 

901 

22,3361 

10  150 

1 

LCS 

MPAC 

NO  POWER  SERIES  OF  DECREE  1 OR  LESS 

1130 

REF 

355 

LAST 

901 

22,3362 

54  152 

0 

IS 

MPAC 

+ 6 

N-2 

1 ITT 

17ET 

238' 

ITF5T 

89TT 

22 ,336r 

3 7767 

0 

LA 

TERO 

MODE  USED  AS  IT ERAl lON'COUNTER,  MODE 

1132 

REF 

9 

LAST 

890 

22,3364 

54  153 

1 

IS 

MODE 

MUST  BE  POS  bo  ABS  WON* I COMP  MPAC+3 

ETC 

A1133 

Compute  crjieftion  to  SfoP  iterating 

113A 

22,3365 

0 0006 

1 

tXIEND 

" 1T75 

. W 

356 

Last 

901 

22^,3366 

3 0145 

r 

UCA 

MPAC 

PLILh  kUU I UULSS*  KthFlML  AT  iN 

1136 

RfF 

1 

22,3367 

52  11  7 

1 

DXLH 

R00TP5 

and  in  rootps 

1137 

REF 

357 

LaSI 

901 

22,3370 

50  147 

0 

INDEX 

MPAC 

+ 3 

PWR  TABL  ADRES 

mr" 

22,3371 

3 0005 

1 

LA 

5 

PRECROOT  TO  A 

1139 

Ref 

11 

Last 

8B  7 

22,3372 

0 7357 

1 

IC 

SHORTMP 

yields  dp  PRODUCT  IN  MpAC 

1140 

REF 

3 

LAST 

897 

22,3373 

0 5317 

1 

1C 

USPKCAOK 

1141 

RfF 

1 

22,3374 

01206 

1 

CADR 

ffBS 

Yitl-US  ABVAL  Oh  LKATEKION  ON  DX  AN  hHAL 

1142 

REF 

358 

LaSI 

901 

22,3375 

52  145 

0 

DXCH 

MPAC 

1143 

ref 

1 

22,3376 

52  115 

0 

DXCH 

DXCRIT 

CRIIERION 

A1144 

SET  UP  DER  COF  TABL 

1145 

22,3377 

0 0006 

1 

EXTEND 

1146 

REF 

2 

LAST 

900 

22,3400 

5 0107 

1 

INDEX 

PwRPlR 

1147 

22,3401 

3 0004 

0 

DCA 

3 

1148 

RpF 

359 

Last 

901 

22,3402 

52  145 

0 

DXCH 

MFAC 

AIM  TO  TMpAC 

1149 

ref' 

360 

LAST 

901 

22,3403 

3 0150 

0 

CA 

MPAC 

+ 4 

N-1  TO  A 

1150  ■ 

REF 

1 

22,3404 

54  130 

1 

DERCLUOP  IS 

P>tRCNT 

LOOP  COUNTER 

1151 

REF 

160 

LAST 

866 

22,3405 

6 7763 

1 

AD 

ONE 

1152 

REF 

4 

Last 

896 

22,3406 

0 7375 

1 

TC 

DMPM5UB 

yields  DERCOF  : I TITHT)  TN  MPAC 

1153 

22,3407 

0 0006 

1 

extend 

1154 

REF 

3 

Last 

901 

22,3410 

5 0107 

1 

INDEX 

pwrptr 

1155 

22,34ir 

3 0002 

0 

DCA 

1 

1156 

REF 

361 

LAST 

901 

22,3412 

52  145 

0 

UXLH 

MPAC 

AlI-1)  TO  MPAC,  fetching  DERCOF 

1157 

RfF 

2 

LAST 

901 

22,3413 

50  131 

1 

INDEX 

DERPTK 

1158 

22,3414 

52  004 

1 

UXLH 

3 

DERCOF  TO  DEK  TABL 

1159 

ref 

95 

LAST 

864 

22,3415 

4 7762 

1 

cs 

T^O 

1160 

REF 

4 

LAST 

901 

22,3416 

26  107 

0 

ADS 

PWRPTR 

DECREMENT  PWR  POINTER 

1 1 b 1 

RTF 

96 

Last 

901 

22,3417 

4 7762 

1 

XS 

TWO 

1162 

REF 

3 

last 

901 

22,3420 

26  131 

0 

ADS 

OERPIR 

DECREMENT  DEK  POINTER 

1163 

REF 

2 

Last 

901 

22,3421 

10  130 

1 

CCS 

PWRCNI 

1 ib^ 

REF 

1 

22,3422 

1 3404 

0 

1 Ch 

DERCLOOP 

A1165 

converge  ON  ROOT 

1166 

22,3423 

0 0006 

1 

ROOTLOUP  EX  1 END 

1167 

REF 

2 

Last 

901 

22,3424 

3 0117 

u 

DCA 

ROOT  PS 

FETCH  CURRENT  ROOT 

1168 

ref 

362 

Last 

901 

22  «3^25 

52  1^5 

0 

DXX.H 

MPAC 

L^AVE  IN  MPAC 
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1169 

22.3426 

0 0006 

1 

EXTEND 

ITTO 

RFP  363 

Last 

901 

22.3427 

3 U 1 6^ 

1 

OCA 

mfac 

+ 5 

LOAD  A."  L WITTT  DETT  TABU  ADRES.  N-2 

1171 

REF 

1 

22.3430 

0 7267 

0 

IC 

POWRSERS 

yields  derivative  in  MPAC 

1172 

22.3431 

0 0006 

1 

EXT  END 

1173 

REF 

3 

LAST 

901 

22.3432 

3 01  W 

0 

DCA 

ROOTPS 

1174 

REF 

364 

LAST 

902 

22.3433 

52  145 

0 

OXLH 

MPAC 

CURRENT  ROOT  TO  MPAC,  FETCHING  DERIVTIVE 

' 11 7S 

REl^ 

65 

trST 

89r  ■ 

" 2T.3434 

52”  121 

T 

UXLh 

BUF 

Leave  DERivATrvT^rrr-BUF  as  tu visor 

1176 

22.3435 

0 0006 

1 

EXT  END 

1177 

REF 

365 

lasi 

902 

22.3436 

3 0150 

0 

UCA 

MPAC 

♦ 3 

LOAD  A,  L WITH  PWR  TABL  ADRES,  N-1 

11TB 

REF" 

2 

L/\  6 1 

902 

22.3437 

0 726  A 

0 

\ c 

POWRSERS 

yields  RESIDDAt^IN  MPAC 

1179 

REF 

4 

Last 

901 

22.3440 

0 5317 

1 

iC 

USPRCADR 

1180 

REF 

3 

L/'ST 

897 

22.3441 

00352 

0 

CADR 

DOV/BDDV 

YIELDS  -CX  IN  MP'AC 

1181 

22.3442 

0 0006 

1 

extend 

1182 

RtF 

3t6 

Last 

902 

22 .3443 

4 01  A5 

0 

ucs 

MPAC 

FETLH'  DX.  LE AVENG  -DX  ITI  MPAC  “ 

1183 

REF 

4 

LAST 

902 

22.3444 

20  11  T 

1 

UAS 

ROOTPS 

CORRECTED  ROOT  NOW  IN  ROOTPS 

1184 

REF 

b 

LAST 

902 

22.3445 

0 5317 

1 

1C 

USPRCADR 

1185 

Ref 

2 

Last 

901 

22.3446 

01206 

1 

CAUK 

ABS 

yields  ABS(DX)  IN  MPAC 

1186 

22.3447 

0 0006 

1 

EXTEND 

1187 

RtTF“ 

2 

LAST 

901 

* 3^  5U 

^ 0115 

0 

UCb 

DXCRl T 

1188 

RrF 

367 

Last 

902 

22.3451 

20  145 

0 

UAS 

MPAC 

ABSTDX)-ABS(DXCRIT)  IN  MPAC 

1189  ref  10  LAST  901  22.3452  24  153  0 “ INCH  MODE  INCREMENT  ITERATION  COUNTER 


1190 

-ref 

368 

Last 

902 

22,3453 

10  144 

1 

CCS 

MPAC 

TEST  HI  ORDER  Dx 

1191 

RCF 

1 

22 .3454 

1 3423 

0 

1 CF 

ROOT  LOOP 

1192 

REF 

1 

22,3455 

1 3457 

0 

TCF 

TESTLODX 

1193 

REF 

1 

22,3456 

1 3463 

1 

TCP 

ROOTSTOR 

1194 

RrF 

369 

LAS  I 

902 

22,3457 

10  145 

0 

lESTLOOX  CCS 

MPAC 

+ 1 

TEST  LO  ORDER  DX 

1195 

REF 

2 

LAST 

902 

22,3460 

1 3423 

0 

TCP 

ROOT  LOOP 

1196 

REF 

2 

LAST 

902 

22,3461 

1 3463 

1 

TCP 

ROOTSTOR 

TlTT" 

RTF 

” 3 

1 

902 

2 2 9 3 ^62 

1 3463 

1 ‘ 

1 CF 

ROOTSrOK 

1198 

R^F 

5 

Last 

902 

22,3463 

52  117 

1 

ROOTSTOR  DXCH 

ROOTPS 

1199 

REF 

370 

last 

902 

22,3464 

52  145 

0 

DXCH 

MPAC 

STORE  DP  ROOT  IN  MPAC,  MPAC+1 

1200 

RLF 

11 

Last 

902 

22,3465 

3 0153 

0 

CA 

MODE 

1201 

ReF 

3t1 

Last 

902 

22,3466 

54  146 

0 

TS 

MPAC 

.2 

STORE  SP  ITERATION  COUNT  IN  MPAC+2 

1202 

REF 

2 

LAST 

900 

22,3467 

0 0122 

0 

TC 

RETROOT 

1203  REF  1 


22.3470  00137  1 DERTABLU  ADRES  OERCOFN  -3 
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L;  " SeCONCT  OPS  C^JTDANCe  ^ ^ ^ ^ ^ ^ UStR  iS  OWHTPa'gFTTO.  33  53  EA 

P120A  »)(»»*»*»•»«*»**»»**»»****»»**»*#***********»**»»*********»**********»»»** 

R120H^“  GeT^EI^AL  PCRPOSE  SUBROUTHNE^FORT  EXTRAPOLAflNG  dummy  state  room.  VDUM  " * ^ “ 

R1206  ******»**«**»*#****»*»**»K****»»**»»******************»****»***»**»*»)nt* 

RlTOT XtT!DUM5T“T^t(JjTRE5  the  EXTRAPatAnofTH^ERrODTTNTn  AirPOSTTTON,  INITIAL  Tf'ET-OUTYr  INU  lAE  "ACCELERTTITONV  J£RX 

K1209  To  ARRIVE  IN  POUM,  KOUM,  VDUM,  ADUM,  JDUM. 

“R1210  ir  UEAVES-THE  EXTRAPOLATED"  STATE  IN^RDUMr  VDUMV"  ‘ " " " " ' " 

R1211  presently  IHt  DUM  Re&ISTERS  ARE  LOCATIONS  FIXLOL  *6  1 MRU  EIXLOC  +31  OClAL,  AND  FIXLUC  +A0  OCTAL  THRU 
RT2T3  ■ FiXLOC  +A5  OCTAL.  ’ 

R121A  2 3 

R1215  TmE  eons  are  RDUM  = ROUM+VDUM  PDUM+ADUM  PDUM  /E+JuUM  PDUM  /6.  

R1216  2 

R1217  VDUM  = VDUM+ADUM  PDUM+JDUM  PDUM  /2. 


R1218  THEY  ARE  PKOORAMMED  AS  RDJM  = (UDUM  PDUM/3+ADUM)  PDUM/2  + VDUM)  PDUM+RDUM 
R1219  VDuM  = (JDuM  PDuM/2+ADUM) PPUM+VDuM’ 


1220 

22,3971 

77795 

1 

XTRDUMSr  DLUAD 

1221 

RCF 

LAST 

895 

22,3972 

00007 

0 

PDUM 

1222 

22,3973 

79205 

0 

UMP 

VXSC 

1223 

REF 

1 

22,3979 

05731 

1 

1/3DP 

122A 

ReF 

2 

LAS  1 

89^ 

22,3975 

00025 

0 

JDUM 

1225 

22,3976 

79255 

0 

VAD 

VXSC 

1226 

REF 

2 

LAST 

897 

22,397  1 

00091 

1 

ADUM 

122T 

REF 

5 

LAS  I 

903 

22,3500 

00007 

0 

PDUM 

1228 

22,3501 

53362 

0 

V5K1 

VAD 

1229 

REF 

3 

LASI 

895 

22,3502 

00017 

1 

VDUM 

12  30 

22,3503 

53361 

0 

VX5C 

VAD 

1231 

REF 

6 

LASI 

903 

22,3509 

00007 

0 

PDUM 

1232 

REF 

3 

LA51 

895 

22,3605 

OOOll 

1 

RDUM 

1253 

REF 

i* 

L/rSl 

903 

22,3506 

19011 

1 

STUDL 

RDUM 

EXTRAPOLATED*KUUMT“NCn<ESTART 

PROTELT ION 

123A 

REF 

7 

last 

903 

22,3607 

00007 

0 

PDUM 

1^35 

22,3510 

79362 

0 

SRIR 

VXSC 

1236 

REF 

3 

Last 

903 

22,3511 

00025 

0 

JDUM 

1237 

22,3512 

79255 

0 

VAD 

VXSC 

TZ5T 

REF“ 

3 

LA’S  I 

903 

22,3513 

000^1 

T“ 

■RDUFT 

1239 

REF 

b 

LAST 

903 

22,3519 

0000  7 

0 

POUM 

12A0 

22,3515 

77655 

1 

vad 

Tzn 

RtF 

LaS  1 

903 

22,3516 

00017 

1 

VODM 

12A2 

ref 

b 

LASI 

903 

22,3517 

0001  1 

1 

SIURE 

VDUM 

extrapolated  VDUM,  NO  RESTART 

protection 

12A3 

22,3520 

77616 

0 

KVU 
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PIZAA  ************************************************************************ 

"RT20S  “ Dummy  GRAViir  subroutine  ‘ ” ^ ^ ^ - - -----  - - _ 

KIZA6  ************  *»***)HHt**»*»*)l)H(»***»*1t  *****»•»#*»»******»**»**  *»***»**»*»* 

RTZaT — ODOFTCIT  COT^OTE>~  GRSVTT7^GTVEN‘“P‘0M7TOirrTrrTTDUMr  CEAriNG  Rt:SULT  IN  MPAC  AND  UDUIT. 


R12A9 

2 

W1250 

I25I 

GCjUM 

-•MUpAKTn  UM  T (KDUMJ  / ( 1 AbVAL  (KL;UMn  J 

2213521  57575  1 GDUMCL 

VLOAD 

VCOMP 

1252 

REF 

5 UAbl 

9U3 

22,3522 

UUOU  1 

RDUM 

1253 

22,3523 

79256  0 

UNIT 

VXSL 

1259 

REF 

2 last 

883 

22,3529 

21203  0 

MUEAKTH 

1255 

22,3525 

76591  0 

V/SL 

VSLl 

sfiift  compensates  for  SEMI-UNIT 

1256 

22,3526 

00093  0 

92 

1257 

REF 

2 LAST 

895 

22,3527 

00033  1 

STORE 

GDUM 

1258 

22  i3^iU 

77616  Cr 

“RVU 

RlZSV  »»»*****»**»******»»*)(***«  *******X**»******»**»*)Ht**********»********)HHt 

KIZ6O  interpreted  INITIALIZATION  SUBROUTINE 

^R1Z61  *»X»X*»*XTt*»»»**Tt»«***«**THfX»XT»*X*X»1<X«X*T(X»*l****X*^X»**»*»**X»**»*ir**X» 


IZ6Z  REF  32  Last  B79 

1263  REF  I 

126A  RfF  259  LAST  901 

1265  Ref  13  last  897 

1266  “ REE“  2A7  LAST  899 


22.3531  3 0110  1 PRETINIT  LA  FIXLOL 

22.3532  5A  156  1 IS  PUSHLUC 

22.3533  3 7767  0 LA  ZERO 

22,3539  59  111  1 IS  OVFIND 

22,3535  0 0002  0 TO Q 


633436A"  VUlT  SrSTEf/  Fo«  A&C ! REVISION  0 OF  PROGRAM  BURS112U  BY  NASA  ^021106-031  “ DEirTi^lRF?  TRAIN)  "PASE  gOS 


L SeCONU’  DPs  GJIDANGE  " USER i S OWN  AGE  RO,  3b  53  EA 

PI  267  »»»* *•**#»»**»»****»**»***»*»#**********»•***»*»*********»*»*»*»*»*•»*»»* 

Rl'268  " SeCOND'DPS'^I  ARGEI  PARAMETERS  " " “ " 

R126V  »»*»***  ********»***»****»***)(*»*****»**»*******»»*****»*»*******»*  A***  **■ 

RlT70  PaTTARETER  TABLT:  INDIRECT  ADDRESSES  " ^ 


1271 

REF 

1 

22,3562 

TTF/ANU 

= 

TTF/ANOX 

1217  ^ 

" R’EF^ 

—1 

22,3563 

AUb 

- 

WOXS 

1273 

ref 

1 

22,3571 

RDS 

ROXS 

127A 

RfF 

1 

ZZ,3iTt 

VDS 

= 

VOXS 

1275 

REF 

1 

22,3605 

JDSZ 

- 

J0XS2 

12  16 

REF 

1 

22,3607 

MADP2 

= 

MA0XP2 

R1277 

RT27«  A consistent  SET  OF  UNITS  IS  USED  THRUOUT  THE  SECOND  DPS  GUIDANCE.  THESE  UNITS  AREI" 
R1280  Time  21  isics;  length  2i  2A)m;  angle  21  oirad. 


RT28I  " IGNITION’  ALGORITHM  - PREBURN  PARAMETERS  - 

R1282  »«*#***»»«»*****»»***»***)<»***»*»****»*****»»»****»*»*»*********»**»»»** 


■-r2’83 

C1283 
12,8  A 
C128A 
1285 
C1285 
T2^^6 
C1286 
1287 

C1287 

• 1288 
C1288 
128R 
C1289 

1290 
t:t2?o 

1291 

C1291 

129Z 

C1292 


22,3536 

03213 

1 

PPHMl 

2DEC* 

+3.350000000 

E 

♦ 

3 

b 

- 

15 

* 

22,3537 

00000 

1 

22,35A0 

00000 

1 

PPHMICS 

2DEC* 

+3.350000000 

E 

♦ 

3 

tl 

28 

* 

22.35A1 

06A26 

i 

22,35A2 

00513 

0 

/AFC/CR 

+3.159982925 

E 

- 

b 

♦ 

6 

* 

22,35A3 

13111 

1 

22,35AA 

0056  7 

0 

pfcullg 

iv: 

r 

n 

+7.500000000 

£ 

♦ 

2 

b 

- 

15 

* 

22,35A5 

00000 

1 

22,35A6 

00000 

1 

PULLGCS 

2DECX 

+7.500000000 

E 

♦ 

2 

b 

28 

H 

T22,‘35^T 

■ OT356 

a 

22,3550 

00015 

0 

AFULLG 

2DEC* 

+1.276510908 

£ 

- 

5 

b 

♦ 

6 

* 

22,3551 

1A2A7 

0 

00226 

i 

PFCLI 1 t 

2DEC* 

+3.000000000 

L 

♦ 

2 

b 

— 

1 5 

* 

22,3553 

00000 

1 

22,355A 

OOOA7 

1 

AFLITt 

2DEC» 

+3.781860583 

E 

- 

5 

b 

♦ 

6 

* 

22,3555 

ZA767 

1 

22,3556 

02176 

0 

PFCTRIM 

2DEC* 

+2.300000000 

E 

+ 

3 

b 

- 

15 

22,3551 

00000 

1 

22,3560 

000A7 

1 

AFTRIM 

2DEC* 

+3.788A01593 

- 

5 

b 

* 

6 

IT 

22,3561 

27132 

1 

6T343'6Ta 

YUl-^SYSTEf.'  FOR  aCIC  ! REV  I 5 1 ON 

0 OF  program  BURSn 20  BY  1 

NA'5A’2O2n06-0yr 

DEtTT',  19'67 

(WAIN) 

PAGE 

906 

L 

"StCDTO  OPS  QJIDANCE 

UbtK'b 

' OWN  no. 

36 

Si 

E9 

P1293 

parameter  1A3LE  FOR  BURN  PHASES 

R1^92*' 

1295 

22,3562 

67637  1 

TTF/9N0X 

UEG* 

-8.383250000 

E 

♦ 3 

b 

- 

15 

* 

1296 

22,3563 

77753  0 

AOXS 

20tU* 

-1.999161737 

E 

- 6 

b 

♦ 

6 

* 

C1296 

22,3569 

92675  0 

rzTt 

22,3565 

00000  1 

20EC 

u 

C1297 

1298 

22.3566 

22.3567 

00000  1 
02365  0 

20EC* 

+7.216971076 

E 

-11 

u 

♦ 

30 

* 

^ C1298 

1299 

^ "ZZY3570 

22,3571 

^07 6^ 
19605  1 

ROXS 

cDEC* 

♦6.689950238 

E 

+ 6 

b 

29 

* 

U299 

22,3572 

09799  1 

“ TStTO” 

22,3573 

uuuuu  i 

ZDtC~ 

0 

C1300 

1301 

22,3579 

22,3575 

00000  1 
00915  1 

20EC* 

♦1.696802361 

E 

- 2 

b 

- 

0 

* 

cTTcn 

1302 

*35  ft> 
22,3577 

3I77T  1 
77766  0 

VOXS 

2L)tC» 

-2.825570521 

E 

- 1 

b 

9 

* 

C1302 

22,3600 

76522  0 

IJO‘3 

'“2Ti31S07 

■ 00000  r 

2DEC 

0 

C1303 

1309 

22.3602 

22.3603 

00000  1 
76663  0 

2DEG* 

-1.095793551 

E 

- 6 

b 

♦ 

15 

* 

C1309 

1305 

4^^  1 360*f 

22,3606 

57211  1 

01513  1 

J0XS2 

♦1.963228058 

E 

-15 

b 

♦ 

95 

C1305 

22,3606 

17626  0 

1306 

$ 3b0  / 

01731  0 

MA0XP2 

c L.  C.  ^ 

♦ 6,16  ^10943^ 

E. 

♦ 8 

— 

33 

* - 

C1306 

22,3610 

21921  0 
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USSR'S  CNN  PaGP^NO.  *37 


S3  EA 


1307 

22,3611 

75093 

1 

TTF/9N0F 

DBG* 

-3.000000000 

E 

♦ 3 

b 

- 

15  * 

130b 

22,3612 

00007 

0 

AOFS 

2DtC* 

+6.921710b13 

£ 

- 6 

b 

♦ 

6 » 

C130B 

22,3613 

10202 

0 

TTtre 

22,3619 

OOOOO 

1 

2DEX 

0 

C1309 

22,3615 

00000 

1 

1310 

22,3616 

01912 

1 

2DLG* 

+9.92277621B 

E 

-11 

b 

30  * 

CT3T0 

22,3617 

02011 

u 

1311 

22,3620 

19602 

0 

ROFS 

2UtC* 

+6.6B6997399 

E 

+ 6 

b 

• 

29  it 

C1311 

22,3621 

07066 

0 

137  2 

22,362^ 

00000 

1 

2Dtr 

0 

01312 

22,3623 

00000 

1 

1313 

22,3629 

00136 

0 

2DtC» 

♦ 5.79  7001739 

E 

- 3 

b 

- 

0 it 

am 

22,3625  37230 

u 

131A 

22,3626 

77771 

0 

VOFS 

2DEC* 

-2.133175292 

E 

- 1 

b 

- 

9 it 

C131A 

22,3627 

96937 

0 

T3T5 

22*,  3*630 

T3O0TJ0 

1 

ZDtC 

-cr  ^ 

01315 

22,3631 

00000 

1 

1316 

22,3632 

77291 

0 

2Utt* 

-6.533226733 

E 

- 7 

b 

4 

15  t 

(.1316 

22,3633 

■ 5UU00 

i 

1317 

22,3639 

01303 

0 

J0FS2 

2DtG* 

+1.226559287 

E 

-15 

b 

4 

95  * 

01317 

22,3635 

02015 

1 

1318 

22,3636 

01731 

0 

MA0PP2 

♦5. 167109939 

E 

+ 8 

b 

— 

33  it  ■ 

01318 

22,3637 

21921 

0 

1319 

22,3690 

77602 

0 

1 TF/9NU1 

utc* 

-2.500000000 

E 

+ 2 

b 

- 

15  it 

1320 

22,3691 

00019 

I 

AIFS 

2DtC* 

* +1.236735582 

'E 

- 5 

b 

4 

6 # 

01320 

22,3692 

36766 

0 

1321 

22,3693 

00013 

0 

2DtC* 

♦6.312369929 

E 

-13 

b 

4 

30  it 

CT37T 

22,3699 

03Z6F* 

*xr- 

1322 

22,3695 

01372 

0 

2DtC* 

, 33646670^ 

E 

-11 

b 

4 

30  it 

01322 

22,3696 

39106 

1 
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1323 

22,36A  7 

73321  0 

(TF/ANU2 

.4, ^00000000 

E 

+ 3 

b 

- 

15 

* 

132A 

C132A 

22.3650 

22.3651 

00004  0 
16764  0 

A2FS 

2DEC* 

♦A,23123B8A7 

b 

- 6 

b 

♦ 

6 

1323 

9 36^7^ 

00000  1 

2DEC 

0 

C132S 

22,3653 

00000  1 

1326 

22,365A 

00523  0 

2DEC* 

♦1.93063A433 

b 

-11 

b 

♦ 

30 

* 

C.13^6 

22,3655 

24403  0 

1327 

22,3656 

1A577  1 

R2FS 

2DEC* 

+ 6.6843  76002 

E 

+ 6 

b 

. 

24 

* 

C1327 

22,3657 

26600  0 

“ ' 1”328 

3bt>^ 

00000  1 

2DEC 

0 

C1328 

22,3661 

00000  1 

1329 

22,3662 

00000  1 

2DEC* 

+ 6,57  78V2482 

E 

- 6 

b 

- 

0 

CT379 

2^9  3663 

1330 

22,366A 

77775  1 

V2FS 

2DEC* 

-7.313936765 

E 

- 2 

b 

- 

9 

C1330 

22,3665 

65065  1 

nn 

t3666 

000  DO  1 

'2DtC 

0 

C1331 

22,3667 

00000  1 

1332 

22,3670 

77770  1 

2DEC* 

-1.469364771 

E 

- 8 

b 

* 

15 

C1332 

22,3671 

4344^  U 

1333 

22,3672 

763A6  1 

J2FS2 

2DEC* 

-1.376890825 

E 

-15 

b 

* 

45 

A 

C1333 

22,3673 

50661  0 

I33A 

22  9367^^ 

01731  0 

MA2FP2 

♦ 6 » 1 67 1 U9434 

b 

+ 8 

b 

— 

33 

C133A 

22,3675 

2U21  0 

1335 

22,3676 

77602 

0 

TIF/4NU3 

UEC* 

-2,500000000 

E ♦ 2 

b 

“ 

15 

* 

1376 

22,3677 

0001 1 

1 

A3FS 

40EG* 

♦9.104196458 

E - 6 

b 

6 

Ik 

C1336 

22,3700 

21371 

1 

1337 

22,3701 

00004 

0 

2DEC* 

♦2.300091883 

E -13 

b 

* 

30 

* 

b 1 3 3 ^ 

ZZ7TT0Z— 

0137D 

1 

1338 

22,3703 

00261 

1 

20tC* 

♦1.008094512 

E -11 

b 

+ 

30 

* 

C1338 

22,3704 

13043 

1 
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R13A0  SpCONO  OPS  CONSTANTS 

K13A1  »»*****»»«******»****»******»***«*******»»******»«****»*»*********»*»»** 


R13A2 

ADDRESS 

Constants 

13^t3 

RfF 

6 

East 

8B7 

22,3705 

02000  0 

E20PSL 

ECADK  E20PS 

For  ACCESSING  EPANK.  OF  2DPS 

rlf 

7 

Last 

909 

EBANK=  D2DPS 

13A6 

22,3706 

0203A  1 

ignalgl 

2BCA0R  IGNAEG 

C13A6 

rff 

1 

22,3707 

AA06A  0 

R13A6 

A13A7 

the  next 

TWO  CONSTANTS  MUST  BE  NEPT 

A13A8 

IN  order 

AND  adjacent 

13A9 

REF 

B 

LAST 

68^ 

22,3710 

01a36  1 

TABLTTFC 

ADRES  TffBt-TTF  +3 

ADRE5  TO 

REF  TTF  TABL 

1350 

22,3711 

00002  0 

DEGTTF-l 

UCI  2 

DEGKEE-l 

OF  TTF  power  SERIES 

1351 

REF 

1 

EA 

EBANK:  EMpllJOB 

1352 

22,3712 

02035  0 

RETPREBL 

2BCA0K  RETPKEB 

C1352 

REF 

1 

22,3713 

7A06A  0 

1353 

REF 

2 

LAST 

909 

E4 

ebank=t;mpiijob" 

135A 

22,37U 

02257  0 

RETBUKNL 

2BCA0K  KETBUKN 

C135A 

ref  • 

1 

22,3715 

7A06A  0 

" V3D5 

RfF 

2b 

LAST 

658 

L5 

"EBANK,"=  ETHROT 

1356 

22,3716 

03A76  1 

THROTCOL 

2BCA0K  IHROICON 

C1356 

RLF 

1 

22,3717 

60065  1 

R1357 ^ 

R1358  arithmetic  FRACTIONS  AND  INTEGERS 


13S9 

R1360 


RrF  2?  last  672 


"TSCAtE” 


“BTTID' 


1361 

22,3720 

00010 

0 

TSCALINV 

UCI 

00010 

1362 

22,3721 

00000 

1 

2EROP05 

UCI 

00000 

LO  order  PART"0F  TSXAtlHV,  AND 

1363 

22,3722 

00000 

1 

UCI 

00000 

FIRST  COMPONENT  OF  ZERO  VECTOR 

136A 

22,3723 

iiin 

0 

ZERONEG 

UCI 

7777  7 

1365 

22,3729 

imi 

0 

UCI 

77777 

1366 

22,3725 

00000 

1 

UCI 

00000 

LASI  COMPONENT  OF  ZERO  VECTOR, 

AND 

1367 

22,3726 

00000 

1 

PIGNALG 

UCI 

00000 

HI  order  part  of  PIGNALG,  TPIP 

UNITS 

136^ 

00310 

0 

utc 

♦2  t +2  B -14 

LO  order  part  of  PIGNALG,  TPIP 

UNI  TS 

1369 

22,3730 

12525 

0 

1/3DP 

20EC 

.3333333333 

CT36D 

22,T7T1 

"12525 

“0“ 

1370 

22,3732 

lAOOO 

1 

SP3/B 

UCI 

.3  BlA 

1371 

22,3733 

22000 

1 

SP9/16 

UCI 

,AA  BlA 

13 

22,373A 

25252 

0 

2/3DP 

■'4UtC 

.6666666667 

C1372 

22,3735 

25253 

1 

1373  RLF  1 

22,373A 

2DPS2/3 

2/30P 

137A 

ZZT3736  30000 

I spTY^r 

~UC1 

.6  bT4 

1375 

22,3737 

31103 

1 

PI  /A 

20EC 

+3.1A159265  B-z 

C13  75 

22,37A0 

36652 

0 

1576 

22 ,37A1 

00021 

1 

NSCALK-1 

- uc  ( 

00021  

6X3  - ■ r TU  -XrK  -3-VLTK6»  KIN*  VIN  * 
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X HPreBURn  FqK  AP52  “ “ " “ " USER'S  oNN~1=^AOE“No.  i “ S3 

R0005  PREAPS2  IS  a PKoBNaM'  WHICH  IMI  HALITES  **aSCEN|*«  EoR  T^E  ENO  APS 

Roo'io BUPN.  n T)5E^ WI“ATC)' vNTT  1 G ) , PROv  I DED  BT  MIDTOTTvE'nrHKOUCIR"  HP  1 3 , JO^CDWA 

R0015  PUTE  the  P.  0,  ANO  S AXES  FOR  TRANSFORMATIONS,  SE 1 5 3 SWITCHES  FOR  PRO- 

R0020  PEP  mooing  of  ascent,  ano  transfers  data  from  FIXeO  tu  erasable  for  use 


R0025 

R0030 

R003S 

AS  NOM INALS  AT'niT." 

IT  Calls  ascent 

EXIl  FROM  ascent  TO 

once  to  provide  UT  AT  IGMlIUN,  AND  THEN  ReSETP 
GO  TO  FINDCDUD  ON  SUBSEQUENT  ASCENT  ENTRIES. 

the 

012s 

32,2000 

BANX 

32 

0130 

REF 

3 

LAST 

701 

E9 

E6ANX= 

PAXISI 

0IT5 

REF 

1 

32,2000 

53*997  0 

PREAPS2 

DXCH 

rret  urn 

0136 

REF 

3 

LAST 

Bl7 

32,2001 

3 5699  1 

LA 

PRI021 

GiVt  LAMBERT  A HIGHER  PRIORITY 

THAN 

0137 

RLF 

1 

32,2002 

55'95l  1 

1 s 

LAMPRIO 

ASCtNT,  SO  IT  WILL  FINISH. 

0140 

RFF 

100 

LAS! 

898 

32*2003 

rT2~0 

1C 

INTPRET 

0U5 

32,2009 

77629  1 

CALL 

0150 

REF 

if 

LAST 

875 

32,2005 

60936  0 

VPATCHER 

0155 

32,2006 

77775  1 

VLDAU 

0160 

REF 

16 

LAST 

889 

32,2007 

01011  0 

RN 

LOAD  RN*2(N-29) 

0165 

32,2010 

53935  0 

vxv 

UNIT 

RN  X vN*2(N-36) 

OI7O 

REF 

15 

LAST 

880 

32.201T 

“VN 

SAxlS*2  (-D 

0175 

REF 

3 

LAST 

701 

32,2012 

02015  1 

STORE 

SAXiS 

STORE  SAXIS 

OlbO 

32,2013 

76935  1 

VXV 

VSLl 

5 X UR*2(-2)=01«2(-2) , NORM  TO 

S AND  R 

01b5 

RIF 

7 

Last 

8^<^ 

32,2019 

01033  0 

UNIT  R 

Ql*2(-n 

0190 

32,2015 

63361  0 

vxsc 

PDVL 

01*  C0S27«2(-1) 

0195 

'REF 

1 

32,2016 

03602  0 

COS2  7 

IN  PDL(0)*2(-1) 

2 

0200 

RlF 

8 

Last 

911 

32,2017 

0I03'3  0 

UNITR 

LOAD  UR*2(-ir  - ^ ^ - - 

0205 

32,2020 

51361  1 

vxsc 

BVSU 

UR  SIN27*2(-1) 

0210 

REF 

1 

32,2021 

03609  0 

S1N27 

01  COS27-UR  S1N27  = 0 

0215 

32,2022 

77626  0 

ST  ADR 

0 

0220 

REF 

3 

LAST 

700 

32,2023 

75770  0 

STORE 

QAXIS 

STORE  OAXIS 

0226 

32,2029 

76935  1 

VXV 

VSLl 

0 X S*2(-2)  = P«2(-2) 

023ir 

RfF 

4 

LAST 

911 

32,2025 

02015  1 

SAXIS 

p*2(-ir  ■ 

0235 

REF 

4 

Last 

911 

32,2026 

26001  1 

STUVL 

PAXISI 

STOKE  PAXlS 

0290 

REF 

1 

32,2027 

29111  0 

ENGNOM 

LOAD  nominal  AT,VE,TBUP 

“0295 

RUF“ 

Z 

Last 

701 

32,2030 

26023  r 

STUVL 

AT 

STORE  IN  ERASE 

O25O 

REF 

1 

32,2031 

291  W 0 

PREIGN 

LOAD  NOM.  1/DVl,  1/DV2,  I7OV3. 

0255 

REF 

5 

Last 

701 

32,2032 

16031  1 

STUDL 

ATMEAS 

STORE  IN  erase 

0 55 1 

REF 

1 

~jZfZ^r5j~ 

■26641  0 

02552 

REF 

2 

Last 

701 

32,2039 

16061  1 

STUDL 

XR 

LOAD  PITCH  limiting  PARAMETER 

0260 

REF 

3 

Last 

32,2035 

26693  1 

DPO 

LOAD  0 

02T>5‘ 

REF 

2 

t-AST 

701 

32,2036 

26037  1 

STUVL 

XRT 

— STORE"  m KRl 

0270 

REF 

I 

32,2037 

03606  1 

VCONDM 

LOAD  NOM.  RDOTD, YDOTD.ZDOTD 

0275 

REF 

3 

Last 

701 

32,2090 

16091  0 

STUDL 

RDOTD 

76 

REF 

1 

32,2091 

03576  0 

VTO-APS 

0277 

RLF 

2 

LAST 

701 

32,2092 

0205 T 1 

STUKt 

VTO 

0286 

32,2093 

71331  0 

SSH 

DLOAD 

02^8T 

REF 

3 

LA  S 1 

705 

32,2099 

02051  I 

-ASCRET  ^ 

0290 

Ref 

1 

32,2095 

6906 T 1 

PRAPS 

LOAD  RETURN  ADD.  FROM  ASCENT 

0293 

REF 

1 

32,2096 

03600  1 

TGONQM 

(T2^'9 

R“fT 

5 

LaS  1 

735 

32,2097 

02191  1 

S I UKt 

tgo  '■ 

TG0*2(-17)-  ■ 

for  a<jC:  revision  o oe  program  BURsri2o  by  nas«  2021106-031 
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0295 

32.2050 

93261  0 

SK 

DAD 

0296 

32.2051 

20619  0 

IID 

TGOS2T-28) 

0297 

REF 

3 

LAST 

828 

32.2052 

0237F  0 

TIGNI ION 

0298 

Rff 

1 

32.2053 

02053  0 

STURE 

ICO 

TC0S2 (-28) 

0300“ 

32. 2059 

93U19  U 

bE  i 

CLEAR 

0305 

REF 

2 

Last 

701 

32.2055 

02067  1 

DIRECT 

DIRECTsI 

0306 

REF 

2 

LAST 

701 

32.2056 

02266  1 

BAKIU9 

BAKI09  = 0 

0307 

32 .2057 

77619  1 

btl 

TO  AVOID  XLOBHEPTNG  TCtrOURTNG"  PREBURN 

0308 

REF 

1 

32.2060 

02070  1 

PASS 

0311 

32.2061 

93019  0 

LLEAK 

SET 

clear  GUESSW  for  NO  COGAVAIL 

• " ^ ■ 03T2 

RtF 

1 

32  t2062 

02263  1 

GUESSW 

03121 

REF 

1 

32.2063 

02061  1 

DONESW 

TO  START  LAMBERT 

0315 

32.2069 

52019  0 

CLEAR 

GOTO 

0320 

REF 

3 

L Ab  1 

702 

32 *Z06b 

0Z27n 

Hl 

HCsO 

0325 

REF 

4 

Last 

702 

32.2066 

69125  0 

ASCENT 

GO  TO  ASCENT  EQUATIONS 

0330 

32.2067 

93175  0 

PRAPS 

VLUAU 

SET 

O33I 

REF 

6 

Last 

892 

32.2070 

02233  T 

TtXTSP 

03315 

RrF 

2 

LAST 

912 

32.2071 

02063  0 

GUESSW 

SET  GUESSW  for  COGAVAIL 

0332 

REF 

b 

LAST 

890 

32.2072 

25656  0 

STOVE 

POINTVSM 

STORE  For  CALLMANU 

03  33 

RpF 

3 

La  SI 

729 

32.2073 

2664i  U 

BODYVtCT 

LOAD  UNIT  X-AXIS 

033A 

REF 

10 

Last 

790 

32.2079 

01669  1 

STOKE 

SCAXIS 

STORE  FOR  CALCMANU 

0335 

32.2075 

93019  0 

SLl 

CLEAR 

03351 

REF 

2 

LAST 

9X2 

32*20  ^6 

02U6l  i 

DONESW 

03352 

REF 

2 

LAST 

702 

32.2077 

02273  0 

ENGOFFSW 

03353 

32.2100 

77776  1 

EXIT 

0336 

RfF 

1 

32.2101 

3 2129  1 

LA 

CDDFAD  " 

SET  UP  FT3R"  NORMAL  ETCI  T FTTOM  ASCENT  10 

0338 

RfF 

4 

Last 

911 

32,2102 

55. 960  0 

IS 

ASCHET 

FINDCDUD 

0339 

ref 

4 

LAST 

704^ 

32.2103 

3 5693  0 

LA 

PRI017 

GIVE  LAMBERT  A LOWER  PRIORITY 

03391 

REF 

2 

LAST 

9l  1 

32,2109 

55*451  1 

1 S“ 

'tAMPfritT“ 

O3A0 

32,2105 

0 0006  1 

LX  1 END 

0392 

REF 

2 

LAST 

911 

32,2106 

3 1991  1 

ULA 

RRETURN 

GO  back  to  MP13 

0344 

REF 

3b 

La  5 f 

626 

32,2107 

52  006  0 

DXCH 

2 

0355 

32,2110 

05327  1 

ENGNOM 

2DLC 

,00033086  B9 

ATx2 (9) 

C0355 

32,2111 

16939  0 

03  5O 

^2^,21 1'2 

U7446  U 

2DLC 

30 , 3U3OB-7 

VE*2 (-7) 

C0360 

32,2113 

31055  0 

0365 

32,2119 

26270  0 

2DLC 

91587. 6B-17 

TBUP*2 (-17) 

C03O5 

32,2115 

16315  1 

0370 

32,2116 

03627  1 

PREIGN 

2DLC 

15.1B7B-7 

1/DVl 

GO37O 

32,2117 

35797  0 

0370 

32,^120 

03629  1 

2Dtt 

i-5T^l-57B-7 

I/PVZ . - - _ 

G0375 

32,2121 

03095  0 

03b0 

32,2122 

03620  0 

2DLC 

15.127B-7 

1/DV3 

CO^yO 

32.2123 

10142  I 

0900 

REF 

4 

LAST 

912 

33,2690 

DP. 5 

5 

80DYVECT 

0905 

RfF 

5 

lasi 

912 

33,2692 

DPO 

BODYVECT  +2 

on^ 

ref 

b 

LA^T 

911 

E4 

— EWNKtt 

FAXISI — 

0920 

RfF 

5 

Last 

892 

32,2129 

60703  0 

CDUFAD 

hCADK 

findcdud 
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L ASCENT  STEtRlNG 


USEK*S  OWN  PAGE  NO.  I 


ROOOl  program  name— ascent  by  — BERMAN 

- R0002 ASCENT  15  AN  E'-GDIDANCe  TCHeMe  WHTCH  PRODUCES  A DESIRED  UNIT  THRUST  VECTOR  DDRTNC^ASCENT  BURNS.  «TTH  THE 

Roooa  Current  state  and  estimated  tgo,and  estimated  vco  ivecocitIes  in  asceni  are  defined  in  local  vertical  systems), 

R0006  RrO  IS  estimated.  THIS. ENABLES  THe  LAMBeRT  SUBROUiINe  TO  SOLVE  FOR  A BETTER  VCO.  THIS  AND  V ALLOW  US  TO  IMPROVE 

— RDWB TFIEnESTTMATE  OF  TGO.^FTNACLYV'TGCnTND— the:  D^TIReD  CHANGES”rN  H^AND^V  ARETUSEDnrD  CDMPDTT  DTI 

ROOlO  MODING  SWITCHES 

ROOIl  HC-_IF  0,  ABVAL(RCO)  IS  CONSTRAINED  TO  A SPECIFIED  VALUE—  IF  I,  ABVAL(RCO)  IS  NOT  CONSIRAINED,  BUT  IS 

R0013 ESriMAlED. 

ROOIA  PASS—  IF  0,  USE  LAMBERT  TO  UPDATE  VCO—  IF  1,  SKIP  LAMBERT.  PASS  IS  INVERTED  EVERY  ENTRY  TO  ASCENT,  IHUS 

R0016  LAMBERT  IS  USED  EVERY  OTHER  ENTRY. 

— Roon  DIRpCT—  IF  0,  specified  INJECTION  CONDITIONS  ARE  USeD  AND  PASS  IS  Se  T PERMANENT  LY  TO  f AFTER  THe  FIRST 

R0019  entry—  if  1,  LAMBERT  IS  USED  FOR  TARGeIING  UNDER  CONTROL  OF  PASS. 


R0021  Calling  seouence 

R0022  ascent  IS  entered  in  interpretive  BY 

A0023  GO  10 

^ A OD  ZA  ASCENT 


R0025  Normal  exit 

R0026  ‘NORMAL  EXIT  FROM  ASCENT  IS  BY  ‘ 

A002T  GOlO 

A0028  ASCKEI 


R0029.  where  tfie  preaps  program  puts  a Return  address  in  ascret  for  the  first  (Pke-ignitioni  entry,  and  then  stores 

R0031  FTNDCDUD  IN  ASCReT  SO  THAT  SUBSEOUENT  EXITS  WILL  BE  TO  FINDCDUD. 


R0032  OrBHIS 

R0033  USES  IIB  erasable  locations  currently  assigned  TU  AMeMORY  thru  AMEMORY  +U7.  (See  pc,  32  OF  sunburst  FOR 
N0035'  Variable  NAMES,  

R0036  RESERVED  LOCATIONS 

RD0TT‘  “THe  FOLLoWING  aa  Locations  must  Nor  BE"Dl-5TUNBrD“D0RlNG-MPi3  oR-  MPa  — PAXTST,QAXrl-S-S-AXTS-,TrrMEAS,RDoTD,YDOTD, 
R0039  ZDOTD, RCO,TGO,PCONS, PRATE, tint ,TReF,YC0N5,ASCReI.  THe  REMAINING  7a  LOCATIONS  MAY  Be  USED  BeTWEEN  EXIT  FROM 


ROOAl 

ascent  and  Rt 

-entry 

INTO  the 

thrust  magnitude 

FILIEK. 

atmag. 

00^2 

732,2125 

bANK 

32 

0043 

REF 

2 

LAST 

912 

E9 

EBANK 

= rco 

ooaa 

32,2125 

70375  1 ASCENT 

VLUAD 

V/SC 

FORM  GRAVITY  SCALED  2U0)M/CS/CS  FROM 

OU45 

RrF 

7 

L/'  S ! 

BA2 

^ 2 f ^ 1 ^ 5 

01065  0 

oU  1 i / 2 

GDT1T2  GCALED  T(-T)M/LS 

00a6 

REF 

1 

32,2127 

2A672  1 

2SECU8) 

OOa7 

32,2130 

50360  1 

AxC,l 

DOT 

LOAD  xl  WITH  -5  (OLD  NSHIFT  CONTENTS) 

7J0A8 

32,2131 

00005  1 

S' 

00a9 

rff 

9 

Last 

911 

32,2132 

01033  0 

UNI  1 R 

G.URX2(9)sGRX2(9) 

OObO 

32,2133 

97315  0 

PDVL 

VXV 

STOKE  IN  PDL(O)  2 

0051 

1"0 

L/'  6T 

913 

32,2139 

01033  0 

UNITR 

LOAD  UN1TRX2T-1)  ‘ 

0052 

REF 

ib 

LAST 

911 

32,213S 

01017  0 

VN 

UR*2(-1)  X VN*2 (-7) =H/R*2 (-8) 

0053 

32,2136 

56236  0 

vsu 

DDV 

H(2)/R(2)«2(-16) 

RCF 

5 

La6  I 

BA2 

32,2137 

01097  0 ‘ 

■rmag 

H(Z)/R(3)«Z(VT  ‘ ‘ 

0055 

32,21A0 

93352  1 

SLl 

DAD 

0056 

32,21A1 

77619  1 

bON 

(J05  I 

REF 

3 

L/'  St 

912 

3Z,21A2 

02306  0 

BAK  T 09 
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L " ^ ascent  steering 


0058 

REF 

1 

32 

,2193 

66307 

0 

00*59 

REF 

2 

LAST 

701 

32 

,2199 

26111 

1 

00&0 

RfF 

11 

last 

913 

32 

,2195 

01033 

0 

0061 

32 

,2196 

53935 

0 

nwz~ 

REF" 

^ 1 9T1 

32,2197 

02007 

r 

0063 

REF 

1 

32 

,2150 

0207  7 

0 

0069 

32 

,2151 

57935 

1 

* ^0'6S 

REF 

5 

LAST 

919 

32 

,2152 

02007 

1 

0066 

32 

,2153 

63372 

1 

0067 

REF 

12 

LAST 

919 

32 

,2159 

01033 

0 

OOEB 

32 

,2155 

72991 

0 

0069 

REF 

17 

LAST 

913 

32 

,2156 

01017 

0 

0070 

REF 

3 

LAST 

701 

32 

,2157 

26197 

1 

0071 

REF 

2 

LAST 

919 

32 

,2160 

02077 

0 

0072 

32 

,2161 

72991 

0 

0073 

REF 

18 

LAST 

919 

32 

,2162 

01017 

0 

007^ 

RfF 

2 

Last 

701 

32 

,2163 

2610S 

1 

0075 

REF 

3 

lasi 

919 

32 

,2169 

02077 

0 

0076 

32 

,2165 

76935 

1 

TI077 

REF 

13 

L^'Sl 

919 

32 

»2166 

01033 

0 

0078 

REF 

1 

32 

,2167 

02071 

0 

0079 

32 

,2170 

72991 

0 

* 0060 

FFF 

19 

LaSl 

919 

32 

,2171 

01017 

X) 

0081  . 

REF 

2 

Last 

701 

32 

,2172 

26067 

1 

0082 

32 

,2173 

00001 

0 

0083 

32 

,2179 

62441 

1 

■OOfa^ 

RfF 

5 

LAST 

911 

32 

,2175 

02015 

1 

0085 

32 

,2176 

63906 

0 

00^6 

32 

,2177 

91206 

0 

0087 

REF 

1 

32 

,2200 

29670 

0 

0088 

32 

,2201 

91215 

1 

0089 

RCF 

I 

6^ 

,2202 

247OO 

0 

OO9O 

32 

,2203 

91215 

1 

0091 

REF 

2 

LASI 

911 

32 

,2209 

26691 

0 

~0t?v2 

32 

,2205 

6U4»U5  TJ 

0093 

REF 

last 

701 

32 

,2206 

02375 

1 

0094 

32 

,2207 

50315 

0 

009S^ 

“RtF 

Last 

9 1 4 

32 

,2210 

01033 

0 

0096 

REF 

6 

last 

919 

32 

,2211 

02007 

1 

0097 

RfF 

1 

32 

,2212 

02151 

0 

0098 

ic^cc  1 5 

91316 

0 

OO99 

REF 

1 

32 

,2219 

297O9 

1 

OJ  00 

32 

,2215 

91215 

1 

C 1 G 1 

HLH 

i 

7T2T6 

29702 

blC2 

REF 

2 

LAST 

919 

32 

. : 2 1 7 

02151 

0 

0 1 C 3 

32 

.2220 

929O5 

0 

1 

!ltr 

5 

LASF 

019^ — 

- - 

r -rt"" 

02375 

-1C  5 

i 2 

;^222 

95325 

1 

0106 

REF 

6 

Last 

911 

32 

- -223 

02191 

1 

trruT  RET  1 “■  “TA ZATOfc"  tr 
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GFKNOWN 

OURINU  PRECOl,  GO  BACK  TO  MP9 

"STOVL 

GEFF 

STOKE  GEFFXFI9)  (FOS  UPT 

UNITK 

LOAD  URX2(-1) 

VXV 

unit 

UKX2(-1)X0X2U1)=ZAXISXSIN 

3FX1S 

ZAa^Sa2 ) 

STOKE 

ZAXIS 

stoke  ZAXIS 

VXV 

VCOMP 

ZAX1SX2(-1)XUaXISX2(-1)=-MAXISX; 

OAKl  5 

MAX1SX2T9ZT 

VSLl 

PDVL 

MAX1SX2(-1)  IN  POLIO) 

UNITK 

LOAD  URX2(-1) 

00  1 

■5  LI 

URX2(-1)  .VXT(-T)"=T7KX2l-8) 

VN 

SHIFT  TO  VRX2I-7) 

STOVL 

ROOT 

SIOKE  IN  ROOT 

“ZAX 1 5 

LOAD  Z'AXTSX2"F=T) 

001 

SLl 

ZAX1SX2(-1) .VX2(-7)=Z00TX2(-B) 

VN 

SHIM  TO  ZDOTX2I-7) 

STOVL 

Z.L*U  1 

STOKE  IN"  ZD0T 

ZAXIS 

LOAD  ZAXISX2I-1) 

VXV 

VSLl 

Z»2  I-DXURX2  l-l)  =LAXIS*2  (-2) 

UNITR 

SHIFT  TO  LAX'I'S^f2  (•! ) 

STORE 

LAXIS 

SIOKE 

001 

SLl 

LAX1S.VN=YD0T*2(-B) 

VN 

SHIFT  TCr  YOUlTfZT-^ 

STOVE 

YQOT 

STOKE  IN  YOOl 

OOD 

LOAD  MAXISX2I-1) 

00  1 

str 

WAaISa^  (*i  ) «SAi^ 

SAXIS 

SHIFT  TO  RZ 

PUSH 

OSQ 

STOKE  KZ  IN  P0LI6) 

POSH 

DMP 

SIOKE  KZI2)  IN  POLIer 

0P3/80 

3/80KZI2) 

OAo 

DMP 

l/12+3/80RZl2) 

I7 1 2 1 H 

RZ  (2)  /12  + 3/80KZ"(9) 

UAU 

OMP 

1/2+KZI2) /12+3/80KZI9) 

OP. 5 

RZ(...) 

OMP 

SR2 

Z*2"T=76T 

RCO 

SHIFT  TO  ZX2I-28) 

POVL 

DOT 

STOKE  Z IN  P0L16) 

■JN I T R 

LOAD  0HX2(-1I  " 

QAXIS 

UKX2I.1) .0X2l-l)sRYX2l-2) 

STOKE 

Ry 

STOKE  IN  RY 

usu 

OMP  " 

RY  (t)A2(“*t) 

0P2Z3H 

RY (2) /29 

OAo 

DMP 

OP. 2 5 

1/9  + RYI2) /29 

RY 

HY  1 URY  (2)  /6)  /16 

UMH 

SL9 

RCOKY  ( URY  (2)/6)X2IN-39)  = YX2(N-: 

RCO 

YX2TN-30) 

HOUL 

OSU 

STOKE  IN  PDLI8) 

1 GO 

LOAD  TGOft2(-l7) 

ITTASC Gt)-~-0T-rTf2  ( - ITF  - 
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0108 

f(LF 

7 

last 

91A 

32 .2225 

021A1 

1 

STURt 

1 GO 

replace  in  TGO 

OlOV 

32,2226 

7T2IA 

ij 

TOF'T 

ULUAl) 

IF  HCiO,  Go  TCTHOrDF 

0110 

REF 

4 

LAST 

912 

32,2227 

02351 

i 

HC 

0111 

RLF 

1 

32,2230 

6A2A1 

1 

HOLPK 

01 

RTF 

4 

CAST 

91 A 

32  ,2231 

021A7 

1 

"RTKTT 

LOAD  RTroT*2f^71 

0113 

32 ,2232 

Al2l5 

1 

UAU 

UVlp 

(RDOr+RDOTD) *2 (-7! 

01  lA 

REF 

4 

LAST 

911 

32 ,2233 

020A1 

0 

ROOl  U 

(TTTS*' 

HU- 

a 

l.AS  1 

915 

^?,223A 

021AI 

T 

I'GO 

TGO  ( ROOT +RDDTDTF2  ( -2  A 1 

0116 

32 ,2235 

A33A2 

0 

bRl 

DAD 

SHIFT  TO  RGO*2(-2A) 

0117 

REF 

6 

I-ASI 

913 

32 ,2236 

OlOA  7 

0 

RMACj 

FORM  RC0*2(-2a) 

Tmrs 

T2 ,2^^7 

77742  0 

SRI 

SHIFT  TO  RCD*2^-25) 

0119 

ref 

6 

I.ASI 

91A 

32 ,22AO 

02375 

1 

bTURfc 

RCO 

STOKE  IN  RCO 

0120 

32 ,22A1 

77&1A 

1 

HOLDR  EJOFT 

0121 

REF 

3 

LAST 

912 

32 ,22a2 

023A7 

0 

DIRELT 

0122 

REF 

2 

last 

701 

32.22A3 

6AA0A 

0 

GAIN 

UTiJT" 

T2T22AA 

7T21A  7) 

CAFlFKtP  13DFT^ 

DX'OAD 

"TF  LAP|B“NOT  UUNE , GO  1 0 GAIN+l 

012A 

REF 

3 

LAST 

912 

32 ,22A5 

023A1 

0 

DONESW 

0128 

REF 

3 

east 

915 

32 ,22A6 

64404 

0 

GAIN 

UlTS 

“Rep 

^ c/rsT 

91 A 

3TT2  2 A 7 

02067 

T 

YUOT 

LT)W  ^[JoT*  2 FAR ) 

012  7 

32 ,2250 

65205 

0 

UMH 

PDDL 

YDOT  TGO»2(-2a) 

0128 

REF 

y 

i.Asr 

915 

32 ,2251 

021A1 

1 

TGO 

PUSH  down 

12 

TTT? 

RTF  ^ 

~r 

TEV??52 

02043  1 

TDOTD 

" CTJAO  Y'DUTD»'2  r-7) 

01  lO 

?.;  ,^253 

A3205 

1 

OMR 

DAD 

YDOTD  TG0*2(-2A) 

V . 31 

REF 

10 

usr 

915 

3;  ,225A 

021A1 

1 

TGO 

TGOIYOOT«YDOTD)*2(-2A) 

10 

1--.32 

' 'Jbb 

A325  7 0 

su» 

oad 

FGCr/2ir2TTTA3Tr) 

'.1  33 

32,2256 

20172 

1 

0 -7,1 

8 

' 1 3A 

3:  ’2.:57 

77626 

0 

bl  ADR 

YC0*2 (N-30) 

i:? 

63  736 

1) 

STODt 

3 2 L/ 

STOKE  TN  I'DL  (32) 

• . i6 

3 

LaSi 

9lA 

32  -61 

02105 

1 

2D0T 

LOAD  2DOTX2t-7) 

'.i  37 

.-I’  .62 

A1215 

\ 

DAD 

DMP 

(ZD0T*ZD0TD)X2(-7) 

X iti 

iV-r 

■ d 

/oi 

: d -.63 

•^dV^-j 

A, 

EduTO 

T GO  (7D^^^Fr*ZD0  Tu)~A2  PZ4T 

1 3V 

REF 

11 

^.AST 

915 

33  >364 

021A1 

TGO 

■ .<,0 

3 2 265 

A325  7 

0 

SL* 

DAD 

shift  to  TGO(ZDOT+ZDOID)X2(N-3a) 

i ^ i 

' - ■ -66 

20167 

“0” 

'“O-^rODTl 

ZCuX^ (N- 33) 

0 

32  A 2 2 5 7 

56271 

0 

DDV 

DDV 

ZRADCO/8 

01^3 

REF 

7 

east 

915 

32,2270 

02375 

1 

RCO 

0144 

REF 

2 

last 

882 

32,2271 

057A0 

1 

Pi/A 

ZKADCO/2PI 

0l4b 

32,2272 

71A06 

0 

PUSH 

COS 

stoke  in  PDL(6),TAXE  1/2C0S 

B 

01A6 

32,2273 

73525 

1 

POOL 

SIN 

EXCH.ZRADC0/2PI  WITH  ,5L0S,TAKE  ,551N 

8 

t)l4T 

32  * 2^  /4 

7A206 

0 

PUSH 

VXSL 

STGKtTOTZSlTT  TN  PtttTB  F " 

10 

01A8 

REF 

6 

last 

91A 

32,2275 

02015 

1 

SAX  lb 

S/aSIN 

01A9 

32,2276 

7A325 

0 

POOL 

VXSL 

STOKE  IN  PDL(IO) ,LOADi/ZCOS 

16 

0150 

32,2277 

U0007 

0 

06D 

P/ALOS^  ^ 

0151 

rEF 

6 

last 

912 

32,2300 

02001 

1 

PAXISl 

0152 

32,2301 

77655 

1 

VAD 

S/aSIN+P/ACOS, 

10 

0 1 53 

32,2302 

77725 

1 

POOL 

STOK£— ITT  pomol  “ " " 

16 

015A 

32,2303 

OOOAl 

1 

32D 

LOAD  YCOX2(N-30) 

0155 

32,230A 

65316 

0 

D5U 

PDDL 

YL012)X2(2N-60) , STOKE  IN  PDL(16) 

18 

0156 

RrF 

8 

Last 

9l5 

32,2305 

02375 

1 

RLO  - - 

- - LOAD  KC0X2 (N-30) 
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0157 

32,2306 

A5316 

1 

U5U 

DSU 

(RCU(2)-YC0(2) )X2(2N-60) 

16 

0T5B 

J2.2  307 

7A366 

1 

bQKT 

VX5C 

(RCU  ( 2)  - YCO  (217  (1/27  XZ(N-30)  XPDL  (10) 

10 

0159 

32,2310 

65372 

1 

VSCl 

POOL 

shift  to  R00I*(S51N+PC0S)*2(N-31) 

0160 

32,2311 

OOOAl 

1 

320 

store  PS  terms  in  PDL(10),LOAD  YCO 

16 

0T61‘  ■ 

^ 3 i ^ 

5 3 361 

0 

“VX5C 

VAD 

OYC(OX2  (N-317 

0162  REF  7 Last  9IA 

32,2313 

02007 

1 

OAXIS 

AOO  PS  TERMS, GET  RC0X2(N-31) 

10 

0163 

32,231A 

77772 

0 

VSLl 

shift  to  RC0V*2(N-30) 

016A 

32,23l5 

7761A 

i 

"BOFT 

0165 

REF 

2 

last 

912 

32,2316 

02350 

0 

PASS 

0166 

REF 

1 

32,231 r 

6A321 

0 

OLDRCO 

" ■ "17167 

REF- 

1 

32,2320 

O23A0 

1 

STURt 

-RCOV 

STOR^E  CUTOFF  “PO^lTlOI'i 

0168 

RfF 

1 

32,2321 

0361A 

1 

OLDRCO 

STORE 

RCOTEMPV 

0169 

32,2322 

53A35 

0 

VXV 

UNIT 

0170 

RITF 

4 

L/'  ST 

326 

32,2323 

02365 

0 

RIVEC 

0171 

32,232A 

52165 

1 

SIGN 

GOTO 

0172 

REF 

1 

32,2325 

03622 

1 

TAGS 

PATLH  IN  THRUST  MAGNITUDE  FILTER  LOG 

0173 

-REF 

1 

32,2326 

65054 

0 

ASCPATCH 

SECTIX)N"SO  IT  rS  AT  ENtrOF  BANK, 

017A 

REF 

1 

32,2327 

02153 

1 

ENDPATCH 

STUKt 

URCO 

" " 0175 

32 » 2"330 

53435 

0 

VXV 

UNIT 

GET  LOCAL  Z-AXIS 

0176 

REF 

a 

LAST 

916 

32,2331 

02007 

1 

OAXIS 

0177 

32,2332 

77601 

0 

SEIPU 

CLEAR  POC 

0178 

32,2333 

00001 

0 

000 

RESET  PDC  TO  0 0 

0179 

REF 

1 

32,233A 

16133 

1 

STOOL 

HI 

STORE  HI 

0180 

REF 

2 

LAST 

326 

32,2335 

02373 

1 

TINT 

LOAD  TINT*2(-28) 

0181 

32,2336 

A3025 

1 

OSO 

60  N" 

0182 

Ref 

3 

LAST 

913 

32,2331 

02053 

0 

TCO 

IF  HASS=1,  USE  RAW  TFL 

0183 

REF 

3 

last 

9l6 

32,23A0 

02310 

1 

PASS 

018A 

RtF 

i 

32,23Al 

64344 

0 

USE  1 T 

IF  RASS=0*  AVERAGE  TFL 

0185 

32,23A2 

70A15 

0 

UAU 

SRI 

0186 

REF 

1 

32,23A3 

021A3 

0 

TFL 

0187 

RfF 

2 

LA6  ( 

9l6 

32,23AA 

021A3 

0 

USEIT 

STORE 

TFL 

0188 

32,23A5 

7761A 

1 

CLEAR 

0189 

REF 

4 

LAST 

915 

32,23A6 

02261 

0 

DONESW 

0190 

32,23A7 

7761A 

1 

bONCLR 

Ol9l 

REF 

1 

32,2350 

02200 

1 

CONVSW 

LAMBERT'S  ITERATING  PROCESS  IS  NOT 

0192 

REF 

1 

32,2351 

65001 

0 

ASCALARM 

CONVERGING  WELL  TO  VOVEC  - HENCE  ALARM 

0193 

32,2352 

77776 

1 

triT — 

019A 

REF 

3 

Last 

912 

32,2353 

3 lA5l 

0 

ALARMRET 

LA 

LAMPRIO 

0195 

-REF 

31 

32,235A 

0 OOOA 

0 

INMINT 

01:96 

La^ST 

870 

32,2355 

0 5516 

0 

1 c 

FINOVAC 

stT  UP  lambekt  job 

0197 

REF 

1 

E3 

EBANK= 

SPLOC 

0198 

32,2356 

02711 

1 

2CA0R 

LAMbSET 

C0198 

REF 

32T2357 

64063 

0199 

32,2360 

0 0003 

1 

RELINT 

0200 

REF 

9 

Last 

76A 

32,2361 

10  061 

1 

CCS 

NEWJOB 

CHELK  FOR  LAMBERT  INTERRUPT 

I^EF 

8 

LAST 

764 

^2.  f ^ 3b ^ 

0 553^ 

0 

IC 

CHANGl- 

0202 

REF 

101 

LAST 

911 

32,2363 

0 6112 

0 

OUMPLOC 

IL 

INTPRET 

HIGH  PRIO  FOR  LAMB  DURING  PREBURN  PASS 

0203 

32,236A 

A1575 

0 

VLOAO 

PUSH 

WILL  CAUSE  INTERRUPT  HERE. 

REF 

1 

32,2365 

0232A 

0 

VOVEC  - 

LOAD  VOVEC,  RESCALE  FOR  ASCENT 
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0205 

32 

,2366 

72991 

0 

0706 

iirF” 

r 

Las  1 

9A6 

32 

,2367 

■02r53 

1 

0207 

REF 

5 

Last 

915 

32 

,2370 

26091 

0 

0208 

32 

,2371 

00001 

0 

0ZTJ9 

32 

,2372 

?2441 

0 

0210 

REF 

2 

LASl 

916 

32 

,2373 

02133 

1 

0211 

Ref 

3 

LAST 

915 

32 

,2379 

26095 

1 

0212 

RET 

3 

last 

917 

32 

,2375 

02153 

1 

0213 

32 

,2376 

50235 

0 

02U 

RfF 

3 

LAST 

917 

32 

,2377 

02133 

1 

" 0215 

32 

,2900 

57512 

0 

0216 

REF 

2 

LAS' 

915 

32 

,2901 

26093 

1 

0217 

RfF 

2 

Last 

916 

32 

,2902 

03619 

1 

0718 

REF 

2 

LAST 

916 

32 

,2903 

02390 

1 

0219 

32 

,2909 

90395 

1 

0220 

REF 

3 

last 

917 

32 

,2905 

02093 

1 

0221 

32 

,2906 

00003 

1 

0222 

32 

,2907 

91925 

1 

0223 

REF 

4 

LAST 

915 

32 

,2910 

02067 

1 

0224 

32 

,2911 

19091 

1 

0225 

REF 

4 

LAST 

917 

32 

,2912 

02095 

1 

0226 

32 

,2913 

77625 

0 

0Z27 

“REF 

4 

LAS  1 

915 

32 

,2919 

02105 

1 

0228 

32 

,2915 

00001 

0 

0229 

32 

,2916 

19037 

0 

0730 

RfF 

3 

LAS  1 

919 

32 

,2917 

02111 

I 

0231 

32 

,2920 

72905 

0 

0232 

REF 

12 

LAST 

915 

32 

,2921 

02191 

1 

0233 

32 

,2922 

95325 

1 

023A 

REF 

6 

LaSI 

9l7 

32 

,2923 

02091 

0 

0235 

RfF 

5 

Last 

915 

32 

,2929 

0219T 

1 

0236 

32 

«24Z5 

00035 

1 

0237 

32 

,2926 

55925 

1 

0238 

32 

,2927 

77626 

0 

RtF 

5 

Last 

737 

32 

1 2 A'SO 

754’45 

0 

02a0 

32 

,2931 

95296 

0 

02a1 

ref 

3 

Last 

911 

32 

,2932 

02057 

1 

32 

,2933 

41 471 

0 

0293 

REF 

1 

32 

,2939 

02025 

1 

0249 

32 

,2935 

99205 

0 

0Z45 

REF 

1 

32 

*2436 

03627 

1 

0296 

REF 

3 

LAST 

919 

32 

,2937 

26691 

0 

0297 

32 

,2990 

91215 

1 

0^  4’B 

RIF 

4 

LASl 

917 

32 

,2991 

46641 

0 

0299 

32 

,2992 

91206 

0 

0250 

RFF 

1 

32 

,2993 

0202  1 

Q 

U2  5 i 

RiF 

13 

LTSl 

917 

32 

*2444 

02191 

1 

0252 

32 

*2445 

50025 

0 

0253 

REF 

1 

32 

,2996 

1 

025’4 

RIF 

1 

32 

,2997 

69719 

1 
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IN 


UOI 

5L1 

V1»2(_7)  in  PDL(O) 

URCO 

n'7XTRC0=RD0TD*2(-8) 

STUVL 

RDOTU 

STORE  IN  RDOrU 

OOD 

LOAD  Vl*2(-7) 

DDT~ 

V1.H1*2(-8)=TD0TD*2(-S) 

HI 

SHIFT  TO  2(-7) 

STUVL 

2D0T0 

STOKE  IN  ZDOTD.LOAU  URC0»2(-1) 

URCO 

vxv 

DOT 

URC0XHU2  (-2)  =-UYC0*2  (-2) 

HI 

-UYC0.V1*2 (-9) =-YD0TD»2 (-9) 

5L2 

DCOMP 

♦YC0TD»2fin 

stuvl 

YD01  D 

RCOTEMPV 

STORt 

RCOV 

OLUAU 

SETPP 

LOAD  YDOTD 

YDOTU 

“02X5 

5El  POL  At  2 

LJSU 

PUSH 

(YDOTD-YDOT)X2(-7)fDYUUTX2(-7) 

YDOT 

STOKE  IN  PDL12) 

STQDL 

32D 

STOKE  DYDOT  IN  32 

2D0TD 

LOAD  2D0T 

usu 

2D0T 

S1URE 

OOP 

stoke  in  PDL(O) 

STUDL 

300 

ALSO  IN  30 

GEFF 

LOAD  GEFF  “ " " " 

UMP 

SLl 

GEFF  TG0X2(-8) 

TGO 

SHIFT  TO  2(-7) 

POOL 

DSU 

STOKE  IN  POL (9) 

RDOTO 

LOAD  RDOTD 

ROOT 

DKDUTX2(-7) 

STUKt 

280 

STOKE  IN  28 

usu 

VDEF 

DRDOT-TGOGEFF .DEFINE  VGX2(-7) 

STADK 

STUKt 

VGY/ECT 

FOR  DOWNLINE  ' ^ ‘ " 

ABVAL 

DSU 

GET  VG(SCALAR) 

VTO 

subikact  TAILOFF 

UOV 

PUSH 

VG*2  f-7)  /VE*2  (-7r=VU/VE 

VE 

STOKE  IN  P0L(0)7)=VG/VE 

UMH 

BDSU 

XTVG/VE 

“ICT 

— IT^^KTVG/VH ‘ ' 

DP. 5 

UAU 

DMP 

1-KlVG/VE 

DP. 5 

VG/VE (1-KTVG/VE) =TGO/ 1 BUP 

PUSH 

DMP 

STOKE  TGO/TBUP  IN  POL(O) 

TBUP 

TgOX2 (-17) 

S TORE 

TGO 

stoke  " 

USU 

BMN 

IF  IGO  SMTHAN  9SEC.G0  TO  SET  UP  ENGOI 

2SEC116) 

2*2l-l6)=9*2(-17) 

( 


UNGOFF 


r\)  ^ 


'-62rj<r3^*  Yxn^  SY5TEr^  haw  At>c;  revision  o of  program  bursiizu  by  nasa  2021106-031 


DECT  rr  1W7  ^ fl'iAlN)  PAGE  9I8 


T- 

^AsrET^r : 

5rEEK“ING“ 

OSLR*S  OWN  PAGE^O.  6 “ 

S3  E5 

0255 

32,2950 

57015 

1 

KEEPGOIN  BONLLK 

KTB 

DURING  PRECOl,  GO  BACK.  TO  MP5 

- -02^6 

““  (7EF 

" 4 

LAST 

913 

32  t2431 

02206 

1 

BART 05 

0257 

REF 

1 

32,2952 

66313 

0 

TKNOWN 

0258 

RfF 

5 

LAST 

812 

32,2953 

33555 

1 

LOADTIME 

0259  “ 

“RTF 

“1 

32,2YT5A 

02107  0 

“STORE 

TIME 

0260 

32,2A55 

55355 

1 

OLOAU 

SR 

0261 

REF 

u 

LAST 

917 

32,2956 

02151 

1 

TGO 

TG0*2(-17) 

0262“ 

32*2437 

206“!  5 

V 

LTD 

TG052 (-28) 

0263 

ref 

12 

LAST 

8S7 

32,2960 

02356 

1 

STORE 

TTGO 

FOR  DOWNLINK, 

026A 

32,2961 

53215 

1 

BONCLR 

DAD 

IF  PASS  ON,  00  NOT  COMPUTE  TCO. 

^026S 

REF 

4 

La  s I 

916 

32,2962 

02210 

0 

PASS 

CLEAR  PASS  *CtU  "TO  AFTTCO 

0266 

REF 

1 

32,2A63 

65572 

1 

AFTTCO 

0267 

RpF 

2 

LAST 

918 

32,2A6A 

0210  7 

0 

TIME 

T+TG0=TC0*2 (-28) 

02  68 

RFF 

4 

LAST 

916 

32,2965 

16053 

0 

STUUL 

TLO 

STORE^TCO 

“T2 

0269 

REF 

1 

32,2566 

25710 

1 

T2 

LOAD  T2X2(-17) 

0270 

32,2567 

51025 

I 

osu 

BPL 

T2-IG0 

0271 

“REF 

X5 

Last 

918 

32,2570 

02151 

1 

"T50 

0272 

REF 

1 

32,2571 

65571 

0 

AIMER 

IF  I2-TGO  PUS, GO  TO  AIMER 

02  ?3 

32,2572 

55355 

1 

AFTTCO  “ ULOAO 

DSU  “ 

LOAD  TGO«2(“-2bT  “ “ 

027A 

REF 

3 

LAST 

9l8 

32,2573 

02107 

0 

TIME 

subtract  100  CS,  172DI 

0275 

REF 

1 

32,2575 

25665 

0 

lOOCS 

(T-.5dT)*2(-28) 

0276 

RZF 

I 

32,2575 

16055 

0 

STOOL 

TREF 

*2i-zsr  ' “ “ 

0277 

REF 

16 

Last 

918 

32,2576 

02151 

1 

TGO 

LOAD  TG0X2(-1 7) 

0278' 

32,2577 

53205 

1 

OMP 

DAD 

ROOT  TG0*2(-25) 

0279 

RtrF 

6 

Last 

917 

32,2500 

02157 

1 

ROOT 

(R>KOOT'  TGO)  *^2  (-25)  

0280 

ref 

7 

LAST 

915 

32,2501 

0105  7 

0 

RMAG 

0281 

32,2502 

55352 

1 

SRI 

BOSO 

*2  (-25) 

0282 

RE.F 

9 

La  ST 

915 

32,2503 

02375 

1 

RCO 

KCU^K-KLU  T I J 

0283 

32,2605 

15033 

1 

STOOL 

260 

STORE  DR  IN  26, LOAD  TG07TBUP 

028A 

32,2505 

53221 

1 

BOSO 

DAO 

1/2-TgO/TBUP 

02  8S 

REF 

5 

LAST 

917 

32  *2306 

2664 1 

0 

DP. 5 

0286 

RfF 

6 

Last 

918 

32,2507 

2664 1 

0 

DP. 5 

1-TGO/TBUP 

0287 

32,2510 

77625 

1 

CALL 

02F8 

IREF' 

' 1 

32,2S11 

65050 

1 

L0lSU3 

CALL  LOG  SUBKOUTTNE  " 

0289 

32,2512 

51561 

1 

SL 

PUSH 

SHIFT  TO  -L, STORE  IN  POL(O) 

2 

0290 

32 ,2513 

20206 

“1“ 

s 

0291 

32,2515 

55265 

0 

BDOV 

BDSU 

-IG0/LK2(-17) 

0292 

REF 

17 

LAST 

9l8 

32,2515 

02151 

1 

TGO 

029S 

REF" 

2 

Last 

917 

32,2516 

0202  7 

0 

TBUP 

( 1 bUp+T-GO  /t  1 »2T^TT)  =01^*2  (-17) 

029A 

32,2617 

55325 

1 

POOL 

DSU 

012  IN  PDL(2) 

4 

0295 

REF 

18 

LAST 

9l8 

32,2520 

02151 

1 

TGO 

REF 

32,2521 

24676 

0 

"T  3' 

TCO*! 3 

0297 

32,2522 

71255 

0 

bPL 

DLOAD 

IF  TG0-T3  POS.GO  TO  RATE 

0298 

REF 

1 

32,2523 

65531 

1 

RATER 

0^^99 

REF 

4 

LAST 

911 

32,2  525 

26643 

1 

-Op^O 

^ET  B^(7  “ ““  ■ 

0300 

REF 

1 

32,2525 

02131 

0 

STORE 

PRATE 

0301 

32,2526 

77615 

1 

SET  GO 

SET  HCsl.GO  10  CONST 

REF 

3 

L/\S1 

9l5 

32,2527 

02031 

1 

• -nx. 
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0303 

RfF 

1 

32 

,2530 

64553 

0 

CONSl 

030A 

32 

2531 

45345 

1 

RATER 

ULUAU 

DSU 

TGO 

0305 

RfF 

19 

LAST 

918 

32 

2532 

02141 

1 

TGO 

0706 

32 

^2533 

' TI0603 

1“ 

020 

TGO-D12=T)21X:2TPT7T  " 

0307 

32 

2534 

7O525 

1 

POOL 

SRI 

021  IN  PDL(4) 

6 

0308 

REF 

20 

LAST 

919 

32 

2535 

02141 

1 

TGO 

LOAD  TGOX2(-l7) .SHIFT  TO  1/2 

0309 

32 

2i>36 

54225 

0 

U5U" 

bL 

• 5TUO-t)2 1 sD*2  ( -17) 

0310 

32 

2537 

00005 

1 

040 

SHIFT  TO  D*2l-12) 

0311 

32 

2540 

20206 

1 

050 

" 07T2 

32 

25A1 

41325 

0 

POOL 

OHP 

STORED  IN  MOL  (6T,C0ADDR00T»?(-7) 

e 

0313 

32 

2542 

00035 

1 

280 

021  0RD0Ti2(-24) 

0314 

32 

2543 

00005 

1 

040 

0315 

32 

2544 

453^2 

0 

bRT 

05U 

SHIFT  TO  2(-25) 

0316 

32 

2545 

00033 

1 

260 

(021  DRD0T-UR)*2 (-25) 

0317 

32 

2546 

56271 

0 

oov 

DDV 

OIVIOE  BY  TG0»2(-17) 

0316 

RfF 

21 

LAST 

916 

32 

2547 

02141 

r 

TGO 

Uiv^UL  bY  — 1 ^ « <jL  ] b#2(4) 

6 

0319 

32 

2550 

77601 

0 

SEIPO 

REDUCE  PDC  TO  4 

4 

0320 

32 

2551 

00005 

1 

040 

0321 

RCF 

2 

Last 

918 

32 

2552 

02131 

0 

STORE 

^ PRATE 

STOKE  b«2(4) 

0322 

32 

2553 

56345 

0 

CONST 

ULUAU 

OOV 

LOAD  OROOTX2(-7) 

0323 

32 

2554 

00035 

1 

280 

0RDUT/-LX2(-7) 

"0324^ 

32 

2S55 

aoooT^ 

0 

000 

0325 

32 

2556 

65342 

1 

SKI 

POOL 

Each  DR(:/0T/-L*2(-8)  WITH  012  IN  PDL(2) 

4 

0326 

32 

2557 

54205 

1 

UMP 

SL 

012  PRA1E)*2  (-16) 

0327 

■ REF 

3' 

L^  ST 

919 

32 

2560 

02131 

0 

PRATE 

SHIFT  TO  2(-6) 

0328  ■ 

32 

2561 

20206 

1 

5 

0329 

32 

2562 

77621 

1 

bUbU 

PULL  0RD0T/-L,GET  A*2(-8) 

2 

0330 

32 

2563 

77626 

0 

bTAOK 

0331 

REF 

1 

32 

2564 

61664 

1 

STOOL 

PCONS 

STORE  A*2(-8)  IN  PCONS 

0332 

32 

2565 

00041 

1 

320 

LOAD  DYU0TX2(-7) 

6333 

32 

2566 

7O47I 

1 

uuv 

SRI 

0YDUT/-L»2 (-7)=Ct2(-7) 

0334 

32 

2567 

00001 

0 

OOO 

SHIFT  TO  2(-8) 

0335 

REF 

1 

32 

2570 

02065 

0 

blOKt 

YCONS 

STORE  Ct2(-8)  IN  YCONS 

0336 

32 

2571 

77601 

0 

AIMER 

SE1  PU 

0337 

32 

2572 

00001 

0 

000 

0 

0338 

3^ 

2573 

45345 

i 

ULUAU 

DSU 

0339 

REF 

LAST 

918 

32 

2574 

02107 

0 

TIME 

0340 

REF 

2 

LAST 

918 

32 

2575 

02055 

0 

TREF 

(T-IO)X2(-2b) 

t 

32 

2576 

54205 

I 

UMP 

SL 

B (T-TDT*2  (-24  r ‘ 

0342 

REF 

i* 

last 

9l9 

32 

2577 

02131 

0 

PRATE 

SHIFT  TO  2(-8) 

0343 

32 

2600 

20221 

1 

160 

03^^ 

32 

2601 

56215 

1 

UAU 

DDV 

(A*BCT-T0)T*2  T-8) 

0345 

REF 

2 

LAST 

9I9 

32 

2602 

02113 

0 

PCONS 

OIVIOE  BY  TBUP*2(-17) 

0346 

REF 

3 

last 

9l8 

32 

2603 

02027 

0 

TBUP 

■OT<^T 

32 

2664 

742^5 

1 

usu  - 

SUfflRACT  GEFF,  GET  ATR»2(9T 

0348 

REF 

LAST 

917 

32 

2605 

02111 

1 

GEFF 

0349 

RfF 

15 

Last 

914 

32 

2606 

01033 

0 

UNITR 

ATR  UR*2(8) 

0350 

32 

2607 

56325 

0 

POOL 

"DDV 

STORE  IN  POL  (O)  .LOAD  C)(2  (_8)" 

6 
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ASCENT 

steerino 
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E4 

0351 

RrF 

2 

LAST 

919 

32t26l0 

02065 

0 

YCONS 

■ ^ 0352' 

RCF 

A 

Last 

919 

3 2 f ^ 6 i I 

02027 

0 

TBOP 

C/TBUPXZI^)  =ATYX2T97  " 

0353 

32,2612 

53361 

0 

vxsc 

VAD 

ATY  LAX1S*2(8) 

035A 

REF 

2 

LASI 

9l9 

32,2613 

02071 

0 

LAX  IS 

(ATY  LAXIS+ATR  UR ) «2 ( 8 ) = AH»2 ( 8 ) 

0 

“0T53 

32 

9"15T2" 

I 

"VSLl 

PUSH 

"SHIFT  TCr  AH*2  (9)  ,'STURt  rN^PDL fO ) 

“6 

0356 

32,2615 

65296 

1 

ABVAL 

PDDL 

AH2X2(l8)IN  PDL(39)  ,AH|»IAG  IN  MPAC 

0357 

REF 

3 

Last 

911 

32,2616 

02023 

1 

AT 

STOKE  AHMA6  IN  PDL ( 6), LOAD  AT 

8 

“ 0338 

32  1 26 i f 

4531S 

1 

DSU 

AT 

0359 

32,2620 

00093 

0 

39D 

(AT (2) -AH21X2 (18) =ATP2X2 ( l8) 

0360 

32,2621 

91325 

0 

PDDL 

OMP 

STOKE  IN  PDL(  8) 

10 

REF 

A 

LAST 

920 

32*2622 

02023 

1 

AT 

LOAD  ATX2(9) 

0362 

RFF 

3 

Last 

911 

32,2623 

02061 

1 

XR 

AT  XRX2(8) 

0363 

32,2629 

91552 

0 

SLl 

PUSH 

2(9)  , STORE  IN  PDL(IO) 

12 

0369 

32  626 

95316 

1 

usu 

DSU 

AT  (2)KR  r2)  X2  (18) 

0368 

32,2626 

00093 

0 

39D 

-AH2X2(18)  =ATP3X2(18) 

0366 

32,2627 

71290 

1 

bMN 

DLOAD 

IF  ATP3  NEG,G0  to  AIMING 

0^6  ( 

RfF 

1 

32  ,2630 

69635 

0 

AlMINCa 

0368 

32,2631 

00011 

1 

8D 

LOAD  ATP2X2U8) 

0369 

32,2632 

77766 

0 

SUKT 

ATPX2(9) 

0370 

32  *2633 

TTSTO" 

i 

GOTO 

0371 

REF 

1 

32,2639 

69695 

1 

aimed 

0372 

32,2635 

55395 

0 

AIMING 

DLOAU 

BDDV 

XR  AT/AH  = KFrFR0MPDCnU,"6) 

^8" 

0373 

32,2636 

00007 

0 

06D 

0379 

32,2637 

77761 

1 

VXbC 

KH  AH*2(9) 

03T5 

32*2640 

OOOOT" 

u 

"TKJD 

0376 

32,2691 

19001 

0 

STUDL 

OOD 

STOKE  NEW  AH  IN  PDL(O) 

0377 

REF 

5 

LAST 

920 

32,2692 

02023 

1 

AT 

LOAD  ATX2(9) 

03T8^ 

32  *2643 

77605 

1 

UMP 

AT  ( 1-XR  ( 2 ) ) ( 1 /2T  PX2 1 9 ) 

0379 

ref 

3 

LAST 

911 

32,2699 

02037 

1 

XRl 

03bO 

32  ,2695 

79365 

1 

AIMED 

SIGN 

VXSC 

GIVE  SIGN  TO  ATP  " 

0381 

32,2696 

0003  1 

0 

30D 

0382 

REF 

4 

lasi 

919 

32,2697 

02077 

0 

2AXIS 

ATP  2AXISX2 (8) 

0333" 

32  *2660 

53372 

1 

VSLl 

VAD 

ATP  2AXTSXTr97  " 

0389 

32,2651 

OOOOi 

0 

OOD 

(ATP2AXIS+AH)X2(9) 

0385 

32,2652 

77656 

1 

UNIT 

GET  UT»2(-U 

0386 

RfF 

7 

LAS  r 

9l2" 

32  *265T 

0Z2H 

1 

STORE 

AXISD 

0387 

32,2659 

95001 

1 

SLl  PD 

CALL 

0388 

32,2655 

00001 

0 

0 

■RtiF 

5 

Last 

912 

32  *12666 

0205^) 

0 

ASCKtT 

0390 

32,2657 

77776 

1 

EXIT 

0391 

REF 

192 

LAST 

896 

32,2660 

0 9161 

0 

ASCTLRM 

1C 

PHASCHNG 

THE  SERVEXIT  PHASE  CHANGE 

3 2 « 2 6 6 i 

00D35 

1 

UCi  ■ 

00035 

0393 

REF 

109 

LAST 

892 

32,2662 

1 5567 

1 

ICF 

ENDUE  JOB 

03?9 

32,2663 

00000 

1 

lOOCS 

"2DtC — 

100"  " 

C0399 

32,2669 

00199 

0 

0395 

32,2665 

12702 

1 

2DtC 

0,39 

XT  WAS  HERE,  BUT  NOW  IS  IN  ERASABLE. 

32  *^666 

2tTZT 

“0~ 
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0396 

32,2667 

01146 

0 

0P3/'80 

20EC 

0.03  75 

^ C0396 

32,2670 

14632 

0 

0397 

32,2671 

00014 

1 

2SEC (18) 

20EC 

200B-18 

C0397 

32,2672 

20000 

0 

0398 

37‘,T673 

UUU64 

0 

75EC  (161 

ZDO  b-l6 

C0398 

32,2674 

00000 

1 

0399 

32,2675 

00175 

1 

T3 

20EC 

1000  B-17 

C0399 

32,2676 

ooooo 

1 

OaOO 

32,2677 

02S25 

1 

1/12TH 

20EC 

0.083333333 

COAOO 

32,2700 

12525 

0 

TiAor 

32,2701 

10000 

0 

OP. 25 

2BEC 

0,25 

COAOI 

32,2702 

ooooo 

1 

0^02 

32,2703 

25252 

0 

0P2/.3H 

20EC 

.666666667 

C0402^ 

32,2704- 

25253 

i 

0403 

32,2705 

00031 

0 

OTASC 

2OEC 

200  B-17 

C0403 

32,2706 

ooooo 

1 

04’a^ 

—82^,2707 

00031 

0 

T2 

2BtC 

200  B-17 

C0404 

32,2710 

ooooo 

1 

0405 

REF 

102 

LAST 

916 

32,2711 

0 6112 

0 

LAMBSET 

IC 

INTPKET 

CALL  for  LAMBERT  SUBR. 

0406 

32,2712 

-77574" 

1 

-CALX 

0407 

REF 

I 

32,2713 

74625 

0 

LAMBERT 

0408 

32,2714 

71214 

0 

ENGOFF 

bOAl 

OLOAD 

0409 

RIF 

3 

LAST 

912 

32,2715 

02313 

1 

ETTGOFFSVv 

0410 

REF 

I 

32,2716 

64450 

1 

KEEPGOIN 

0411 

REF 

22 

LAST 

919 

32,2717 

02141 

1 

TGO 

O4I2 

3^,2TZO 

“^TTTflZ' 

"T“ 

SL^ 

EXIT 

0413 

32,2721 

0 0004 

0 

INMINT 

0414 

REF 

^6 

last 

828 

32  ,2722 

3 7751 

0 

LAh 

EBANK.4 

insure  THAT  the  EBANK  IS  SET  PROPERLY 

041’5 

rtf 

66 

LAST 

889 

32,2723 

54  003 

0 

1 S 

EBANK 

0416 

REF 

23 

LAST 

921 

E4 

tBANKs 

TGO 

0417 

RfF 

372 

LAST 

902 

32,2724 

3 0144 

0 

LA 

MPAC 

04ie 

RTF 

1 

32,2725 

55*566 

1 

I 5 

LNGOPPDI 

0419 

32,2726 

0 0006 

1 

exiend 

0420 

REF 

I 

32,2727 

6 2751 

0 

b2MF 

ENGUFF2 

0471 

■RTF 

12T 

L A ST 

870 

32,2710— 

0 5663 

1 

IC 

WAITLIST 

0422 

REF 

24 

LAST 

921 

E4 

tBANN= 

TGO 

0423 

32,2731 

02757 

0 

2CAOK 

ENGOFF 3 

C0423 

RtF 

I 

itc 

84064" 

0424 

REF 

i 

32,2733 

4 0100 

1 

CS 

FLAGWKD4 

BYPASS  HHASLHNG  WHEN  IN  MP  13. 

0425 

REF 

30 

Last 

884 

32,2734 

7 7754 

1 

MASK 

61T8 

042b 

32,2735 

0 0006 

1 

tX'TtlYD- 

0427 

REF 

I 

32,2736 

1 2744 

0 

bZh 

ENGOFFl 

042  8 

retf 

I43 

LAST 

920 

32,2737 

0 4161 

0 

1 C 

VHASLHNG 

RES  TART'T’ROTECnON"  FOR  hNGlNOFF  CALL 

0429 

32,2740 

47012 

1 

Ucl 

47012 

0430 

REF 

2 

Last 

921 

32,2741 

76211 

1 

-GENAUK 

ENGOFFDT 

'02»3‘1 

RET 

23 

LT5T 

921 

ETP- 

EBANKS 

TOT 

0432 

02757 

0 

2CA0K 

ENGOFF 3 

C0432 

REF 

2 

LAST 

921 

32,2743 

64064 

1 

0433 

32,2744 

0 0003 

1 

ENGOFFl 

KELINT 
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Oa3A 

REF 

103 

Last 

921 

32,2745 

0 6112 

0 

1C 

INTPRET 

0435 

32T277f6” 

52014 

u 

OC.  1 

Gut  u 

0436 

RfF 

4 

LAST 

921 

32,2747 

02073 

1 

ENGOEFSW 

0437 

REF 

2 

LAST 

921 

32,2750 

644S0 

1 

KEEPGUIN 

" " " " ■ T3  43B 

- 1 

3T,2751 

0 2773 

0 

“LNGOFFZ 

1 L 

-EXEUNT 

0439 

REF 

133 

Last 

865 

32,2752 

0 5206 

0 

IC 

BANKCALL 

O44O 

REF 

10 

LAST 

762 

32,2753 

40263 

1 

LAUK 

ENGINOFF 

R)443 

RTF 

134 

~Lf^b  1 

92Z 

32,2754 

0 5206 

0 

i C 

BffNKCALL 

0442 

REF 

10 

Last 

748 

32,2755 

40114 

1 

CAUR 

STOPRATE 

0443 

REF 

1 

32,2756 

1 2660 

1 

ICE 

ASCTERM 

" "REF 

2 

LAST 

922 

32,2757 

0 2773 

0 

ENG0FF3 

K 

"EXEUNT 

0445 

REF 

d6 

LAST 

765 

32,2760 

0 5270 

1 

K 

IBNKCALL 

0446 

REF 

11 

Last 

922 

32,2761 

40263 

1 

LAUK 

ENGINOFF 

04^7 

RFF 

b7 

LAST 

922 

32,2762 

0 5270 

1 

1C 

IBNKCALL 

0448 

REF 

11 

LAST 

922 

32,2763 

40114 

1 

CAUR 

STOPRATE 

0449 

REF 

2 

LAST 

921 

32,2764 

4 0100 

1 

C5 

FLAGWRD4 

BYPASS  PHASCHNG  WHEN  IN  MP  13, 

" CT450 

RIF- 

31 

Last 

921 

32,2765 

7 -7754 

1 

MASK 

BIT8 

0451 

32,2766 

0 0006 

1 

EX  1 END 

0452 

REF 

118 

LAST 

870 

32,2767 

1 572  ! 

1 

bZF 

TASKOVER 

0453 

REF 

144 

Last 

921 

32,2770 

0 4161 

0 

IC 

PHASCHNG 

DEACTIVATE  GROUP  2 AFTER  SUCCESSFUL  CALL 

0454 

32,2771 

00002 

0 

UCI 

00002 

0455 

REF 

119 

LAST 

922 

32,2772 

0 5727 

0 

IC 

TASKOVER 

0456  • 

32,2773 

0 0006 

1 

EXEUNT 

tXIENU 

DISENGAGE  THE  GUIDANCE  EQUATIONS 

0457 

REF 

1 

32,2774 

3 3000 

1 

UC8 

■SERVEXAU 

0458 

REF 

32 

LAST 

890 

32,2775 

53'073 

0 

UXCH 

AVGEXIT 

0459 

RfF 

248 

LAST 

904 

32,2776 

0 OOGa^ 

0 

IC 

Q 

0460 

REF 

24 

Last 

824 

E5 

EBANK= 

DVCNTR 

0461 

32,277T 

02324 

0 

SERVEXAU 

2CAUK 

SERVEXII 

C(T^6 1 

REF 

12 

Last 

623 

- 32,3000 

60065 

1 

0^62 

32,3001 

mib 

1 

ASCALARM 

EXIT 

0463 

REF 

45 

Last 

893 

32,3002 

0 4755 

1 

IC 

alarm 

^2  ^ j003 

-00405 

0 

oc  t 

UU4U^ 

LAMBEFcr  ITERAT-tONS  NOT  CONVERGING 

0465 

REF 

1 

32,3004 

1 2353 

1 

ICE 

alarmret 

R0A66  *)HHt*X****>*)um**»***»)t**»**jt»»»»***»»XiHt*)H(*-)Ht**X***'HUHHHHt*T" 
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633A36A  rUL  SYSTtiv,  KoR'AtiC:  HEVfSlOM  0 OF  PROGRAM  BURST  121J  “BY  N'aSa  202T106-03T 

L nHRU5T“rWCTrraDr“FIT:TtR“  TTStRiS  OlilN  HAOE  NO. 

R000003  Program  name  - aimAu 


53“ 


R000005  MnDIFICATION  BY  - BERMAN  AND  CATTANACH 

R000007  functional  DESCRiPTION  - ^ 

Rooooov  tHe  thrust  Magnitude  filter  converts  abdelv  to  m/ls,  inverts  and  combines  it  with  two  hreCedino 

R-ODODIZ  “INPUTS  TCr  PRTJDUCe  THE  ^NVERTED  'EXHAUST  VELOCI  TY  , UUKN  UP  TIME.  AND  ANTlCTPATEO  THRUS“T“ACCEtE*TATTON  FOR 

R000016  the  Next  time  increment.  thrust  MACNITUDe  filter  is  bypassed  until  AFIER  the  main  ENoINe  COES  UN. 

R00002  CALLING  SEQUENCE  - ATMAG  IS  ENTERED  BY  EXTEND  “ AND  EXTEN“D 

R000022  DCA  ATMAGAd  DCA  ATMAGA 

R00002A  DXCH  AVGEXII  DXCH  AVGEXIT 

R000026  Normal  exit  - from  atmag  by  goto  “ ' — 

R000028  ASCENT 

Ro0003  output  - TNVeRTED  exhaust  velocity,  burn  up  time,  and  ANT1C1PATED“  thrust  acceleration : “ 

Rn0003A  erasable  INI riALiZATiON  REQUIRED  _ THIS  IS  DONE  BY  PRE-APS  PROGRAMS 


R000036  Debris  - abdvconv,  i/dvi«  i/dv2»  i/ve»  tbup»  at. 
R0U0O38  ALARM  OR  ABORT  EXIT  MODE'S”^ 

ROOOOA  subroutines  CALLED  - NONE 


0002. 

32,3005 

BANK 

32 

OOOA 

REF  5 

LAST 

918 

EA 

tBANK.= 

TCO 

EBANKA  “ “ ^ - 

0007 

REF  10a 

LAST 

922 

32.3005 

0 6112  0 atmag 

1C 

INTPRET 

0008 

32  f 3OO6 

5 TbA5  1 

DLDAD 

“trcOMP 

XCW1T*^VDf2TCEl  

OUIO 

REF  6 

last 

8A7 

32,3007 

02556  0 

NEGVEX 

0012 

32,3010 

777A2  0 

SRI 

0014 

KE.r  Z LA31 

9tr 

“32TJ0TT 

02025  1 

yTURE 

VE“ 

“VEx2“rcT) “ 

0016 

32,3012 

67201  0 

SEIPD 

SLOAD 

0018 

32,3013 

OOOOl  0 

OOD 

0019 

RpF  I 

32,30IA 

25052  1 

"^TTAfl 

0020 

32,3015 

77A71  0 

DDV 

EXIT 

0022 

ref  2 

LAST 

844 

32,3016 

0362A  1 

ABDVCONV 

002A 

ref  373 

Last 

921 

32,3017 

52  1A5  0 

UXCH 

MPAC 

0025 

REF  1 

32,3020 

53'A35  0 

DXCH 

1/DV3 

REF  1 

32,3021 

53’A33  0 

DXCH 

1/DV2 

0028 

RFF  1 

32,3022 

53'A31  1 

DXCH 

1/Dvl 

0030 

REF  37A 

LAST 

923 

32,3023 

52  1A5  0 

DXCH 

MPAC 

MPAC=1/DV0*2 (-7) 

003‘2 

REF  105 

LA'S! 

923 

32,302A 

0 6112  0 - 

It' 

I-NTPRET 

003A 

32,3025 

77615  0 

UAU 

0035 

REF  2 

last 

923 

32,3026 

02031  1 

1/DVl 

(l/DV0+l/DVl)*2(-7) 

0036 

32 , 302T~ 

A3215  0 

— UKO 

■TWD 

63JzfT6A  TOC  SYSTEM  t'JK  A'CjCj- REVISION  0 OF  PROGRAM  BURSIIZO  ^iY  NA^A  2U2U06-UT1 
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" T HR  DSr  1 

MAGM  rUD£ 

filter 

OSEprS  OWFTTAGETia.'  2 ' ' 53"E4  ^ 

0037 

REF 

2 

Last 

923 

32,3030 

02033 

0 

1/0V2 

T30'3B’ 

RfF 

2 

Last 

923 

32.303T 

0203S 

0 

T/DV3 

SUM  117DV  1*2(471  ‘ 

0039 

32,3032 

41205 

0 

OMH 

DMP 

VE  SUM(1/DV)*2(-14) 

OOi.0 

REF 

3 

LAST 

923 

32,3033 

02025 

1 

V£ 

DT  VE  SUM(1/UV)*2(-21) 

OOYTI 

REF  “ 

*3 

LT'ST 

3>2 « ST)  3*4 

21400 

0 

2SEC (9) 

00^,2 

32,3035 

65252 

1 

SL3 

POOL 

1/8  UT  VE  SUM(1/0V)*2(-17) 

00<.3 

REF 

5 

lasi 

920 

32,3036 

02027 

0 

TBUP 

LOAU  TbUP*2(-17) 

' 'OOA'A 

32  t 3 U3  ^ 

43342 

0 

SR  1 

OAD 

1/2  OLt)  TB0F*2T41T) 

OOA5 

32,3040 

77625 

0 

usu 

0046 

REF 

1 

32,3041 

25053 

0 

6SEC(18) 

GET  NEW  TBUP  *2(-17) 

■ ■ WAT 

R€F 

6 

LAST 

924 

32,3042 

1602  7 

0 

^TODC 

WBOP^ 

0048 

REF 

4 

LASI 

924 

32,3043 

02025 

1 

VE 

0049 

32,3044 

56342 

1 

SRI 

UOV 

VE*2(-8) 

0050 

REF 

7 

Last 

924 

32,3045 

02027 

0 

TBUP 

AT*2 (9) 

0051 

REF 

6 

last 

920 

32,3046 

02023 

1 

STURt 

AT 

0086 

32,3047 

77650 

1 

FILTENO  GOIO 

D08B 

RTF' 

5 

L/*  57 

912 

32,3050 

6412S 

0 

'■'ASCENT 

0096 

32,3051 

00010 

0 

BIT4H  UCI 

10 

0098 

32,3052 

0U045 

0 

6SEC (18) 

600b»l8 

C0098 

32,3053 

20000 

0 

0100 

REF 

1 

32,3054 

25716 

0 

ASCPAICH  STUVL 

UNNORM 

PATLH  from  ASCENT  STEERING  LOG  SECTION. 

OTOl 

REF 

3 

Last 

9 IT 

32 « JOSS’ 

02  340 

1 

RCOV 

0102 

32,3056 

52056 

0 

UNIT 

GOTO 

0103 

REF 

1 

32,3057 

6432  1 

0 

ENDPATCH 

633^36A'YUL  system  FOR  AGC!  REVISION  0 OF  PROGRAM  BURST  12U  BY  NASA  2Uz  1 IO6-O3I  DEClr-rX967  “ THAIN)  PAGE  92? 

L LOG^OB^OUT  INE  “ " ' USERi  S OhN  PAGE  NO^  1 S3 

KOOOl  INPUT. ...X  IN  MPAC 

T?W(J2  Output. .._LUG(X)/3z  in  mpat: 

K0003 


0004 

32,3060 

BANK 

32 

UUU5~ 

0006 

0007 

REF  375 
ref  1 

LASI 

923 

3 2 . 3 U6U 

32.3061 

32.3062 

443  OT  Tl 
00153  0 
25127  1 

INiUKm 

BDSU 
MPAC  +6 
ALMOST  1 

0008 

32  9 3Ub3 

77776 

1 

Exn 

0009 

REF  3 

LASI 

782 

32,3064 

0 7274 

1 

1C 

poly 

0010 

32,3066 

00006 

1 

PEC 

6 

" croiT  " 

32,3066 

OODOU 

1 

“2DEC 

•uOOuOUuubu 

coon 

32,3067 

00002 

0 

0012 

32,3070 

76777 

1 

2UEC 

-.0312514377 

C0012 

32,307T" 

77TT5“ 

i 

0013 

32,3072 

77400 

0 

2DtC 

-.0155686771 

C0013 

32,3073 

75416 

0 

0T7TA 

32,3074 

77507 

0 

2DEC 

-•0112502068 

COOIA 

32,3075 

65515 

0 

001s 

32,3076 

77741 

0 

2DEC 

-.0018545108 

CtJOTS 

szvwrr 

~63547" 

1 

0016  . 

32,3100 

77052 

0 

2DEC 

-.0286607906 

C0016 

32,3101 

55373 

0 

0GI7 

32,3102 

01167 

0 

2DEC 

.0385598563 

COO  17 

32,3103 

30361 

0 

ooie 

32,3104 

76520 

1 

20tC 

-.0419361902 

C0018 

■32,310? 

“7526T 

u 

0019 

REF  260 

LASI 

904 

32,3106 

3 7767 

0 

CAF 

ZERO 

0020 

REF  376 

LAST 

925 

32,3107 

54  146 

0 

i 5 

MPAC  +2 

0021 

32,3110 

0 0006 

1 " 

EXTEND 

0022 

REF  1 

32,3111 

3 3126 

1 

UCA 

CLOG2/32 

0023 

REF  317 

Last 

925 

32,3112 

52  145 

0 

UXCH 

MPAC 

0024 

RfP  66 

L/\5 1 

902 

32,3113 

52  122 

1 

UXCTH 

OUF  +1 

0025 

RrF  378 

LAST 

925 

32,3114 

3 0152 

1 

LA 

MPAC  +6 

0026 

RfF  12 

LAST 

901 

32,3115 

0 7357 

1 

IC 

SHORTMP 

0027 

REF  3T9 

L/\  d 1 

92  5 

'3d  Lb 

52“  T46 

0 ■ 

UXCH 

1»IFAC'“+1 

0028 

REF  3b0 

LAST 

925 

32,3117 

52  145 

0 

UXCH 

MPAC 

0029 

REF  67 

Last 

925 

32,3120 

52  122 

1 

UXCH 

SUE  +1 

0030 

Rur  381 

b 1 

925 

32,3121 

20  145 

0 

UAS 

MPAC 

0031 

REF  106 

LaSI 

923 

32,3122 

0 6112 

0 

K 

INTPKET 

0032 

32,3123 

43476 

0 

UCUMP 

RVO 

0033 

32 , 3124 

“ 00542 

1 

CL0G2732  2UtC 

. 02 16608404 

C0033 

32,3125 

34414 

1 

0034 

32,3126 

37777 

1 

ALMOST!  2DEC 

.999999999 

C0034 

32T3T27“ 

37777 

T“ 
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L CPIB 

OOOIOl 

36,2625 

BANK  36 

UStR'S  OWN  PAOE  NO. 

i 

S3 

___  OODI02'REF  II^AST  912 

tBANJ^s  “SCAX 1 5 

RO00I03  program  name  ... 
ROOOIOS 

LAMBERT 

routine 

date  ...  11/29/66 

^ “R000106  ' MOD'  NO  ...  "3  ' 
R000108 
ROOOll 

Roooiii  modification  by 

...  U.U. 

BESTER  AND  L.G. 

HULL 

log  section  ...lamb 
assembly  ...  SUNBURST 

REVISION 

03 

R000112  FUNCTIONAL  UESCKIPTION  ... 

K000113  this  subhoutine  Solves  for  the  conic  jRaje^tort  between' rqvec  ano  whicft  satisfies  a seecifieo  time 

H0001I5  of  FLICHt.  T^L.  A SLOPE  ITERATOR  IS  USED  TO  FORCE  THE  TIME  OF  FLICHT  TO  CONVERGE. 


ROOOllT  CALLINO  SEQUENCE: 


R000118  this  routine  IS  called  in  the  interpretive  mode  by 

ROOOH9  CALL 

ROTO  1 2 LAMBERT 


R000122 

normal  exit  mode: 

ROOOI23 

R000I2A 

pXIT  PKOf^  THIS  KOUTINE  15  IN  BASIC  bY 

TO- 

ENUOFUOB 

R000126 

OUTPUT  : 

R000127 

IHE  OUTPUT  OF  this  ROUTINE  (WITH  SCALING  INDICATED  IN  PAReNIHESeS) 

consists  of  ... 

R000T29 

VOVEC'  (+7)  -the  REUUIRED  VELOCIIY  vector  in  MeTEKS/CENTISeCUNDS 

R00013 

DoNESW  -the  done  switch  indicating  whether  ihe  job  has  been 

completed,  when  the  UOb  IS  done  it 

ROOOT32 

IS  turned  on,  ' 

R000I33  CONVSW  - tHe  convergence  switch  INDICAIINO  whether  THe  iteration  process  has  converged,  it  is  turned 

Rooons - ON  IF  convergence  HAS  NOT  OCCURRED,  BUT  AN-ESTIMATE  Op- VOVEt  TS-NE'VERTHE'LESS  OIVEN, 


R000137 

INPUT : 

ROOOl 38 

the  UUANtIT 1E5 

INPUTED  ANO  THEIR  SCALE  FACTORS  ARE  ... 

” 633436*  S75Ttr  FOR  AliC!  REVISION  0 OF  PROGRAM  BURST! 20  NA^A  2U2 1 106-031  ' PEG  7,  1957  TMAINT  PAGE  927“ 


L 

TaMB  UStRtS  ol((N  PAGE  NO. 2 5T 

R000139 

PoOou 

RGOV  (+26)  -INITIAL  POSITION  IN  METERS. 

“RiVEc  (*2^)  -tf(e  target  posiTro'N“rFr  meters.  ' 

R000141 

TFL  ( + 28)  -IlME  OF  FLIGHT  IN  CENT  1 5EC0N05. 

R000142 

UNNORM  UD  -a  UNIT  vector  IN  THE  DIRECTION  OF  THE  ANGULAR  MOMENTUM  VECfOR. 

"“ROO0T44 

R000146 

lAGV  -A  parameter  SeTTO  -O.S  IF  THE  TBUE  “ANOMALY  DIFFERENCE  BETWEEN  RoVEG  ATTD  RlVEC  IS  MORE  THAN 

180  degrees.  otherwise  it  should  be  set  to  +0.5. 

TROOOlAt 

R000149 

GUeSSW  -the  guess  switch,  if  a first  guess  to  TFTE  cotangent  of  the  flight  path  atigle  is  available  the 

switch  should  Be  set  . clear  if  no  guess  is  forthcoming. 

' R00015 

ROOOI52 
R000154 
ROODTS6 

rOGAVAIL  (+5)  -the  AVAILABLE  COTANGENT  OF  THE  FLIGHT  PATH  ANGLE.  IF  A GUeSS  I S'AVAirABLE  THE  GUESSW^  SHOULD  BE 
set  and  the  guess  placed  Here  before  the  LAMBeRT  routine  is  entered,  after  one  pass  through 
LAMBERT,  the  LAST  ITERATED  VALUE  OF  THE  COTANGENT  IS  PLACED  IN  COGAVAIL  AND  MAY  BE  USED  AS  THE 
““  “ GUESS  FOR  THE  NEXT  PASS. 

R000157 

R000159 

jHE  Following  switches  aRe  in  t^is  roUtIne  + though  |Hey  are  not  used  Fqr  ihis  particular  mission  and  are 

ALWAYS  clear  IN  206. 

ROOOI6 

R000162 

moonsw  - the  Moon  switch:  i-inside  the  sphere  of  influence  of  the  moon  135.000  n.mi.j 

0-outside 

R000163 

R000164 

ESCPSW  -THE  ESCAPE  SWITCH;  1-HYPERBOLIC  ORBit 

0-ELLlPTIC  ORBIT 

R00016S 

R000166 

smanglsw  -small  angle  switch:  i-small  transfer  angles 

0-large  angles  ITHE  usual  CASE) 

ROOOI6I 

TWO  switches  are  used  internally,  they  are 

R00G16B‘ 

R000169 

“ITEFtSW  -THE“  iteration  SWITCH;  l-FTRSinTERATlON  IS  TO  TAKE  PLACE  

O-SUBSEOUENI  ITERATIONS 

i<OOOT7“ 

R000172 

PIESw  -THE  180  degrees  SWITCH:  i-ANGLES  GREATER  THAN  IBO  DEGREES  WITH  TAG5--O.S“ 

0-ANGEES  LESS  THAN  180.  TAG5=0.5 

K00U173 

debris  ... 

ROOOI74 

R000176 

the  LAMBeRT  ROUTINE  INTERNALLY  USES  SCALING  WHICH  IS  DIFFERENT  FROM  THAT  USED  BY  THE  MAIN  PROGRAM. 
INTERNAL  10  LAMBERT. 

KOOOl  1 ( 
R000178 

7 

length  is  SCALED  BY  RNORM  = 2 RE 

“ROOD  179 

velocity  is  SCALID  BY“VNDRM  = 2 5QRT(MU/RE) 

l>3T!r36A-  YUL  ^SYsTEh  FOr  AQC!  rE\TisiON  0 Dp  PrOGrAM  BURSHEy- HY  NA5A -202110-6-031' 


OE^C  7.  1967  fFATlYI^  page  92B 
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R00018  10  3 

-ROOD38r“‘TTME  rS -scaled  SrTNORM-3 '2  SqRT  (RE  /MU)-  - - - ' 

R000182  where  mu  is  tH£  GRAVITATIONAL  CONSTANT  TIMeS  THe  MASS  OF  THE  EARTH  AND  Re  iS  THE  RADIUS  OF  THE  EARTH. 

R00018A  22 

-RTTCrOlB-S — f OR  -RE.  2 — METERS  IS  D5eD7~FTOWEVER » INPUT  AND- OUTPUT  OUAW 1 1 T1  ES  TTAT/E  ~SXrAt-nYO~ COMRA"rrBLE  W1  ITrTHE  REST-QF  THE 
R000187  PROGRAM,  RtSCALING  WILL  Be  DONE  BY  THE  LAMBeR I ROUTINE  BEFORE  COMPUTATIONS  BEGIN. 


6334T36A 

TUL 

system  for  aoc: 

RT\rjSlOM  0 

OF  Program  BURST120  isr  nasa  2021106-031  ^ ok  7,196t^  (MArRi  - page 

929 

L 

USER'S  OWN  PAGE  WJ,  4 ST 

““E3 

00021 

36.2625 

40214 

1 

LAMBEri 

bti 

SEtPO 

00022 

ref 

1 

36.2626 

02062 

1 

ITERSW 

000225 

36,2627 

00001 

0 

00 

00023 

36,2630 

43014 

0 

LLEAK 

CLEAR 

T)TJ024 

3 LA5  1 

1 5 

36,2671 

02265 

1 

MOONSW 

00025 

RfF 

5 LAST 

9l6 

36,2632 

02261 

0 

OONESW 

00026 

36,2633 

43014 

0 

LLEAR 

CLEAR 

00027 

RET 

r 

36,2634 

02265 

1 

SMANGLSw 

0003 

RLF 

1 

36,2635 

02264 

0 

PIESW 

0Q034 

36,2636 

51145 

0 

PLUAU 

BPL 

■Dua35 

REF 

2 LA51 

916 

36  « 263  f 

03672“ 

1 

1 AG5 

00036 

36,2640 

74643 

0 

+ 3 

00037 

36,2641 

77614 

1 

SEI 

00038 

REF 

2 last 

929 

36,2642 

02064 

1 

PlESw 

0004 

36,2643 

77614 

1 

bON 

00041 

REF 

3 LAST 

912 

36,2644 

02303 

0 

GUESSW 

00042 

36*2645 

“T4653“ 

i 

+ 6 

0005 

30,2646 

77745 

1 

ULUAU 

00051 

REF 

1 

36  * 264  f 

35644 

1 

01/4 

00052 

RfF 

1 

36  *2b50 

01725 

0 

STORE 

TwEEK I T 

0006 

36,2651 

77650 

1 

GO  10 

00061 

REF 

1 

36,2652 

74656 

1 

PROG 

0007 

36,2653 

7 7745 

1 

' PL0A17 

00071 

REF 

1 

36,2654 

35640 

0 

01/64 

00072 

RLF 

2 LAST 

929 

36,2655 

01725 

0 

STOKE 

TwEEKlT 

OO'OB 

36  *26b6 

41345 

0 

PROG 

OLUAO 

OMP  " 

00081 

REF 

3 LAST 

916 

36,265  7 

02143 

0 

TFL 

00082 

REF 

1 

36,2660 

35670 

0 

TFACT 

OOOB3 

36  t ^ 6 6 1 

77652 

0 

bU3 

“ rtscale  time  of  flight 

00084 

REF 

1 

36,2662 

25672 

0 

STUVL 

TF 

00085 

RLF 

3 LAST 

917 

36,2663 

03614 

1 

RCOTEMPV 

00086 

36  * 2664 

“T77T52 

VSK4 

00087 

REF 

1 

36,2665 

3570  7 

1 

STLALL 

ROVEC 

00091 

REF 

1 

36,2666 

75112 

1 

OTPKO 

0010 

36*266  f 

77624 

T~ 

“TEAtL 

0011 

REF 

1 

36,2670 

75133 

1 

CGTH 

0012 

36,2671 

60345 

0 

ULUAO 

NORM 

0013 

36  *26^2 

000^5  tr 

'3’&0 

0014 

REF 

8 last 

879 

36,2673 

00047 

1 

XI 

0015 

36,2674 

53665 

1 

bOOV 

5L* 

00T6 

36,2675 

00041 

1 

52  D 

0017 

36,2676 

20172 

1 

0 -7,1 

0018 

36,2677 

14037 

u 

STOOL 

300  300=R  (+7) 

0019 

RfF 

2 Last 

740 

36,2700 

35646 

0 

01/2 

0020 

36,2701 

70A25 

0 

U5U 

SRI 

OO2I 

36,2702 

00035 

1 

3Bt)  

0022 

36,2703 

00025 

u 

blUKt 

200  20D=l-CSTH  (+2)  (FOR  PCALC  IN  LOOPI 

00Z3 


3b. 270;,  65301  0 


imokm  pool 


1-CPlH  (*2-M) 


PL  AT  20 
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0029 

REF 

9 LAST  929 

36,2705 

00097 

1 

XI 

0025 

36*2  ?U6 

0003  ! 

0 

3UD 

0026 

36,2707 

77671 

1 

oov 

PL  AT  00 

0027 

36,2710 

7595  ( 

0 

SL* 

SORT 

OOZB 

36  f i i 

20175 

u 

0 -9,1 

0029 

36,2712 

99219 

0 

bOFF 

BDSU 

0030 

REF 

1 

36,2713 

02395 

1 

ESCPSW 

0031 

REF 

I 

36  *2  / 14 

~7506l 

1 

ELIPLMTS 

0032 

36,2715 

00021 

1 

16D 

0033 

36,2716 

51906 

I 

PUSH 

ABS 

PL  AT  20 

0039 

36*2717 

44205 

0 

OMK 

B05U 

' “ “ ' PL  AT  00 

0035 

REF 

1 

36,2720 

35656 

1 

PERCENT 

0036 

36,2721 

77626 

0 

bFAOK 

0037 

36  t2  /2^ 

63744 

0 

5TUDU 

26U 

26D~C0GAMX 

003S 

36,2723 

00031 

0 

29D 

0039 

36*2724 

77792 

0 

5Rt 

0090 

36,2725 

00023 

0 

STURt 

180 

180=S1N(TH)  (+2)  (FOR  PCALC  IN  LOOP) 

0091 

36,2726 

65301 

0 

NORM 

POOL 

SINITH)  (*1-N1)  PL  AT  20 

00^2 

REF 

io  Last  930 

36  * 2 / 2 ^ 

00097 

I 

XI 

0093  . 

36,2730 

00035 

1 

280 

0099 

36,2731 

95261 

0 

SR 

OSU 

00^5 

"3T6,2732 

20507 

i 

6 

0046 

36,2733 

00037 

0 

300 

0097 

36,2739 

00037 

0 

SlURt 

300 

30D=COS(TH)-R  (+7)  (FOR  PCALC  IN  LOOP) 

0098 

36,2735 

56219 

0 

bON 

DOV 

PL  AT  00 

0099 

REF 

3 LaSI  929 

36,2736 

02309 

1 

PIESW 

0050 

RfF 

1 

36*2/3/ 

79750 

0 

AbSNlN 

0051 

36,2790 

90057 

1 

SL* 

BOV 

0052 

36,2791 

20201 

0 

0,1 

0053 

RrF 

2 Last  93^0 

36*27^2 

7975U 

0 

ABSW  IN 

0059 

36,2793 

51906 

1 

HUSH 

AbS 

(CSIH-R) /SNTH  (+5)  PL  AT  20 

0055 

36,2799 

93205 

1 

UMP 

OAO 

PL  AT  00 

RCF 

36  795 

35656 

1 

PERCENT 

0057 

36,2796 

77650 

1 

GO  10 

0058 

36,2797 

79755 

0 

+ 4 

36*2750 

71Z01 

1 " 

ABSMIN  Sb 1 PU 

OLOAO 

" PL  AT  00 

0060 

36,2751 

00001 

0 

00 

0061 

REF 

1 

36,2752 

35666 

1 

ABSOLMIN 

00^2 

36*2753 

00027 

1 

STURt 

220 

“ 220=COGAMN  ('♦57  ' ' 

0063 

36,2759 

71219 

0 

bOFF 

OLOAO 

PL  AT  20 

0069 

REF 

9 Last  929 

36,2755 

02393 

1 

GUESSW 

36*2  /56 

750  41 

"0— 

“FlITStCOG 

0066 

REF 

1 

36,2757 

01679 

0 

COGAVAIL 

0066 1 

36,2760 

95219 

1 

bON 

OSU 

IF  ESCPSW  IS  OFF,  CHECK  IF  COGAVAIL 

'36*2  r 6 i 

02305 

— ESCP^SW 

' ISr’tESS'  THAFF'COSAfW-  - 

00662 

REF 

1 

36,2762 

79779 

0 

LOOP 

006625 

36,2763 

00027 

1 

220 

4 
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00663S 

36,2765 

79772 

0 

♦ 5 

0066A 

36,2766 

0002  1 

1 

22D 

0066A5 

REF 

2 

LAST 

930 

36,2767 

01679 

0 

5TUKt 

COGAVAIL 

00665 

36,2770 

77650 

1 

IjOIO 

" " 0TT6655 

REF' 

L/\5TW0 

36,2T7T^ 

7R7T9 

0 

“LOOP 

00666 

36,2772 

77795 

1 

ULUAU 

00667 

REF 

3 

LAST 

931 

36,2773 

01679 

0 

COGAVAIL 

0067 

REl^ 

1 

36*27  74 

01723 

0 

LOOP 

5T0RE 

INDEP 

0068 

36,2775 

95205 

1 

UMH 

DSU 

0069 

36,2776 

00023 

0 

18D 

0070 

36  * 27  7 7 

WOTT 

u 

300 

0071 

36,3000 

55301 

0 

NORM 

BODV 

0072 

REF 

11 

LAST 

930 

36,3001 

0009  / 

1 

XI 

oorr 

T?rr3TltJ2 

00025  0 

“2TJD 

007A 

36,3003 

90057 

1 

SL* 

BOV 

0075 

36,3009 

20172 

1 

0 -7.1 

0076 

RfF  ' 

1 

36,3005 

75107 

0 

SPEEOY 

0077 

36,3006 

34043 

1 

PSTORE 

SILALL 

390 

0078 

ref 

1 

36,3007 

75196 

0 

SMAk 

OOT'O 

3^,3010 

~TTSZ^ 

'T'“ 

■"CFCL 

0080 

REF 

1 

36,3011 

75163 

1 

TRIGFNS 

0081 

36,3012 

77629 

1 

CALL 

0082 

REF 

I 

36,3013 

75346 

1 

SMA 

0083 

36,3019 

77629 

1 

GALL 

0084 

REF 

1 

36,3015 

75919 

1 

DELTIME 

0085 

REF 

1 

36,30T6' 

“ai727 

1 

ZOOM 

Dtp  VAR 

0086 

36,301 ? 

77621 

1 

bosu 

0087 

REF 

2 

LAST 

929 

36,3020 

01672 

0 

TF 

0088 

REF 

1 

36,3021 

01733 

1 

STURL 

OELOEP 

0089 

36,3022 

45246 

0 

AB5 

OSU 

0090 

REF 

1 

36,3023 

35672 

1 

DEPCRIT 

0091 

36,3029 

95090 

1 

bPrrr 

CALL 

0092 

REF 

1 

36,3025 

75096 

1 

TIMELONV 

0093 

REF 

1 

36,3026 

75513 

1 

ITERATOR 

O09A 

36,3027 

95296 

0 

ABb 

DSU 

009-5 

RfF 

1 

36,3030 

35650 

1 

NEARZERU 

0096 

36,3031 

71290 

1 

bMN 

OLOAO 

0097“ 

RtF 

I 

36  * 3U32 

75056 

0 

NOSOL 

0098 

RLF 

2 

last 

931 

36,3033 

01727 

1 

DEPVAR 

0099 

REF 

1 

36,3039 

15731 

0 

STOOL 

PREVOEP 

0100 

ret 

I 

36,3035 

01735 

1 

DELINOEP 

0101 

36*3036 

52015 

1 

UAU 

GOTO 

0102 

RrF 

2 

LAST 

931 

36,3037 

01723 

0 

INDEP 

0103 

re:f 

3 

Last 

931 

36  * 3U4U 

79779 

0 

LOOP 

0104 

36,3091 

65392 

1 

firstcog 

bKl 

POOL 

0105 

36,3092 

00033 

1 

260 

0106 

36*3043 

93392 

0 

bKl 

OAD 

0107 

36,3099 

77650 

1 

GOTO 

0108 

RfF 

4 

last 

931 

36,3095 

79779 

0 

LOOP 

COGAvAIL  is  a ^AIJ-GOESS.  50  PUT 
COGAMN  IN  COGAVAIL 


3AD=P  (+2) 


PL  AT  20 
PL  AT  UD 
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0109 

36,30A6 

777A5 

1 

TIMECONV 

DLOAU 

DUO" 

01105 

0111 

TIEF 

Ref 

3 Last  931 
A last  931 

36f30A7 

36.3050 

36.3051 

0r72  3 
0167A 
3A023 

0 

0 

1 

STUPE 

STLALL 

INDEP 

COGAVAIL 

IBD 

180=C0GA  (+5) 

ornrz~ 

“RET 

T 

36,3052~ 

75602 

1 

INITV 

01121 

36,3053 

77A1A 

0 

SEI 

EXIT 

01122 

REF 

6 Last  929 

36,305A 

02061 

1 

OONLSW 

TirrA 

Htr  105  LA5^]-9-20 

3 '6  1 3 O'S  5 

1 5567 

I 

Kh 

ENDUE  JOB 

OllAl 

36,3056 

5201A 

0 

NOSOL 

bt\ 

GOTO 

011A2 

REF  . 

2 Last  9I6 

36,3057 

02060 

0 

CONVSW 

on  A3 

REF  ^ 

2 LTST  931 

36,3060 

750A6 

1 

TIMECONV 

0115 

36,3061 

A3206 

1 

ELIPLMTS 

PUSH 

DAD 

PL  AT 

2D 

0116 

36,3062 

00021 

1 

160 

0117 

3b  * 30b3 

51406 

1 

HUSH 

AB5 

PL  AT 

4D 

0118 

36,306A 

AA205 

0 

UMP 

BDSU 

PL  AT 

2D 

0119 

REF 

3 Last  930 

36,3065 

35656 

1 

PERCENT 

OTZP 

3b  f 3Ubb 

( 626 

u 

“STAOR 

0121 

36,3067 

637AA 

0 

5TUDL 

260 

26D=C0GAMX  (+5) 

0122 

36,3070 

00035 

1 

280 

0123 

3b  f 3 U ^ 1 

A5261 

0 

SK 

DSD 

012A 

36,3072 

20607 

1 

6 

0125 

36,3073 

0003  f 

0 

300 

0126 

3b  « 3 0 ^ 

T A03  1 

0 

STUDL 

300 

3ud“^sih-k  i + n 

0127 

36,3075 

00031 

0 

2AD 

0126 

36,3076 

777A2 

0 

SKI 

0129 

3b ♦ 3 u < f 

1A023 

0 

STUUL 

180 

0130 

36,3100 

00021 

1 

160 

0131 

36,3101 

AU25 

1 

usu 

PUSH 

PL  AT 

0D,2D 

ffl32 

3 6 • '3 1 0 2 

A12A6 

1 

"ABS 

“OKP 

0133 

REF 

A LAST  932 

36,3103 

35656 

1 

PERCENT 

013A 

36,310A 

77615 

0 

DAD 

PL  AT 

OD 

0135 

3b • 3 105 

77650 

vjjJ  \ 0 

0136 

REF 

3 last  930 

36,3106 

7A753 

0 

ABSMIN  +3 

0137 

36,310 1 

521A5 

0 

SPEEDY 

DLUAD 

GOTO 

O'lTB 

Rtf  ■ 

2^  Las  1 7A0 

36  1 10 

35273 

1 

02EK0 

0139 

RfF 

1 

36,3111 

75016 

1 

200M 

ROIAO 

VOVEC 

(+1)  IN  MPAC. 
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"L  UfflB  D5ER*S  OWN  PAGE  NO.  B S3  E3 

ROlAOl  THIS  SECTION  CALCULATES  THE  SINE  AND  COSINE  OF  IHt  ANGLE  BETWEEN  ROVEC 

FT01a02  AND  RIVEC.  the  SIGN  OF'SINTITH)  T5  DETERMINED  BY  TAGS,  THE  COSINE  OF  THE  ' 

R01403  ANGLE  IS  STORED  IN  28D 'WHILE  THE  SINE  IS  IN  MPAC  AS  WELL  AS  IN  iAO,  BOl H 

KOIAOA  Are  scaled  BY  (*2). 


‘ TrOlAl  As5UME5“FTffVEC  (+7)  * RlvEc  (*7)  « TAGS  ( + /-  ACCOAunTG  TO  ANGlE^  GREATER 
R01A2  OR  LESS  THAN  180  DEG)  AVAILABLE. 


0K3 

36,3112 

53575 

0 OTPRD 

VLUAO 

UNIT 

01  LA 

R^FF  ‘ 

2 Last 

929 

36,3113 

0170  > 

0 

TOVEC 

0145 

REF 

1 

36,3114 

15701 

0 

STUDL 

UNRl 

0146 

36,3115 

00045 

0 

36D 

^ " 0Ta7 

36,3116 

24041 

1 

STOVL 

32D 

3^0“K1  (+7^ 

0148 

REF 

5 last 

9l6 

36,3117 

02365 

0 

RIVEC 

01485 

36,3120 

77702 

1 

VSKit 

0E49 

36,3121 

41456 

0 

VNIT 

POSH  " 

32D=R1  (*71 

PL 

AT 

6D 

0150 

36,3122 

72441 

0 

UOI 

SLl 

0151 

REF 

2 last 

933 

36,3123 

01701 

0 

UNRl 

OTSE 

36,3124 

24035 

1 

STOVL 

2BT> 

2tiD"C05{TH)  T+1) 

0153 

REF 

3 Last 

933 

36,3125 

01701 

0 

UNRl 

0154 

36,3126 

76435 

1 

VXV 

VSLl 

PL 

AT 

OD 

0153 

36,3127 

752^6 

0 

ABVAL 

SIGN 

0156 

REF, 

3 LAST 

929 

36,3130 

03622 

1 

tags 

0157 

36,3131 

00031 

0 

STORE 

24D 

24D=SIN(TH)  (+1) 

OTSB 

36,3132 

T7CT6' 

V 

RVT3 

ROISR  2BD=C0S(TH)  (+1),  2AD=SIN(TH)  (*1)=MPAC, 


rut“  SYSTEM 

HOP  AUC:  REVISION  0 OF  PROGRAM  BURSTIZO  BY  NASA  2021106-031“ 

DEC  1967  CMAll'n  ' 

PAGE  93A 

t 

. K01591 

TSMB 

THIS  SE<-TI0N  computes  C0T(1H/2)  : (1  + COS  ( TH ) ) /S 1 N ( 1 H ) SCALEd  bY  I + SIt 

trstK'b  OWN  PAGE  NO.  9 

53  E3 

R0I592 

K01593 

ATftrSTORETS^ 
TH  IS  LESS 

il  ITS  16U,  INUTh  IMftT  CDTvTM/2;  WILL  UVt«rLUW  ih  mt  MINVJi-t 
THAN  3 D£G  35  MINUTES  OR  GREATER  THAN  356  UEG  25  MINUTES, 

R0160 

Assumes 

SnTHI+1) 

IN  MPAC.  280 

=CSTH  (♦!) 

• 

0T6T 

01615 

0162 

REF 

REF 

1 

12 

LAST 

931 

38  9 3T33“ 
36.313A 
36,3135 

60256 

75166 

00067 

1 

1 

1 

cgth 

tiZt 

NOR  In 

THISPl 

XI 

SNTH  (+1-ND 

0TE3 

38T3T36 

70325“ 

I 

KDUC 

SR  i 

016A 

36,3137 

00035 

1 

2BD 

0165 

36,31A0 

56215 

1 

UAU 

DDV 

PL  AT  00 

0166 

RrF 

2 

L/VST 

929 

36  *3 1 A I 

356AA 

1 

Dl/6 

0167 

36,31A2 

7765  7 

0 

SL* 

0168 

36,31A3 

20175 

0 

0-6,1 

0169 

36,31AA 

00021 

1 

THISPl 

STORE 

16D 

0170 

3b,31A5 

77616 

0 

KVU 

■prarrr 


"rUGTH  C*5)s16D 
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L 

R017U 

Lamb 

THIS  SEUION  USES  COT  (GAMMA)  , 

I.E.  COGA 

(+5)  ANO 

P ( + 2) 

TO  CALCULATE  RlA 

UStftiS 

OWN  PAGE  NO.  TO  S3  E3 

M01712 

SGALEU“BY^  + 6)  ANO  bTORES  THE 

RESULT 

IN 

"T9H; 

R0172 

Assumes  ccgAiIndep  (+5),  p (+2) =390. 

0173 

36,3196 

63595 

0 

SMAR 

ULUAU 

050 

in7A 

REF  9 Last  932  36,3197 

01723 

0 

INDEP 

0175 

36,3150 

60215 

1 

UAL) 

NORM 

0176 

REF  1 36,3151 

35636 

1 

01/1029 

^ trm 

“TTEF  T3LA3T'  939  36,3152 

00097“ 

1 

XI 

0178 

36,3153 

53605 

1 

OMR 

SR* 

0179 

36,3159 

00093 

0 

390 

(TTEO 

31573155 

20573“ 

i 

U -6  • 1 

0181 

36,3156 

90021 

0 

bUbU 

BOV 

0182 

REF  1 36,3157 

35692 

1 

01/32 

0183 

RfF  2 LAST  931  36,3160 

75107 

u 

5PEE0Y 

0189 

36,3161 

0001  I 

1 

SMARSTOR 

STORE 

190 

190=R1A 

(*6) 

0185 

36,3162 

77616 

0 

KVO 

K0186 

RU  (♦6)=2-P(1  + CUGA»C0C3A)  IN 

190. 

" '633'.36fr  YUU  SYSTEM  EOH  AtiC:  REVISION  0 OF  PROORAM  BURSTTZO  BY  NASA  2021106-031 


TJEC-7,-r967 (WATNT  PAOE  936 


' LaMB“  ^ ^ USER'S  'OSN  PA-GErNO.  11"^^  S3  E3 


R0187 

ASSUMES 

160=C0UTH 

(+5)  , INDEP 

=C0GA(+5) , 

38D=P  (+2) , 180=  RIA  (+6) . 

^ " '0188 

36  * 3 l63 

^5345 

1 

IKlQihN5  ULUAU 

usu 

0189 

36,3168 

00021 

1 

160 

0190 

rff 

5 

LAST  935 

36,3165 

01723 

0 

INOtP 

0T91 

36*3166 

OOO45 

u 

5IUKt  36D 

35D=DC0T=C0rnH/2T-C0GA  ( + 5) 

0192 

36,3167 

6O3I6 

0 

L>SU 

NORM 

' T)I93 

T^tF 

LaS'T  9^5~ 

36*31 

00087 

7 

XI 

019A 

36,3171 

70805 

1 

OMP 

SRI 

0195 

36,3172 

00083 

0 

380 

0T96 

36  * 3 1 ^ 3 

51525 

1 

POOL 

A b s 

OCOIXDCOT  (+13-N11  PL  AT  20 

0197 

36,3178 

00017 

1 

180 

0198 

36,3175 

55301 

0 

NORM 

BODV 

COGOS  (+7-N1+N2)  PL  AT  00 

0199 

REF 

33 

Last  8<»i 

36*3176 

00051 

0 

Si 

0200 

36,3177 

53660 

1 

AbU*l 

SR* 

0201 

REF 

38 

LASl  936 

36,3200 

00050 

1 

SI 

0202 

36*3201 

20608 

1 

3 * 1 

0203 

36,3202 

77600 

1 

bOv 

0208 

REF 

1 

36,3203 

75383 

1 

COGOSOVF 

0205 

36*320^ 

75206 

1 

LOGOSIOK  PUSH 

SIGN 

COGUS  (+10) 

0206  ■ 

36,3205 

00017 

1 

180 

0207 

36,3206 

60215 

1 

UAL) 

NORM 

' 0208 

-Rtf  ■ 

2 

LAS!  93T 

36 • 3Z0  f 

35636  1 

■T7TTFW8 

' 0209 

REF 

15 

Last  936 

36,3210 

00087 

1 

XI 

0210 

36,3211 

65265 

0 

BDUV 

POOL 

20:1-LSD  (-7  + NU  PL  AT  80 

021 1 

RfF 

3 

Last  93^ 

36,3212 

35688 

1 

01/8 

0212 

36,3213 

00001 

0 

00 

0213 

36,3218 

60366 

1 

SORT 

NORM 

0218 

REF 

Last  TB^6' 

36  *6215 

1 

0215 

36,3216 

75205 

1 

UMP 

SIGN 

0216 

36,3217 

00003 

1 

20 

0217 

36*3220 

000^5 

0 

360 

SNO  = + - (1-CSO)  SORT  fLTJGOO)  (-2  + N1-N2) 

0218 

36,3221 

83068 

1 

A5U,2 

BON 

0219 

ref 

16 

last  936 

36,3222 

00086 

0 

XI 

0220 

RET 

3 

Last  930 

36  * 32^1 3 

02305 

0 

ESCPSW 

0221 

REF 

1 

36,3228 

75250 

1 

hyptkig 

OUE  TO  DIFFERENT  SCALING 

0222 

36,3225 

6525  I 

1 

SR* 

POOL 

DXNGE  WITH  P0,2D=SN0  (+1)  PL  AT  80 

0223 

36*3226 

5 7173 

~o — 

3 

0228 

36,3227 

80057 

1 

SL^^ 

BOV 

0225 

36,3230 

20171 

1 

0 -bO,l 

0226 

RfF 

1 

36*3231 

752^5 

0 

HALFLIRC 

0227 

36,3232 

57806 

1 

COSFN  PUSH 

OCOMP 

80=ll-CSD) (+1)  PL  AT  60 

0228 

36,3233 

65815 

1 

UAL) 

ACOS 

REF 

3^6  *323^ 

3515‘^b 
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CAUSE  THE  INDEPENDENT  VARIABLE  TO  EXCEED 

0432 

REF 

1 

36,3533 

00033 

1 

MAXINDEP 

ITS  LIMITS. 

0433 

36  * 3 534 

45225 

0 

' "USU 

PSU 

0434 

RfF 

7 

Last 

940 

36,3535 

01723 

0 

INDEP 

0435 

REF 

4 

Last 

942 

36,3536 

01735 

1 

DELINDEP 

04^ 

36*353/ 

- '50000- 

1 

BOV 

BMN 

0437 

ref 

1 

36,3540 

75570 

1 

XEEDULMT 

0438 

RfF 

2 

LAST 

942 

36,3541 

75570 

1 

XEEDULMT 

0439 

36",354? 

43s  ATT 

“1 

VLWU  KVQ 

0440 

REF 

5 

Last 

942 

36,3543 

01735 

1 

DELINDEP 

0441 

36.3544 

41345 

0 

FRSTTIME  DLOAD 

DMP 

0442" 

RtT 

1 

36*3545 

00027 

1 

MlNINDEp-  - 

0443 

REF 

3 

LAST 

929 

36,3546 

01725 

0 

TWEEXIT 

TWEEXIT  SHOULD 

BE  set  .25  IF  THE  FIRST 

C0444 

guess  of  INDEP 

WAS  .5  IMAXINDEP  + MININDEP) 

0445 

36.3S47 

41325 

0 

KDDt 

^MP - 

-----  ..  - QQWfyl  20 

0446 

REF 

2 

LAST 

942 

36,3550 

00033 

1 

MAXINDEP 

0447 

RfF 

4 

LAST 

942 

36,3551 

01725 

0 

TWEEXIT 

36  ,3552 

77625 

0 

DSU 

UP  2D 
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L 

0449 

Uamb 

36,3353 

52165  1 

SIGN 

GOTO 

USW'S  OWN  PAGE  No.  Is  S3“Z3' 

0450 

REF 

3 LASI 

942 

36,3554 

01733  T” 

DELDEP 

0A61 

RfF 

1 

36,3555 

75530  0 

NEWDELTA 

0452 

36,3556 

45345  1 

MINCHECK  OLUAD 

DSU 

045T 

■ Rir 

"Z  LAST 

942 

36,3557 

0002?  1 

MININDEP 

0454 

REF 

8 Last 

942 

36,3560 

01723  0 

INDEP 

0455 

36,3561 

40025  1 

05U 

BOV 

0456 

REF 

6 T-AST 

942 

36  « 3562 

01735  1 

DELINDEP 

0457 

REF 

1 

36,3563 

75575  1 

XEEDLLMT 

0458 

36,3564 

71244  0 

bPL 

DLOAD 

0459 

REF 

2 LAST 

943 

36  t 3565 

75575  1 

XEETDELMT 

0460 

REF 

7 East 

943 

36,3566 

01735  1 

DELINDEP 

0461 

36,3567 

77616  0 

KVU 

0462 

36,3570 

45345 

1 

XEEDULMT  pLOaD 

DSU 

0463 

RfF 

3 

Last 

942 

36,3571 

00033 

1 

MAXINDEP 

0464 

REF 

9 

LAST 

943 

36,3572 

01723 

0 

INDLP 

0465 

RlF 

b 

Last 

943 

36 f 3 5 f 3 

01735 

1 

STUKL 

DELINDEP 

0466 

36,3574 

77616 

0 

KVU 

0467 

36,3575 

45345 

1 

XEEDLLMT  PLUAU 

DSU 

0468 

RLF 

3 

LAST 

943 

36,3576 

0002 1 

1 

TIimNDEP  ' - 

0469 

REF 

10 

lasi 

943 

36,3577 

01723 

0 

INDEP 

0470 

REF 

■ 9 

Last 

943 

36,3600 

01735 

1 

store 

DELINDEP 

CTATT 

3 6 « 3 6 U i 

77616 

0 

KVCj 
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LAMB 


UStRiS  OWN” PAGE  NO. TT" 


”SS  E3V 


ROA72 

Assumes 

320  = R l+li. 

39D=P  (+2) 

, TAGS 

(♦/ 

'-) , 180=CUGA  (+ 

5) , UNKl  (+1) , 

K2 

R0473 

“AVAILABLE." 

0979 

36,3602 

60395 

0 

INITV  L/LUAU 

NORM 

0975 

36,3603 

00091 

1 

320 

■04T6" 

RrF“ 

19 

CT'.'ST  9 42 

i6  ♦ i6U4 

U004^  1 

XI 

0977 

36,3605 

70525 

1 

POOL 

SRI 

R1  1+7-NI) 

PL 

AT 

20 

0978 

36,3606 

00093 

0 

390 

' - ' 097V  ' 

^ b * J bu  ^ 

T7671  1 

ODV 

P/Rl  (-9+NT) 

PL 

AT 

UL> 

0980 

36,3610 

91219 

0 

bOFF 

DMP 

0981 

REF 

6 

LAST  990 

36,3611 

02395 

1 

MOONbW 

a2rff2 

~36,36I2 

"T5617" 

0 

“OUT^TDE^ 

0983 

REF 

1 

36,3613 

35669 

0 

MU 

0^*8A 

36,3619 

52057 

1 

SL* 

GOTO 

098iS 

20165 

i 

0 -rzon 

0^86 

RfF 

1 

36,3616 

75621 

0 

MAGVTAN 

0987 

36,3617 

7765  f 

0 

OUTSIDE  SL* 

0488 

36,3620 

20173 

0 

U -b  * 1 

0489 

36,3621 

63366 

1 

MAGvTAN  sqkt 

PDvL 

V SIN(GAMMA)  (+1) 

PL 

AT 

20 

0990 

RET 

4 

Last  933 

36,3622 

01701 

0 

TJNRl 

0991 

36,3623 

63361 

0 

vxsc 

PDVL 

20  = C0GA  UNRl  U6) 

PL 

AT 

80 

0992  , 

36,3629 

00023 

0 

180 

09^3 

REF 

Z 

LAST  924 

36,3825 

01715 

O' 

ONNUKM 

0494 

36,3626 

60935 

0 

vxv 

VSR9 

UNVIAN  (+6) 

0995 

REF 

5 

LAST  999 

36,3627 

01701 

0 

UNRl 

0496 

36  *3630 

^9255 

0 

VAU 

VXSC 

PL 

AT 

ZD  t OD 

09963 

36,3631 

96561 

1 

VXSC 

VSL7 

09969 

REF 

1 

36,3632 

35670 

0 

VFACT 

SCALE  FOR  ASCENT  STEERING 

AT  +7 

CF9965 

REF 

Z 

Last  9I6 

36*3633 

02329 

0 

STORE” 

VOVEC 

0997 

36,3639 

77616 

0 

KVU 

Ro‘t98  rlturns  With  velocity  in  mpac  and  in  vovec  scACEO  inr 
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PAGE 

945 

L 

0536 

LAMB 

36,3635 

00020 

0 

Dl/1024 

20tC 

UbtKib  0V(N  HAOt  NU.  20 

.5  b-9  ■ 

Si 

E3 

C0536 

36,3636 

00000 

i 

0539 

36,3637 

00400 

0 

01/64 

20EL 

.5  b-5 

C0539 

36 1 3640 

00000 

1 

“059D 

36,J641 

OIDOO 

0 

01/32 

2DEC 

• 5 B-4 

C05't0 

36,3642 

00000 

1 

0543 

36,3643 

10000 

0 

01/4 

20tC 

.5  b-1 

L0543 

36,3644 

00000 

1 

05AA 

36,3645 

20000 

0 

01/2 

2DEC 

.5 

C0544 

36*3646 

00000 

1 

36,3647 

00000 

1 

NEARZtKO 

20CT 

BO  ' 

C.0545 

36,3650 

00001 

0 

0647 

36,3651 

37777 

1 

NEARI 

2(1LT 

3777  737  777 

" COS^fT 

36t-^6>^ 

~~srrrr 

1 

0548 

36,3653 

3775  7 

0 

BIGNO 

20LT 

3775  737777 

C0548 

36*3654 

37777 

1 

0549 

36  *3655 

00020 

0 

percent 

2DEC 

E^-3 

C0549 

36,3656 

14223 

1 

0553 

36,3657 

00130 

0 

LN2/128 

20EL 

.693147181  B-7 

t0553 

36,3660 

^T03“ 

u 

0559 

36,3661 

22031 

0 

KOOTMU 

2DtC 

9.0249769  B-4 

C0559 

36,3662 

22343 

0 

0560 

36  * 3663 

31111 

1 

MU 

‘ 2DtC 

,0122774395  B+6 

(.0560 

36,3664 

32405 

1 

0561 

36,3665 

40010 

1 

ABSOLMIN 

2UtC 

-.999511590 

coyFi~ 

36  * 3666 

40042 

"0 

05611 

36,3667 

30276 

1 

VFACT 

20EC 

.761606218 

C05611 

36,3670 

05000 

1 

05612 

REF  2 L/\ST  9^^ 

36*3667 

TFACT 

tUUMU6  VhAWl ■ ------ 

05613 

36,3671 

00000 

1 

DEPCRIT 

iOtC 

1.135  E-7  50  MS.  SCALEO  BY  TNORM 

(.05613 

36,3672 

00036 

1 
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0001 


SuM  CHECK  End  OF  BAN<  MARKERS 
3S  IaiOROE  left 


user  * S OfrN  PATjE^O  • 


53 


■counr 
0002 
C0002 
— 0003 


00,3734 

00,3735 

01.3673 

01.3674 
" 575^3 


03734  1 
U3Y3'5~0“ 

03673  0 

03674  1 
05753  0- 


BNKSUM  00 


68  WORUS  LEFT 
20  TTOROE^LEFr^ 


BNKSUM  01 


b"NKS0MTI2“ 


C0003 

5754 

05754  1 

0004 

5 W0RU.5  LEFT 

7772 

07772  1 

BNKSUM  03 

" C0004' 

7773" 

■07773  0 

0005 

145  WORUS  LEFT 

04,3556 

03556  1 

BNKSUM  04 

C0005 

04,3557 

03557  0 

0005"" 

l"7r"V»"0RU5  LEFT 

05  *3524 

03524  1 

tJNXSUM"  ‘0^ 

C0006 

05,3525 

03525  0 

0007 

180  WORUS  LEFT 

06,3513 

03513  0 

BNKSUM  06 

• " C0007 

01573  5TA 

03514  1 

0008 

17  WORUS  left 

07,3756 

03756  0 

bNK.SUM  07 

C0008 

07,3757 

03757  1 

0009 

' 281  W0RU3  LEFT 

10,3346 

03346  0 

bNK.SOM  TO 

C0009 

10,3347 

03347  1 

0010 

3OI  WORUS  LEFT 

11,3322 

03322  1 

bNK.bUM  n 

cooro 

Tr73"?23 

03323  0 

0011 

107  WORUS  LEFT 

12,3624 

03624  1 

BNKSUM  12 

coon 

12,3625 

03625  0 

0012 

3T5  WORUS  LEFT 

13,3614 

03614  1 " 

bNKSUM  13 

L0012 

13,3615 

03615  0 

0013 

21  WORUS  LEFT 

14,3752 

03752  1 

BNKSUM  14 

C0013 

14,3753 

03753  0 

0014 

42  WORUS  LEFT 

15,3725 

03725  1 

BNKSUM  15 

C0014  ■ 

15,3726 

03726  1 

0015 

13"  WORUS  LEFT 

16*3762 

03762  1 

“tyNK'StrM — 

C0015 

16,3763 

03763  0 

0016 

8 WORUS  LEFT 

17,3767 

03767  1 

BNKSUM  17 

C0016 

1 7 ,3  7 7O 

~t)3770'l 

0018 

2 WORUS  LEFT 

20,3775 

03775  1 

BNKSUM  20 

L0018 

20,3776 

03776  1 

0019 

"16  VfOROS"  LEFT  “ 

2 1 *377 1 

"03T71'  t) 

UNKrSUM  2 1 

C0019 

21,3772 

03772  0 

0020 

29  WORUS  LEFT 

22,3742 

03742  0 

BNKSUM  22 

C0020 

22,3  743 

■■■03T43"! — 

0021 

268  WORUS  LEFT 

23,3363 

03363  1 

bNK.SUM  23 

C0021 

23,3364 

03364  0 

0022 

27~W0K0S 

24,3744 

03744  0 

BNKSUM  24 

C0022 

24,3745 

03745  1 

0023 

489  WORUS  LEFT 

25,3026 

03026  0 

BNKSUM  25 

COO 23 

00232 

C00232 

386 

InOKUS 

LEFT 

25,302  7 

26.3175 

26.3176 

03027  1 

03175  1 

03176  1 

BNKSUM 

26 

00235" 

120 

WORDS 

LEP-  T 

21 *3607 

03607  0 

BNKSUM 

27 

C00235 

27.3610 

03610  0 

0024 

6 

WORUS 

LEFT 

30,3771 

03771  0 

BNKSUM 

30 

CDTT2A 

"“30,3772 

■“0  3 77  2 0 
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L 

0025 

Sum  che(-^  eno  of 
762  nOROS  LEFT 

BANI^  MAK<tK5 
31,2^17 

02417  1 

bNwSUM  31 

USER'S  OWN  PAGETVO,  2 

S3 

ZUUI3 

0026 

C0026 

i,23  WORDS  LEFT 

31.2^20 

32.3130 

32.3131 

02420  0 

03130  0 

03131  1 

bNK.bUM  32 

CKJZ7 

C0027 

0028 

ITSTilURDS  LEFT 
16  WORDS  LEFT 

33,3522 

33,3623 

34,3757 

03522  I 

03523  0 
03761  1 

T3 

bNK.bUM  3A 

Ca028 

0029 

(.0029 

119  WORDS  LEFT 

34,3760 

36.3610 

35.3611 

03760  0 

03610  0 

03611  1 

bN^SUM  35 

TJCrjO 

C0030 

0031 

68  WORDS  LEFT 
27  WORDS  LEFT 

36.3673 

36.3674 
37,3744 

03673  0 

03674  1 
03744  0 

BNRSUM^E 
UNWSUM  37 

C0031 

J7T37A5 

03746  1 

0032 

NO  NEED 

BNKSUM  40 

0033 

NO  NEED 

BNF.SUM  41 

003A 

NimEED 

BNKSUM  42 

0036 

NO  NEED 

DNK.SUM  43 
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1 N TER-BANY-  COMMON!  CA  T I ON 


USER  • S OWN'  PAGE-Wi 


S3 


ROOOl 

"R0003" 


jHt  following  RUJTINE  CAN  BE  USED  TO  CALL  A SUBROUTINE  IN  ANOTHER  BANK.  IN  THE  bANKCALL  VERSION,  THE 
CAOR-  OFTFE  SUBROUTI-NE-TMMEOIATEEY  FOLLOWSK-HE  - TC- BANKCALL  INSTRUCTION,  WITH  C(A)  ANIF  C TL)  FRESEKVED, 


0005 

5206 

BLOCK 

02 

0Q06 

■Rrr 

' 6 

LfiST 

289” 

5~206 

S2  TZA~1 

B-ANKCALL  -UXCH 

”B0F2 

SAvt  n^coMiriti  a « l« 

0007 

REF 

2A9 

LAST 

922 

5207 

50  002 

0 

INDEX 

Q 

PICK-  UP  CAOR, 

0008 

5210 

3 0000 

1 

BNKCAL*2  CA 

0 

0TKT9 

-REF' 

250 

LAiiT 

9A8 

521TT 

2^  OOZ  0 

INCH 

■Q 

SO  WE  return  TO-TFtE  LOC,  AFTER  THE  CADR, 

RoolO 

5WCALL  IS 

identical 

TO  BANKCALL 

.»  except  IHAT 

the  CADR  arrives 

IN  A* 

0012 

rff 

161 

Last 

890 

5212 

59  001 

1 

SwCALL  IS 

L 

0013 

REF 

LAST 

307 

5213 

22  009 

0 

LXCH 

fbank 

SWIKH  BANKS,  SAVING  RETURN. 

001 A 

REF 

5 

Last 

338 

521^ 

7 5337 

1 

MASK 

LOWIO 

CaET  5UB-A0DRE.55  Of*  CAOR* 

0015 

RrF 

251 

LAST 

9A8 

5215 

56  002 

0 

XCH 

Q 

A,L  NOW  CONTAINS  DP  RETURN. 

0016 

ReF 

7 

Last 

5216 

52  129 

1 

OXLH 

BUF2 

RESIORING  INPUTS  IF  THIS  IS  A BANKCALL. 

TT0I7 

RtT 

252 

LAST 

9A8 

5217 

50  002 

0 

1 NUtX 

Q 

0018 

5220 

0 2000 

0 

IC 

10000 

SET  1 ING  0 TO  SWREIURN. 

- 0019 

RTF 

B 

Last 

9A8 

5221 

56  129 

0 

SWRETUKN  ACH 

BUF2  +1 

COMES  HERE  TO  RETURN  10  CALCER-.  C(A.L) 

0020 

Rff 

5 

LAST 

9A8 

5222 

56  009 

0 

XCH 

fbank 

are  preserved  for  RETURN. 

0021 

REF 

9 

last 

9<*0 

5223 

56  129 

0 

ACH 

BUF2  *1 

0022  . 

RZf 

10 

Last 

9A8 

5229 

0 0123 

1 

1 C 

BUF2 

Roo23  THe  following  ROUTINE  CAN  Be  USeD  AS  A UNILATERAL  JUMP  WITH  C(A,L)  PRESERVED  AND  THE  CADR  IMMEDIATELY 

R0026  following  THE  TC  POSTjUMP  INSTRUCTION. 


0026  REF  2S3  LAST  9AB  522S  56  002  0 POSTJUMP  ACH  Q SAVE  INCOMING  C(A). 

0027  REF  312  LAST  B66  5226  50  000  1 INUEA  A GET  CADR. 

“0028 ^ 5ZZ7 3' 0000  1 CA 0 

R0029  BANKJUMP  IS  tHE  SAMe  AS  PoSTJUMP,  e^<CePT  THAT  THe  CaDR  ARRIVES  IN  A, 


0031 

0032 

ref 

RLF 

6 

6 

Last 

Last 

998 

998 

5230 

5231 

59  009 
7 5337 

1 

1 

BANKJUMP 

IS 

MASK 

FBANK 

LOWIO 

-0033 

REF 

25A 

Last 

998 

5Z32 

56  ”002 

0 

XCH 

0 

0039 

REF 

255 

last 

998 

5233 

50  002 

0 

U+10000 

INDEX 

0 

0035 

5239 

1 2000 

1 

BNKJUP+9 

ICF 

10000 

RES^KRITTG— INPUT  CtAF  IF  this  WAS  A 
POSI JUMP. 


9 
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t 

iNTtR-^ANf;  COMMUNICATION 

USERiS  OWM  PA'GFTTO.  2 S3 

P0036 

THe 

FOLLOWING, routine  GETS  ' 

the 

return  CAOR  saved  by  swlall 

OR 

banklall  and  Leaves  it  in  a. 

0038 

REF 

7 

LAST 

9A8 

5235 

3 5337 

0 

MAKECAOR  LAF  LOWIO 

0039 

RfF 

11 

Last 

9A8 

5236 

7 0123 

0 

MASK  6UF2 

00  aB'  ■ 

RtF 

1'2 

La'ST 

9A9 

5^37 

6 0129^ 

cr 

“AD  ■0W2  *1 

OOAl 

RtF 

256 

LAST 

9A8 

52AO 

0 0002 

0 

1C  Q 

K0042 

THE 

following  routine  obtains 

THE  One  word  a1  the  address 

arriving  in  a*  and  leaves  IT  IN  A.  ENTER 

Roo^ 

WITH  JME  CAl^K  ilN  A, 

AT  OATA^ALL  WlTn 

JUINN  4 IN  U ir  INU|  OVVi  l^nilNVS  Ml  OUKUMV.AU  W1  |t1 

rooaa 

BITS 

IN 

BITS 

7-5  IN 

L (BITS  15-8  AND 

4- 

1 MAY  BE  JUNM,  debris  = MTEMP, 

INHInTS  for  about  165  MUSeC. 

00A5 

REF 

i-&2 

LA3T 

9A8 

5241 

54  UOl 

1 

UAIA^ALL  16  L 

save  CADR"  (B0CE“INTn3'T'TiE.‘Rn  • 

O0A5A 

5292 

0 0006 

1 

LX  1 end 

OOA55 

REF 

1 

5293 

00  001 

0 

READ  SUPERBNK 

THIS  prologue  makes  SUPtRSWITCH  VACUOUS. 

00A6 

REF 

163 

LAST 

9A9 

5299 

66  00 1 

0 

XCH  T. 

CaOK  iivi  A«  6Upt^t^l|S  ilN  L* 

00A65 

REF 

Z 

Last 

20 

5245 

59  125 

0 

SUPDACAL  IS  MPTEMR 

00  A 7 

REF 

7 

Last 

9A8 

5246 

66  004 

0 

ACM  FBANK 

SET  FBANK  FOK  “LTATA^ 

00A75 

5297 

0 0006 

1 

EXIEND 

OOaB 

REF 

2 

Last 

9A9 

5250 

09  007 

1 

KOR  SUPERBNK 

save  FBANK  IN  BITS  15-U.  AND 

OOA85 

re:f 

3 

Last 

9A9 

5251 

56  1E5 

I 

XCR^  MPTEMP 

bUPERBANIC  IN  IflTS  ^-5". 

00A9 

REF 

8 

LAST 

9A9 

5252 

7 5337 

1 

MASK  LOWIO 

00A95 

REF 

16A 

LAST 

9A9 

5253 

56  001 

0 

ACH  L 

SAVE  REL.  ADR,  IN  BANK,  FETCH  SUPERBITS. 

0050 

5259 

0 0004 

0 

jnminT  " 

BECAUSE  RUPT  DOES  NOT  SAVE  SUPERBANK, 

00505 

5255 

0 0006 

1 

EXIEND 

0051 

REF 

3 

LAST 

949 

5256 

01  00? 

1 

WRITE  SUPERBNK 

SET  SUPERBANK  FOR  DATA, 

0052 

REF 

165 

Last 

9A9 

5257 

50  001 

0 

INDEX  E 

00525 

5260 

3 2000 

0 

LA  10000 

0Ub3 

REF 

Last 

949 

5261 

56  12S 

1 

XCH  MPTEMP 

SAVE  1 ST  WD,  Fetch  OLD  tbank  and  suank. 

0053A 

5262 

0 0006 

1 

EXIEND 

00535 

REF 

LAST 

9A9 

5263 

01  007 

1 

WRITE  SUPERBNK 

RESIORE  SUPEKBANK. 

0775A 

5769 

0 0003 

1 

REtrrrrr 

005A5 

RfF 

8 

Last 

949 

5265 

54  004 

1 

IS  FBANK 

RESIORE  FBANK, 

0055 

REF 

5 

LAST 

9A9 

5266 

3 0125 

1 

LA  MPTEMP 

RECOVER  FIRST  WORD  OF  DATA, 

00555 

S267 

0 0002 

0 

RE  1 URN 

29  WDS,  DATACALt  "516  MU,  SUPDACAL  932  MU 

) 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 


(kain)  ' rAgl  950 


for  acjC:  revision  0 of  program^  burstizo  by  nasa  zoznob-ooa 


A."  ItVfER-BANK  COMMUNICAHON  " " TOER • 5 'OBN^  RTIOFAID;  3 Sj 


P0056 

the 

Following 

roJtImes  are 

identical  to  ranklall  and  SwCALL 

except 

that  they  are  used 

IN  interrupt. 

0058 

REF 

25 

last 

523 

5270 

52  073 

1 

IBNKCALL  DXLH 

RUPTRE&3 

USES 

RUPTRELi3,9  for  dp 

RETURN  address. 

0059 

REF 

257 

LAST 

999 

5271 

50  002 

0 

INDEX 

Q 

0U6U 

52  12“ 

J 0000 

i 

CAP 

u 

0061 

REF 

258 

LAST 

950 

5273 

29  002 

0 

INLK 

Q 

0062 

RLF^  166 

Las  1 

999 

5279 

SA  001 

1 

rSWC'AXL  T5 

L 

0063 

REF 

9 

LAST 

949 

5275 

22  009 

0 

LXLH 

FBANK 

0064 

REF 

9 

Last 

999 

5276 

7 5337 

1 

MASK 

LOWIO 

00163 

REF 

L/'ST 

950 

5277 

56  002 

0 

XCH 

sJ 

0066 

REF 

^6 

LAST 

950 

5300 

52  073 

1 

UXCH 

RUPTREG3 

0067 

REF 

260 

last 

950 

5301 

50  002 

0 

INDEX 

0 

0068 

5302 

0 2000 

0 

1 c 

c 

o 

c 

c 

0069 

REF 

19 

last 

523 

5303 

56  073 

0 

ISWREIRN  XCH 

RUPTREG9 

0070 

KEF 

10 

U/^6  1 

950 

5304 

56  009 

0 

XCH 

fBANK 

0071 

REF 

20 

Last 

950 

5305 

56  073 

0 

XCH 

RDP1REG9 

0072 

RfF 

27 

LAST 

950 

5306 

0 0072 

1 

IC 

RUPIREG3 

r 
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L ' Interbank  communication  useRi's  own  page  no.  A'"  53 

P0073  tHe  eoulowINg  subroutines  provide  to  iBb  basic  programmer  entry  inio  and  Return  from  any  interpretive 

Roots'  "COOTNTT  W'HICH  does  not  USe'  THE'  EWTeRTNG^CONTeNTS  of  U and  which  returns  via  DANZ'rG.  CTA)^ARD"C(U  are  saved. 

R0077  USER'S  RESPONSIBILITY  TO  FILL  IN  ADVANCE  THE  APPROPRIATE  OPERAND  AND  ADDReSS  REGISTERS  USeD  BY  THE 

R7KJT9 rNTERTJRnrvr^OtnNTT'Su'CH  ■AS-HFAT.T^aoE'r^AODRWOl^tTC-rr  AND^-TO  confirm  THAT"  THt  lITTERpRETl VE  CODl-mr  FIEETS  THE 

ROOBl  ABOVE  restrictions  wItH  RESPECT  TO  Q AND  DANZIG. 

ROO'8'2  'TUSePRET  AmD“  JSPRCADTT  7TO5T  NOT  BE  USeD"IN' INT'ERRUPI  • ' " “ 

R0083  1.  USePRET  accesses  INTERPRETIVE  CODINq  wHICH  CAN  BE  ENTERED  wUHOUT  CHANgINg  FbANk. 

aoTja?  the'Calling  sequence  is  as  follows:  ' 

A0086  L tc  USEPRET 

A00a7  L+1  TC.TCF  INTPRETX  TC.ICF  MEANS  TC  OR  TCP 

A0088  INTPRETX  IS  THE  INTERPRETIVE  CODING 

A0089  RETURN  IS  TO  L+2 


R0090  2.  usprcadr  accesses  interpretive  Coding  in  otHeR  than  tHe  useR'S  fbanr.  tHe  calling  seouence  is  as  follows: 


'aT50'92  L tc  UWCaDR 

AO093  L+1  CADR  INTPRETX  INTPRETX  IS  THE  INTERPRETIVE  CODING 

A009A  RETURN  IS  TO  L+2 


0095 

REF 

261 

Last 

950 

5307 

56  002 

0 

USEPRET 

xCh 

Q 

FETLH  Q,  SAVlNU  A 

0096 

REF 

6 

LAST 

291 

5310 

59  159 

0 

IS 

LUC 

L+1  TO  LOC 

0097 

REF 

X7 

L.AS  I 

BOO 

5311 

3 0006 

1 

LA  ■ ■ 

BBANK 

0098 

. RfF 

1 

5312 

59  155 

1 

TS 

BANKSET 

USER'S  BBANK  TO  BANKSET 

0099 

REF 

32 

LAST 

922 

6313 

3 7759 

0 

LA 

B1T8 

aioo 

RrF 

i 

531 A 

59  023 

1 

1 b 

EDOP 

EXI  1 lNSTR0CTT0N-^t)-E17Op 

0101 

REF 

262 

Last 

951 

5315 

3 0002 

0 

CA 

Q 

retrieve  original  a 

0102 

REF 

7 

LAST 

951 

5316 

0 

1 

1C 

LOC 

0103 

RfF 

8 

Last 

951 

5317 

59  159 

0 

usprcadr 

IS 

LOC 

SAVE  A 

010^ 

RfF 

33 

LAST 

951 

5320 

3 7759 

0 

LA 

B1T8 

oro5 

RFF 

2 

LAS  1 

951 

5321 

59  023' 

1 

1“S  - 

EDOP 

EXll  lN5TRDCrrrOlrTtr"EDOP 

0106 

REF 

18 

last 

951 

5322 

3 0006 

1 

LA 

BBANK 

0107 

RfF 

2 

Last 

951 

5323 

59  155 

1 

IS 

BANKSET 

USER'S  BBANK  TO  BANKSET 

RpF 

263 

L7ST 

951 

532A 

50  002 

0 

INDEX 

Q 

0109 

5325 

3 0000 

1 

CA 

0 

0110 

REF 

11 

LAST 

950 

5326 

59  009 

1 

IS 

FBANK 

interpretive  bank  to  FBANK 

OTir 

RFF 

10 

Last 

950 

5327 

7 5337 

1 

MASK 

LOW  10 

YIEEDS^MTERPRETIVE  RELATIVE  ADDRESS 

0112 

REF 

2bA 

LAST 

951 

5330 

56  002 

0 

XCH 

0 

interpretive  ADDRESS  10  Q,  FETCHING  L+1 

0113 

REF 

9 

LAST 

951 

5331 

56  159 

1 

XCFI 

LOC 

L+1  TO  LOC,  RLTRIEVING  ORIGINAL  A 

OTTA 

RET" 

1 

' '5JJ2~ 

T 5233 

T 

lU- 0^0000  
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■ 'L 

INFEFT-BATNK 

communication 

^ USERFS  OWATPAGE  ND. 

5 

S3 

Rout 

there  are 

FOUR  POSSIBLE  SETTINGS 

for  channel  07.  (CHANNEL 

07  contains  )He  superbank  Setting.) 

R0119 

R0I20 

R0121 

superbank 

SEITING  s-reg. 

pseudo-fixed 

VALUE  BANK  NUMBERS 

OCIAL  PSEUDO 
ADDRESSES 

R0122 

R012A 

SUPERBANK 

3 

OXX  2000 

- 37(7 

30  - 3 ( 

rOOOQ  - 107(77 

(WHERE  XX  CAN  BE  ANYTHING  AND 
WILL  usually  be  SEEN  AS  11) 

■ ' FTTnzS 

R0128 
R0130 

" SUPEKBANK 

- 

TOO  2000 

— 5 f f ( 

A O . A7 

110000  - 127777 

FA^^R  AS  IT'  C7(N  BE  SEEN, 
ONLY  BANKS  A0-A3  WILL  EVER  BE 
and  are  presently  AVAILABLE) 

RCnT2 

R013A 

R0136 

SUPERBANK 

SUPERBANK 

5 

6 

101  2000 

no  2000 

- 37(7 

- 3777 

50-57 
60  - fa( 

130000  - 1A7777 
150000  - 167(77 

(PRESErNTITY  NO'rTYVAlLABLE  TO 
THE  USER) 

(PRESENTLY  NOT  AVAILABLE  TO 

R0138 

1 ht  UbtK/ 

R01A2 

**»  THIS 

routine  maybe  called 

BY  any 

PROGRAM  located 

IN  Banks  oo  - 27.  i. 

E.,  NO  PROGRAM  LIVING  IN  ANY 

R014A 

superbank 

SHOULD 

' USE  SUPERSW. 

*** 

R0145  suPERSw  Maybe  calleu  in  this  fashion: 


ROlAfe  " CAF  ABBCON  WHERt  --"  ABBCON  ’ ' “BBCOrF^  SOMETHIN 

R0147  TGR  SUPERSW  (THE  SUPERBNK  BUS  ARE  IN  THE  BBCUN) 

ROIAB  ...  ... 

ROiAV i i 

R0150 

R0151  ORTN  THTS"  FASHIUN^! 


R0152  CAF  superset  WHERE  SUPERSET  IS  ONE  OF  THE  FOUR  AVAILABLE 

ROISA  . JCR  SUPERSW  SUPERBANK  BIT  CONSIANIS;- 


R0155 

R0157 

• • • 

• • • 
• 

SUPEROl  1 
SUPERIOO 

OCIAL 

OCIAL 

60 

100 

ROIbv 

R0161 

• 

• 

SOPERTOr 

SUPERllO 

OCTAr 

OCTAL 

-r-  rc 
o c 

75T63 

016A 

A0165 

REF 

5 Last 

9A9 

' 5333^ 
533A 

0 0006 
01  007 

1 

1 

SUPERSW  extend 
WRITE 

SUPERBNK 

WRIIE  BITS  7-6-5  OF  THE  ACCUMULATOR  INTO 
channel  07 

‘0'1"66 

A0167 

RrF 

951 

533  5 

0 0002 

0 

K 

Q- 

TE  TO  INSTRUCTTON  'FOLLOWING 
TC  SUPERSW 
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X JNTEKPRETpJ  05tK*b  OWN  PAtiE  NO.  I 5^ 

KOOOl  SCETIQN  1 DISPATCHER 

RO002  entry  to  the  INTERPRETER.  INTPRET  SETS  LOL  TO  THE  ElKST  INSTKOCTION,  BANKbEI  TO  THe  bbANK  OE  THE 

ROOOA  OBJECT  interpretive  PROCRAM,  AND  INTBIT15  TO  THE  blllb  CONTENTS  OE  E0ANE..  INTERPRETIVE  PROCRAMS  MAY  BE  IN 

TTaOTTS VTRTtTAEUr-T\EL“  BANKS"  PREbp^j-  ONTTER^WY  "SUPER -BANK  "SErTTNC-pTStTH  THE  RESTTClXTlWTH7rnPROeRAI>TS""fN'HrGH  BANKS 

Roods  (BIUS  OE  EBANK  s D do  not  ReFeR  to  UOWBANKS,  ANU  VICe-VeRSA.  IHe  INTeRPREIER  does  not  switch  SUPERbANKS, 

ROOlO  E-BANK  SWITCHINC  OCCURS  WHENEVER  GENERAL  ERASABLE  (100  - 3777)  IS  ADDRESSED. 


tJ0T2T“ 

6n2~ 

BLUCK 

-V3 

0013 

bll2 

0 0006 

1 

INTPRET 

EX  1 END 

SET  LOC  TO  THE  WORD  EOLLOWINC  THE  TC, 

0014 

REF 

10 

L/'  ST 

951 

6113 

22  154 

1 

UXCH 

LOC 

0015 

RfF 

19 

LAST 

951 

6114 

3 0006 

1 

+ 2 

(.A 

BBANK 

interpretive  branches  finish  here. 

OU  i 6 

RTF 

3 

LAST 

951 

6115 

54  155 

1 

1 S 

bank SET 

0017 

REF 

37 

Last 

810 

6116 

7 7745 

1 

hASK 

BIT15 

GET  15TH  BIT  EUR  INDEXABLE  ADDRESSES, 

0018 

REF 

LAST 

19 

6117 

54  105 

1 

1 s 

INTB1T15 

0019 

REF 

3 

LAST 

951 

6120 

54  023 

1 

1 s 

EDOP 

MAKE  SURE  NO  INSTRUCTIONS  LEFT  OVER 

&02T 

“RtF 

I 

6121 

1 6134 

0 

rcT ' 

NEW0P5 

PICK  UP  OP  CODE  PAIR  AND  BECIN, 

0022 

ref 

20 

Last 

953 

6122  22  006  1 INTRSM 

LXCH 

BBANK 

Resume  suspended  interpretive  uob 

0023 

REF 

109 

LAST 

939 

6123  1 6114  1 

ICE 

INTPRET  +2 
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F002A 

A1 

the  end 

OF  MOST  instructions 

>,  Control  is  given  to  daneig 

TO  DISPatCFi  the  NeXT  OPERATION, 

0026 

RtF 

12 

Last 

902 

6124 

54  153 

1 

NEWMOOE 

IS 

MODE 

prologue  for  mode-changing  instructions. 

^TTEF' 

4 

6125 

3 0155  0 UMNZIG 

LA 

~bankset 

St  1 SLFuKt  TLSTANg  SO  I HAT 

0028 

REF 

21 

last 

953 

6126 

54  006 

0 

1 s 

BBANA 

it  may  be  saved  direcily  by  chanjob. 

01129 

RLT 

4 

Last 

953 

612  7 ' 

173  023 

1 

NOTBNKSff 

LCS 

EDOP 

SEE  IF  AN  ORTTER  ^ODE  ISTCEFT  OVER  FROM 

0030 

ref 

1 

6130 

1 6143 

0 

ICF 

OPJUMP 

the  last  pair  retrieved,  if  so,  execute. 

A0031 

EDOP  IS  SET  TO  ZERO  ON  ITS  RE-EDITING. 

0032 

REF 

10 

LAST 

916 

6131 

10  067 

1 

CCS 

NEWJUb 

SEE  IF  A JOb  OF  HIGHER  PRIORITY  IS 

0033 

REF 

1 

6132 

1 5540 

1 

ICF 

CHANG2 

PRESENT.  AND  IF  SO,  CHANGE  JOBS. 

003A 

RcF 

11 

Last 

9S3 

6133 

24  154 

1 

INCH 

LOC 

ADVANCE  THE  LOCATION  COUNTER. 

R003A5 

ITRACE  (1) 

REFERS  TO 

"NEWOPS 

0035 

RfF 

12 

LAS  I 

6134 

50  l54 

1 

NEWOPS 

INUtX 

LOC 

ENTRY  TO  BEG  IM  B1F  PKX.  ING  OF  CODE  PAIR, 

0036 

6135 

3 0000 

1 

CA 

0 

MAy  be  an  opcode  PAIR  OR  A STORE  CODE, 

0037 

ref 

313 

Last 

948 

6136 

10  000 

0 

CCS 

A 

TESI  SIGN  AND  GET  DABS(A). 

0038 

RFF 

1 

6137 

1 6431 

0 

1 Ch 

DOST  ORE' 

HKULtbb  SlUKt  L(JUt* 

0039 

RfF 

■ 48 

LAST 

813 

6140 

0 4736 

1 

1C 

CCSHOLE 

TO  CATCH  some  TASK  USERS  OF  INTERPRETER. 

OOAO 

RFF 

5 

Last 

954 

6141 

54  023 

1 

IS 

EDOP 

OP  CODE  PAIR,  LEAVE  THE  OTHER  IN  EDOP 

OOAl 

REF 

b 

Last 

555 

6142 

7 5342 

0 

MASK 

L0W7 

WHERE  CCS  EDoP  WILL  HONOR  IT  NEXT. 

00a2 

RfF 

19 

Last 

939 

6143 

54  020 

1 

OPJUMP 

IS 

CYR 

LOWWD  enters  here  IF  A RIGHT-HAND  OP 

00a3 

REF 

20 

last 

954 

6144 

10  020 

1 

LCb 

CYR 

CODE  15  TO  BE  PROCESSED.  TEST  PREFICeS, 

tXCT^^ 

Ref 

1 

6 1 45 

1 6313 

1 

ICF 

0PJUMP2 

TtSI  S£L0WD~PREF IrX  , 

0046 

REF 

1 

6146 

1 7021 

1 

1 CF 

EXIT 

+0  up  CODE  IS  EXIT. 

633V36A  YuL  SYSTtM  (-Jh  AIjC!  REVISION  0 OF  PkOGrAM  BUrsI  12U  BY  NASA  ^021106-031  ’ DEC  !,  1967“  “ (MAIN!  PAGE  955 


L iNTEfiPRtTEK  ' " “ “ UStR'S’  OWN  PAGE  NO,  3'  S3 


P0046 

pROOESb 

addresses  which  may  be 

direct*  INDEXED' 

1 OR  reference 

the  pushdown  list. 

00A8  RfF  62 

Last  b19 

bl47 

7 7763  0 

ADDRESS  MASK 

BITl 

SEE  IF  ADDRESS  IS  INDEXED. 

CYR 

CONTAINED 

0049  REF  314 

LA5I  954 

6150 

10  000  0 

CCS 

A 

400XX,  SO  BIT  1 IS  NOW  AS 

IT  WAS  IN  CYR. 

OWCT  ^REF"  T 

^51 

F 6212  1 

1 Ch 

index 

FORM  “TNDEXETF71DDRESS  , 

0051  REF  13 

Last  954 

6152 

50  154  1 

DIRADRES  index 

LOC 

LOON  ahead  to  next  word  to 

SEE 

IF 

0052 

6153 

4 ooon 

OCTAO’CJOl  C5” 

1 

AUUKtbb  I5  CilvEN* 

0053  REF  315 

LAST  955 

6154 

10  000  0 

CCS 

A 

0054  RE.F  1 

6155 

1 6261  0 

ICF 

PUSHUP 

IF  NOT, 

0055 

6156 

77773  1 

NEG4  DEC 

-4 

0056  RpF  lA  Last  955 

0057  REF  1 


6157  24  154  1 

6160  54  106  1 


INLR  LOG 
IS  ADDKWO 


IF  60,  TO  SKOw^WE  nCKEO  UP  A WORD 
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C InTERPRE'TTR USER' 5 OWN  PACjE  NO.  ^ 5? 

P005B  FINAL  DIGESTION  oF  DIRECT  ADDRESSES  OF  OF  GODbS  WIIH  01  PRtFU  IS  DONE  HeRE.  IN  EACH  CASE,  THE 

FE0060  RlDUIR^D  iz-l3n  IjUB-ADDRESS  IS  Left  in  ADDRwD,--W1TH  any  required  E UR  F BANN  SWITCHTNG  done:,  addresses  Less 

ROObZ  THAN  45D  are  taken  TO  Be  relative  to  the  work  area.  IHe  OP  code  is  now  in  bits  1-5  OF  CYR  with  bit  1A  = 1. 


006A 

ref 

1 

6161 

6 6315 

0 

ad 

-endvac 

SEE  IF  ADDRESS  RELATjvL  TO  wOrk  ArEA. 

CKTe'S  " 

RET^  316 

Last 

955 

6 162 

10  000 

0 

xcs 

“A 

0066 

RfF 

1 

6163 

6 6392 

1 

ad 

-ENDLRAS 

IF  NOT.  See  If  in  general  erasable. 

0067 

REF 

1 

6169 

1 6171 

1 

ICF 

lERASTSl 

0068 

RfF 

33 

Last 

909 

6165 

3 0110 

1 

netzlro 

la 

FIXLOC 

IF  so,  LEAVE  IHE  MODIFIED  ADDRESS  IN 

0069 

REF 

Z 

Last 

955 

6166 

26  106 

1 

ADS 

ADDRWD 

ADDRWD  AND  DISPATCH. 

0070 

RpF 

21 

UA  b 1 

959 

6 i 6 / 

50  020 

0 

1 TR15 

CyR 

THIb  INDEX  MAnES  THe  NLaT  INSTRUCTIOIsi 

0071 

REF 

I 

6170 

7 6392 

0 

7 

INDJUMP  -1 

TCP  INDJUMP  + OP.  editing  CYR. 

DTJTT 

6T71 

0 0006 

1 

TFRASTST 

EXTEND 

0073 

RfF 

I 

617Z 

6 6202 

1 

bZMF 

GEADDR 

GO  PROCESS  general-erasable  ADDRESS. 

0079 

REF 

11 

Last 

951 

6173 

7 533  / 

1 

MASK 

LOWIO 

FIXED  BANK  ADDRESS*  RESTORE  AND  ADD  Bl5* 

0075 

REF 

IZ 

last 

956 

6179 

6 5337 

0 

AD 

LOWIU 

SwUcH  banks  and  leave  SuBADDReSS  in 

0076 

REF 

3 

Last 

956 

6175 

56  106 

0 

KCF1 

ADDRWD 

ADDRWD  FOR  OPERAND  RETRIEVAL.  (THIS 

0077 

•R  r r ■ 

6 

LAST 

95  3 

6176 

6 OIOS 

0 

AU 

1 NTb 1115 

METHOD  precludes  iJSt  OF  THE  LAST 

0078 

REF 

IZ 

Last 

951 

6177 

59  009 

1 

IS 

F6ANK 

location  in  each  FBANK.) 

0079 

REF 

zz 

Last 

956 

6ZOO 

50  020 

0 

ITRIZ 

INDEX 

CYR 

00795 

R 'f  F 

2 

LAST 

956 

6201 

f 6342 

0 

r ■ ■ ■ 

INDJUMP  -T 

0080 

REF 

IZ 

Last 

887 

6202 

7 9569 

0 

GEADDR 

MASK 

LOW  8 

~OOffOZ 

REF 

5 

LaSI 

30Z 

62U  J 

6 5352 

0 

AO 

OCT  1 400 

00803 

RfF 

4 

Last 

956 

6209 

56  106 

0 

XCFI 

ADDRWD 

00809 

REF 

67 

Last 

921 

6205 

59  003 

0 

IS 

EBANK 

Ouyufc) 

RET 

23 

Last 

956 

6206 

50  020 

0 

ITRIO 

INDEX 

CYR 

00807 

REF 

3 

last 

956 

6207 

7 6392 

0 

! 

INDJUMP  -1 

633‘t36A  YUL  SYSTtr'  AGC;  REVISION  0 OF  PROGRAM  BURSTIZU  BY  NASA  ZOZllOfe-Oal 
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L INTE^RWEtEH  VStRt'S  OWN  PaG^^NoV  ' 5 “ S3 


Roobi 

the 

following 

routine  processes 

' INTERRREIIVE  indexed  addresses,  an  interpreter  index  ReOISTER  may 

R00B3 

LOiNlAiN 

the 

AOORtSS  OF 

ANY  EKA5ADLE  ' 0- 

DtlN^  K^LAUVE  lU 

Tnt  VA^  AKErA)  OK  ANY  iNT£KFKETlVE  HKOLKAM 

R0086 

6aNK 

• OK  any 

integer  in 

that 

RANGE. 

0086 

REF 

1 

6210 

3 5396 

0 DOULOALJit 

CTVT^ 

DCTTAD* 

STOOL*  COMES  FIEFTE^  TO 'PROCESS  LOAD  ADR, 

0087 

RtF 

LAST 

956 

6211 

59  020 

1 

IS 

CYR 

(STOVL*  ENTERS  HERD  . 

0088 

Rlf 

34 

LAST 

956 

6212 

3 0110 

1 

INDEX 

CA 

FIXLOC 

SET  DP  INDEX  LOCATTON. 

0089 

REF 

1 

6213 

59  120 

0 

IS 

INDEXLOC 

0090 

RfF 

15 

Last 

955 

6219 

29  159 

1 

INCR 

LOC 

(ADDRESS  ALWAYS  GIVEN), 

a09T 

REF 

16 

LAST 

95  J 

6215 

50  159 

1 

INDEX^ 

L'DC 

0092 

6216 

4 OOOU 

0 

LS 

0 

0093 

REF 

317 

LAST 

956 

6217 

10  000 

0 

LCb 

A 

INDEX  2 IF  ADDRESS  STORED  COMPLEMENI ED, 

iTO9A 

RtF 

2 

LAST 

9b7 

6220 

29  120 

1 

INCR 

INDEXLOC 

0095 

6221 

1 6222 

1 

NOUP 

0096 

rlf 

5 

Last 

956 

6222 

59  106 

1 

rs^ 

ADDRWD 

"19  PIT  ADDRESS' TO  ADDRWD, 

0097 

Rlf 

1 

6223 

7 5351 

1 

mask 

H1GH9 

IF  ADDRESS  GREATER  THAN  2K,  ADD  INTblTi: 

0098 

6229 

0 0006 

1 

EX  1 END 

0099 

RLF 

X 

6225 

1 6230 

1 

bZK 

INDEX2 

0100 

REF 

7 

Last 

956 

6226 

3 0105 

0 

CA 

INTBU15 

0101 

REF 

6 

Last 

957 

6227 

26  106 

1 

AUS 

ADDRWD 

0102 

REF 

3 

Last 

95  7 

6230 

50  120 

1 

INDEX2 

INDEX 

INDEXLOC 

0103 

REF 

20 

LAST 

944 

6231 

4 0046 

1 

LS 

XI 

OlOA 

RLF 

/ 

Last 

957 

6232 

26  106 

1 

ADS 

ADDRWD 

DO  augment,  ignortng  and  correct ING  OVF 

0105 

REF 

1 

6233 

7 6390 

1 

MASK 

HIGH9 

SEE  IF  address  IS  IN  WORK  AREA, 

. 0106 

6239 

0 0006 

r ' 

“EXTEND 

0107 

RLF 

1 

6235 

1 6250 

1 

B2F 

INDWORK 

0108 

ref 

2 

Last 

95  r 

6236 

7 5351 

1 

MASK 

H1GH9 

SEE  IF  IN  FIXED  BANK, 

UiU9 

6"237 

0 OOW 

1 

EXTEND 

0110 

REF 

1 

6290 

1 6252 

0 

D2F 

INDERASE 

01  n 

RfF 

b 

Last 

957 

627.1 

3 0106 

a 

LA 

"ADDRWD 

IN  FIXED  - SWITCH"  BANKS  AMD  CREATE 

0112 

ref 

13 

Last 

956 

6292 

59  009 

1 

1 s 

FBANK 

sub-address. 

0113 

REF 

13 

LAST 

956 

6293 

7 533  7 

1 

MASK 

LOWIU 

01  lA 

RLh 

i 

■ 6299 

~6~7T5T 

~(r 

AD' 

^2ir- 

0115 

REF 

9 

Last 

957 

6295 

59  106 

1 

IS 

ADDRWD 

0116 

REF 

25 

Last 

957 

6296 

50  020 

0 

ITRll 

INDEX 

CYR 

0117 

4 

Last 

956 

6297 

3 63  92 

1 

“3 — ^ 

rNtwoMP  FI  ■ 

0118 

RLF 

35 

Last 

95  7 

6250 

3 Olio 

1 

INDWORK 

LA 

FIXLOC 

MAKE  ADDRWD  RELATIVE  10  WORK  AREA, 

■DTr?  RTF  I 6751  r ~^Z5(T^ FCF ITR 1 3“  -1 


0120 

ref 

6 

Last 

9S6 

6252 

3 5352 

0 

INDERASE  CA 

0CT1900 

01202  " 

"RTF 

10 

LT^ST 

957 

6253 

56  106 

0 

ACM 

ADDRwD 

01209 

REF 

68 

Last 

956 

6259 

59  003 

0 

IS 

EBANK 

01206 

REF 

13 

LAST 

956 

6255 

7 9569 

0 

MASK 

L0W8 

0 12 1 

ref 

1 1 

Last 

957 

6256 

26  106 

1 

-1 

AL)S-  - 

"ADDRWD 

“633^36*— njl-' SrSTEM  E 3R  AUC;  REVISION  0 OF  PROGRAM  BUKST120  BY  NASA  2021106-031 

'U  “IntERPRETFK 

01212  REF  26  LAST  951 


OStK'S  ohW'PA' 


1967  TFrATN)  PAGE  968 
GH^  6^ 


S3 


0T21V-  RET-  5 CA|f«^  ^ 62^ 


J4._. 


‘ fb%^~ 


•5C»' 

M 


I 


i 


0 
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L iTfERPRETER  USER'S  OWN  PAGE  NO.  7 53 

H0122  PUSH_UP  ROUTINES,  FiFIeN  NO  OPERAND  ADDRESS  IS  (il^EN,  IHe  APPROPRIATE  OPERAND  IS  TAkEN  FROM  TH£  PUSH-DOWN 

RoT2A tTSr.“TN^OSr“CA;SE^THFTMOTrE“OF“TFrrRE5ULT  (VECTOR  OR-^SCATARr^OF-THErTKSTTnTHMET It  o’PERA | ION  PERFORTTeO  ‘ 

R0126  IS  the  same  as  THE  TYPE  OF  OPERAND  DeSIReD  (ALL  ADD/SUBTRACl  ETG.),  EXGePTIONS  TO  THIS  GeNeRAE  RULE  ARE  LISIeD 

R0128  BELOW  (NOTE  THAT  iN  EVERY  CASE  THE  MODE  REGISTER  jS  LEFT  INTACT); 


R0129  1.  VXSC  AND  V/5C  WANT  THE  OPPOSITE  TYPE  OF  OPERAND,  E.O..  IF  THe  CAST  0PeRA|10N  YIeLDeD  A VeCTOR 

R0131  RESULT.  VXSC  WANTS  A SCALAR.  ^ 


0 


R0132  2.  the  load  Codes  should  load  the  accumulator  independent  of  the  Result  of  the  last  operation,  this 

R0I3A  ImCLUDES  VLOAD,  DLOAD,  TLOAD.  PDDL.  and  PDVL  (NO  PUSHUP  with  SLOAD). 


R013S  3.  Some  arithmetic  operations  require  a standard  type  of  operand  regardless  of  THe  previous  OPeRAUON. 

ROI37  THIS  INCLUUES  SI(jN  WANTING  Dp  AND  TAD  REQUIRING  Tp. 


0138 

ref  1 

6261 

3 9565 

0 PUSHUP 

(-At- 

0CT23 

IF  IHE  LOW  5 BITS  OF 

CYR  ARE 

Less  than 

0139 

REF  27 

Last 

9b8 

6262 

7 0020 

1 

MAbK 

CYR 

20,  THIS  OP  REQUIRES 

SPECIAL 

ATTENTION, 

" OjAO 

RfF  “ 1 

6263 

6 6266 

0 

AD 

-OCl 10 

(NO  -07  . 

0191 

ref  318 

LAST 

957 

6269 

10  000 

0 

CCS 

A 

0192  REE  1 6265  1 627?  1 I CF  REGUP  FOR  ALL  CODES  GREATER  THAN  OCT  7. 


0193 

6266 

77767 

1 

-OCTIO 

UCT 

-10 

0199 

REF 

1 

6267 

6 6156 

0 

AD 

WE  NOW  HAVE  7 - GTF^  CODE  (M0D9)  . SEE  IF 

0195 

R|F 

319 

last 

959 

6270 

10  000 

0 

CCS 

A 

THE  UP  CODE  (MOD9)  IS  three  (REVERSE). 

0196 

Ref 

320 

Last 

959 

6271 

50  000 

1 

INDEX 

A 

NO  - THE  MODE  IS  DEFINITE.  PICK  UP  IHE 

0197 

RrT 

1 

6272 

9 6310 

1 

LS 

NO.VyDS 

0198 

REF 

2 

LAST 

959 

6273 

1 6301 

1 

ICF 

REGUP  +2 

0199 

ref 

13 

Last 

959 

6279 

50  153 

0 

INDEX 

MODE 

"FOR  VXSC  AND  V/SC  YE  WANT  THE  REQUIRED 

0150 

ReF 

1 

6275 

9 6306 

0 

L5 

REVCNT 

PUSHLOC  decrement  WITHOUT  CHANGING  IHE 

0151 

REF 

3 

last 

959 

6276 

1 6301 

1 

ICF 

REGUP  +2 

MODE  AT  THIS  1 IME. 

0152 

REF 

19 

Last 

959 

6277 

50  153 

0 

REGUP 

INDEX 

MODE 

MOST  ALU  OP  CODES  PUSHUP  HERE. 

0153 

RfF 

2 

Last 

959 

6300 

9 6310 

1 

LS 

NO.WDS 

01 5 A 

REF 

2 

LA51 

909 

6301 

Z6  156 

1 

♦ 2 

ADS 

PUSHLOC 

0155 

REF 

12 

last 

957 

6302 

59  106 

1 

IS 

ADDRWD 

0156 

REF 

28 

Last 

959 

6303 

50  020 

0 

ITR19 

INDEX 

CYR 

0157 

REF 

6 

Last 

958 

6309 

7 6392 

0 

f 

INDJUMP  -1 

(THE  INDEX  MAKES  THIS  A TCF.) 

0158 

6305 

00002 

0 

UCI 

2 

REVERSE  PUSHUP  DECREMENT.  VECTOR  TAKES  2 

0159 

6306 

00006 

1 

REVCNT 

UCI 

_g 

WORDS, "SCALAR  TAKtS^ 

0160 

6307 

00006 

1 

UCI 

6 

0161 

6310 

00002 

0 

NO.WDS 

UCI 

2 

CONVENTIONAL  OECREMENl  IS  6 WORDS  VECTOR 

0162 

63  1 1 

00003 

1 

0CTAL3 

uC  1 

3 

2 IN  DP^,  and  3 IN'  TP. 

0163 

6312 

00006 

1 

OCl 

6 

^633436*  rUL  SrSTErrf-OR  AUC:  REVISrOW  0 OF  PROGRAM  BURST12U  PY  NASA  Z021106-031 
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L 

P0i6A 

iNTtRPfttTER 

TEST  the  SeCoNO  PR£F!X  BIT  TO 

See  if  this  is  a 

USLR'S  OWN  PAGE  NO.  B 

miscellaneous  uR  a umary/short  shift  operation. 

S3 

0166 

REF 

29 

EAST 

9b9 

6313 

10  020  1 

0PJUMP2 

CCS 

CYR 

TEST  SECOND  PREFIX  BI 1 . 

0167 

REF 

1 

6319 

1 6327  0 

(CF 

0PJUMP3 

TESl  THIRD  BIT  TO  SEE  IF  UNARY  OR 

SHIFT. 

0168 

6316 

77722  0 

-endvac 

DEC 

-95 

— 

ROl'69 

the: 

“F“0t^0wING 

“ROOTTNEnpROCESSES  'ADORE^SeS—QF^  SOFRI CLASS 

10.  they  ATRET  BTlSTCAX'tY'lYORlC'A-REA  addresses 

Rom 

IN  the  I 

range 

0 - b2.  erasable 

ecaor  Constants  from  loo  . 

- 3777.  AND 

FCADRS  ABOVE  THAT.  ALL  15  BITS  ARE  AVAILABLE 

R0173 

IN  contrast 

TO  SUFFIX 

1,  IN  WHICH  ONLY 

the  Low  order  19 

are  available. 

017A 

REF 

17 

LAST 

967 

6316 

29  169  1 

IbBiTAUK 

INCH 

LOC 

(ENTRY  HERE  FROM  STCALL) . 

017b 

REF 

18 

LAST 

960 

6317 

50  159  1 

iNUtX 

LOC 

PICK  UP  ADDRESS  WORD. 

Oi  76 

632U 

3 UUUU  i 

LA 

u 

0177 

Ref 

6 

last 

19 

6321 

59  107  0 

IS 

POLISH 

WE  may  NEED  A SUBADDRESS  LATER. 

018A 

Ref 

1 

6322 

3 6337  0 

LAh 

L0W7+2K 

THESE  rNSTROCTTOl'TS^ATTETN  BANK  I. 

018b 

REF 

19 

last 

9S7 

6323 

59  009  1 

IS 

FBANK 

0186 

REF 

30 

Last 

960 

6329 

7 0020  1 

MASK 

CYR 

0187 

RrF 

321 

last 

969 

6326 

50  000  1 

ITR7 

1 NUt  A 

A 

0188 

REF 

1 

6326 

1 6903  1 

ICF 

MI  sc JUMP 

‘633^35A  YUL  SYSTbl/  hOR  AtjC:-  RtVlSlON  0 OF  PHOgRAM 'bORS !1  iU  bY  NAb'A  ^021106-031 


DEC  7,  1967  (N.AIN)  PAQfc  961 


L INTERPRfctER  DStR'S  OWN  RA&E  NO.  9 “S'S 

P0196  CoMPLtit  tHE  dispatching  oP  UNARY  AND  SHuR  | SFIlFj  OPERATIONS, 


0197 

REF 

15 

LAST  960 

6327 

54  004 

1 0PJUMP3 

IS 

F8ANR 

CALL  IN  BANK.  0 (BUS  11-15  OF  A ARE  0.) 

R01975 

IIRACE  (6) 

REFERS  TO 

"0PJUMP3". 

^ 0198 

REF' 

31 

LA'S!  9^0 

^330" 

10  020 

1 

“CCb 

CYR 

TEST  THTRD  PREFIX^  HIT. 

0199 

REF 

322 

Last  960 

6331 

50  000 

1 

INDEX 

A 

the  decremented  unary  code  is  in  bus 

0200 

REF 

1 

6332 

1 2000 

1 

ICF 

UNAJOMP 

1-A  OF  A (ZERO,  EXIT,  HAS  BEEN  DETECTED) 

0201 

REF 

15 

LAST  959 

6333 

10  153 

1 

(.Cb 

MODE 

ITS  A SHORT  shift  CODE.  SEE  IF  PRESENT 

0202 

REF 

1 

633A 

1 2017 

1 

ICF 

SHORTT 

Scalar  or  vector. 

' 0203 

REF 

2 

Last  961 

6335 

1 2017 

1 

TQF 

5H0KTT 

020A 

REF 

1 

6336 

1 2121 

0 

ILF 

SHORl V 

CALLS  the  APPROPRIATE  ROUTINE, 

0205 

REF 

7 

LAST 

280 

9565 

0CT23 

= 

VDl 

0206 

6337 

02177  1 

LOW7+2K 

uci 

TT77 

OP  CODE  mask  ♦ BYTNKT— FTjANK  SETTING. 

0207 

63A0 

77700  0 

HIGH9 

UCf 

77700 

0208 

6391 

76000  0 

BANKMASK 

UCI 

76000 

fbank  mask. 

0209 

RLF  . 

1 

6391 

FBANXMSK 

EQUALS 

BANKMASK 

0210 

REF 

5 

LAST 

822 

5655 

B12T19 

z 

PRI039 

USEU  IN  PROCESSING  STORE  CODES. 

0211 

6392 

79056  1 

-ENDERAS 

DEC 

-2001 

= -12097  - 95  - 1) 

633^'t36A  TUX  SY5TEN'  EOR  AGC;  REvISIOrM  0 OF  PROGRAM  bURSTIZO  bY  NASA  20Z1106-U31  DEC  7,  19X7 fMAIN)  PAGE  96Z 

1 ibTERPRETp’  : USER'S'  OtiN  PAGE  TO.  To  S3 

P0212  THE  following  IS  THg  JUMP  Ubl-E  FOR  OP  GuOeS  MAY  HAvE  iNOExAbLt  ADDRESSES  OR  MAY  PUSH  UP, 


0Z14 

REF 

1 

6343 

1 

6563 

0 

INDJUMP  ICF 

VLOAD 

00 

LOAD  MPAC  with  A VECTOR. 

0Z15 

REF 

1 

6344 

1 

7142 

0 

ICF 

TAD 

01 

- 

TRIPLE  PRECISION  ADD  TO  MPAC. 

OZTX 

“REF“^ 

T ' 

63^5 

X 770r  1 

1 Ch 

STXjN 

• - 02 

COMPLEintT'rrnPAC  (V  OFF  SC)  IF  X NEG, 

0Z17 

REF 

1 

6346 

1 

7460 

0 

ICF 

vxsc 

03 

- 

VECTOR  TIMES  SCALAR. 

OZIB 

REF 

1 

6347 

1 

6761 

0 

ICF 

CGOTO 

0^ 

- 

COMPUTED  GO  TO. 

0719 

REF 

Z L/^ST 

6350 

1 

65 '^6 

1 

1 c^ 

tload 

05 

“ 

L0A13  MPAC  TyITH  TRTF»XE  PRECISION, 

OZZO 

REF 

1 

6351 

1 

653  t 

1 

ICF 

DLOAD 

06 

- 

LOAD  MPAC  WITH  A DP  SCALAR. 

OZZl 

REF 

1 

6352 

1 

7656 

1 

ICF 

V/SC 

07 

- 

VECTOR  DIVIDED  BY  SCALAR. 

02ZZ 

REF 

1 

6353 

1 

6557 

1 

ICF 

SLOAD 

10 

LOAD  MPAC  IN  SINGLE  PRECISION, 

0Z23 

ref 

1 

6354 

1 

6676 

1 

ICF 

SSP 

11 

- 

SET  SINGLE  PRECISION  INTO  X. 

OZZA 

REF 

1 

6355 

1 

6601 

1 

ICh 

PDDL 

12 

PUSH  DOWN  MPAC"  AND'RE-LOAD  IN  UP, 

0ZZ5 

RpF 

1 

6356 

1 

7413 

1 

ICF 

MXV 

13 

matrix  PoST-MULTlPLIEU  BY  VECTOR. 

0ZZ6 

REF 

1 

6357 

1 

6635 

0 

ICF 

PDVL 

14 

- 

PUSH  DOWM  AND  VECTOR  LOAD. 

DZ27 

REF 

1 

6360 

1 

6704 

0 

ict- 

CCAEL 

15 

COMPUTED  CAXX".  " 

OZZB 

REF 

1 

6361 

1 

7416 

1 

ICF 

VXM 

16 

- 

MATRIX  PRE-MULT IPLIED  BY  VECTOR. 

0ZZ9 

ref 

1 

6362 

1 

7650 

1 

ICF 

TSLC 

1 7 

“ 

NORMALIZE  MPAC  (SCALAR  ONLY). 

0Z30 

.REF 

1 

6363 

1 

7626 

0 

ICF 

DMPK 

20 

- 

DP  MULTIPLY  AND  ROUND. 

0231 

REF 

1 

6364 

1 

7631 

0 

ICF 

DDV 

21 

“ 

Dp  DIVIDE  BY. 

0232 

REF 

1 

6365 

1 

7635 

1 

rch 

'8DDV 

22 

• 

OP  D IVTOF  TNTO.  ' ' 

0233 

Ref 

1 

6366 

1 

7653 

1 

ICF 

GSHIFT 

23 

• 

GENERAL  SHIFT  INSTRUCTION. 

0234 

REF 

1 

6367 

1 

7025 

0 

1 CF 

VAD 

24 

- 

VECTOR  ADD. 

023^ 

RfF 

1 

6370 

1 

7053 

1 

I Cf- 

VSD 

25 

• 

VECTOR "SUBTRACT. 

0236 

RfF 

1 

6371 

1 

7103 

0 

ICF 

0VSU 

26 

- 

VECTOR  subtract  FROM, 

0237 

REF 

1 

6372 

1 

7410 

1 

ICF 

DOT 

27 

- 

VECTOR  DOT  PRODUCT. 

023B 

REF 

1 

6373 

1 

7540 

0 

ICF 

VXV 

30 

* 

VECTOR  CROSS  PRODUCT. 

0239 

ref 

1 

6374 

1 

7504 

0 

ICF 

VPROJ 

31 

- 

VECTOR  PROJECTION. 

'0240 

REF 

1 

6375 

1 

7071 

1 

1C.H 

DSU 

32 

• 

DP  SUBTRACT.  ' 

0241 

ReF 

1 

6376 

1 

7127 

0 

ICF 

BDSU 

33 

- 

DP  SUBTRACT  FROM. 

0242 

REF 

1 

6377 

1 

7043 

0 

ICF 

DAD 

34 

- 

DP  ADD. 

02i^3 

6^00 

1 

6AUU 

1 

1 Ch 

* 

A'VAIXABLX ' 

0244 

REF 

1 

6401 

1 

7624 

1 

ICF 

DMPl 

36 

• 

DP  MULTIPLY, 

0245 

REF 

1 

6402 

1 

7645 

0 

ICF 

SETPD 

37 

- 

SET  PUSH  DOWN  POINTER  (DIRECT  ONLY) 

ROZA&  codes  10  AND  u MUST  NOT  PUSH  UP.  CODE  04  MAY  BE  USED  FOR  VECTOR  DECLARE  BEFORE  PUSHUP  IF  DESTRED. 
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L rNTERPRtTFK  USEKTS  OWN  page  No.  U 53 

P02A8  the  following  JUMP  TABLE  APPLIES  TO  INUEA,  BRANCH,  AND  MISCeLLANEOOS  INStRU-J^IONS. 


0250 

REF 

1 

6A03 

1 

2626 

0 

MI  sc JUMP  ICF 

AXT 

00 

- 

ADDRESS  TO  INDEX  TRUE. 

0251 

ref 

1 

6A0A 

1 

2633 

1 

ICF 

Axe 

01 

- 

Address  io  index  complemented. 

^25T2 

ReF- 

6905 

1 

2636 

1 

lU* 

LXA 

02 

• 

LOAD  INDEX  FROM  ERA5ABLT, 

0253 

Ref 

1 

6906 

1 

2692 

1 

ICF 

LXC 

03 

- 

LOAD  index  from  COMPLEMENT  OF  ERAS. 

. 025A 

RfF 

1 

6907 

1 

2696 

0 

ICF 

SXA 

OA 

- 

STORE  index  in  erasable. 

0255 

REF 

1 

6910 

1 

2659 

0 

ICT 

XCHX 

Ob 

— 

exchange^index  with  erasable. 

0256 

REF 

1 

6911 

1 

2670 

0 

ICF 

I NCR 

06 

- 

increment  index  REGISTER. 

0257 

ref 

1 

6912 

1 

2677 

1 

ICF 

TlX 

07 

- 

TRANSFER  ON  INDEX, 

0258 

RFF 

1 

6913 

1 

2662 

0 

ICF 

XAD 

10 

- 

INDEX  REGISTER  ADD  FROM  ERASABLE. 

0259 

REf 

1 

6919 

1 

2673 

0 

ICF 

XSu 

11 

- 

index  Subtract  from  erasable. 

0260 

REF 

1 

6915 

1 

2751 

1 

1 Ch 

BZE/CdOTO 

12 

• 

BRANCH  ZERO  AND  GOTO. 

0261 

REF 

1 

6916 

1 

2756 

0 

ICF 

BPL/tlMN 

13 

• 

BRANCH  PLUS  AND  BRANCH  MINUS. 

0262 

RfF 

1 

6917 

1 

2731 

1 

ICF 

RTB/BHU 

19 

- 

RETURN  TO  BASIC  AND  BRANCH  HI  ZERO. 

0263 

REF 

I 

6920 

1 

2771 

0 

1 Ch 

CALLfFlTA 

13 

" 

GAEL  AI^D  STORE^BPRET. 

026A 

REF 

1 

6921 

1 

3000 

0 

ICF 

Sw/ 

16 

- 

SWITCH  instructions  AND  AVAILABLE. 

0265 

Ref 

1 

6922 

1 

2791 

0 

ICF 

BOV (B) 

17 

- 

BRANCH  ON  OVERFLOW  TO  BASIC  OR  INT. 
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P0266 

the  following  jump 

table  APPIER 

TO  UNARY  INblRUCT IONS. 

0267 

00,2000 

bANK 

0 

00 

EXIT  - UETECTEO  EARLIER. 

0268 

ref 

1 

00,2000 

1 3167  0 

UNAJUMP  I CF 

SORT 

01 

" 

square  ROUT. 

DZ5P 

00, '2001 

^T^SSTT  O' 

TCI' 

SENE 

• 02 

SEFr. 

0270 

REF 

1 

00,2002 

1 3500  0 

1 GF 

GOSINE 

03 

- 

COS. 

0271 

REF 

1 

00,2003 

1 3571  0 

TCF 

ARGSIN 

OA 

- 

ARC  SIN, 

" " T0272' 

'REF  ' 

'1 

00,2007,' 

1 3573  1 

TO- 

A'RCCDS 

05 

“ 

ARC  COSE 

0273 

REF 

I 

00,2005 

1 3159  0 

IGF 

DSQ 

06 

- 

DP  SQUARE. 

027A 

ref 

1 

00,2006 

1 2116  1 

IGF 

ROUNO 

07 

- 

ROUND  TO  DP, 

0275 

REF 

1 

00,2007 

1 7722  0 

IGF 

COMP 

10 

. 

complement  vector  or  scalar. 

0276 

REF 

1 

00,2010 

1 3212  1 

IGF 

VOEF 

11 

- 

VECTOR  define. 

0277 

REF 

1 

00,2011 

1 3002  1 

1 Ch 

UNIT 

12 

• 

UNIT  VECTOR, 

0278 

REF 

1 

00,2012 

1 3156  1 

IGF 

ABVALABS 

13 

- 

LENGTH  OF  VECTOR  OR  MAG  OF  SCALAR, 

0279 

REF 

1 

00,2013 

1 3226  0 

IGF 

VSO 

19 

“ 

SQUARE  OF  LENGTH  OF  VECTOR, 

02^0 

REF 

1 

00,2019 

1 6923  0 

1 Ch 

STAUR 

15 

* 

POSH'  OP  ON'STOKE  'CODE', 

0281 

REF 

1 

00,2015 

1 3256  1 

IGF 

RVO 

16 

- 

RETURN  VIA  OPRET, 

0282 

REF 

1 

00,2016 

1 3231  0 

IGF 

PUSH 

17 

- 

PUSH  MPAG  DOWN, 
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L 

interpreter 

UStR*5  OWN  PAGE  NO.  13 

53 

P0283 

SECTION  2 Load  and 

store  package. 

R0284 

R0286 

A S£T  OP'EIOHT  store  CODeS  IS  PROViDtD  AS  tHe  PRIMARY  METHOD  OE  StOHINCj  jHe  MULtI-PURPOSe 

accumulator  (mpac).  if  in  the  Danzig  section  loc  kePeRs  to  an  algebraically  positive  word,  it  is  taken 

AS  A 

W^288 

R0290 

'-UU'F  WITH  A ^OKRt^H’OiNL'lNb  tKAoADLt  nuoi  Ur  Tnt^E  »wgLiEi  AKE  T«0  AUUKE35V^>'t^Tr TANG  THAT  THE  WOHU 

Following  tHe  sjuKe  CoDe  is  to  be  useQ  as  an  AUOKtSb  from  which  to  ke.load  mpac.  four  options  are  available; 

R02?2 

R029A 

R0296 

1.  STORE 

2.  STODL 

3.  STOVL 

STORE  MPAC.  the  E AUUKeSS  MAY  BE  INDEXED, 

STORE  MPAc  AND  RE-LUAD  II  IN  Dp  wIIH  THE  NEXT  ADDRESS  (THE  LOAD  mAY  BE 
store  mpac  AND  RE-LUAD  A VECTOR  (AS  ABOVE). 

INDEXED) . 

R'029  6 

4.  5TCALL 

STORE  AND  DO  A CALL  (BOTH  ADDRESSES  MUST  BE  DIRECT  ~HET:ETT 

RQ300 STUPE  and  stovl  »(1LL  take  trom  [He  push-down  list  ip  no  load  mddkess  is  given. 


03015 

6423 

■ BLOCK 

■3 

0302 

REF 

5 

Last 

95^t 

6423 

3 0155 

0 

STAOR 

CA 

BANKSET 

the  STADR  code  (PUSHUP  UP  ON  STORE 

0303 

RrF 

lb 

Last 

961 

6424 

54  004 

I 

1 s 

fbank 

ADDRESS)  ENTERS  HFRF. 

O30A 

REF 

19 

LAST 

960 

6425 

24  154 

1 

INCH 

LOC 

0306 

REF 

20 

Last 

965 

6 A26 

50  154 

I 

ITRl 

INDEX 

LOC 

the  storecode  was  stoked  complemented  to 

0306 

6427 

4 0000 

0 

CS“' 

0 

matte  ITTOOK  ITTKE^AN opcode T>AIR, 

0307 

Ref 

7 

Last 

523 

6430 

6 7771 

1 

AD 

negune 

(YUL  CANT  REMOVE  1 BECAUSE  OP  EARLY  CCS) 

0308 

REF 

13 

Last 

9S9 

6431 

54  106 

1 

DOSTORE 

i 5 

ADDRWD  “ 

0309 

ref 

10 

last 

405 

6432 

7 4563 

1 

mask 

LOwU 

entry  from  DISPATCHER.  SAVE  THE  ERASABLE 

0-310 

REF 

14 

Last 

965 

6433 

56  106 

0 

XCH 

ADDRWD 

ADDRESS  AND  JUMP  ON  THE  STORE  CODE  NO. 

TT3ir 

“REF 

1 

6434 

7 5655 

0 

"MASK 

~BTZTT4 

0312 

6435 

0 0006 

1 

EX  1 END 

0313 

ref 

32 

Last 

823 

6436 

7 7757 

1 

MP 

BITS 

EACH  transfer  vector  ENTRY  IS  TWO. WORDS, 

031A 

RfF 

323 

Last 

961 

643  7 

50  000 

1 

ITRO 

INDEX 

A 

0316 

REF 

1 

6440 

1 6441 

1 

ICP 

STORJUMP 

633936A 

^ruL 

system  for  AGCT 

revision 

0 OF  PROGRAM 

BURST120  BY 

NASA'  2021106-031 

DECrr*  1^7  (MAIN)  ' PAGE  g66 

C 

iMTERPRtTER 

TJStR«S  OWN  PagF  no.  19  S3 

F0316 

SIURe  CUOe 

JUMP  table,  calls  the 

appropriate 

storing  ROUl INe 

AND  eAItS  to  DANEIG  OK  TO  ACDReSS  WITH 

^ “ 'R0318 

A 5UPPLI&D  OPtRATIO^ 

1 code. 

0319 

REF 

1 

6991 

0 6971 

0 STORJUMP  TC 

STOKE 

STOKE. 

~Z  CAST  9sr 

6YT92 

I 613  3 

1 

1 tr 

NEWOPS  -1 

PICK  UP  IVEVnjp  CDOETCSTT 

0321 

RpF 

1 

6993 

0 646  3 

0 

IC 

STOKE.l 

0322 

REF 

3 Last  966 

1 6133 

1 

ICE 

NEWOPS  -1 

03T3 

RTF 

1 

6995 

0 6966 

0 

rc 

STOKEtZ 

0329 

Ref 

9 LAST  966 

1 6133 

1 

ICE 

NEWOPS  -1 

0 J2S 

REF 

2 last  966 

0 6971 

0 

TC 

STORE 

STOOL. 

0326 

REF 

1 

6 A50 

1 652  A 

0 

1 CE 

DODLOAD 

0331 

REF 

3 Last  966 

6951 

0 6971 

0 

TC 

STOKE 

STOOL  WITH  indexed  LOAD  ADDRESS, 

0332 

REF 

1 

6452 

1 6210 

0 

ICE 

DODLOAD* 

03J7  ReF  L/S5T  966  6953  0 6971  0 TC  “ STORE  STOVE, 


0338 

Ref 

1 

6959 

1 6533 

1 

TCE 

OOVLOAD 

0343 

REF 

5 

Last 

y 66 

6455 

0 6971 

0 

T C 

STORE 

STOVL  WITH  INDEXED  LOAD  ADDRESS, 

0399 

REF 

1 

6956 

1 6535 

0 

ICE 

OOVLOAD* 

0399 

REF 

6 

last 

966 

6957 

0 6971 

0 

IC 

STOKE 

STOIC. 

0350 

REF 

1 

6960 

3 5344 

I 

LAh 

CALLCUDE 

0351 

REF 

32 

last 

961 

6461 

59  020 

1 

IS 

CYR 

0352 

REF 

1 

6962 

1 6316 

1 

ICE 

15B1 IADK 

GET  A 15  BIT  ADDRESS. 
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PQ353 S1URE  C.UDE  ADDRESS  PROCESSOR. 


03  5 A 

REF 

36 

Last 

957 

6463 

50  110 

1 

STORE. 1 

INUEX 

FIXLOC 

0355 

REF 

21 

Last 

95  7 

6464 

A 00A6 

1 

LS 

XI 

03^6 

17FF 

r 

6A65 

1 6A70 

CT 

nxF 

■PRPSTORE 

0357 

REF 

37 

Last 

967 

6466 

50  110 

1 

STORE, 2 

INDEX 

FIXLOC 

0358 

RpF 

6 

LTAST 

9A0 

6467 

A 00A7 

0 

cs 

X2 

0359 

Ref 

15 

Last 

965 

6A70 

26  106 

1 

PRESTOKE 

AOS 

AOORwO 

RESULTANT  address  IS  IN  ERASABLE, 

0360 

REF 

16 

LAST 

967 

6A71 

A 0106 

1 

5 1 ORt 

LS 

ADDTTwD 

03605 

RpF 

1 

6A72 

6 5353 

1 

AD 

DECA5 

0361 

RfF 

3^<t 

Last 

965 

6A73 

10  000 

0 

LCS 

A 

DOES  the  address  POINI  TO  THE  WORK  AREA? 

03615 

REF 

38 

Last 

967 

6A7A 

3 0110 

1 

LA 

FIXLOC 

YES* 

0362 

REF 

1 

6A75 

1 6502 

1 

ICF 

AHEAD5 

03625 

REF 

7 

LAST 

957 

6A76 

3 5352 

0 

LA 

OCTIAOO 

NO.  SET  EBANK  6 MAKE  UP  SUBADDRES5. 

0363 

REF 

17 

LAST 

967 

6A77 

56  106 

0 

ACH 

ADDRWD 

036A 

REF 

69 

LAST 

957 

6500 

5A  003 

0 

1 S 

EBANK 

0.365 

REF 

lA 

LAST 

95  t 

6501 

7 A56A 

0 

MASK 

L0W8 

0366 

REF 

18 

Last 

967 

6502 

26  106 

1 

AHEAD5 

AOS 

ADDRwD 
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L'  Interpreter  user's  own  PmGetno,  T6  S3 

R0367  storing  Routines.  sjoRe  dp.  ip.  or  vector  as  indicated  by  mode. 


0368  6603  0 0006  I STARTSTO  EXTEND 

R03685  ITRACE  (5)  REFERS  TO  "STARTSTO". 

'“0369  ■ R'Ef^B^R'  L ST  9A0  6T0'A  3'0TA5"I  pCh  "MRAC 

0370  RfF  19  UST  96  7 6505  50  106  0 INDEX  ADDRwD 

0371  6506  52  001  1 UXCH  0 


0372 

REF 

16 

Last 

961 

6507 

10  153 

1 

CCS 

MODE 

0373 

REF 

1 

6510 

1 6523 

1 

ICF 

TSTURE 

037A 

RfF 

266 

LAST 

952 

6511 

0 0002 

0 

1C 

0 

0375 

6512 

0 0006 

1 

VSTORE 

EXTEND 

0376 

REF 

390 

Last 

968 

6513 

3 0150 

0 

DCA 

MPAC  +3 

0377 

RfF 

20 

LAST 

968 

651A 

50  106 

0 

INDEX 

ADDRWD 

0378 

6515 

52  003 

0 

UXCH 

2 

0379 

6516 

0 0006 

1 

EXTEND 

0380 

REF 

391 

Last 

960 

6517 

3 0152 

1 

DCA 

MPAC  +5 

■ 0381 

REF 

21 

Last 

968 

6520 

50  106 

0 

I NDEX 

ADDRWD 

0382 

6621 

52  005 

0 

DXCH 

0383 

REF 

267 

Last 

968 

6522 

0 0002 

0 

1C 

Q 

038A 

REF 

392 

Last 

968 

6523 

3 0146 

1 

TSTORE 

CA 

MPAC  +2 

0385 

REF 

22 

last 

968 

652A 

50  106 

0 

index 

ADDRWD 

07F6 

6525 

54  002 

1 

1 s 

0387 

REF 

268 

LAST 

968 

6526 

0 0002 

0 

1C 

Q 

MPAC,+l  MUST  BE  STORED  IN  ANY  EVENT. 
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L 

InTEKPRSTEH 

USER  I S OWN  PAGE  NO,  17 

S3 

^'0^S8 

routiner 

TO  begin  processing  of 

the  selono  auoress  associate^ 

with  all  ST0RE_TYPE  codes  except 

store 

R0390 

USELP. 

0391 

REF 

1 

6527 

3 5395  0 

PODLOAO  LAP 

DLOADLOD 

0792 

“REF- 

33 

LnST  966 

6530 

“79  020^1 

1 s 

CW 

0393 

REF 

X 

6531 

1 6152  0 

ICP 

DIRADRES 

GO  get  A DIRECT  ADDRESS. 

039^ 

REF 

1 

6532 

3 7795  0 

DOVLOAO  CAP 

VLOAOCOD 

0395 

REF 

39 

Last  969 

6533 

59  020  1 

IS 

CYR 

0396 

REF 

2 

LAST  969 

6539 

1 6152  0 

ICP 

DIRADRES 

0397 

REF 

1 

6535 

3 6153  0 

DOVLOAO*  LAP 

VLOAD* 

0398 

REF 

2 

LAST  966 

6536 

1 6211  1 

ICP 

DODLOAD*  +1 

prologue  to  index  ROUIINE, 

V33V36A  'ruir  SYSTEM  roR  AGC:  revision  O of  program  BURST120  by  NASA  <!02U06-031 


0EC^7,  1967^ 


TMATN)  " PATnr  970 


L 

interpreter 

UStRiS  OWN  PAGE"  NO.  ^'8  S3 

P0399 

the 

Following 

LOAD 

instructions  are  PROVIUeL)  FOR  LOADING 

the  multi-purpose  accumulator  MPAC. 

0901 

6537 

0 0006 

1 

DLOAD 

EX  1 END 

0902 

ref 

23 

Last 

968 

6590 

5 0106 

0 

INDEX 

ADDRWD 

" 09'D’3 

6^41 

5 ocroi 

0 

T7CA 

0 

PICX  UP  TIP  AKGDMENT  AND  LEAVE  IT  IN 

0909 

REF 

393 

last 

968 

6592 

52  195 

0 

SL0AD2 

OXLH 

MPAC 

MPAC,*1,  SETTING  MPAC  *2  TO  ZERO.  THE 

0905 

RfF 

263 

LAST 

939 

6593 

3 7767 

0 

LAI- 

2ERU 

CONTENTS  OF  THE  OTHER  FOUR  REGISTERS  OF 

a9Er6 

KCr  -^94 

LAST 

9T0 

6544 

54  146 

0 

i S 

MPAC  +2 

MPAC  are  irrelevant. 

0407 

ReF 

4 

Last 

361 

6595 

1 6129 

1 

IGF 

NEWMDDE 

DECLARE  DOUBLE  PRECISION  MODE, 

04^08 

REF 

24 

Last 

970 

6546 

50  106 

0 

TLOAO 

INDEX 

ADDRWD 

0409 

6597 

3 0002 

0 

LA 

2 

LOAD  A TRIPLE  PRECISION  ARGUMENT  INTO 

0410 

REF 

395 

last 

970 

6550 

59  196 

0 

IS 

MPAC  *2 

THE  FIRST  three  MPAC  REGISTERS,  WITH  THE 

0411 

6 5 51 

0 0006 

1 

tX lEND 

CONIENTS  OF  TFIT  OTHER"  FOUR  IRRELEVANT. 

0912 

REF 

25 

last 

970 

6552 

5 0106 

0 

INDEX 

ADDKWD 

0413 

6553 

3 0001 

0 

OCA 

0 

0414 

Rp  F 

396 

LAST 

970 

6554 

52  195 

0 

MPAC 

0915 

REF 

162 

last 

939 

6555 

3 7763 

1 

CAF 

ONE 

0916 

ref 

5 

last 

970 

6556 

1 6129 

1 

ICF 

NEWMODE 

declare  TRIPLE  PRECISIOK  MODE. 

0917 

6557 

22  00  7 

0 

SLOAD 

9L 

LOAD  A SINGLE  PRECISION  NUMBER  INTO 

0918 

REF 

26 

LAST 

970 

6560 

50  106 

0 

INDEX 

ADDKWD 

MPAC,  SETTING  MPAC*1,2  TO  ZERO.  THE 

■ 0419 

6561 

3 0000 

1 

LA 

Q-  - 

CONIENTS  OF  THE"TiEMATlNlNG  MPAC  REGISTERS 

0920 

REF 

6 

Last 

659 

6562 

1 6592 

0 

ICF 

5LOAD2 

ARE  IRRELEVANT. 

0921 

6563 

0 0006 

1 

VLOAD 

EXTEND 

LOAD  A DOUBLE  PRECI'SION  VECTOR  INTO 

0922 

REF 

27 

Last 

970 

6569 

5 0106 

0 

INDEX 

ADDKWU 

MPAC,+1,  MPAC+3,9,  AND  MPAC*5,6.  THE 

0923 

6565 

3 0001 

0 

DCA 

0 

CONTENTS  OF  MPAC  +2  ARE  IRRELEVANT. 

a929 

REF 

397 

LAST 

970 

6566 

52  195 

0 

17XtH 

0925 

6567 

0 0006 

1 

endvload 

tXiEND 

PDVL  comes  here  TO  FINISH  UP  FOR  DP,  TP<\ 

7)426 

REF 

28 

Last 

970 

6570 

5 0106 

0 

INDEX 

ADDRWD 

0927 

6571 

3 0003 

1 

DCA 

2 

0428 

RfF 

398 

LAST 

9 70 

6572 

52  150 

1 

DXCH 

MPAC  +3 

0929 

6573 

0 0006 

1 

+ 4 

EX  1 END 

TPDVL  FINISHES  HERE. 

0930 

RfF 

29 

LAST 

970 

6579 

5 0106 

0 

index 

ADDRWD 

04Tl 

6575 

3 0005 

1 

T7CA 

4 

0932 

REF 

399 

LAST 

970 

6576 

52  152 

0 

DXCH 

MPAC  +5 

09T3 

RpF 

163 

LAST 

970 

6577 

9 7763 

0 

LS 

ONE 

DECLARE"VECTCm  MODE. 

0434 

REF 

6 

LAST 

970 

6600 

1 6129 

1 

ICF 

NEWMDDE 
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PQ435 tHE  following  INSTRUCTIONS  ARE  PROVlObO  FOR  STORING  OPERANDS  IN  THE  PUSHDOWN  LIST) 


ROA37 

!• 

PUSH 

PUSHDOWN 

1 AND  NO  LUAD. 

ROA38 

2. 

POOL 

pushdown 

AND  DOUBLE  PRECISION  LUAD. 

KOASO 

3* 

POOL 

PUSHDOWN  AND  VtLTUR  LOAD, 

oaao 

6601 

0 0006  1 

PDDL  tXIEND 

OAAl 

REF 

30 

Last 

970 

6602 

5 0106  0 

INDEX 

ADDRWD 

LOAD  MPAC,.l,  PDSFm77  THE  TORMER 

OAA2 

6603 

3 0001  0 

DCA 

0 

CONTENTS  DOWN. 

0AA3 

REF 

400 

Last 

970 

6604 

52  145  0 

dxlh 

MPAC 

R?F 

3 

Last 

959 

6605 

50  166  0 

1 NDEX 

PUSHLOC 

0445 

6606 

52  001  1 

DXLH 

0 

0446 

RfF 

17 

Last 

968 

6607 

50  153  0 

1 NDtA 

MODE 

advance  THETOSFDOWToINTER  APPRO- 

0447 

REF 

3 

LAST 

959 

6610 

3 6310  0 

laf 

NO.WDS 

priately. 

0448 

REF 

4 

Last 

971 

6611 

26  156  1 

ADS 

PUSHLOC 

0449 

REF 

18 

Last 

971 

6612 

10  153  1 

LCS 

MODE 

0450 

REF 

1 

6613 

1 6630  0 

ICF 

endtpush 

0451 

REF 

1 

6619 

1 6626  1 

ICF 

ENDDPUSH 

0452 

REF 

19 

LaSI 

971 

6615 

54  153  1 

IS 

MODE 

NOW  DP. 

0453 

REF 

401 

Last 

971 

6616 

54  146  0 

ENDVPU5H  T7  “ 

^FAC  *Z  " 

0454 

R-fF 

402 

Last 

971 

66l7 

52  150  1 

DXLH 

MPAC  .3 

PUSH  down  the  REST  OF  THE  VECTOR  HERE. 

0455 

REF 

5 

Last 

971 

6620 

50  156  0 

INDEX 

PUSHLOC 

0456 

6621 

bl'775  0 

DXCH 

0 -4 

0457 

RFF 

403 

Last 

971 

6622 

52  152  0 

DXLH 

MPAC  +5 

0478 

REF 

6 

Last 

971 

6623 

50156  0 

INDEX  " 

PUSHLOC 

■ 0459 

6624 

51'777  1 

DXLH 

0 -2 

0460 

REF 

6 

LAST 

782 

6626 

1 6126  0 

ICF 

DANZIG 

0461 

REF 

404 

LAST 

971 

6626 

54  146  0 

ENDDPUSH  IS 

MPAC  *2 

SET  MPAC  +2  lU  ZERO  AND  EXIT  ON  DP. 

046Z 

REF 

T 

LAST 

971 

6627 

1 6125  0 

ICF 

DANZIG 

0463 

ref 

20 

Last 

971 

6630 

54  153  1 

ENDTPU5H  IS 

MODE 

0464 

ref 

40? 

Last 

971 

6631 

56  146  1 

XCH 

MPAC  *2 

ON’  TRIPLEi  SET  MPAC--  + 2 TO  ZERO,  PUSHING 

0465 

REF 

7 

Last 

971 

6632 

50  156  0 

♦2  INDEX 

PUSHLOC 

DOWN  the  old  contents 

0466 

6633 

S3'777  0 

IS 

0 -1 

Ref 

Last 

971 

6634 

1 SI 25  0 

1 Ch 

DANZIG 
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L 

P0468 

Interpreter 

povL  - pushdown  and 

vector  loau 

USERT'S  bViN  HAGE  NO.  ZO  53' 

0469 

6635 

0 0006 

1 

PDVL 

exiend 

RELOAD  MPAC  ANU  PUSH  DOWN  ITS  CONTENTS, 

OA70 

ref 

31 

LAST 

971 

6636 

5 0106 

0 

INUEX 

ADDRWD 

0971 

6637 

3 0001 

u 

“PC71 

u 

0472 

REF 

406 

last 

971 

6640 

52  145 

0 

DXCH 

MPAC 

0473 

REF 

8 

LAST 

971 

6641 

50  156 

0 

INUEX 

PUSHLOC 

0479  ■ 

66"  A2" 

52  OOi 

1 

DXCH 

0 

0475 

ref 

21 

Last 

971 

6643 

50  153 

0 

INDEX 

MODE 

advance  the  PUSHDOWN  POINTER. 

‘ CRtT6 

REF 

■ 4 

LAST 

971 

6644 

3 6310 

0 

CAh 

NO.WDS 

0477 

REF 

9 

last 

972 

6645 

26  156 

1 

ADS 

PUSHLOC 

0478 

REF 

22 

Last 

972 

6646 

10  153 

1 

CCS 

MODE 

TEST  'PAST  MODET, 

0479 

REF 

1 

6647 

1 6666 

0 

ICF 

TPDVL 

0480 

REF 

1 

6650 

1 6567 

1 

ICF 

ENDVLOAP 

JUST  LOAD  last  FOUR  REGISTERS  ON  DP. 

0481 

6651 

0 0006 

1 

VPDVL 

EX) ENU 

pushdown  and  re-load  last  two  components 

0482 

REF 

32 

LAS1 

972 

6652 

5 0106 

0 

INuEX 

aodRwd 

0483 

6653 

1 

DCA 

2 

0484 

REF 

407 

Last 

972 

6654 

52  150 

1 

DXCH 

MPAC  +3 

0985 

RpF 

10 

Last 

972 

6655 

50  156 

0 

INDEX 

PUSHLOC 

0486 

6656 

51*775 

0 

DXCH 

0 -4 

0487 

6657 

0 0006 

1 

EX (End 

0988 

RCF 

33 

Last 

972 

6660 

5 0106 

0 

INDEX 

ADDRWD 

0489 

6661 

3 0005 

1 

DCA 

4 

0490 

RfF 

408 

Last 

972 

6662 

52  152 

0 

DXCH 

MPAC  +5 

0991 

RfF 

1 1 

LAST 

972 

6663 

50  1S6 

0 

RUSnUUC 

0492 

6664 

51'777 

1 

UXCH 

0 -2 

04^3 

REF 

9 

las  I 

971 

6665 

1 6125 

0 

ICF 

0AN2IG 

0499 

6666 

0 0006 

1 

TPDVL 

EXIENU 

ON  IP,  WE  MUSI  LOAD  the  Y COMPONENT 

0495 

ReF 

34 

La  si 

972 

666  ^ 

5 OT06 

0 

index 

AODRwD 

before  ^TORTNG  7APHC  +2  INCASE.  THIS  IS  fr  

0496 

6670 

3 0003 

1 

DCA 

2 

PUSHUP. 

0997 

REF 

409 

last 

972 

6671 

52  150 

1 

UXCH 

MPAC  +3 

0498 

REF 

410 

LAST 

972 

6672 

3 0146 

1 

CA 

MPAC  +2 

0499 

REF 

12 

LAST 

972 

6673 

50  156 

0 

index 

PUSHLOC 

IN  DP. 

05u0 

6S79 

T3rrr7 

"0 — 

ts — 

0501 

REF 

2 

Last 

972 

6675 

1 6573 

1 

ICF 

ENDVLOAD  +4 

R0502 

5SP 

\ STORE 

SlNtiLE  HRELISIONJ 

IS 

' EaELUTEO  mere. 

0603 

REF 

21 

Last 

965 

6676 

24  154 

1 

SSP 

INCK 

LOC 

PICX  UP  THE  WORD  FOLLOWING  THE  GIVEN 

ref 

22 

9 72 

s6  77 

5D  154 

r 

rrivrx — - * 

ADDRtS*S  AND"' STORE  IT  AT  XI  ■ 

0505 

6700 

3 0000 

1 

CA 

0 

0506 

REF 

35 

Last 

972 

6701 

50  106 

0 

STOREl 

INDEX 

ADDRWD 

SOME  INDEX  AND  MISCELLANEOUS  OPS  END 

0507 

54  00‘cr 

0 — 

1 s 

"0 

MERtT - -- 

SYSTEM  F3R  AQC • 

REVISION  0 OF  PROGRAM  BUR5T12U  TJY  NASA  202 1 106-03 1 

DEC7,  T967 
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page  973 

L INTERPMEVeK 
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USER'S  OWN  PAgTTO. 
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C InTERFReTER  ^ " U■S■ER^^OWN  PA(3rWT~22  S3 

P0509  sequence  CHANGING  AND  SUBROUTINE  CaLLINCj  OPTIONS. 

R0510  the  Following  operations  are  available  fur  seuuencing  chancinl,  branching,  and  calling  subroutines; 


R0512 

1, 

“CUTD 

GO  TO. 

R0513 

2. 

CALL 

call  subroutine  SETIING 

QPRET. 

R061A 

3. 

CGOIO 

COMPUTED  GO  TO. 

R03T5 

c • 

CCALL 

COMPUTED  TTAEE  . 

R0516 

7. 

BPL 

BRANCH 

IF  MPAC 

POSI 1 IVE 

OR  AERO. 

R0S17 

8* 

B2E 

branch 

IF  MPAC 

ZERO. 

^ R0SI8 

9. 

BMN 

BRANCH 

IF  MPAC 

MECAT IVE 

NON-2ERO, 

0519 

REF 

23 

LnST 

972 

6704 

24  154  1 

CCALL 

INCH 

LOC 

MAINTAIN  LOC  EOR  OPREl  COMPUTATION. 

0520^ 

RpF 

24 

LAST 

974 

6705 

S’©  154  1 

INDEir 

TOC 

0521 

6706 

3 0000  1 

CAh 

0 

GET  BASE  ADDRESS  OE  CADR  LIST. 

0522 

REF 

36 

LAST 

972 

6707 

50  106  0 

INDEX 

ADDRWD 

0523 

6710 

6 UOOU  i 

AD 

0 

ADD  INCREMENT, 

052A 

RfF 

17 

LiSI 

965 

6711 

54  004  1 

IS 

FBANX 

SELECT  DESIRED  CADR, 

0525 

REF 

14 

LASI 

957 

6712 

7 533T  1 

MASK 

LOW  10 

0^26 

Ref 

325 

LAST 

967 

67 1'? 

5’0  000  1 

INDEX" 

A 

0527 

6714 

3 2000  0 

CAE 

lOOOO 

0528 

REF 

7 

LAST 

960 

6715 

54  107  0 

iS 

POLISH 

0529 

RfF 

6 

Last 

965 

6716 

3 0155  0 

call 

CA 

BANKSET 

EOR  ANY  OF  THE  CALL  OPTIONS,  MAKE  OP  THE 

05295 

REF 

2 

Last 

961 

6717 

7 6341  0 

MASK 

BANRMASK. 

ADDRESS  OF  THE  NEXT  OP-CODE  PAIR/STURE 

0530  ■ 

REF 

3 

Last 

974 

6720 

6 6341  1 

AD  ■ ■ ■ 

BANKMASX 

CODE  AND"  LFAVET "TT  IN  UpRET,  - NOTE  THAT 

0531 

REF 

25 

Last 

974 

6721 

6 0154  1 

AD 

LOC 

BANXMASK  = -(2000  - 1), 

0532 

REF 

39 

LAST 

96  7 

6722 

50  110  1 

INDEX 

FIXLOC 

0533 

REF 

3 

Last 

B47 

67^  J 

54  052  1 

1 s 

OPREl 

053A 

ref 

8 

Last 

974 

6724 

3 0107  1 

GOTO 

CA 

POLISH 

BASIC  branching  SEOUENCE. 

05J^5 

RET 

3 

LAST 

957 

6725 

7 5351  1 

♦ 1 

mast; 

KIGH4 

0535 

6726 

0 0006  1 

EXIEND 

05355 

ref 

1 

6727 

1 6740  0 

B2F 

GOTOERS 

SEE  IF  address  POINTS  TO  FIXED  OR  ERAS. 

0535 

RtF 

7 

Last 

974 

“ 6730 

3 0155  0 

>“4 

CA 

BANKSET 

SET  EBANK  -PTTRr^F  BBANK.  'WEXT,  SET  OP 

05365 

REF 

22 

LaSI 

954 

6731 

54  006  0 

IS 

BBANX 

FBANK.  the  combination  IS  PICKED  UP  6 

0537 

ref 

9 

Last 

974 

6732 

3 0107  1 

CA 

polish 

PUT  INTO  BANK5ET  AT  INtPReT  +2. 

05375 

ref 

18 

LaSI 

974 

6 7 33 

54  004  1 

1 S 

FBANK, 

0538 

REF 

15 

LAST 

974 

6734 

7 5337  1 

MASK 

LOWIO 

05385 

REF 

2 

Last 

957 

6735 

6 7751  0 

AD 

2K 

0539 

ref 

26 

Last 

974 

6 ^ 36 

54  154  0 

1 S 

LOC 

05395 

Ref 

110 

Last 

953 

6737 

1 6114  1 

ICE 

INTPKET  +2 
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L 

INTtRPRtTEK 

USERiS  OWN  PAGE^FfO.  23  S3 

0&398 

E3 

LBANK.= 

1900 

. SO  YUL  DOESN'T  CUSS  THE  "CA  1900"  BELOW. 

OSAO 

REF 

10 

L/\Sl 

979 

6790 

3 0107 

1 

ootoeks 

La 

POLISH 

THE  given  aOORESS  IS  IN  EKaSaBLE  - SEE 

05A05 

Ref 

2 

Last 

956 

6791 

6 6315 

0 

AD 

-ENOVAC 

IF  relative  to  the  work  area. 

05^  1 

RET 

3Z^ 

Last 

979 

6 792 

TO  000 

u 

A 

05A15 

REF 

11 

Last 

975 

6793 

3 0107 

1 

LA 

POLISH 

general  erasable. 

0SA2 

REF 

1 

6799 

1 6753 

1 

ICF 

GOTOGE 

06A25 

REF 

40 

LASl 

979 

6745 

3 0110 

1 

LA 

FIXLOC 

WORK  area. 

05A3 

REF 

12 

last 

975 

6796 

6 0101 

1 

AO 

POLISH 

05^35 

RfF 

327 

L7\ST 

975 

6797 

50  000 

1 

INOEA 

A 

USE  THE  GIVEN  ADDRESS  AS  THE  ADDRESS  OF 

6750 

3 0000 

1 

LA 

0 

THE  BRANCH  ADDRESS. 

05445 

Ref 

13 

LAST 

975 

6751 

59  10^ 

0 

1 s 

POLISH 

0545 

REF 

1 

6752 

1 6725 

0 

TCP 

LUT  U ♦ 1 

ALLOWS  ARBITRARY  INDIRECTNESS  LEVELS. 

05455 

RfF 

70 

Last 

967 

6753 

59  003 

0 

OOTOGE 

1 s 

EBANK 

0546 

REF 

15 

Last 

967 

6759 

7 9569 

0 

YTO5K 

“LOTS 

05A7 

REF 

328 

Last 

975 

6755 

50  000 

1 

INOEA 

A 

USE  THE  GIVEN  ADDRESS  AS  THE  ADDRESS  OF 

0SA8 

6756 

3 1900 

1 

LA 

1900 

THE  BRANCH  ADDRESS. 

05A9 

RLF 

14 

Last 

975 

6757 

59  10  T 

0 

1 5 

POLISH 

0550  , 

REF 

1 

LAST 

975 

6760 

1 6725 

0 

ICF 

GOTO  +1 

O55I 

"ReF 

27 

Last 

979 

6761 

50  159 

1 

CGOTO 

iNUEA  LOC 

computed  go  to." pick  up  address  of  LADR 

0552 

6762 

3 0001 

0 

LA 

1 

LISI  . 

0553 

REF^ 

37 

Last 

974 

6763 

50  106 

0 

INUEX 

AODRWO 

ADD  MODIFIER. 

iJ55Yr"^ 

6769 

6 0000 

1 

AO 

u 

0555 

REF 

19 

LAST 

979 

6765 

59  009 

1 

IS 

FBANK 

SELECT  GOTO  ADDRESS. 

0556 

REF 

16 

LAST 

979 

6766 

7 5337 

1 

MASK 

LOW  10 

D557 

RpF 

329 

LAST 

975 

6767 

^ T)T)T3 

"T 

iriDEX 

A 

0558 

6770 

3 2000 

0 

LA 

10000 

05585 

REF 

15 

LAST 

975 

6771 

59  lOT 

0 

IS 

POLISH 

0559 

RfF 

5 

Last 

975 

6772 

1 6725 

0 

TCI-  ■ 

GOTO  ♦!  ^ 

" WITH  address  TN  TTT  " 

0560 

REF 

8 

Last 

979 

6773 

3 0155 

0 

SWBRANCH 

LA 

BANKSET 

SWITCH  INSTRUCTIONS  WHICH  ELECT  TO 

0561 

RcF 

20 

Last 

975 

6779 

59  a09^ 

I 

1 5 

FBANK 

branch  come  H£RE  TO  DO  SO. 

0562 

REF 

28 

LASt 

975 

6775 

50  159 

1 

INOEX 

LOC 

0563 

6776 

3 0001 

0 

LA 

1 

05635 

REF 

16 

Last 

975 

6777 

59  10/ 

0 

1 5 

POLISH 

056A 

REF 

4 

LAST 

975 

7000 

1 6725 

0 

ICF 

GOTO  +1 
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P0566 triple  precision  BKAmCHINO  RqUtINE.  lb  OaLLING  pC  IS  AT  L»  REiURN  15  AS  FqLL(j>V5; 

R0668  L+1  IF  MPAC  IS  GREATER  THAN  ZERO. 


R0569 

L*2 

IF  MPAC 

IS 

equal  to  +0  OR  -0. 

“RTJ570 

C+13" 

TF  MPAC" 

ib 

"XES5-THAN  ZERO,  " 

0571 

REF 

All 

LAST 

972 

7001 

10  lAA 

1 

branch 

(.Cb 

MPAC 

0572 

RfF 

269 

LAST 

968 

7002 

0 0002 

0 

IC 

u 

0873 

7003 

1 7005 

1 

TO- 

ON"£ERD. 

057A 

REF 

1 

7 00  A 

1 701  ! 

1 

ICF 

NEG 

0878" 

"REF 

A12 

LAST 

976 

7005 

10  1A5 

0 

CCS 

MPAC  +1 

0576 

RfF 

270 

LAST 

9 7b 

7006 

0 0002 

0 

IC 

Q 

0577 

7007 

1 7011 

1 

ICF 

♦ 2 

" 0578 

RFF 

2 

Last 

976 

7010 

.1  7017 

1 

1 0- 

NEG 

0579 

REF 

A13 

LAST 

976 

7011 

10  1A6 

0 

CCS 

MPAC  +2 

" 0580 

RLF 

271 

LA6  1 

976 

7012 

0 0002 

0 

1C 

Q 

0581 

7013 

1 7015 

0 

ICF 

♦2 

0582 

REF 

3 

LAST 

976 

701A 

1 701  t 

1 

ICF 

NEG 

0583 

RfF 

272 

LAST 

976 

7015 

50  002 

0 

U + 1 

INUEX 

u 

• 058^ 

7016 

0 0001 

0 

IC 

1 

056b 

0586 

REF 

2/3  Last  976 

7017 

7020 

50  002  0 
0 0002  0 

NEG 

INUEX 

IC 

Q 

2 

IF  first  non-zero  register  was  negative. 

05861 

RLF 

4 LAST  976 

7017 

Q + 2 

• 

NEG 

R05865 

IIRACE  (3) 

refers  10 

"EXIT". 

"0887 

ref 

9 Last  975 

"Tozr 

3 "01 85  0 

exit 

CA 

BANKSeT 

Restore  user*s  bank  'Setting/  anu  leave 

05874 

REF 

23  Last  97A 

7022 

5A  006  0 

IS 

BBANX 

interpretive  mode. 

05876 

REF 

29  Last  975 

7023 

50  15A  1 

INUEX 

LOC 

0588  702A  0 0001  0 TC T 


» 

» 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

V 

9 

9 

9 


V 


633't36A 

ruL 

57 stem  for  AbC: 

Revision 

0 Op  program  BURsT12U  by  NAsA  2021106-031 

DEC  7,  1967  (WrRT“ 

977 
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H05S9 

iNTERPRtTER 
Section  3 - 

ADD/SUBtRACT  package. 

USER'S  OWN  PAGE  NO,  25 

S3  E3 

R0590 

tHe 

following  operations  are  provided  for  adding  to  and  subtracting 

FROM  the  MULTI-PURPOSe  ACCUMULATOR 

K0592 

MPAC: 

K0593 

!• 

DAO 

DOUBLE 

PRECISION  ADD. 

R0599 

2> 

DSU 

DOUBLE 

PRECISION  SUBTRACT. 

R0595 

3. 

BDStr 

DOUBLE 

PRECIS  1 0N~5DBTRACT  FROM, 

R0596 

A. 

TAD 

TRIPLE 

PRECISION  ADD. 

R0597 

5. 

VAD 

vector 

ADD. 

R0598 

6* 

vsu 

VECTOR 

SUBTRACT , 

R0599 

7. 

BVSU 

vectott 

'5UETR  FROT*rr 

R06OO 

the 

interpretive  overflow  indicator  OVFIND  is  Set  non-zero  if  overflow 

OCCURS 

IN  ANY  OF  tHe  ABqVe. 

0602 

7025 

0 0006  1 

VAD  ^TTrETTET 

0603 

REF 

38  last 

975 

7026 

5 0106  0 

INDEX 

ADDRWD 

060^ 

7027 

3 0003  1 

DCA 

2 

06TX5 

RIZF 

AlA  LAST 

976 

7030 

20  150  1 

DffS 

MPAC  +3 

0606 

7031 

0 0006  1 

EXTEND 

CHECK 

OVERFLOW. 

0607 

7032 

1 7034  0 

BZE 

+ 2 

0606 

ReF 

I 

7033 

0 7101  0 

TC 

OVERFLOW 

0609 

7034 

0 0006  1 

EXTEND 

0610 

REF 

39  Last 

977 

7035 

5 0106  0 

INDEX 

ADDRWD 

0611 

7036 

3 0005  1 

DCA 

A 

0612 

REF 

415  Last 

97  r 

7037 

20  152  0 

DAS 

MPAC  +5 

061^ 

7T)7fcr 

0 0006  1 

EXTEND 

0614 

7041 

1 7043  0 

bZT- 

*2 

0615 

REF 

2 last 

977 

7042 

0 7101  0 

1C 

OVERFLOW 

0616 

7043 

0 0006  1 

DAD  EXTEND 

0617 

REF 

40  Last 

911 

7044 

5 0106  0 

INDEX 

ADDRWD 

061B 

7045 

3^  OoOl  U 

TTCA 

0 

0619 

REF 

416  Last 

977 

7046 

20  145  0 

ENDVXV  DAS 

MPAC 

VXV  FINISHES  here. 

0620 

7047 

0 0006  1 

EXTEND 

062  1 

RFF 

11  Last 

973 

7050 

1 6125  0 

bZh 

DANZIG 

0622 

REF 

3 Last 

977 

7051 

0 7101  0 

iC 

OVERFLOW 

0623 

RlF 

12  last 

97  r 

7052 

1 6125  0 

TCP 

DANZIG 
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062A 

7053 

0 0006 

1 

vsu 

tXIEND 

" 0623“ 

Tirr  Av 

CAST  977 

7059 

5 0106 

O' 

INDEX 

ABDR'WD 

0626 

7055 

A 0003 

0 

ucs 

0627 

RfF  917 

Last 

977 

7056 

20  150 

1 

UAb 

MPAC  +3 

7057 

^0^0056 

1 

TTX  1 END 

0629 

7060 

1 7062 

0 

B2F 

+ 2 

0630 

REF  9 

LAST 

97  / 

7061 

0 7101 

0 

It 

OVERFLOW 

0631 

7062 

0 0006 

1 

tXlENO 

0632 

REF  92 

Last 

978 

7063 

5 0106 

0 

iNUtX 

ADDKWD 

063^ 

7069 

9 OODT 

u 

DCS 

0639 

ref  918 

LAST 

978 

7065 

20  152 

0 

UA5 

MPAC  +5 

063S 

7066 

0 0006 

1 

tXIEND 

0636 

7067  X 7071 

i 

*a 

0637 

REF  5 

LAST 

978 

7070 

0 7101 

0 

It 

OVERFLOW 

0638 

7071 

0 0006 

1 

DSU 

EXTEND 

0639 

REF  93 

Last 

978 

7072 

5 0106 

0 

INDEX 

ADDKWD 

0690 

7073 

4 0001 

1 

DCS 

0 

0691 

REF  919 

Last 

978 

7079 

20  195 

0 

DAS 

MPAC 

0692 

7075 

0 0006 

1 

EX  1 END 

0693 

RfF  13 

Last 

977 

7076 

1 6125 

0 

B2F 

DANZIG 

06^^ 

Kfch  6 

LAST 

978 

7577 

0 7151 

0 

1C 

OVERFLOW 

0695 

ref  19 

Last 

978 

7100 

1 6125 

0 

ICF 

DANZIG 

06^6 

Rtf'  l6^ 

Last 

970 

7101 

3 7763 

1 

OVERFLOW 

LAh 

ONE 

sub^^outine  to  0V^ ITiO  on« 

0697 

REF  1 

7102 

1 7229 

0 

ICF 

SET0VF2 

bii‘<3bf^  VUL  SYFTfcf^  FOR  A&C:  REVISION  O'OF  PHOGRAM  BURST12U  aV  NS5A  2U2U06-031  ' PEC  7,  1967  CNAIN)  “ PAGE^9T9 


L 

06^t8 

interpreter 

7103 

0 0006 

1 

BVSU 

EX  1 END 

U5tR*S  OWN  RAGE  NO.  27 

53  E3  ' 

06^9 

REF 

4^ 

Last 

978 

7106 

5 0106 

0 

INOEX 

ADDKND 

0650 

7105 

3 0003 

1 

OCA 

2 

0651 

REF 

620 

LAST 

978 

7106 

52  150 

1 

LXLH 

MPAC  +3 

06“52 

7107 

0 0006 

I 

EXTEND 

0653 

7110 

6 0001 

1 

DCOM 

0656 

REF 

621 

Last 

979 

7111 

20  150 

1 

LAS 

MPAC  +3 

0655 

7112 

0 0006 

1 

“EXTEND 

0656 

7113 

1 7115 

1 

BZF 

♦ 2 

0657 

REF 

7 

LAST 

978 

7116 

0 7101 

0 

TC 

OVERFLOW 

0658 

7115 

0 0006 

1 

EX  1 END 

0659 

REF 

65 

LAST 

979 

7116 

5 0106 

0 

INDEX 

ADDKWD 

0660 

7117 

3 OO05 

1 

Dt« 

4 

0661 

REF 

422 

LAST 

979 

7120 

52  152 

0 

DXLH 

MPAC  +5 

0662 

7121 

0 0006 

1 

EX  1 END 

0663 

7122 

6 0001 

1 

DTOTI 

0666 

REF 

623 

LAST 

979 

7123 

20  152 

0 

LAS 

MPAC  +5 

0665 

7126 

0 0006 

1 

EXTEND 

066b 

7125 

T~T1'ZT 

u 

B6F 

♦ 2 

0667 

REF 

8 

LAST 

979 

7126 

0 7101 

0 

1C 

OVERFLOW 

066B 

7127 

0 0006 

1 

BDSU 

EXTEND 

0669 

rff 

46 

Last 

979 

7130 

5 0106 

0 

INDEX 

ADDRWD 

067'0 

7131 

3 0001 

0 

DCA 

0 

06  71 

RtF 

424 

Last 

979 

7132 

52  165 

0 

DXCH 

MPAC' 

0672 

7133 

0 0006 

1 

EXTEND 

0673 

7136 

6 0001 

1 

DCOM 

0676 

RFF 

425 

LAS  1 

979 

7135 

20  165 

0 

■ UA5 

MPAC 

0675 

7136 

0 0006 

1 

EX  1 END 

0676 

ref 

15 

LAST 

978 

7137 

1 6125 

0 

bZh 

DANAUd 

0677 

REF 

9 

LV\'5T 

979 

7160 

0 7101 

0 

rc 

'OVERFLOW 

0678 

REF 

16 

Last 

979 

7161 

1 6125 

0 

TCF 

DAN2IG 

P0b79 

0680 

0681 

0683 

0689 

^0685^"“ 

0686 

0687 

0688  " 

0689 

0690 
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l\,TERPRElER 

triple  precision  add  routine. 


USER'S  OInN  page  no.  zb  S3  E3 


7192  0 0006  1 TAD  EX  I END 

REF  97  Last  979  7193  5 0106  0 INDEX  ADDRWD 

7199  T 0002^0  TTCA  IT  ADD  MINOR"  PAHTS  FIRST. 

REF  926  Last  979  7195  20  196  0 DAS  MPAC  ♦! 

ref  98  Last  9B0  7196  50  106  0 INDEX  ADDRWD 

' 7197  S'OOOO'l'^  AO  0 ^ 

ref  927  Last  9B0  TISO  , 6 0199  0 AD  MPAC 

REF  928  LaSI  980  7151  59  199  1 IS  MPAC 

Rt7^"17  LAST  979  7152  1 6125  0 TCP  DAN21G  

ref  19  last  909  7153  59  111  1 SETOVF  IS  OVFIND  SET  OVFlND  IF  SUCH  OCCURS. 

REF  18  LAST  980  7159  1 6125  0 1 CF  DANZlG  ^ 


DEX  7,  1967  (MREN)  PAGE  98I 


63'341M"YW  5fSTXM  FOR"  AXX";  REVISION  'O  OE"  PROGRAM  BURST  1 2U"  6T  TMA"5A  "202 1 106-03 1 

T:  interpreter  " "UStRT5“O"WN"FAXiE^"N"0r"’29 

PQ691  ARlTHMEIlC  SUBROUTINES  REQUIRED  IN  FIXEO-FIXEO. 


S3  e3 


R0692  1.  OMPbUB  double  PRECISION  MULTIPLY,  MULTIPLY  I HE  ClJNlENTb  OE  MPAC.  + l BY  THE  UP  FORD  WHOSE  ADUReSS 

R069A  IS  IN  AdDRwu  ANp  LEAVE  A IRIPLE  PRECISION  RESUlI  IN  MPAl. 


“R06T6  2,'  'RUOND5Uff  RO"UND~THn'RlPEE  PRECISON  CuTITENTS  UE  FIPAC  TO  UOUBLETPRECTSTOn, 

R0698  3.  OOTSUB  TAKE  THe  DOT  PRODUCT  OE  T^E  VECTOR  IN  MPAC  AND  TH£  VeCTQR  WHQSe  ADDRESS  IS  IN  ADDRWD 

R0700  AND  leave  THE  TRIPLE  PRECISION  RESULI  IN  MPAC. 


R070"l 

R0703 

4« 

PDLT 

USING'  the  contents  Of^MPAC  AS  A 

coefficients  immediately  follow 

UP  argument  , 
the  rc  POLY 

, evaluate  the  POLTNOMIAL' whose  degree  and 

INSIRUCIION  (SEE  ROUTINE  FOR  DETAILS.) 

0705 

rdf 

27A 

LA5E 

976 

7155 

50  002 

0 

dmp 

index 

0 

BAslC  subroutine  FOr  UsE  EY  PINBALL*  ETC 

0706 

7156 

3 0000 

1 

CAF 

0 ' 

AURTS  or  APGDmrrFTJLLOWS  TC  DMP  . 

0707 

REF 

275 

LAST 

981 

7157 

24  002 

0 

INLK 

a 

0708 

ref 

49 

Last 

980 

7160 

54  106 

1 

-1 

is 

APORWP 

(PROLOGUE  FOR  SETTING  ADDRWD.) 

0709 

RpF 

50 

Last 

981 

7161 

50  106 

0 

DMPSUB 

iNPLA 

APDKWP 

Get  MINOR  PART  OF  OPERAND  AT  C(AOORWD). 

0710 

7162 

3 0001 

0 

CA 

1 

0711 

REF 

A29 

Last 

980 

7163 

54  146 

0 

1 5 

MPAC  +2 

THIS  WORKS'TOR  SQUARING  MPAC  AS  WELL, 

0712 

RfF 

26A 

LAST 

970 

7164 

3 776  P 

0 

CAE 

ZERO 

SET  MPAC  +1  ID  ZERO  SO  wE  CAN  ACCUMULATE 

0713 

REF 

430 

LAST 

981 

7165 

56  145 

1 

XCH 

MPAC  +1 

the  PARTIAL  products  WIIH  DAS 

071 A 

REF 

6 

LAS  1 

949 

f i 66 

54  125 

0 

1 s 

MPTEMH 

INSIRUCTI'DNS* 

0715 

7167 

0 0006 

1 

EXIEND 

0716- 

REF 

A31 

LAST 

981 

7170 

7 0146 

0 

MP 

MPAC  +2 

minor  OE  MPAC  X MINOR  OE  C(ADDRWD). 

0717 

REF 

A32 

LAST 

981 

7171 

56  146 

1 

XCH 

MPAC  +2 

discard  minor  part  of  above  result  AND 

■ 0718 

7172 

0 0006 

1 

EXl END 

form  major  of  mpac  X minor  of  C(ADDRwO). 

0719 

REF 

433 

L/'  ST 

981 

7173 

7 0144 

1 

TMP 

MPffC — 

0720 

RfF 

434 

Last 

981 

7174 

20  146 

0 

DAS 

MPAC  +1 

guaranteed  no  overflow. 

0721 

REF 

51 

Last 

981 

7175 

50  106 

0 

IfNUbA 

AODRi^D 

let  major  part  of  akliument  at  c(adokwd). 

0722 

7176 

3 0000 

1 

LA 

0 

0723 

RfF 

7 

last 

981 

7177 

56  125 

1 

ACH 

MPTtMP 

SAVE  and  bring  OUT  MINOR  OF  MPAC. 

07"2A 

7200 

0 0006 

1 

EXTEND 

0725 

REF 

8 

Last 

981 

7201 

7 0125 

0 

MP 

mptemp 

MAJOR  OF  C (ADDRWD)  X MINOR  OE  MPAC. 

0726 

RfF 

433 

LAST 

98l 

7202 

20  196 

0 

PAS 

MPAC  +1 

ACCUMULATE,  SETTING  A TO  NET  OVERFLOW. 

0727 

REF 

436 

Last 

981 

7203 

56  144 

0 

XCH 

mpac 

SETI ING  MPAC  TO  0 OR  +-1. 

0728 

7204 

0 0006 

1 

tXIEND 

0T2R 

RTF 

9 

LAS  1 

981 

7205 

7 0125 

0 

MP 

mptemp 

MAJOR-QF  MPAt.  'X'fWJOR'OE  C(ADDRWO). 

0730 

REF 

437 

LAST 

981 

7206 

20  145 

0 

PAS 

MPAC 

guaranteed  no  overflow. 

0731 

REF 

276 

Last 

981 

7207 

0 0002 

0 

IC 

0 

49  MLT  = .573  MS.  INCLUDING  RETURN. 
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P0732 

ROUND  MPAC 

TO  DoM^SEE 

PRECISION 

setting 

UVUND 

ON  the  rare 

event  oF  overflow. 

0 0734 

RfF 

265 

Last 

981 

7210 

3 7767 

0 

ROUNDSUB 

LAF 

EERO 

SET  MPAC  +2=0  FOR  SCALARS  AND 

CHANGE 

0735 

REF 

23 

Last 

972 

7211 

54  153 

1 

♦ 1 

IS 

MODE 

MODE  TO  BP, 

0 0736 

RfF 

438 

LAST 

981 

7212 

56  146 

i 

VROUNU 

ACH 

MPaC  +2 

but  we  NEEDNT  take  the  IIME  FOR 

VECTORS, 

0737 

7213 

6 0000 

1 

DOUBLE 

0738 

REF 

Ter 

L/\ST 

“?50 

7214 

5'4  OOT 

i 

1 d 

L 

0 0739 

RfF 

277 

LASl 

981 

7215 

0 0002 

0 

1 C 

Q 

0740 

Ref 

439 

L/\5T 

982 

7216 

6 0145 

1 

AO 

f^PAC  *1 

ADD  ROUNDING  BfT  IF  MKAC  *2  WAS 

taktAT  Ek 

i ■ 0741 

REF 

440 

LAST 

982 

7217 

54  145 

0 

Is 

MPAC  *1 

Than  .5  in  magnitude. 

0792 

REF 

278 

last 

982 

7220 

0 0002 

0 

1C 

0 

^ 0743 

REF 

441 

LAST 

982 

7221 

6 0144 

0 

AD 

MPAC 

PROPAGATE  INTERFLOW. 

07^^ 

REF 

442 

LAST 

982 

7222 

54  144 

1 

IS 

MPAC 

0745 

REF 

279 

L/\  5)  1 

982 

7223 

0 0002 

0 

1 c 

0 

0746 

RfF 

15 

Last 

980 

7224 

54  111 

1 

SET0VF2 

IS 

OVFIND 

(RARE) . 

■ 0747 

REF 

280 

t-AST 

982 

7225 

0 0002 

0 

1C 

Q-  ■ ■ 

* 


It 
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P079B  T^t  Dor  product  SUhROUTINE  USUALLY  PORM5  THE  DOT  PKUDUCt  OE  THE  VE'-TOR  IN  MPaC  wUH  A STANDARD  Six 

R0750"  ' ■RltnSrEP^  VECTOR  WHOSE  address  IS  TN  ADDRWD,  'IN  THIS  CASE  C(OOTINC)  AR£  SET  TO  2.  V»rrTTDWEVER  • SETS  C (DOTINC)  TO 


R0752 

6 SO  THAT  DOtSUB  DOTS 

MPAC  with  a column  VECTOR 

OF  |Ht 

matrix  in 

UUESTION  IN  this  CASe. 

075A 

ref 

97 

Last 

901 

7226 

3 7762 

0 

PREOOT 

CAF 

Two 

PKOLOcUE  to  set  DOTinC  TO  2. 

07S5 

' RI  F 

4 

LnST 

20 

7227 

54  126 

0 

1“5 

DOT  INC 

07S6 

7230 

0 0006 

1 

DOTSUB 

EX  1 END 

7)757 

RCF 

b 

LAST 

20 

7231 

22  127 

0 

UXLH 

DOTRET 

SAVE  RETURN, 

0758 

REF 

1 

7232 

0 7161 

0 

IC 

DMPSUB 

DOT  X COMPONENTS. 

0759 

RfF 

443 

Last 

982 

7233 

52  150 

1 

DXCH 

MPAC  *3 

POSITION  y COMPONENT  OF  MPAC  FOR 

0760 

REF 

444 

LAST 

983 

7234 

52  145 

0 

DXCFT 

MPAC 

MULTTPLTCATTON  WHlLiT  SA"VTNG  RESULT  IN 

0761 

REF 

6B 

last 

925 

7235 

52  121 

1 

UXLH 

BUF 

THREE  WORD  BUFFER.  BUF, 

0762 

REF 

445 

LAST 

983 

7236 

3 0146 

1 

CA 

MPAC  +2 

0763 

REF 

69 

LAST 

983 

7237 

54  122 

1 

t d 

“BUF  +2 

076-^ 

REF 

5 

Last 

983 

7240 

3 0126 

1 

LA 

DOT  INC 

ADVANCE  ADDRWD  TO  Y COMPONENT  OF 

0765 

REF 

52 

La  5T 

981 

7241 

26  106 

1 

AOS 

AODRWO 

OTHER  ARGUMETTT,  " ^ " " 

0766 

REF 

2 

Last 

983 

7242 

0 7161 

0 

IC 

DMPSUB 

0767 

REF 

446 

LAST 

983 

7243 

52  146 

0 

DXCH 

MPAC  +1 

accumulate  partial  products. 

0768 

RE.F 

?0 

last 

983 

7244 

20  122 

1 

DAS 

BUF  *1 

0769 

• ref 

447 

Last 

983 

7245 

6 0144 

0 

AO 

MPAC 

0770 

REF 

71 

LAST 

983 

7246 

6 0120 

1 

AD 

BUF 

0771 

RZF 

72 

Last 

983 

7247 

54  120 

0 

T5 

BUF  “ 

0772 

725D 

1 7252 

1 

ICF 

+ 2 

0773 

REF 

16 

Last 

982 

7251 

54  111 

1 

IS 

OVFIND 

IF  OVERFLOW  OCCURS, 

07  rA 

REF 

AA8 

LAST 

983 

7252 

52  152 

0 

OXLH 

MPAC  +5 

MULI IPLY  Z components. 

0775 

REF 

449 

Last 

983 

7253 

52  145 

0 

DXCH 

MPAC 

0776 

re:f 

6 

LaS  1 

983 

7254 

3 0126 

1 

■ XA 

DOT  INC 

0777 

REF 

53 

last 

983 

7255 

26  106 

1 

ADS 

ADDRWD 

0778 

Ref 

3 

Last 

983 

7256 

0 7161 

0 

IC 

DMPSUB 

07T9 

RpT 

73 

LT^ST 

983 

7257 

52  122 

1’ 

ENDDOT 

UXLH 

BUF  ♦! 

leave  TINAL  ACCUMOLATTXIN  in  mpac. 

0780 

REF 

450 

last 

983 

7260 

20  146 

0 

DAS 

MPAC  *1 

0781 

RfF 

451 

LAST 

983 

7261 

6 0144 

0 

AO 

MPAC 

0782 

RCF 

74 

Last 

983 

7262 

6 0120 

1 

AO 

BUF 

0783 

REF 

452 

Last 

983 

7263 

54  144 

1 

IS 

MPAC 

078A 

REF 

6 

LAST 

983 

7264 

0 0127 

0 

1C 

OOTREl 

0785 

REF 

17 

LAST 

983 

7265 

54  111 

1 

IS 

OVFIND 

ON  overflow  here. 

0786 

REF 

7 

LAST 

983 

7266 

0 0127 

0 

iC 

DOTRET 

i 


i, 
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* _ P0787_  OpOBLE  PRECISION  POLYNOM I AL_  EVALUATOR _ _ __ 

p -R0788  N N-1  j 

R0789  this  routine  EVALUATES  AX  +A  X * ...  * A X * A LEAVING  THE  DP  RESULT  IN  MPAC  ON  EXIT. 

R I 5 

* J 

RQ792  the  routine  HAS  | WO  ENTRIES 


R0793  1.  ENTRY  THRU  POw'rSERS.  THE  COEFHCIENTS  MAY  BE  EITHER  IN  FIXtU  OR  ERASABLE.  THe  CALL  iS  BY 

R0795  TC  PUInRSERS,  AND  THe  RETURN  IS  TO  LOLUL  P0WRSERS)+1.  THE  ENTERING  DATA  MUST  BE  AS  HOLLOWS 


f 

A0797 

A 

bP 

LOC-3 

ADDRESS  FOR  REFERENCING  COEF  TABLE 

A0798 

L 

Sp 

N-l 

N IS  THE  DEGREE  OP  THE  POWER  SERIES 

A0799 

TTFA’C 

UH 

argument 

> 

A0800 

L0C-2N 

UP 

A(0l 

A0801 

• • • 

> 

A0802 

LOC 

DP 

A(N) 

R0803 

2* 

entry 

THRU  POLY. 

THE  CALL  TO  HOLY  ANU  IhE  tlNTERll^^  OATA 

MUST  Be  as  FOLLOWS 

> 

AObOS 

MPAC 

UP 

X 

argument 

f 

A0806 

LOC 

fC 

POLY 

A0B07 

LOC+1 

SP 

N-l 

A0608 

LOC*  2 

UP 

■ffTTJ) 

f 

A0809 

• • • 

■ AO810 

L0C+2N+2 

UP 

A(N) 

RETURN  IS  TO  L0C+2N+9 

0811 

7267 

0 0006 

1 

POWRSERS 

EX  1 END 

0812 

REF 

1 

7270 

22  131 

1 

UXGH 

polyret 

RETURN  ADDRESS 

0813 

rlf 

17 

L/(  bT 

9T5 

7271 

54  10? 

0 

1 b 

POLISH 

POWER  series  ADDRES'S  ' 

> 

0819 

RfF 

1 

7272 

22  130 

0 

LXLH 

POLYCNT 

N-l  TO  COUNTER 

0815 

REF 

1 

7273 

1 7309 

0 

ICP 

POLYCOM 

SKIP  SET  UP  BY  POLY 

> 

0816 

RlF 

281 

Last 

982 

727A 

50  002 

0 

POLY 

INDEX 

U 

0817 

7275 

3 0000 

1 

LAP 

0 

0818 

REF 

2 

1 

989 

7276 

54  130 

1 

1 b 

POLYCNT 

N-l  TO  COUNTER  " 

> 

0819 

7277 

6 0000 

1 

DOUBLE 

0820 

REF 

282 

LAST 

98A 

7300 

6 0002 

0 

AD 

U 

082  1 

RrF 

IB 

L/\51 

989 

7301 

59  107 

0 

1 b 

POLISH 

L(AtN))-3  TO  POLISH 

0822 

REF 

17 

Last 

886 

7302 

6 7766 

1 

AU 

FIVE 

0823 

RfF 

2 

Last 

98A 

7303 

59  131 

0 

IS 

POLYRET 

STORE  RETURN  ADDRESS 
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Last 
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PRECISION  number  ARRIVING  IN  A. 

0872 

REF 

10 

Last 

981 

7357 

54  125 

0 

SHORTMP 

IS 

mptemp 

0873 

7360 
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VPROJ 
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REF 
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last 
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0929 
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Last 
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1 
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MPAC  *3 
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0 0006 

1 

EXIENO 

0931 
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LAST 
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0 
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MPAC  *5 
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Last 
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RfF 

29 

LAST 
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0 

DXLH 
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Ref 
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Last 
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RfF 
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1 
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Last 
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Last 
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Last 
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14 

Last 
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1 
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09^6 

RfF 
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Last 
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0 

OXLH 

MPAC 

PROPER  MPAC  Registers. 

0997 

REF 
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LAST 

989 

7454 
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0 

OXCH 

MPAC  +5 
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RET 

31 
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989 
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REF 
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Last 
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Last 
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REF 

1 
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LAST 
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TC 
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Last 
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ref 
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last 
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MPAC 
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REF 
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Last 
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MPAC  +3 

0960 

REF 

6 

LAST 
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7970 
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1C 

DMPSUB 
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0961 
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LAST 
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7471 
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1 

1C 

VROUNO 

0962 

REF 
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LAST 
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7972 
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UXCH 

MPAC  +5 

0963 

REF 
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Last 

990 
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52  195 

0 

UXCH 

MPAC 

096A 

REF 
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990 

7474 

52  152 

0 
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TAP  AC  +5 

0965 
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LAST 
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DMPSUB 

0966 

RrF 

3 

Last 
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0967 
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Last 
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1‘^n 

52  195 

0 

VROTATEX 

UXCH 

MPAC 

EXIl  used  to  RESTORE  MPAC  AFTER  THIS 

0968 

RrF 

989 

Last 

990 

7500 

52  152 

0 

UXCH 

MPAC  +5 

TYPE  OF  ROTAIION.  CALLED  BY  VECTOR  SHIFT 

0969 

RpF 

990 

LAS  1 

990 

7501 

52  150 

1 

UXCH 

MPAC  t3 
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0970 

■ REF 
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Last 
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7502 
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0 
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2 

L7S1 
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1C 

preddt 

(MPAC.X)MPAC  15  computed  AND  LeFT  IN 

097A 

REF 

29 

last 

865 

7505 

A 7761 
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cs 

fduk 

MPAC.  DO  DOT  AND  FALL  INTO  OVXSC. 

0F7F 

“RfF 

S7 

LA5  I 
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7506 

26  106 

I 
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"TODRWD 
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vxsc  WHtN 
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AT  X. 
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ovxsc 
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SAVE  SCALAR  IN  MPAC  *3  AND  GET  X 

097B 

REF 

992 
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990 

7510 

3 01A5 

1 

dca 

MPAC 

COMPONENT  OF  ANSWER. 
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RCF 

993 

LAST 
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7511 

52  150 

1 
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MMAC  ♦ii 

0980 

REF 

B 

LAST 
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7512 
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0 

1C 

DMPSOB 

0981 
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Last 

990 

7513 

0 7212 

1 

1C 

VROUND 

0982 

REF 
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Last 

9B8 

751A 
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0 

LAF 
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ADVANCE  ADDKWD  TO  Y COMPONENT  OF  X. 

0983 

REF 

t?a 

Last 

991 

7515 
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1 
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098A 

7516 

0 0006 

1 
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Last 
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7517 

3 0150 

0 
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PUT  SCALAR  bACX  INTO  MPAC  AND  SAVE 

0986 

RrF 

995 

Last 
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7520 
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0 

OXCH 

MPAC 
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0987 

RLF 
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Last 

99l 
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MPAC  +5 

0988 

REF 

9 

Last 
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7522 
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0 

1C 

OMPSUB 

0989 
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5 
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7523 
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1 

1C 

VROUNP 

0990 

REF 

lol 

LAST 
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752A 
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CAF 
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REF 

t)9 

LAST 

991 

7525 

26  106 

1 
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TO  4 COMPONENT. 
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REF 
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LAST 
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7526 
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DXCH 

MPAC  +3  " 

BRING  SCALAR'  BACK',  PUTTING  Y RESULT  IN 

0993 

REF 

998 

LAST 

991 

7527 

52  145 

0 

DXCH 

MPAC 

the  PROPER  PLACE. 

0999 

REF 

999 

LAST 

991 

T530 

52  150 

1 

OXCH 

MPAC  +3 

0995 

REF 

10 

Last 

991 

~T53T' 

~o  n’61 

"0 

0996 

RpF 

6 

Last 

991 

7532 

0 7212 

1 

IC 

VROUND 

0997 

KLr  5UU 

Last 

991 

T533 

52  145 

0 

OXCK 

'MPAC 

PUT  2 COMPONENT  TFT  PROPER  PLACE,  ALSO 

0998 

REF 

501 

LAST 

991 

753A 

52  152 

0 

OXCH 

MPAC  +5 

POSITIONING  X. 

0999 

REF 

502 

Last 

991 

7535 

52  145 

0 

DXCH 

MPAC 

1000 

REF 

165 

LAST 

978 

7536 

4 7763 

0 

CS 

OHt 

MODE  has  changed  TO  VECTOR. 

1001 

ref 

8 

LAST 

988 

7537 

1 6124 

1 

KF 

NEWMODE 
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L Interpreted  " ' “ tjserts  owN~FAeF“Frov  ao  S3  E3 

PIOOZ  jRt  VEtiOR  CROSS  product  routine  CALCULAlES  (A  M -X  M ,X  M -X  M tX  M -X  M ) WHERE  M IS  JHE  VECTOR  IN 

RIOOA  ” 32  23  13  31  21  1 2 

R1006  MPAC  AND  X THE  VECTOR  AT  THE  GIVEN  ADDRESS, 


1007 

7540 

0 0006 

1 VXV 

EXIEND 

rooe 

REF 

503 

t.A'ST 

-991“  - ' 

' 7541 

3 0152 

1 

uca 

MPAC  +5 

FORM'  UP  M3Xl-n--FAVlTTG  Ml'  IN  VBUF, 

1009 

REF 

504 

Last 

992 

7542 

52  145 

0 

DXCH 

MPAC 

1010 

REF 

32 

last 

9B9 

7543 

52  113 

0 

UXLH 

VBUF 

1011 

RfF 

11 

L/\ST 

991 

7544 

0 7161 

0 

1C 

DMPSUB 

BY  XI,  --  - 

1012 

7545 

0 0006 

1 

tXltND 

1013 

REF 

505 

Last 

992 

7546 

4 0150 

1 

ocs 

MPAC  +3 

CALCULATE  -X1M2»  ^AVINC  X1M3  IN  VbUh  +2* 

1019 

REF 

506 

LAST 

992 

7547 

52  145 

0 

UXLH 

MPAC 

1015 

RfF 

33 

Last 

992 

7550 

52  115 

0 

DXLH 

VBUF  +2 

1016 

RrF 

12 

LAST 

992 

7551 

0 ^161 

0 

1C 

DTMPSDB 

1017 

REF 

102 

Last 

991 

7552 

3 7762 

0 

CAe 

TWO 

ADVANCE  ADDRWD  TO  X2, 

1018 

REF 

60 

LAS  1 

991 

7553 

26  1 06 

1 

AOb 

AUOKWD 

1019 

7554 

0 0006 

1 

EXIEND 

1020 

RfF 

507 

LAST 

992 

7555 

4 0152 

0 

DCS 

MPAC  +5 

PREPARE  TO  GET  -X2M3 , SAVING  -X1M2  IN 

1021 

REF 

508 

LA^  1 

992 

7556 

52  145 

0 

UXLH 

MPAC 

MPAC  +5, 

1022 

REF 

509 

Last 

992 

7557 

52  152 

0 

OXCH 

MPAC  +5 

1023 

REF 

13 

LAST 

992 

7560 

0 7161 

0 

1C 

DMPSUB 

1029 

7561 

0 0006 

1 

EXIEND 

1025 

REF 

39 

LAST 

992 

7562 

3 0113 

1 

OCA 

VBUF 

GET  X2M1,  SAVING  -X2M3  IN  VBUF  +4, 

1026 

REF 

510 

LAS  1 

992 

7563 

52  145 

0 

DXCH 

MPAC 

1027 

REF 

35 

LAST 

992 

7564 

52  117 

1 

UXCH 

VBUF  +4 

1028 

REF 

19 

LAST 

992 

7565 

0 7161 

0 

IC 

DMPSUB 

1029 

REF 

103 

Last 

992 

7566 

3 7762 

0 

CAh 

TWO 

advance  ADDRWD  TO  X3, 

1030 

REF 

61 

Last 

992 

7567 

26  106 

1 

ADS 

ADORWU 

1031 

7570 

0 0006 

1 

EXIEND 

1032 

REF 

36 

LAST 

992 

7571 

4 0113 

0 

ocs 

VBUF 

GET  -X3Fi1*  adding  X2M1  TO  MPAC  +5  TO 

1033 

RfF 

511 

LAST 

992 

7572 

52  145 

0 

DXCH 

MPAC 

COMPLETE  THE  Z COMPONENT  OF  THE  ANSWER, 

RtP 

5i<: 

992 

75T3 

20  152 

0 

-T7AS 

“MP-AC-^FS 

1035 

1036 

1037  REF  10  Last  979 


7579  0 0006  1 
7575-  I 7577  1 
7576  0 7101  0 


EXIEND 

BZF  >2 

1C  OVERFLOW 
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L 

IMtKPKtTEK 

UStRiS  OWN  HALF  NO.  41 

S3 

E3 

1038 

RtF 

15 

LAST 

992 

7577 

0 7161 

0 

K 

OMPSUb 

FOR 

1039 

' Ref 

3 f 

L A5T 

992 

7600 

52  115 

0 

DXCH 

VBUI- 

♦ 2 

HOVE  XTP13  TCT  MPAC  +3  SETTING  UP 

X3M2 

lOAO 

REF 

513 

LAST 

992 

7601 

52  150 

1 

UXLH 

MPAC 

♦ 3 

AND  ADD  -X3M1  TO  MPAC  *3  TO  COMPLETE 

THE 

1041 

REF 

514 

LAST 

993 

7602 

52  145 

0 

UXLH 

MPAC 

Y COMPONENT  OF  THE  RESULT. 

10a  2' 

”RTF^ 

5T5 

L/T5T 

993 

76‘03 

20  150 

1 

OAS 

TIP  S C 

+ 3 

1043 

7604 

0 0006 

1 

LXIENO 

1044 

7605 

1 760  T 

0 

tsZF 

♦ 2 

104S 

RfF 

11 

Last 

V92 

7606 

0 7101 

0 

1C 

OVERFLOW 

10A6 

REF 

16 

LAS) 

993 

7607 

0 7161 

0 

1C 

DMPSUB 

10A7 

REF 

38 

LAST 

993 

7610 

52  IW 

1 

UXCH 

veuF 

♦ 4 

GO  add  -X2M3  10  X3M2  10  COMPLETE 

THE 

X 

lOAB 

REF 

1 

7611 

1 7046 

0 

ICF 

ENDVXV 

COMPONENT  (TAIL  END  OF  DAO), 

K10a9 

the 

MPACVBUF 

subroutine  saves 

the  Vector  in  mpac  in 

VBUF 

without  clobbering  MPAC. 

ron 

7612 

0 0006 

1 

MHACVBUF  tXItlNO 

CALLED  bY  MXv«  VXM,  AN[T  UNTT, 

1052 

REF 

516 

Last 

993 

7613 

3 0145 

1 

ULA 

MPAC 

1053 

REF 

39 

Last 

993 

7614 

52  113 

0 

UXLH 

veuF 

1054 

7615 

0 0006 

i 

LX  FEND 

1055 

Ref 

517 

Last 

993 

7616 

3 0150 

0 

UCA 

MPAC 

+ 3 

1056 

REF 

^0 

LAST 

993 

7617 

52  115 

0 

UXLH 

VBUF 

+ 2 

1057 

“0“ 0006 

1 

EXTEND 

1058 

RfF 

biB 

LAST 

993 

7621 

3 0152 

1 

UCA 

MPAC 

+ 5 

1059 

REF 

41 

last 

993 

7622 

52  117 

1 

UXLH 

VBUF 

♦ 4 

iU6U 

RIF 

289 

LAST 

987 

7623 

0 0002 

0 

rc 

J 

RETURN  TCT  CALrER. 
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PlOfcl  interpretive  instructions  whose  EXECUTION  CONSISTS  OF  PRINCIPAELY  CALLING  SUBROUTINES. 


1063 

REF 

17 

LAST 

yv3 

7629 

0 7161 

0 

UMPl 

IC 

DMPSUb 

DMP  INSTRUCTION. 

106A 

REF 

21 

LAST 

990 

7625 

1 6125 

0 

ICF 

0AN2IG 

1065 

REF 

18 

Last 

999 

7626 

0 7161 

0 

UMPR 

IC 

OMPSUB 

1066 

REF 

1 

7627 

0 7211 

1 

IC 

ROUNOSUB  *1 

(C(A)  s +0). 

ro67 

REF 

22 

LAST 

999 

7 630 

r 6125 

0 

TCF 

DATIeIG 

1068 

7631 

0 0006 

1 

. DDV 

EX  1 END 

106^9 

RfF 

62 

Last 

992 

r 6 3 2 

5 0106 

0 

1 NUEA 

AODRWO 

MOVE  DITITjENU  TNTCT  BOF  , 

1070 

7633  , 

3 0001 

0 

UCA 

0 

1071 

REF 

2 

Last 

962 

7639 

1 7691 

I 

1 CF 

BDDV  *9 

1072 

7635 

0 0006 

1 

BDDV 

EX  1 END 

MOVE  DIVISOR  INTO  MPAC  SAVING  MPAC,  THE 

1073 

REF 

63 

last 

994 

7636 

5 0106 

0 

INULA 

AUDKWU 

dividend,  IN  BUF. 

1079 

fbi! 

3 0001 

0 

UCA 

0 

1075 

REF 

519 

last 

993 

7690 

52  195 

0 

UXCH 

MPAC 

1076 

REF 

75 

LAST 

983 

7691 

52  121 

1 

+4 

UXCH 

BUF 

1077 

REF 

270 

LAST 

988 

7692 

3 776  ! 

0 

CAF 

2ERU 

divide  ROUTTNES  IN^ANIC  0.' 

1078 

RfF 

21 

Last 

975 

7693 

59  009 

1 

IS 

FBANX 

1079 

RfF 

4 

Last 

902 

7699 

1 2352 

0 

ICF 

DDV/BDDV 

1080 

REF 

64 

last 

994 

7695 

3 0106 

0 

SETPD 

LA 

ADDkWU 

MUSI  SET  TO  WORK  AREA,  OR  EBANK  TROUBLE. 

1081 

REF 

13 

Last 

972 

7696 

59  156 

1 

IS 

PUSHLOC 

1082 

RE-F 

1 

7697 

1 6T27 

1 

1 Ch 

NorbNKSw 

NO  FBANK"  SWtrCH  RECIUIRED. 

1083 

RfF 

271 

Last 

999 

7650 

3 7767 

0 

ISLC 

CAF 

ZERO 

shifting  routines  Located  in  bank  oo. 

1089 

REF 

22 

LAST 

994 

7651 

59  T3Cr9 

1 

1 s 

T^NK 

1085 

RfF 

1 

7652 

1 2172 

0 

ICF 

TSLC2 

1086 

reF 

6 

Last 

954 

7653 

3 5392 

1 

tjSHlFj 

LaF 

LoW7 

used  A'S~WASie  at  GENSHTFT.  THIS  PROCESSES 

1087 

REF 

23 

last 

999 

7659 

59  009 

1 

IS 

FBANX 

ANY  SHIFT  INSIRUCTlON  (EXCEPT  TSLC)  WITH 

1088 

RfF 

. 1 

7655 

1 2219 

0 

ICF 

GENSHIFT 

AN  ADDRESS  (ROUTINES  IN  BANK  0). 
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P1089  THt  following  IS  THE  PROLOGUE  TO  V/SL,  IT  |Hb  PRESENT  MOOE  IS  VECTOR,  IT  SAVES  THE  SCALAR  AT  X IN  bUF 

TTj.091 AND"CALT-5  1H£'V/5C'R0UTTNe“IN  BANIT  0.  IF"  TKe  PReSeNI  MODE  IS  SCALAR , TP  MOVES  THE  VECTOR^AT^X  INTO  MPAC,  SAVING 

R1093  the  scalar  IN  MPAC  IN  bUF  BEFORE  CALLING  THE  V/SC  RUUUNE  IN  BANK  0. 


1099 

REF 

25 

Last 

990 

7656 

10  153 

1 

V/SC 

CCS 

MODE 

109S 

R?F 

1 

76S7 

1 7670 

0 

1 Lr 

Dv/SC 

ITOvt  VECTOR  INTO  MPAC,  

1096 

REF 

2 

LAST 

995 

766U 

1 7670 

0 

ICF 

DV/SC 

1097 

7661 

0 U006 

i 

VV/SC 

EX  1 END 

1098 

RLF 

65 

LASi 

999 

7662 

5 0106 

0 

iNuEA 

ADDRWD 

1099 

7663 

3 0001 

0 

DCA 

0 

1100 

REF 

fb 

Last 

999 

7669 

52  121 

1 

V/SCl 

OXLH 

BUF 

IN  both  CASES7  sector  15  NOW  IN  MPAC  AND 

1101 

rff 

272 

LAST 

994 

7665 

3 7767 

0 

CAF 

2ERU 

SCALAR  IN  BUF. 

1102 

REF 

LASI 

994 

7666 

59  009 

1 

IS 

FBANX 

1103 

REF 

1 

7667 

"1  26  JO 

1 

ICh 

V7SC2 

1109 

7670 

0 0006 

1 

UV/SC 

tx 1 tHO 

1105 

RfF 

bb 

LAST  995 

7671 

5 0106 

0 

index 

ADDRWD 

1106 

7672 

3 0003 

1 

OCA 

2 

1107 

ref 

b20 

Last 

994 

7673 

52  150 

1 

OXCH 

MPAC  +3 

IIUU 

7679 

0 0006 

1 

' tXTEND 

1109 

REF 

67 

Last 

995 

7675 

5 0106 

0 

iNOtX 

ADDRWD 

1110 

7676 

3 0005 

1 

DCA 

4 

nil 

ref 

b2 1 

Last 

995 

7 677 

52  152 

0 

UXCH' 

MPAC  ♦S' 

1112 

REF 

166 

LAST 

991 

7700 

9 7763 

0 

C5 

ONE 

change  MODE  TU  VECTOR. 

TII3 

REF 

26 

Last 

995 

7701 

59  153 

1 

1 s 

MODE 

1119 

7702 

0 0006 

1 

EX  1 END 

1115 

ref 

68 

L^  ST 

995 

7703 

5 0106 

0 

" INPEX 

ADDRWD 

1116 

7709 

3 0001 

0 

DCA 

0 

1117 

RLF 

b22 

last 

995 

7705 

52  195 

0 

UXCH 

MPAC 

I ne 

rlf 

1 

7 706 

1 7669 

0 

ICh 

V/SCl 

FINISH  proi:og-oe~at  cdmmdtt  section. 
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Pi  119 sign  anp  Complement  instructions. 


1120 

REF 

69 

East 

995 

.7707 

50  106 

0 

SIGN 

INDEX 

addkwd 

call  comp  instruction  if  WORD  AT  X 15 

II2I 

7710 

10  000 

0 

CCS 

0 

NEGA.TiVE  non-zero. 

1T72  ' 

“RTF- 

<ii 

I.A3T 

999 

7711 

T 6125 

O’ 

Tcr 

OANZIC) 

1123 

7712 

1 7719 

0 

ICF 

♦ 2 

1129 

REF 

2 

LAST 

964 

7713 

1 7722 

0 

ICh 

COMP 

DO  IHE  COMPLEMENT. 

1125 

REF 

70 

LAST 

996 

7719 

50  106 

0 

INDEX 

ADDKWD 

1126 

7715 

10  001 

1 

CCS 

1 

1X27 

PEF 

2^ 

L<\5T 

996 

7716 

1,  6125 

0 

1 Ch 

DANZIC] 

1128 

REF 

25 

LAST 

996 

7717 

1 6125 

0 

ICF 

DAN21G 

1129 

REF 

3 

LAST 

996 

7720 

1 7722 

0 

ICF 

COMP 

1130 

REF 

2 6 

Last 

996 

7721 

1 6125 

0 

1 Ch 

0AN21G 

1131 

7722 

0 0006 

1 

COMP 

EX  1 END 

complement  dp  MPAC  IN  EVERY  CASE. 

1132 

REF 

523. 

LAST 

995 

7723 

9 0195 

0 

DCS 

MPAC 

1 133^ 

Rtr 

LAST 

996 

7729 

52  145 

0 

DXCFI 

MPAC 

1139 

REF 

27 

LAST 

995 

7725 

10  153 

1 

CCS 

MODE 

EITMEK  COMPLEMENT  MPAC  +3  OR  THE  REST  OF 

1 135 

REF 

1 

7726 

1 7737 

I 

1 Ch 

DCOMP 

The  vector  AccoMurATOR. 

1136 

RfF 

2 

last 

996 

7727 

1 7737 

1 

ICF 

DCOMP 

1137  7730  0 0006  1 " EXTEND  VECIOR  COMPCEMENTV 


1138 

1139 

REF 

RfF 

525 

526 

LAST 

LAST 

996 

996 

7731 

7732 

9 0150  1 
52  150  1 

DCS 

DXLH 

MPAC  +3 
MPAC  +3 

1190 

7733  CTTJOOb  1 

tX  1 tIHD 

1191 

REF 

527 

last 

996 

7739 

9 0152  0 

DLb 

MPAC  *5 

1192 

•ref 

528 

Last 

996 

7735 

52  152  0 

UXCH 

MPAC  +5 

1143 

“RfF 

27 

East 

996 

7736 

1 6125  0 

TCr 

TJATTZre — 

119.9 

REF 

529 

Last 

996 

7737 

9 0196  0 DCOMP 

L5 

MPAC  +2 

1 143 

REF 

530 

last 

996 

7790 

54  146  0 

1 5 

MPAC  *2 

1196 

REF 

28 

Last 

996 

7791 

1 6125  0 

ICF 

DANZIG 

633^36* 
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; REVISION  0 

OF  PROGRAM  BURST  120  BY  TVASA  2021106-031 

DEC'  7','  l9'67 

' " (MAIN) 

PAGE  99  7 

L 

IMfcRPKfclFK 
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45 
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CONbl ANI 5 

recuiked  in 

fixed-fixed. 

H't8 

7742 

37777  1 

QPOSMAX 

UCl 

37777 

n't? 

7743 

37777  1 

P05MAX 

uu 

37777 

^nro 

ref  ■ 

'53 

Efl^T 

9b6 

7T44 

L 1 n 1 1 5 

tUUALS  POSMAX 

1151 

7744 

57777  1 

NEGl/2 

ULi 

-20000 

MUSI  BE  TWO  LUCATIONS 

AHEAD  OF 

P0S1X2. 

1152 

^7^5 

<*uooo  0 

BIT15 

OCf 

40000 

BIT  TABLE  FOLLOWS. 

1153 

7746 

20000  0 

B1T14 

UCl 

20000 

1154 

7747 

10000  0 

BIT13 

UC  1 

10000 

1155 

7750 

O^fOOU  0 

BIT12 

UCl 

04000 

1156 

7751 

02000  0 

BITll 

UCl 

02000 

■ 1157 

7752 

01000  0 

BITlO 

UCl 

01000 

n5B 

775  3 

00400  0 

BIT9 

UCl 

00400 

1159 

7754 

00200  0 

BIT8 

UCl 

00200 

1160 

7755 

00100  0 

8IT7 

UCl 

00100 

rT6i 

7756 

00040  0 

BIT6 

OCT 

0004CT 

1162 

7757 

00020  0 

B1T5 

UCl 

00020 

1163 

7760 

OOOiO  0 

BIT4 

UCl 

00010 

lT67f 

77^FI 

'770004'  0 

"BTT3 

UCl 

000O4 

1165 

7762 

00002  0 

BIT2 

UCl 

00002 

1166 

7763 

00001  0 

BIT! 

UCl 

OOOOl 

1167 

REF 

38 

LAST 

953 

7 745 

NEGMAX 

EUUALS 

BIT15 

1168 

ref 

50 

LAST 

870 

7746 

HALF 

EQUALS 

61T14 

1169 

RrF 

1 1 

Last 

680 

7 

POSl/2 

EQUALS 

HALF 

1170 

ref 

29 

LAST 

765 

7747 

UUARTER 

EQUALS 

BIT13 

1171 

REF 

39 

LAST- 

755 

7751 

2K 

EQUALS 

BITll 

1 1 /2 

7764 

00013  0 

tLEVLN 

UEC 

11 

1173 

REF 

7 

LAST 

828 

7764 

NOUTCON 

5 

ELEVEN 

1174 

RfF 

3 

LAST 

278 

4570 

TEN 

- 

BINCON 

1175 

RUF 

L/fST 

279 

4530 

NINE' 

R2D1 

1176 

REF 

'te 

Last 

66^ 

7760 

EIGHT 

EQUALS 

B1T4 

1177 

7765 

00007  0 

SEVEN 

UCl 

7 

1T78 

RpT 

2 

Last 

959 

6306 

SIX 

'EQUALS 

REVCNT 

1179 

7766 

00005  1 

FIVE 

UCl 

5 

1180 

REF 

LAST 

890 

7 761 

FOUR 

EQUALS 

S1T3 

TT8T 

REF 

T 

6311 

f HREE 

equals 

0CTAL3 

1182 

REF 

33 

Last 

S45 

7762 

TWO 

EQUALS 

81T2 

1183 

ref 

63 

LAST 

955 

7763 

ONE 

EQUALS 

BIT! 

1 IB^ 

7767 

00000  1 

2ERU 

UC  1 

0 ■ 

1185 

7770 

77777  0 

NEGO 

UCl 

7777  7 

1186 

7771 

77776  1 

NEGONE 

DEC 

-1 

1187 

REF 

» 

last 

965 

7 771 

NEGl 

- 

NEGUNE 

1188 

Ref 

7 

last 

b65 

7 771 

MINUSl 

EQUALS 

NEGl 

11885  5336  bLUCK  02 


xrCT 


1189 


^33F  “7'7T75'T  NFSZ’ 


7777T 
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UStRfS  OTSR  PA'G^TMO.  ' S3  E3 


11895  5337  01777  1 LOWIO  UC I 1777 


TWO 

5X91; 

^7774  0 

NEG3 

X7EC 

1191 

5391 

00777  0 

L0W9 

UCI 

rn 

11915 

5392 

00177  0 

L0W7 

OCI 

177 

1X92 

S343 

00017  1 

LUW4 

UL  1 

17 

1193 

REF 

1 7 

LAST 

688 

7765 

L0W3 

tUUALS 

SEVEN 

1199 

REF 

40 

LAST 

806 

6311 

L0W2 

tUUALS 

THREE 

1195 

5344 

00032  0 

CALLCUOt 

OCI 

00032 

1196 

5395 

40014  0 

oloaocoo 

UCI 

90019 

IT97 

REF 

39 

LAST 

997 

7795 

VLOADCOD 

equals 

BIT15 

1198 

5396 

90015  1 

OLOAU* 

OCI 

40015 

1 199 

RfF 

2 

last 

791 

6153 

VLOAU* 

equals 

0CT90001 

1200 

REF 

42 

Last 

993 

5347 

00112  0 

LVBUF 

ACRES 

VBUF 

1201 

ref 

11 

Last 

851 

5210 

BIT13-19 

S 

PRIU30 

K12011 

there 

ARE  POOR  POSSIBLE 

settings  for  channel  07 

(WNACIV) 

FOR  accessing 

the  eventually  three  anu  one-halp 

R12013 

PRESENTLY  ONE 

. ANU  ONE^HALF  SUPEKbANKS. 

12019 

5350 

00060  1 

SUPEROll 

UCI 

60 

BUG  FOR  SUPERBNK  SETIING  Oil 

120191 

ref 

38 

LAST 

713 

7755 

superioo 

equals 

B1T7 

bllb  h OK  SUKtKB^^!^  stTIINCa  100 

A120192 

(LAST  9K.  OF  ROPE) 

A120193 

SUPERlOl 

UCI 

120 

BITS  FOR  SUPERBNK  SETIING  101 

A1Z1?149 

(FIWST  8K  OF  ACMl 

A120195 

SUPERllO 

UCI 

190 

BITS  FOR  SUPERBNK  SETTING  110 

A120196 

(LAST  8K  OF  ACM) 

1 201 5” 

5351 

79000  1 

HIC3H4 

UC  1 

74000 

■ 12016 

5352 

01900  1 

0CT1900 

UCI 

OlAOO 

12017 

5353 

00055  1 

DEC95 

UEC 

95 

633«6A 

rUU-SYSTtM  FOR  AK;  RtVISION 

0 OF  PROGRAM  BURSIliiU  BY  NASA  2021106-031  D^C  7,  1967 

(MATN)  PAGE 

999 

L 

INTtKFRtlER 

UStRiS  OWN  HA<3E  no. 

a7  S3 

E3 

P1203 

THt 

following  short 

shift  Codes  require  no  audkess  woros 

K1204 

I. 

SRI  TO  SRA 

scalar  shift 

RIGHI . 

K1205 

2. 

SRIR  TO  SRAR 

scalar  shift 

RIGHI  and  round. 

K1206 

3. 

btl  TO  bL4 

SCAT-AR  sftitt 

TltF  1 • 

K1207 

SLlR  to  SLAR 

scalar  shift 

Left  and  round. 

K1208 

5. 

VSRi  TO  VSR8 

Vector  shut 

RIGHI  (ALWAYS  ROUNDS). 

K1209 

6t 

VSLi  TO  VSLb 

VECIOR  shift 

LEF ( (NEVER  ROUNDS). 

R12IO 

THt 

FOLLOWING  codes 

REQUIRE  AN  AQUREbb  WHICH  MAY  BE  ANUEXEU:*^ 

K1211 

1. 

SR 

SCALAR  SHIFT 

righi . 

K1212 

2. 

SRR 

scalar  SHIFT 

RIGHI  and  ROUND. 

K1213 

3. 

SL 

SCALAR  shift 

LEFT  . 

K1219 

SLR 

scalar  SHIFT 

left  and  round. 

K1215 

5. 

VSR 

VECTOR  SHIFT 

RIGHI . 

K1216 

6* 

VSL 

VECTOR  shift 

LEFT. 

«1217 

^ IF  THt  AUDHt^i  Ib  INDtXtL> 

, AND  the  index  MUUIFICATION  ReSULtS  IN  A NECAtIVe  SHIFT  COUNT.  A 

shift  of  the 

K1219 

absolute  value  of  the  Count 

IS  DONE  IN  the  OPPOSlit  PIReCTIUN. 

: 1220 

00,201 7 

BANK 

00 

1221 

REF 

20 

last 

988 

00,2017 

3 6306 

1 

shortt 

CAF 

SIX 

scalar  SHORT  SHIFTS  COME  HERE.  THE  SHIFT 

1222 

RrF 

35 

LAb  1 

969 

00,2020 

7 0020 

1 

MASK 

CYR 

COUNT-1  IS  NOW  It)  B'n7T'2-3  OF  CYR.  THE 

1223 

REF 

25 

LaSI 

939 

00,2021 

59  021 

0 

IS 

SR 

rounding  bit  is  in  Bill  AT  THIS  POINT. 

1229 

REF 

36 

LAST 

999 

00,2022 

10  020 

1 

CC5 

CYR 

SEE  IF  RIGHT  OR  LEFT  SHIFT  DESIRED. 

1225 

REF 

1 

00,2023 

1 2101 

1 

ICF 

TSSL 

shift  left. 

1226 

00,2029 

0002^ 

1 

SRDOV^ 

UEC 

20 

MPTEMP  SETTTNGTTJR  SR"  before  DOV. 

1227 

REF 

26 

LaSI 

999 

00,202s 

50  021 

1 

TSSR 

INDEX 

SR 

get  shifting  BIT. 

1^8 

RET 

51 

Last 

997 

00.2026 

3 7796 

0 

CAh 

B1T19 

1229 

REF 

13 

LASI 

986 

00,202  7 

59  125 

0 

1 s 

MPTEMP 

T230 

RrF 

37 

LA'S  1 

999 

00,2030 

10  020 

1 

CCb 

' CTR 

" SEE  IF"A  ROUND  TS  DeSTRED. 

1231 

REF 

1 

00,2031 

0 2050 

0 

rightk 

IC 

MPALbHNU 

YES  - SHIFT  RIGHT  AND  RUUND. 

1232 

RpF 

9 

LASI 

991 

00,2032 

1 6129 

1 

ICF 

NLWMOUE 

SET  MODE  TO  DP  (CIA)  = 0) , 

1 233 

RCF 

1 A 

La  5 1 

999 

U U . 2 U 3 3 

3 0125 

1 

MPACSHK 

LA 

MPTEMP 

DO  A- tr^ipLE"  PRECISION  SHIFT  RIGHT. 

1239 

00.203A 

0 0006 

1 

tXIEND 

1235 

REF 

531 

LASI 

996 

00.203S 

7 0196 

0 

MP 

MPAC  +2 

123b 

■RtF 

552 

LAb  1 

999 

00,2036 

59  196 

XT 

+ 3 

rs — 

TIP'AC  >2 

"(EXIT  FROM  SUKT  AND  ABVAL) , 

1237 

REF 

15 

LAST 

999 

00,2037 

3 0125 

1 

LA 

MPTEMP 

123B 

00,2090 

0 0006 

1 

tXIEND 

1239 

REF 

53  3 

LaSI 

999 

00,2091 

7 0199 

1 

MP^  “ " 

71PAC  ■ ■" 

'Shift  MAJOR  Kart  INTO  A, L and  place  in 

6T3V36'A ’YIJL-SYSTEM  HOW  AIjCI-REVI  S3  ON  0 OF  PROGRAW^BURSTl  ZO  Y5T 'NASA  20^1 106-O3T  ^ 
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L ^ rNTERPR^TEK  USER'  S OWN  >AGF”NOt  - A6  ' ' S3  E3  ' 


12^.0 

ReF 

534 

UASl  999 

00,2042 

52  145 

0 

UXLH 

MPAC 

MPAC,+1. 

' ' T2A1 

RFF 

16 

LA5I  999 

00 ♦ 2 043 

3 0125 

1 

CA 

MPTEMP 

12A2 

00,2044 

0 0006 

1 

EX  1 END 

12A3 

REF 

170 

LAS!  987 

00,2045 

7 0001 

1 

hP 

L 

original  CTMPAC  +1) . 

l^Ai* 

K£E  535 

LASTTODO'  ' 

00*2046  20  146 

cr 

UAS 

"MPAC  +1 

GUARANTEED“NCPOVERF  LOW , 

1245 

REF 

29 

LASI  996 

00*2047 

1 6125 

0 

ICF 

DAN2IG 

R1246 

MPAC  SHIFT 

RIGHT  ANT) 

KuONL*  bUoKuUj  II9E3* 

1247 

REF 

536 

UaSI 1000 

00,2050 

3 0146 

1 

MPACSRNI) 

LA 

MPAC  +2 

WE  have  to  do  all  THREE  MULTIPLIES  SINCE 

' I2'-f8 

00,2051 

0 0006 

1 

EXI END 

MPAC'  >T  AND  MPAC7-42“MlGITr"TlAVE'  SIGN 

1249 

ref 

1 7 

LAST  1000 

00,2052 

7 0125 

0 

MP 

MPTEMP 

disagreement  WITH  A SHIFT  RIGHT  OF  1. 

1250 

REF 

537 

LASI 1000 

00,2053 

56  145 

1 

ACH 

MPAC  +1 

1251 

00  *2054 

0 0006 

1 

EXTEND 

1252 

REF 

18 

LASI 1000 

00,2055 

7 0125 

0 

MP 

MPTEMP 

1253 

REF 

538 

LAST  1000 

00,2056 

56  145 

1 

ACH 

MPAC  +1 

trial  minor  part. 

12T4 

REF 

171 

LAb 1 1000 

00,2057 

6 0001 

0 

AO 

“L  ' 

1255 

00,2060 

6 0000 

1 

VSHR2 

UUUbLE 

(FINISH  VECTOR  COMPONENT  SHIFT  RIGHT 

1256 

REF 

539 

E A b 1 1000 

UU  * 2 U6 i 

54  146 

0 

1 b 

MPAC  +2 

AND  ROUND,  ' ' 

1257 

00,2062 

1 2064 

0 

ICF 

♦ 2 

1258 

REF 

540 

LaSTIOOO 

00,2063 

26  145 

0 

AOS 

MPAC  +1 

GUARANTEED  NO  OVERFLOW. 

1259 

RfF 

2 73 

Last  995 

00,2064 

3 776  7 

0 

LAP 

EERO 

1260 

REF. 

541 

LASI 1000 

00,2065 

54  146 

0 

IS 

MPAC  42 

1^61 

‘ ref 

542 

LAb 1 1 000 

00*2066 

56  144 

0 

ACH 

MPAC 

SETIING  TO  ZERO  Sa  FOLLOWING  DAS  WORKS, 

1252 

00,206  7 

0 0006 

1 

EXI END 

1263  ■ 

REF 

19 

LASI 1000 

00,2070 

7 0125 

0 

lAP 

MPTEMP 

1264 

ref 

543 

LAS  I 1000 

00,2071 

“20  145 

0“ 

DAS 

MPAC 

AGAIN  NO  OVEKFLDW, 

1265 

REF 

290 

LaSI  993 

00,2072 

0 0002 

0 

1C 

Q 

1 266 

R'rF 

20 

LaS 1 1000 

00,2073 

3 0125 

1 

VSHKRNO 

CA 

MPTEMP 

ENTRY  TCT  shift  RICHT  ANU  HOUND  MPAC  WHEN 

1267 

00,2074 

0 0006 

1 

EXI end 

MPAC  CONTAINS  A VECTOR  COMPONENT, 

1268 

REF 

544 

LASI 1000 

00,2075 

7 0145 

0 

MP 

MPAC  +1 

1269 

REF 

545 

LAS  I 10^00 

UU  *2U  (b 

54  145 

0 

f 5 

MPAC  ♦! 

1270 

RfF 

172 

LASI 1000 

00,2077 

56  001 

0 

ACH 

L 

1271 

REF 

1 

00,2100 

1 2060 

1 

ICF 

VSHR2 

GO  add  one  IF  NECESSARY  AND  FINISH. 
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1273 

. REE 

27 

LASI  999 

00,2101 

3 0021 

1 

TSSL 

CA 

SR 

127A 

RfF 

21 

LAStlOOO 

00,2102 

54  125 

0 

♦ 1 

IS 

MPTEMP 

1275 

00,2103 

'0  0006 

1 

+ 2 

LX  1 END 

1276 

RfF 

5A6 

LASt 1000 

00,2104 

3 0146 

1 

OCA 

MPAC  +1 

' 1:277 

REF 

5A7 

L a ST  1001 

00,2105 

20  146 

0 

■ 0A5‘  ■ " 

MPAC 

1278 

REE 

548 

las  I 1001 

00,2106 

6 0144 

0 

AO 

MPAC 

1279 

REF 

LAST  1001 

00,2107 

6 0144 

0 

AO 

MPAC 

1280 

REF 

farST  1001 

00,2110 

54  144 

1 

T5 

MPAC 

1281 

00,2111 

1 2113 

1 

ICF 

♦ 2 

1282 

REF 

18 

LASI  983 

00,2112 

54  111 

1 

1 b 

ovfind 

A1283 

128A 

REF 

IZ 

LASTlOOl 

00,2113 

10  125 

0 

CCb 

MPTEMP 

1285 

RfF 

2 

LASI  999 

00,2114 

1 2102 

1 

ICF 

TSSL  +1 

1286 

REF 

38 

La.SI  999 

00,2115 

10  020 

1 

CCb 

CYR 

1287 

Ref, 

2 

LASI  994 

00,2116 

0 7210 

0 

ROUND 

IC 

ROUNDSUb 

1288 

ref 

30 

LaSI 1000 

00  f ^ 1 1 / 

1 6125 

0 

1 Ct 

DANZIG 

1289 

RfE 

31 

LASI 1001 

00,2120 

1 6125 

0 

ICF 

DANZIG 

TJFC  7,  T967  (NTAINr  PAGElOOl 


USER'S 'OWN  Page  (fo.  '49  S3  E3 


GET  SHUT  COUNT  FOR  SR. 


ENTRY  here  FROM  5L  FOR  SCALARS. 
SHIFTING  LEFT  ONE  PLACE  AT  A TIME  IS 
FASIER  THAN  OOTnC“TTiE'V<HOLE:  SHIFT  WITH 
MULTIPLIES  ASSUMING  THAT  FREOUENCY  UF 
shift  COUNTS  goes  DOWN  RAPIDLY  AS  A 
'FONCTTaN  "OF“TflElR  MAGNITOITET,^  ' 

OVERFLOW.  (LEAVES  OVERFLOW-CORRECTED 

“RESUCrn^NYWAYJ  . 

LOOP  ON  DECREMENTED  SHIFT  COUNT. 


SEE  IF  ROUND  WANTED. 

YES  - ROUND  AND  EXIT. 

SL  Leaves  A ZERO  IN  CYR  FOR  NO  ROUND. 
NO  - EXIT  IMMEDIATE 
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P129U 

vector 

SHIFTING  routines. 

1291 

RfF 

1 

00,2121 

3 7765 

1 

SHORTV 

EAh 

L0W3 

SAVE  3 blT  SHIFT  COUNI  - 1 WITHOUT 

1292 

REF 

■jy 

LAST  1001 

00,2122 

7 0020 

1 

MASK. 

CYR 

EDI  1 ING  CYR. 

1Z93 

T7ET' 

CTiTTlOOl 

00,2123 

54  125 

u 

i 5 

ATPTEHP 

129A 

REF 

AO 

LA5I 1002 

00,212A 

10'  020 

1 

EC5 

CYR 

SEE  IF  LEFT  OK  RIGHT  SHIFT. 

1296 

REF 

1 

00,212b 

1 214b 

1 

1 Cl- 

VSSL 

VEClOK  SHIFT  LEFT. 

1296 

00,2126 

00176 

I 

UL 1X^6 

UE  I~ 

176 

UbE^  IN  PROCEbbEU  "bHIhT^  V»1TH  . COUNT# 

1297 

REF 

LaSI 1002 

00,2127 

50  125 

1 

VSSR 

INULX 

mrtlmh 

(ENIRY  FROM  SK).  PICK  UP  SHIFTING  BIT. 

1298 

TfF 

' 52 

EAST  999 

00,2130 

3 7746 

0 

EAh 

B1T14 

MPTEMP  contains  TFtE  SFTIFT  COUNT  - 1. 

1299 

REF 

2b 

LASI 1002 

00,2131 

54  12b 

0 

IS 

mptemp 

1300 

REF 

1 

00,2132 

0 2073 

1 

1C 

VSHKRND 

SHIFT  X component. 

1301 

REF 

bbl 

Last looi 

00,2133 

52  14b 

0 

OXEH 

MPAC 

SWAP  X AND  Y COMPONENTS. 

1302 

REF 

bb2 

LASI 1002 

00,2134 

52  150 

1 

UXLH 

MPAC  +3 

REF 

553 

LAST  1002 

00,2135 

52  14b 

0 

UXLH 

MPAC 

130A 

REF 

2 

LASI 1002 

00,2136 

0 2073 

1 

1C 

VSHKRND 

SHIFT  Y component. 

' ' 130b 

RfF 

5 54 

LAS  11002 

00,2137 

52  14b 

0 

MPAC 

SWAP  Y and  2 COMPONETTTS, 

1306 

REF 

bbb 

LAST  1002 

00,2140 

52  152 

0 

UXLH 

MPAC  +5 

1307 

REF 

556 

LaSI 1002 

00,2141 

52  145 

0 

UXEH 

MPAC 

T30B 

REF" 

~3 

LASI lOOZ 

00,'2I4E 

0 207  3 

1 

-ft:  ■ 

' T7SHKKN0 

~seitpt"Z  component. ^ 

1309 

ReF 

1 

00,2143 

1 747  T 

0 

ICE 

vrotatex 

RESTORE  components  TO  PROPER  PLACES. 

633'«6A  tUL  SVSTtl"  hOR  A(jC ; REVISION  0 Oh  PROGRAM  BURSUiiO  BY  NASA^iU^llOe-OSl  DEC  Jt  l967  (RiATN)  PAGE1003 


L 

P1310 

interpreter 
vector  shirt  leu 

- DONE  ONE 

PLACE  A1 

i A 

I IME. 

UStRiS  OWN  PAGE  NO.  5T  S3  ET 

1311 

REF 

26 

LASI 1002 

00,2144 

54  125 

0 

-1 

IS  MPTEMP 

shifting  loop. 

1312 

00,2145 

0 0006 

1 

VSSL 

EXTEND 

1313 

RLF 

557 

LASI 1002 

00,2146 

3 0145 

,1 

OCA  MPAC 

131A 

Rff 

51)8 

LaSI 1003 

00,2147 

20  145 

0 

LAS  MPAC 

1315 

00,2150 

0 0006 

1 

EXTEND 

1316 

00,2151 

1 2153 

0 

B2F  +2 

1317 

REF 

12 

LASI  993 

00,2152 

0 7101 

0 

1C  OVERFLOW 

1318 

00,2153 

0 0006 

1 

EX  1 ENU 

131R 

ref 

5tJ9 

LASI 1003 

00,2154 

3 0150 

0 

OCA  MPAC  *3 

1320 

REF 

560 

LAST  1003 

00,2155 

20  ISTT 

1 

D7T5  MPAC  +3 

1321 

00,2156 

0 0006 

1 

tXIENO 

1322 

00,2157 

1 2161 

1 

B2F  +2 

1323 

REF 

13 

LASI 1003 

00,2160 

0 7101 

0 

1 C OVERFCOW 

132A 

00,2161 

0 0006 

1 

EX  1 END 

1325 

REF 

561 

LA5 1 1003 

00,2162 

3 0152 

1 

DCA,  MPAC  +6 

1326 

REF 

562 

LASI 1003 

00,2163 

20  152 

0 

DAS  MPAC  +5 

1327 

00,2164 

0 0006 

1 

EX  1 END 

1328 

00',2165 

T~zre7 

I 

BZF 

1329 

RfF 

14 

LaSI 1003 

00,2166 

0 7101 

0 

1C  OVERFLOW 

1 ^ 

REF 

^7 

LA5 1 1003 

00,2167 

10  125 

0 

CCb  MPTtMH 

LOOP  ON  DECREI’IENTEDCH TFT  counter. 

1331 

REF 

LASI 1002 

00,2170 

1 2144 

0 

ICF  VSSL  -1 

1332 

ReF 

32 

LASI 1001 

00,2171 

1 6125 

0 

ICF  DAN21G 

EXIl, 

63i‘,3bA 

TUL 

575TEH  FOR  AGE 

: REVISION 

0 OF  PROGRAM  BURST12O  BY  NASA  2021106- 

031  DETCTT*  T067  (MAIN)  PAGE1004 

UTtRPRtTEK 

USERi'5  OTuFTPAGF  NO.  52  S3  E3 

^1333 

TSLC  - IRIPLe  shift 

Left  and  count.  smiF|s  mpac  leFi  untie 

greater  than  ,5  IN  magnitude.  Leaving 

K1333  “ 

The  v-Omkle'^ENT  or 

THE  IMUMBEK 

or  6HirT6 

KEUUIKEO  IN  A. 

1336 

HEF 

28 

last  1003 

00t2172 

54  125 

0 

ISLC2  IS 

MPTEMP 

start  by  zeroing  SHIFI  COUNT  (IN  A NOR). 

T33  1 

REF 

9F6 

“travzr73 

O^OOTT 

i 

ic 

BRANCH" 

Exl  ^ \^ITH  NO  S>HI^T iNoj  AR^jumENT  ^ER0« 

1338 

00,2174 

1 2176 

1 

ICF 

♦ 2 

1339 

REF 

1 

00,2175 

1 2212 

0 

ICF 

ENDTSLC 

STORES  ZERO  SHIFT  COUNT  IN  THIS  CASE. 

13‘.0 

ref 

9 

LAST  740 

00,2176 

0 732  1 

0 

1C 

TPAGREE 

MAY  CAUSE  upshift  OF  ONE  EXTRA  PLACE. 

mi 

REF 

563 

L^'STIOOS 

00,2177 

3 0144 

0 

CA 

MPAC 

BEgIN  NORMAtTZATroirCYTOP. 

1392 

REF 

1 

00,2200 

i 2207 

1 

1 CF 

T5LCIEST 

1343 

ref 

^9 

Last  1004 

00,2201 

24  125 

1 

TSLCLOOP  INCR 

MPTEMP 

INCREMENT  SRTFT  COONTTtR^ 

1344 

00,2202 

0 0006 

1 

tXIENO 

1345 

REF 

56^ 

Last  1004 

00,2203 

3 0146 

1 

UCA 

MPAC  +1 

1346 

REF 

565 

LAS  I 10Q<f 

00,2204 

20  146 

0 

UAS 

*flPAC  ♦! 

1347 

RfF 

566 

LaSI 1004 

00,2205 

6 0144 

0 

AD 

MPAC 

1348 

RfF 

561 

LASI 1004 

00,2206 

26  144 

1 

ADS 

MPAC 

1349 

00,2207 

6 0000 

I 

TSLCTtST  UUUbLE 

SEE  ir  rANOTHER'T~SHIF  r IS  REUUIREO* 

1350 

00,2210 

54  000 

0 

UV5)K 

1351 

REF 

1 

00,2211 

1 2201 

1 

ICF 

TSLCLOOP 

YES  - INCREMENT  COUNT  AND  SHIFT  AGAIN. 

1352 

REF 

30 

LaSI 1004 

00,2212 

4 0125 

0 

ENDTSLC  CS 

MPTEMP 

1353 

REF 

, 1 

00,2213 

1 6701 

0 

ICF 

STORtl 

store  SHIFT  COUNT  AND  RETURN  TO  DANZIG. 
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R135R  the  FoELo^ING  ROUTINES  PRoGESStS  THE  GENERAL  SHIFT  InSTRULIIqNS  SRi  SRR » SL*  ANO  SLR. 

R1356 the  given  AUURESS  IS  DELOTJeD  AS  FoLLO^tS: 

R13S7  BITS  l-I  SHIFT  COUNT  (SUBADORESS)  LESS  THAN  125  UECIMAL. 

TTT3T8 Err  8 PGEWO  STGN“^Tr"a7ETE:C15  CHAITGE  IN^^IGW  IN  INDEXEL"SH.IFTSr, 

R1360  BIT  9 0 TOR  LEFT  SHIFT.  AND  1 FOR  KIGHI  SHIFT. 

R1361  Bil  10  1 FOR  TERMINAL  ROUND  ON  SCALAR  SHIFTS,  0 OTHERWISE. 


H1362 

BITS  11-13 

0. 

R13625 

BIT  16 

1. 

R13627 

BI  1 15 

0. 

H1363 

the 

above  ENtOOlNG 

IS  DONE  BY' 

the  YUL  system. 

136A 

REF 

71  LASI  996 

00.2216 

7 0I06 

1 

GENSHIFI 

MAbK 

ADDRWD 

get  SHIFT  COUNT.  TESTING  FOR  ZeRO. 

1365 

REF 

331  L»SI  986 

00,2215 

10  000 

0 

^.Cb 

A 

(ARKIytS  WITH  CrA}  c~LDW7)  • 

1366 

REF 

1 

00,2216 

1 2226 

0 

1 CF 

GENSHFT2 

IF  NON-ZERO.  PROCEED  WITH  DECREMENTED  CT 

1367 

REF 

63  LASI  866 

00,2217 

3 7752 

0 

BITIO 

ZERO  SHIFT  COUNT.  NO  SfllFTS  NEEDED  BUT 

1368 

REF 

72  LASI 1005 

00,2220 

7 0106 

1 

mask 

AqdRwd 

WE  might  have  to  rounu  mpac  on  SlR  ANq 

1369 

REF 

332  LaSIIOOS 

00,2221 

10  000 

0 

LCS 

A 

SKR  (SCALAR  ONLY) . 

1310 

REF 

3 LTS'STIDOI 

00,2222 

0 7210 

0 

1C  ■ 

R0UND5UB 

1371 

REF 

33  LASU003 

00,2223 

1 6125 

0 

ICF 

DAN21G 

1372 

RrF 

31  Last  1006 

00,2226 

56  125 

0 

GEN5HFT2 

1 5 

MPTEMP 

OECKEMENItU  bhiFI  ^UUN I TO  MFTENH* 

1373 

ref 

36  last  951 

00,2225 

3 7756 

0 

lAf 

tJlTB 

TESI  meaning  Of  lOW  seven  bit  cUUNT  in 

1376, 

00,2226 

0 0006 

1 

EX  1 END 

MPTEMP  NOW. 

1375 

RFF 

73  CaS I 1 003 

00,2277 

7 0106 

1 

MP 

AUDRWD 

1376 

ref 

1 

00,2230 

7 6311 

0 

MAbK 

L0W2 

JUMPS  ON  SHlFI  DIRELTION  (BIT8)  AND 

1377 

REF 

333  LASI 1005 

00,2231 

50  000 

1 

INDEX 

A 

1378 

00,2232 

1 2233 

O’ 

ICh’ 

♦ I 

original  SKIF”T  DIKEtTlTON  (BIT  9). 

1379 

RfF 

1 

00,2233 

1 2332 

0 

ICF 

RIGHI- 

NEGATIVE  5H1FI  COUNT  FOR  SL  OR  SLR. 

1380 

REF 

1 

00,2236 

1 2361 

1 

ICF 

LEFT 

SL  UR  SLR. 

ITTP- 

TTrF 

1 

00,2735 

1 2336 

I 

ru” 

LEFT- 

negative  shi+t^countytith  SR  or  SRK. 
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RX382 general  SHIFT  RIGHT. 


1383  REF  28  LASI  996  00,2236  10  153  1 RIGHT  LGS  MODE  SEE  IF  VECTOR  OR  SCALAR. 

138A  Ref  1 00,2237  1 2277  0 I CF  QENSCR 

T3¥5 TTCF 2 rA5Tr006  00,2240  1 227T  0 ' 1 CF  GENSCR 

1386  ref  32  LASI1005.  00,22A1  3 0125  1 CA  MPTEMR 

T357  “REF"  “ I'  “ 00,2242  6 3710  T VRIGHTZ  AD  NEG12 

1388  00,2243  0 0006  1 EX  I END 

1389  REF  1 00.224A  6 2127  1 B2MF  VSSR 


1390 

REF 

9 

LA5I  997 

00,2245 

6 7771 

1 

AO 

NEGONE 

IF  not.  reduce  MPTEMP  BY  A TDTAL  DF  14. 

1391 

REF 

33 

LAS  1 1006 

00,2246 

54  125 

0 

IS 

mpTEmp 

AND  DO  A shift  RIGHT  AND  ROUND  BY  14. 

1392 

ref 

274 

LaJ)  I iOOO 

00,2247 

3 ^ ^6  ^ 

0 

LAF 

ZERO 

I HE  HUUNL  at  THi'b  bT  AVaE  MAY  INTHUULA-E  A 

1393 

REF 

173 

LaSI 1000 

00,2250 

54  001 

1 

IS 

L 

ONE  BIT  ERROR  IN  A SHIFT  RIGHT  150. 

1394 

ref 

568 

LASI 1004 

00,2251 

56  144 

0 

XCH 

MPAC 

1395 

REF 

569 

L/^ST  10U6 

00,2252 

56  145 

1 

XCH 

MPAC 

1396 

RfF 

1 

00,2253 

0 2272 

1 

1C 

SETRUUND 

X COMPONENT  NOW  SHIFTED,  SO  MAKE  UP  THE 

1397 

RfF 

5 70 

LaSI 1006 

00,2254 

20  145 

0 

UAb 

MPAC 

ROUNDING  quantity  (0  IN  A AND  0 OR  +-1 

A1398 

i N L j » 

1399 

REF 

571 

last  1006 

00,2256 

56  147 

0 

XCH 

MPAC  +3 

REPEAT  the  above  PROCESS  FOR  Y AND  2, 

1900 

REF 

572 

LASI 1006 

00,2256 

56  150 

0 

ACH 

MPAC  *4 

1401 

REF 

2 

UAb 1 X006 

00,2257 

0 2272 

1 

■ rc  ” 

SETRDUND 

1402 

ref 

573 

LASI 1006 

00,2260 

20  150 

1 

DAS 

MPAC  +3 

NO  OVERFLOW  ON  THESE  ADDS, 

“1403 

• RLF 

5 ^4 

LA6 1 1UU6 

00,2261 

56  151 

I 

XCH 

MPAC  +S 

1404 

REF 

575 

LASI 1006 

00,2262 

56  152 

1 

XCH 

MPAC  *6 

1405 

REF 

3 

LaSI 1006 

00,2263 

0 2272 

1 

1C 

SETRDUND 

1^06 

REF 

576 

LAb 1 iUU6 

00,2264 

20  15Z 

O’ 

“ “ DA’S 

MP7TC  -f3~ 

1407 

REF 

34 

LaSI 1006 

00,2265 

10  125 

0 

CCS 

MPTEMP 

SEE  IF  DONE,  DOING  FINAL  DECREMENT. 

1408 

REF 

35 

LaSI 1006 

UU  « ^ ^ 66 

54  125 

0 

1 s 

MPTEMP 

1409 

REF 

1 

00,2267 

1 2242 

0 

ICF 

VRIGHT2 

1410 

00,2270 

04604 

1 

BIASED  DEC 

.2974  B-1 

SORI  CONSTANT 

1411 

REF 

34 

LASI 1005 

00,2271 

1 6125 

0 

ICF 

DAN21G 

1412 

00,2272 

6 0000 

1 

SETRDUND  DOUBLE 

MAKES  UP  rounding  QUANTITY  FROM  ARRIVING 

t4T3" 

“REF 

577 

L aS 1 i 006 

00,2273 

5 A 1 A 6 

0 

1 b 

MPAC  +2 

CTTTI",  D IS  2EK0“l1tl  T I ALLY. 

1414 

REF 

2 75 

LaSI 1006 

00,2274 

3 776  7 

0 

CAF 

EERO 

1415 

REF 

174 

LAST  1006 

00,2275 

56  001 

0 

ACH 

L 

“1416 

REF 

291 

L /I  S 1 ^ Cmj  u 

00,2276 

0 0002 

0 ■ 

1C 

U 

return  -and  DD  THE  das,- RESETT  ING  L IO  0. 

SEE  IF  SHIFl  ^OUNT_  LESS  than  14U. 

IF  SO,  BRANCH  AND  SHIFT  IMMEDIATELY. 


: 
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P1417 

PROCESS 

SR  ANO  SRR  For  scalars 

1A18 

REF 

36 

LaSI 1006 

00,2277 

3 0125 

1 

OENSCR 

(.A 

MPTEMP 

SEE  IF  the  original  SHIFT  COUNT  WAS  LESS 

1A19 

RfF 

2 

LASt 1006 

00,2300 

6 3710 

I 

+ 1 

AP 

NEG12 

THAN  140, 

IA20 

00,2301 

0 0006 

1 

exieno 

1421 

RfF 

1 

00,2302 

6 2322 

0 

OOSSHET 

DO  IHE  SHIFT  IMMEDIATELY  IF  SO, 

1422 

Rlf 

10 

L/\51  1006 

00,2303 

6 7771 

1 

+ 4 

AD 

NtCjUINt 

IF  NOT*  decrement  SttlFT  COUNT  BY  I4U  AND 

1423 

REF 

37 

LASI 1007 

00,2304 

54  125 

0 

IS 

mptemp 

SHIEI  MPAC  right  14  PLACES, 

1424 

REF 

276 

LASI 1006 

00,2305 

3 7767 

0 

LAI- 

2ER0 

" ^425 

‘REF 

578 

LASI 1006 

00,2306 

56  144 

0 

mcFi 

MPAL 

1426 

RfF 

579 

LASI 1007 

00,2307 

56  145 

1 

XCH 

MPAC  +1 

1427 

REF 

580 

LASt 1007 

00,2310 

54  146 

0 

IS 

MPAL  +2 

1428 

REF 

38 

LASI 1007 

00,2311 

10  125 

0 

MPTEMP 

SEE  IF  FTNISRELT,  tJO  riT^AL  DECREMENT, 

1429 

REF 

. 39 

LASI 1007 

00,2312 

54  125 

0 

1 s 

MPTEMP 

1430 

REF 

3 

LASI 1006 

00,2313 

0 2300 

0 

1C 

GENSLK  +1 

1431 

00,2314 

22650 

1 

SLOPEHI 

UEt 

.5‘884 

SQRl  CONSTANT, 

1432 

REF 

46 

LaSI 1005 

00,2315 

3 7752 

0 

LAh 

BITIO 

finished  with  SHIFT.  SEE  IF  ROUND 

1433 

REF 

74 

LaSI 1005 

00,2316 

7 0106 

1 

MASK 

AODKWD 

WAN  1 ED. 

14  34 

RfF 

334 

LAS  11005 

ODT2Tr7 

no  oo<y 

u 

CCS 

"A 

1435 

REF 

4 

LASI 1005 

00,2320 

0 7210 

0 

1C 

ROUNOSUB 

1436 

REF 

35 

LaSI 1006 

00,2321 

1 6125 

0 

ICF 

DAN21G 

DO  SO  AND/OR  EXIT. 

1437 

REF 

40 

LaSI 100  J 

00,2322 

50  125 

1 

OOSSHFI 

INUEX 

MPTEMP 

PICN  UP  SHIFTING  bl I . 

1438 

REF 

63 

LASI 1002 

00,2323 

3 7746 

0 

LAE 

81714 

1439 

REF 

41 

LASI 1007 

00,2324 

54  125 

0 

1 5 

MPTEMP 

1440 

ReF 

47 

LASI 1007 

00,2325 

3 7752 

0 

LAh 

BlTlO 

SEE  IF  terminal  ROUND  DESIRED. 

1441 

REF 

75 

LaSI 1007 

00,2326 

7 0106 

1 

MAbK 

ADOKWU 

1442 

RfF 

335 

LASI 1007 

00,2327 

10  000^ 

0 

CCS 

~fr~ 

. 1443 

REF 

1 

00,2330 

1 2031 

0 

ICE 

R1GH1R 

YES. 

1444 

REF 

1 

00,2331 

1 2033 

1 

ICE 

MPACSHR 

JU5I  SHIFT  RIGHT. 
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P1995 

PROCESS  the 

RIGHT- 

(SLtR)  with 

A negative  COUNT) , LEFT-, 

AND  left  options. 

1997 

REF 

92 

LflSI 1007 

00,2332 

9 0125 

0 

RIGHI- 

LS 

mptemp 

GET  ABSOLUTE  VALUE  - 1 OF  SHIFT  COUNT 

14^8 

ref 

1 

00,2333 

6 2126 

0 

Ad 

Oct  176 

UNdLKSTANdING  that  Bll8  (PSEUDO-SiGN) 

■RrT 

93 

LAb 1 IUOh 

00,2339 

54  126 

0 

1 s 

MPTEMP 

WAS  1 iKrrrAtLTT~ 

1950 

RfF 

1 

00,2335 

1 2236 

0 

ICF 

RIGHI 

DO  NORMAL  SHIFT  RIGHT, 

" '■  1951 

-ref- 

LA5T1008 

00,2336 

9 0125 

0 

LTFr- 

Lb" 

MPTEMP 

SAME  PROLOGUE  TO  tEFT  TOR  INOEXED  RIGHT 

1952 

REF 

2 

LASI 1008 

00,2337 

6 2126 

0 

AU 

0CT176 

SHIFTS  WHOSE  NET  SHIFT  COUNT  IS  NEGATIVE 

1953 

REF 

95 

LASI 1008 

00,2390 

59  125 

0 

IS 

MPTtMP 

1959 

ref 

29 

LASU006 

00,2391 

10  153 

1 

left 

CCS 

mode 

sinle  Left  shifting  is  some  one  place  at 

1955 

REF 

.1 

00,2392 

1 2395 

0 

ICF 

GENSCL 

A TIME,  NO  comparison  WITH  19  NEED  BE 

1956 

RCF 

2 

[./A  b 1 i UU8 

00,2393 

1 2395 

0 

1 Ch 

OENSLL 

DONE,  TOR  SCAEARS,  SEE  IF  TERMINAL  ROONO 

REF 

i 

LASI 1003 

00,2399 

1 2195 

1 

ICF 

VSSL 

desired,  for  vectors,  SHIFT  IMMEDIAIELY, 

1958 

RpF- 

95 

last  861 

00,2395 

3 7756 

I 

GENSCL 

LAf" 

BIT  6 

PUT  ROUND ITTff “Bn  (triTTO  OF  UDORWD)  INTO 

1959 

00,2396 

0 0006 

1 

EX  1 END 

BIT  15  OF  CYR  WHERE  THE  ROUNOING  BIT  OF 

1^60 

ItoAl 

RrF 

fjrF 

76 

A1 

LASI i007 
LASI 1007 

00t23^7 

no-7^sn 

7 0106 
n7U 

1 

1 



MP 
- 1 

ADDKWO 

CYR 

A SHORT  SHIFT  LEFT  WOULD  BE. 

1962  RpF  3 LASIlOOl  00,2351  1 2103  0 ( CF  TSSL  +2 


00  THE  SHIFT 


» 
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P1R63 

scalar  OiVlbloN  INBTRUCTloNBt 

OOV  and  bUUV«  are  executed  here. 

at  iHis  Pqini*  the  dividend  is  in  MPaC 

K1465 

ANO 

THF 

OlVlSOR  IN 

BUF. 

1466  - 

REF 

167 

LaSI  995 

00,2352 

4 7763 

0 

DDV/BUDV  CS 

ONE 

INI  1 lALiZATlON. 

“TAFT  ■ 

REF 

T 

0'0,Z353 

"54  I26~ 

0. 

1 b 

"UVSlGN 

+-1  fur  positive  OUOTlTNT  - -0  FOR  NEG. 

1468 

RfF 

1 

00,2354 

54  12  7 

1 

IS 

DVNUKMCT 

DIVIDEND  normalization  COUNT. 

1469 

REF 

1 

00,2355 

'54  130 

1 

IS 

MAXUVbW 

NEAK-ONE  DIVIDE  FLAG. 

1470 

REF 

77 

last  995 

00,2356 

10  120 

0 

(.Cb 

BUF 

FORCE  BUF  POSITIVE  RITH  THE  MAUOR  PART 

1471 

REF 

1 

00,2357 

1 3712 

1 

TCI- 

BUFHOb 

NON-ZERO. 

T472 

00,2360 

1 2362" 

u 

KF 

♦ 2 

1473 

REF 

1 

00,2361 

1 3725 

0 

ICE 

BUENEG 

14731 

RfF 

581 

LAST  1007 

00,2362 

54  146 

0 

BUh4tKU  1 b 

»1PAC  *2 

ZERO  THIS. 

14732 

Ref 

10 

LASI 1004 

00,2363 

0 7327 

0 

1 c 

TPAGREE 

FORCE  SIGN  agreement  BEFORE  OVERFLOW 

14733 

REF 

bb2 

LAST  1009 

00,2364 

10  144 

1 

CC5 

WPAC 

TEST  TO  SEE  lF  "MP'ACTTOI<r-ZERO.  (TOO  BIG) 

14734 

REF 

1 

00,2365 

1 2414 

0 

ICE 

OVF  + 

MAJOR  PART  OF  DIVIDEND  IS  POSITIVE  NON-0 

14735 

00,2366 

1 2370 

0 

ICE 

♦ 2 

14736 

REF, 

2 

L/'SI  1009 

00,2367 

1 2411 

0 

ICF 

□VF*  -1 

MAjUR  RART  of  UIVIDENP'  IS  NEG.  NON-ZERO 

1474 

REF 

78 

LaS) 1009 

00,2370 

56  121 

0 

XCM 

BUF  +1 

SHIFT  DIVIDEND  AND  DIVISOR  LEFT  14. 

1475  ' 

RfF 

79 

L.AST  1009 

00,2371 

56  120 

1 

XCH 

BUF 

14  76 

REF 

583 

last  1009 

00,2372 

56  145 

1 

ACM 

MPAC  *1 

1477 

REF 

584 

LASI 1009 

00,2373 

56  144 

0 

ACM 

MPAC 

1.481 

■RfF 

80 

LTTST  1009 

00,2374 

10  120 

0 

CCb 

BUF 

TKT  AGAIN  ON  F0PMETT-f<rrNOR  PART. 

1482 

RfF 

1 

00,2375 

1 2420 

1 

ICE 

6UF  + 

1483 

00,2376 

1 2400 

0 

ICF 

♦ 2 

OVERFLOW  ON  ZLRO  DIVISOR. 

1484 

RfF 

I 

00,2377 

1 2414 

0 

ICF 

BUF- 

14841 

ref 

585 

LASI 1009 

00,2400 

4 0144 

1 

CS 

MPAC 

SIGN  OF  MPAL  determines  SIGN  OF  RESULT. 

14842 

00,2401 

0 0006 

1 

SGNDVOVF  EXl'END 

14843 

00,2402 

6 2404 

0 

b/lMF 

+ 2 

14844 

REF 

2 

LaSI 1009 

00,2403 

24  126 

1 

iNCK 

DVSIGN 

NEGMAX  in  MPAC  PERHAPS, 

1483 

RpF 

^4 

Last  997 

■ 00,2404 

3 7743 

O' 

DVOVF"  TTAt  

POSMAX 

ON  DlvlSTOrr  oVERFHOW  OF  ANY  SORT,  SET 

i486 

REF 

586 

LASI 1009 

00,2405 

54  144 

1 

1 S 

MPAC 

SLT  DP  MPAC  TO  ♦-POSMMX. 

1487 

REF 

1 

00,2406 

0 2604 

1 

1C 

FINALDV  +3 

T4BB 

RCF 

166 

L/\5  1 IUO9 

00,2407 

3 7763 

1 

CAh  - 

ONE 

SET  OVERFLOW  INDICATOR  AND  EXIT. 

1489 

RfF 

1 

00,2410 

1 7153 

0 

ICE 

SETOVE 

14^8^  1 

■RfF 

3 

LaSI 1009 

00,2411 

24  126 

1 

-1  INCH 

DVSIGN 

14892 

REF 

81 

LASI 1009 

00,2412 

4 0121 

1 

OVF+  CS 

BUF  +1 

LOAD  LOWER  order  PART  OF  DIVISOR. 

14893 

REF 

1 

00,2413 

1 2401 

1 

ICE 

SGNDVUVF 

GET  SIGN  OF  RESULT. 

1490 

00,2414 

0 0006 

1 

BUF-  EX  1 END 

IE  BUF  is  negative,  COMPLEMENT  IT  AND 

1491 

REF 

82 

LaSI 1009 

00,2415 

4 0121 

1 

DCS 

BUF 

maintain  BVSIGN  for  final  QUOTIENT  SIGN. 

1492 

KpP 

83 

LASI 1009 

00,2416 

52  121 

1 

OXCH  • 

BUF 

1493 

REF 

4 

LASIIOO9 

00,2417 

24  126 

1 

INCH 

DVSIUN 

NOW  -0. 

1494 

RFF 

587 

LASI 1009 

00,2420 

10  144 

1 

BUF+  - cell  - - 

MPAC  

FORCE  MPAC  POSITIVE,  "CHECK  TNG  FOR  ZERO 

4' 


' 6:33«BA 

YUE 

SYSteF  EOF  AOC: 

Revision 

0 OF  PROGRAM 

BURST 120“ BY 

NASA  E021106-031 

aEC“  7 ,T^9E7  ' TMAIN)  PAGeIOIO 

....  ..  -- 

TaTERFRETE^ 

USERiS  OWN  FAGe  NCT;  “56  S3  E3 

1995 

REF 

1 

00,2921 

1 2935  0 

ICE 

MPAC* 

OlVlUENU  IN  1HE  PROCESS. 



00,2922 

I 2424  0 

1 Lh 

♦ 2 

1997 

RfF 

1 

00,2923 

1 2931  1 

ICE 

MPAC- 

1998 

REF 

588  LASt 1009 

00,2929 

10  195  0 

CCS 

MPAC  +1 

1W5 

TREF- 

“2  “CAST  1010  ' 

CO  » 2 ^ Z 5 

■ I 293S  E 

1 Ch 

MPAC* 

1500 

REF 

36  LaSTIOO/ 

00,2926 

1 6125  0 

1 CE 

OAN210 

EXll  IMMEDIATELY  ON  ZERO  DIVIDEND. 

1501 

REF 

2 LA5I1010 

00,2927 

1 2931  1 

ICE 

MPAC- 

1502 

REF 

37  LA5T1010 

00,2930 

1 6125  0 

1 CF 

TJAM21Q 

1503 

R F 

5B9  1 A51 1010 

OOf 2^31 
00.2432 

0 0006  1 MPAC-  EXIENO 

4 0145  0 , CCS WPTTC 

EORCE  MPAC  POSITIVE  AS  BUF  IN  BUF-. 

1505  REF  690  LA5I1010  0O,2<»33  52  K5  0 UALH  MHAC. 

1506  RfF  5 LASI1009  00,2<»3‘t  2A  126  1 1N(.K  OVSION 


NOW  +1  OR  -0 
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L rNfERPRtrER  ' USERt'S  OWN  RAlJr  NOt  “ 59  " ' 53  E3 


1507 

REF 

591 

LAST  1010 

00,2935 

9 0199 

1 

MPAC  + 

Cb 

MPAL 

. lhelk  For  division  overflow,  if  the 

IS^B'" 

'REl' 

11 

EA'ST'1007' 

00,293'6 

6 7771 

1 

AD 

NEGONE 

MAJOR  PATTT  of  TFIE  UTVIDEND  IS  LESS  THAN 

1509 

REF 

Last  1009 

00,2937 

6 0120 

1 

AD 

BUF 

THE  MAJOR  PART  OF  THE  DIVISOR  BY  AT 

1510 

RfF 

336 

LAST  1007 

00,2990 

10  000 

0 

ECb 

A 

LEAST  TWO,  WE  CAN  PROLEED  IMMEDIATELY 

‘ rSTT" 

"REF 

0CT,2991 

1 250?’ 

i 

Tcr 

DVNORM 

WITHOUT  NuNhALiZAI  luN  PROtJOCTNG  A DVMAX. 

IblZ 

00,2992 

60001 

0 

-1/2+2 

UCI 

60001 

USED  IN  SORTSUB. 

■ T5l3 

00,2993 

1 2999 

0 

rcF 

♦1 

Ih  IHE  AbUVt  UOEb  NUI  HULD*  hOKCE  biON 

151A 

REF 

18 

last  99T 

00,2999 

3 7796 

0 

laf 

half 

agreement  in  numerator  and  dENOMINAIOR 

1515 

00,2995 

6 OOOO 

1 

UUUBLE 

TO  facilitate  overflow  and  near-one 

T5I6 

"REF 

592 

UASilOll 

00,2996 

6 0195 

1 

Air 

MPAL  +1 

1 NO# 

1517 

REF 

593 

LAST  1011 

00,299? 

59  195 

0 

IS 

MPAL  +1 

1518 

REF 

2n 

LASI1007 

00,2950 

3 7767 

0 

LAF 

ZERO 

1519 

RfF 

55 

LAST1009 

00,2951 

6 7793 

0 

AD 

P05MAX 

1520 

REF 

59^ 

LASTlOll 

00,2952 

26  199 

1 

ADb 

MPAL 

1521 

Ref 

19 

East  10 11 

00,2953 

3 7796 

(T 

EAh 

half 

SAME  rOR  'BUP. 

1522 

00,2959 

6 0000 

1 

UOUBLE 

1523 

REF 

65 

LASTlOll 

00,2955 

6 0121 

0 

AO 

BUF  +1 

152A 

REF 

66 

LASTlOll 

00,2956 

59  121 

1 

r 5 

BUF  +1 

1525 

REF 

278 

LASI 1011 

00,2957 

3 7767 

0 

LAF 

2ERU 

1526 

■REF 

56 

LASTlOll 

00,2960 

6 7793 

0 

AD 

P05MAX 

1527 

REF 

67 

LAST  1011 

00,2961 

26  120 

0 

ADb 

BUF 

1528 

REF 

595 

LASTlOll 

00,2962 

9 0199 

1 

ES 

MPAL 

CHECK  magnitude  OF  SIGN-CORRECTED 

1529 

REF 

86 

LASTlOll 

00,2963 

6 0 1 iiU 

1 

AD 

BUF 

operands," 

1530 

RfF 

337 

LASTlOll 

00,2969 

10  000 

0 

(.Cb 

A 

- 1531 

REF 

2 

LASTlOll 

00,2965 

1 2503 

1 

ILF 

DVNORM 

DIVIDE  OK  - WILL  NOT  BECOME  MAXDV  CASE. 

1532 

REF 

xy 

LASi  989 

00,2966 

00123 

1 

LBUF2 

ADKt'S 

“B0F2 

1533 

REF 

1 

00,2967 

1 2909 

1 

ILF 

DVOVF 

DIVISOR  NOT  LESS  THAN  DIVIDEND  - OVF . 

“I53A 

REP 

2 

LA5T1009 

00,2970 

59  130 

1 

--rs~ 

■TnAXDVbW 

IF  the  major  parts  of  the  DIVIDEND  AND 

1535 

Ref 

596 

Last  loii 

00,2971 

9 0195 

0 

LS 

MPAL  +1 

DIVISOR  ARE  EUUAL,  A SPECIAL  APPROXIMA- 

1536 

REF 

69 

LaSTIOII 

00,2972 

6 0121 

0 

AD 

BUF  +1 

TION  IS  USED  (PROVIDED  THE  DIVISION  IS 

^537 

00,2973 

0 000"6’ 

I 

tX 1 END 

POSSTBLE,  CTF  XOORSET  . " “ " 

1538 

REF 

2 

Last loii 

00,2979 

6 2909 

0 

B2MF 

DVOVF 

1539 

REF 

3 

LASTlOll 

00,2975 

1 2503 

1 

ILF 

DVNORM 

IF  NO  OVERFLOW. 
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^ ~\T 

iNltRPRtYER^ 

UbtK»:>  OWN  KA<jE  no*  60  53  E3 

15A0 

00,2476 

0 000b 

1 

bufnokm 

EX1ENU 

AUD  -1  TO  AUQiMENT  SHIFT  COUNT  AND  SHIFT 

' I5AT 

RfT^ 

■7T.*A5T1009'^ 

00,2477 

24  127 

0 

DVNORMCT 

LEFT  ONE  PITACE. 

15A2 

00,2500 

0 0006 

1 

tXIENO 

li>^3 

REF 

90  LA5T1011 

00,2501 

3 0121 

0 

UCA 

BUF 

15AA 

■REF 

9T  XAFIlUtF 

00,2502 

■20  izr 

i 

PAb 

OTF 

1545 

REF 

92  LaSI1012 

00,2503 

3 0120 

1 

UVNORM 

t-A 

BUF 

SEE  IF  DIVISOR  normalized  YET. 

1546 

■ 00,2504 

■6  0000 

1 

UXJUBt-t 

1547 

00,2505 

54  000 

0 

UVbK 

154B 

RfF 

1 

00,2506 

1 2476 

1 

ICF 

BUFNORM 

NO  - SHIFT  left  ONE  AND  TRY  AGAIN. 

1549 

RfF 

597  UASnOll 

00,2507 

52  145 

0 

PXGH 

mpac 

Call  dividend  normalization  sequence 

1550 

ref. 

3 LaSI 1012 

00,2510 

50  127 

0 

INPEX 

OVNORMCT 

PRIOR  TO  DOING  THE  DIVIDE. 

1 &5I 

REF 

1 

00  • 25  1 1 

0 2541 

0 

I c 

MAXTEST 

1552 

REF 

598  LaSI 1012 

00,2512 

54  146 

0 

I S 

MPAC  +2 

returns  with  division  done  and  C(A)  = 0. 

T553 

REF 

3b  L/'IjJitiiU 

00,2513 

I 6125 

0 

iCh 

PAN2Jg 

633^36A  yUL  bySTfc|^,  (-OR  At,C:  REVISION  0 OF  pROgRAm  BURS I12U  by  NASA  202U06-03V 


DTX  7*  r^7  VhAIN)  pAgE1013 


L Interpreter  " user*s  own  pacje  no.  si  S3  tr 

P1S5A FqLLqWING  ARE  PRqLqGUES  jq  SHIF7  UIVIOENU  ARRIVING  IN  A ANU  L bEFpRE  UIVIDE. 


1SS6 

REF 

28 

LASTlOOl 

00,2519 

22 

021 

1 

-21D 

LXUH 

SR 

SPEUIAL  PROLOGUE  FOR  UNIT  WHEN  THE 

IS57 

00,2515 

0 1 

0006 

1 

tXlblND 

length  of  the  argumeni  was  not  less  than 

1T53' 

RFF’ 

”20 

LASTIOn 

0U»2>16 

7 7796 

T 

MP~ 

■HALT 

.5.T7I  THIS  EASE,  EALH  COMPONENT  MUST  BE 

IS59 

REF 

175 

LASI 1006 

00,2517 

56 

001 

0 

ACM 

L 

SHIFTED  RIGHT  ONE  TO  PRODUCE  A HALF-UNIT 

ISSO 

REF 

LASI 1013 

00,2520 

6 ' 

0021 

1 

MO 

SR 

VECTOR. 

TSbT" 

" RVF' 

TF4 

LaSI  1013 

00,2521 

b6 

001 

0 

XCH 

1562 

RfF 

1 

00,2522 

1 , 

2595 

0 

ICF 

SENPPV  +1 

WITH  DP  DIVIDEND  IN  A.L. 

1563 

00,2523 

20 

001 

1 

POOUBE 

prologue  WErrcFTTroRMRcuES  THE  dividend 

156A 

00,2529 

20 

001 

1 

OOUUbL 

when  it  is  known  THAT  NO  DIVISION 

1565 

00,2525 

20 

001 

1 

OOUUbL 

OVERFLOW  WILL  OCCUR. 

1564 

00,2526 

20 

001 

i 

PDUUBL 

1567 

00,2527 

20 

001 

1 

UDOUbL 

1568 

00,2530 

20 

001 

1 

OOUUbL 

1569 

00,2531 

20 

001 

1 

DDOUBL 

1570 

00,2532 

20 

001 

1 

UOOUbL 

1571 

00,2533 

20 

001 

1 

OOUUbL 

1572 

00,2539 

20 

001 

1 

ODUUBL 

1573 

00,2535 

20 

001 

1 

OOUUbL 

157A 

00,2536 

20 

001 

1 

UOUUBL 

lt>lb 

001 

1 

PUUUbL 

1574 

REF 

bV9 

LASI 1012 

00,2590 

52 

195 

0 

OXCH 

MPAU 

1 b 7 7 

Rp  F 

3 

LAST  1011 

00,2591 

10 

130 

1 

MAXTE5T 

CCb 

MAX0V5W 

0 IF  MAJORS~MTGRT  Btr  -1  OTHEKWISt, 

1578 

00,2592 

06552 

0 

BlASHl 

PEO 

.9192  6-1 

SoRI  CONSTANTS 

1579 

TIeF 

1 

00,2593 

1 

2616 

0 

1 Ch 

MAXUV 

CFTELK  to  SEE“l”F~TffET””AKE  NOW  EQUAL. 

633A36A 

YUL  SYSTEM  FOR  AGC-  REVISION  0 OF  PROGRAM  BURST  lEu  tSY  NASA  202U0b-O31 

T>EC^7»  1967  (MATTY) 

paceioia 

•- 

rNTERPRETpR 

USERiS  OWN^PAGE  no,  62 

S3  E3 

H1580 

the  Following  is  a general  purpose  double  precision  division  routine,  it  divides  mpac  by  buf 

AND  Leaves 

--  - RT5B^ 

|Mt  11'^  |Mt  r JLUUI/V  i I'iVj  CUIHU'  illUI'jd  I'lUOj  Dt 

R1583 

1.  the  divisor  (BUF)  must  be  positive  and  not  less  than  .s. 

R158A 
. R1586 

2,  the  dividend  (MPAC)  MUST  BE  POSITIVE  WITH  THE  MAjOR  PART  OF 
(A  special  approximation,  MAXDV,  is  used  when  the  major  PARTS  ARE  EQUAL) 

MPAC  Strictly  less  than  that 

OF  BUF 

K1588  UNUeKSTANOIIMG  THAT  A/B  = Q + SIR/B)  WHtRt  ^ = 2<-lA)  AND  0 AND  R AR£  QUOTIENT  AND  KeMATNDeRi  ReSPeU- 

RT590  TlVELYt  THE  FOLLOWING  AppROXi mAT ION  15  OBTAINED  By  MULTIPLYING  ABOVE  AND  BELOw  BY  C - AND  NEGLECTING  TERmS  Op 
- ORDeN-  S.SOUAReD  IP055IBLY  INTROOUCITYG  eNROR  INTO  tHe  LOW  TWO  B1  tS  OE  THr  ReS’ULTTV  S-TGTT “AGREtl^Rr “1 5- UNNeCeSBARY . 


K1594 

A + SB  . (R  - QD) 

A ♦ SB 

R1596 

Q + S( ) 

WHEKt  Q AND  H AKE  QUOIiENT  AND  KEwAiNDEX  Op  ------  KESPECTI VEET* 

K1598 

C + SD  ( C ) 

c 

1600 

RtF 

600 

LAs'  1013 

00,2544 

52  145 

0 

GENdov 

DXCH 

MPAc 

wE  need  a and  B only  for  F1«sT  DV. 

1 6U 1 

00*25^5 

D UUU6 

I 

♦1 

EX  1 

^SPECIAL  UNIT  PROLOGUE  ENTERS  H£REj* 

1602 

REF 

93 

LAST  1012 

00,2546 

10  120 

0 

DV 

BUF 

A NUW  CONTAINS  0 AND  L,  R. 

1603 

REF 

601 

LAST  1014 

00,2547 

52  145 

0 

UXEH 

MPAC 

160A 

RfF 

602 

last  1014 

00,2550 

4 0144 

1 

cs 

mpac 

FORM  dividend  for  MINUR  PART  OF  RESULT. 

1605 

00,2551 

0 0006 

1 

EXTEND 

1 606 

• ref 

9A 

LAST  1014 

00,2552 

7 0121 

1 

MP 

BUF  *1 

1607 

ref 

603 

last  1014 

00,2558 

6 0145 

I 

AD 

mpac  +1 

OVERFLOW  AT  THIS  POINT  IS  POSITIVE  SINCE 

1608 

00*255A 

54  000 

0 

uvsx 

R IS  POSITIVE  IN  EVERY  CASE. 

“T609 

^ 00,2555 

1 2562 

cr 

1X1= 

+ 5 

1610 

00,2556 

0 0006 

1 

extend 

overflow  can  be  removed  by  subtracting  c 

1611 

RpF 

95 

LaSTIOIA 

00,2557 

6D  i2D 

1 

bU 

BUF 

(BUF)  OrYCE  Si-NCr'H“TS  ALWAYS  LESS  THAN  C 

1612 

RfF 

604 

Last  lou 

00,2560 

24  144 

0 

INEK 

MPAC 

IN  IHIS  CASE.  INCH  COMPENSATES  SUBTRACT. 

1613 

REF 

1 

00,2561 

1 2564 

0 

ICF 

♦ DOWN 

(SINCE  CIA)  IS  STILL  POSITIVE). 

161A 

00t2562 

0 0006 

1 

♦5 

EXTEND 

C(A)  CAN  BE  made  LESS  THAN  C IN  MAGNI- 

1615 

REF 

1 

00,2563 

6 2574 

0 

b2mF 

-Up 

TUDE  by  diminishing  I T BY  C (SINCE  C IS 

A1616 

NOT  LETSS  than  .51  UNLESS  C(A)  = 0. 

M 
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T5EC  T967  (MAIN)  PAGEIOIS 


L interpreter' 


USERtS  OWN  page  no.  63  S3  ET 


1617 

00,2564 

0 0006 

1 

4-DOwN 

EXI ENO 

161B 

RE'r 

96  LASriOTA 

00,2565 

60  120 

1 

5U 

■BEIF 

IE  POSIT rVE,  “REDUCE  ONLY  IE  NECESSARY 

1619 

00,2566 

0 0006 

1 

tXItNO 

SINCE  TFiE  compensating  INCR  MIGHT  CAUSE 

1620 

00,2567 

1 2572 

1 

B2F 

♦ 3 

OVERFLOW. 

" 1621 

15D,2T70 

"0  0006 

IT 

ETC  TEND 

DOM  SUBTRACT  U7rCB5S'T<E^^t.T  IS"  POSITIVE 

1622 

REF 

1 

00,2571 

6 2600 

0 

B2MF 

ENDMAXDV 

OK  AERO. 

1623 

“ REP 

60S 

LA5T1019 

00,2572 

24  144 

0 

*3 

1 NLR 

MPAC 

KEEP  SUBTRACT  TTERE"AND  COMPENSATE, 

162^ 

RiF 

2 

LAS  1 1009 

00,2573 

1 2601 

0 

ICF 

FINAlDV 

Ibl5~ 

00,2574 

0 0006 

1 

-UP 

EXTEND 

IF  ^FRO,  SET”TiI^OR  PAK7  OF^FSULI  TO 

1626 

REF 

3 

LA5I 1015 

00,2575 

1 2604 

0 

B2F 

FINALDV  +3 

2ER0. 

1627 

00,2576 

0 0006 

1 

EXTEND 

Ih  AOD  10  Ai  SUb  1 KAC 1 1 rJ(j  OWt 

1628 

REF 

606 

LASI 1015 

00,2577 

26  144 

1 

DiM 

MPAC 

TO  compensate,  dim  is  Ox  here  since  the 

1629 

REF 

97 

LaSI 1015 

00,2600 

6 0120 

1 

endmaxov 

AL) 

BUF 

MAJOR  part  never  OOES  NEGATIVE. 

633936A 

YUL 

SYSTEf-  FOR  AOC: 

REVISION 

0 OF  program  BURST120  BY  NAS^A  2021106-031 

PEC  7,  1967 

“ TRAIN)  PAGET016 

L 

1630 

INTtKPKtlEK 

00,2601 

22  007 

0 

FTNALOV 

4L 

usek«s  own  PAGET^O. 

DO  DV  TO  OBTAIN  MINOR 

69  S3  E3 

PART  OF  RESULT. 

rsn 

00,2602 

0 0006 

1 

“EXTEND 

1632 

REF 

9B 

LaSI 1015 

00,2603 

10  120 

0 

OV  BUF 

1633 

REF 

607 

LaSI 1015 

00,2609 

54  145 

0 

+ 3 

IS  MPAC  +1 

1639 

REF 

6 

LaSI 1010 

00,2605 

10  126 

0 

CCS  DVSIGN 

Leave  result  positive 

unless  C(UVSIGN)= 

1635 

REF 

292 

LASI 1006 

00,2606 

0 0002 

0 

1C  Q 

-0. 

' ^ “ 1636  ^ 

R?F 

293 

L/'S  1-1016 

00,2607 

0 “0002 

0 

1 L u 

1637 

ref 

294 

LASI 1016 

00,2610 

0 0002 

0 

1C  0 

y63B  00.2611  0 0006  1 tXIENO 


1639  RLF  608  LASI1016  0U.26U  4 01^6  0 Ut6  MPAt 
16AU  ref  609  LaSUOU  00,2613  52  1A5  0 OXOH  MPAC 
I6A1  ref  279  LflSnOll  00.261A  3 7767  0 OAF  2ER0 
1692  REF  295  LASH016  00,2615  0 0002  0 1C  Q 


SO  WE  ALWAYS  RETURN  WITH  C(A)  i 0 


633A36A 

VUL  SYSTEM  FOR  AGC:  REVISION  0 OF  PROGRAM  BURST12U  BY  NASA 

2021106-031 

'Dtc  7.  1967  TMSIN)  PAGE1017 

L 

H1643 

ImTERPRETER 

IF  IHe  major  parts  of  the  divisor  and  dividend  are 

EUUAL,  but 

UStR'S  OWN  PAGFTTo.  65  S3  E3 

IHe  minor  parts  are  such  that  the 

t^l6A7 

DIVIUeND  15  5TRI^TLY  L£55  THAN  THe  D1VI50R  IN  MA<jl'il)UL't»  THt  J*OLLOWiNiJ  APPROXIMATION  15  U5tP,  Tht  ASSUMPTIONS 

ake  the  5/\me  as  iHe  oenehal  routine  with  the  AUuiiiuN  that  sujn  Agreement  necessary  ib,  c*  6 d positive). 

R16A9 

G + SB  . (C  + b - D) 

K1650 

37777  + S( ) 

KltSl 

G ♦ SD  ( C ) 

K1652 

the  division  may  be  performed  immediately  since  6 

IS  strictly 

Less  than  d and  c is  nui  less  than  o. 

165A 

REF 

610 

LASI 1016 

00,2616 

A 

OlAA 

1 

MAXDV 

cs 

MPAG 

SEE  IF  MAXDV  CASE  STILL  HOLDS  AFTER 

1655 

REF 

99 

LA  S 1 1016 

00,2617 

6 

0120 

I 

AD 

BUF 

normalization. 

1656 

00,2620 

0 

0006 

X 

EX  1 END 

1657 

00,2621 

1 

2623 

0 

BZF 

♦ 2 

165B 

REF 

2 

LASI 1013 

OU  9 ^ ^ 

1 

25AA 

1 

1 o 

OENDDV 

MPAL  NOW  LESS  TFTAN  BOF  - DIVIDE  AS  USUAL 

1659 

RFF 

57 

LaSUOI  1 

00,2623 

3 

7743 

0 

+ 2 

CAP 

POSMAX 

SET  MAJOR  PARI  OF  RESULT. 

1 66U 

REF, 

611 

LAST1017 

00,262A 

5A  14A 

1 

is 

MPAG 

1661 

REF 

100 

LASI 1017 

00,2625 

A 

0121 

1 

CS 

BUF  +1 

FORM  dividend  OF  MINOR  PART  OF  RESULT. 

i 66<i  • 

REF 

612 

LAST1017 

00,2626 

6 

0145 

1 

AD 

MPAG  4.1 

1663 

REF 

2 

LASI 1015 

00,2627 

1 

2600 

1 

IGF 

ENDMAXDV 

GO  ADD  G AND  DO  DIVIDE,  ATTACHING  SIGN 

Alb6^ btpUKE  EXITING. 
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Pl66^ 

1667 

1668 
“T5B9 

1670 

IBTl 

1672 

1673 


16  7A 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

163A 

1685 

1686 

1687 

1688 

1689 

1690 

l69l 

1692 

1693 
IB?*? 

1695 

1696 

1697 

1698 
169V 


"“TnTERPRETeR  USERiS  OWN"PAGr'NCr,  ^66  " S3  E3 


VEOrOR  UIVIUeO  by  scalar,  V/SC,  is  EXfcCUItO  HtRE.  THt  VECTOR  lb  N0«  IN  MPAC  WITH  SCALAR  IN  BUF. 


REF 

169 

LAbI 1009 

00,2630 

A 7763 

0 

V/SC2 

Lb 

ONE 

INItlALIZE  DIVIDEND  NURMALUAT  ION 

COUNT 

ref 

4 

LASi 1012 

00,2631 

5A  127 

1 

1 b 

DVNUkMCT 

and  Division  sign  register. 

RpT 

A3 

LA5T~998 

00,2632" 

VA-TT7' 

I' 

1 5^ 

VBUF  *5 

Ref 

101 

LASI 1017 

00,2633 

10  120 

0 

LCb 

BUF 

force  divisor  positive  with  major 

PART 

RTF 

‘ "T 

00, 2 63 A 

1 2671 

1 

ICF 

/Bor» 

non-zero  (TF  POSSTBEBr,  ■ 

00,2635 ' 

1 2637 

0 

ICF 

REF 

1 

00,2636 

1 2665 

1 

ICF 

/BUF- 

RfF 

102 

LaSI 1018 

00,2637 

56  121 

0 

ACH 

BUF  *1 

SHIFT  VECTOR  AND  SCALAR  LEFT  lA. 

REF 

103 

LAbI 1018 

0O,26A0 

56  120 

1 

ACM 

BUF 

REF 

6i3 

Lf\5\  1017 

00,26A1 

56  1 A5 

1 

AC'H 

MPAC  ♦ 1 

REF 

61A 

LAST1018 

00,26A2 

56  144 

0 

ALH 

MPAC 

00,26A3 

0 0006 

1 

LX  1 END 

CHECK  FOR  OVERFLOW  IN  EACH  CASE. 

00,26AA 

1 2646 

0 

b/CF 

+ ? 

RfF 

3 

LASTlOll 

00,26A5 

1 2A0A 

1 

ICF 

DVOVF 

REF 

615 

LAST  1018 

00,26A6 

56  150 

0 

ACH  ■ ■ 

MPAC  >4 

REF 

616 

LASi 1018 

00,26A7 

56  1A7 

0 

ACH 

MPAC  +3 

00,2650 

0 0006 

1 

EX  1 END 

UU  « 2 65 1 

1 2653 

1 

bZF'  " 

+ 2 

RfF 

4 

LASI 1018 

00,2652 

1 2A0A 

1 

ICF 

DVOVF 

REF 

617 

LA5T1018 

00,2653 

56  152 

1 

ACH 

MPAC  +6 

REF 

618 

LASi 1018 

00,265A 

56  151 

1 

ACH 

MpAC  +5 

00,2655 

0 0006 

1 

EX  1 END 

UV f 2656 

1 2660 

1 

bZF  ■ 

♦2 

RfF 

5 

LASI 1018 

00,2657 

1 2A0A 

1 

ICF 

DVOVF 

RtF 

lOA 

LASI 1018 

00,2660 

10  120 

0 

CC5 

BUF 

REF 

2 

LASI 1018 

00,2661 

1 2671 

1 

ICF 

/BUF* 

REF 

6 

LASI 1018 

00,2662 

1 2A0A 

1 

ICF 

DVOVF 

ZERO  divisor  - OVERFLOW. 

rff 

2 

CAI)  11018 

uU  * 2 665 

1 ^665 

1 

ICF 

/BUF- 

REF 

7 

LASI 1018 

00,266A 

1 2A0A 

1 

1 CF 

DVOVF 

UU  f 2 665 

0 0006 

1 

/BUF- 

LX  1 tNO 

UlM  INtCATIVt*  CUriHUbMtHl  bUF  MNO  HMIINIAIIM 

REF 

105 

LASi 1018 

00,2666 

A 0121 

1 

DCS 

BUF 

DVSlGN  IN  VBUF  *5. 

REF 

106 

LAST  1018 

00,2667 

52  121 

1 

OXLH 

BUF 

J^F 

44 

LA'S  I 1018 

00,2670 

2A  117 

0 

INCK- 

VBUF  +5 
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L 

1700 

INTtRHKETFH 
RFF  21  L/S5U013 

00,2671 

3 7746 

0 

/BUF* 

laf 

Half 

UStR*S  OWN  PAGF“ND.  67  53  E3 

SIGN  aOrEEMEnI  in  DiVIboR* 

1701 

00,2672 

6 0000 

1 

double 

1702 

RfF 

107 

LFSI 1018 

00,2673 

6 0121 

0 

At) 

BUF  ♦! 

1703 

REF 

108 

EASI 1019 

00,267A 

54  121 

1 

IS 

BUF  *1 

17UA 

2u0 

L75T5T10T6 

00,2675 

3 776  7 

0 

ZERO 

iios 

REF 

58 

LASI 1017 

00,2676 

6 7743 

0 

At) 

ROSMAX 

1706 

RrF 

109 

LA5I 1019 

00,2677 

26  120 

0 

AOb 

BUF 

1707 

REE 

16 

LaSTIOII 

00,2700 

56  123 

1 

ACH 

SUF2 

leave  AbSIORlOlNAL  DIVISOR)  IN  BUF2  FOR 

170B 

REF 

110 

EAbI 1019 

00,2701  , 

3 0121 

0 

LA 

BUF  *1 

overflow  tesung. 

177J9* 

RFF 

17 

LAS  11019 

00,2702 

54  124 

1 

IS 

BUf2  +1 

1710 

REF 

1 

00,2703 

1 2711 

0 

ICF 

/NORM 

normalize  divisor  in  bUF, 

1711 

"00,2704 

0 0006 

1 

2N0RM2 

EX  1 END 

"IF  less  THAN"  ."5,  augment  CVNORWCT  AND 

1712 

ref 

5 

LASl 1018 

00,2705 

24  127 

0 

AUL 

DVNOrMCT 

DOUBLE  divisor. 

1713 

00,2706 

0 0006 

1 

EX  1 END 

171A 

REF 

111 

Ly'Sl  1019 

00,2707 

3 0I2T 

0 

CFCA 

~BUf 

1715 

RfF 

112 

LASI 1019 

00,2710 

20  121 

1 

UAb 

BUF 

1716 

RpF 

113 

EaSTIO 19 

00,2711 

3 0120 

1 

LA 

BUF  " 

SEE  IF  DTVrSOK^ORMStlZtD.  " 

1717 

00,2712 

6 0000 

1 

double 

1718 

00,2713 

54  000 

0 

OVSK 

1719 

RLF 

1 

00,2714 

1 2704 

I 

TCI- 

/N0RM2 

DOUBLE  AND  TRY  AGAIN  IF  NOT, 

1720 

RpF 

1 

00,2715 

0 272  7 

1 

It 

V/SCDV 

DO  X LOMPONtNl  DIVIDE. 

IT2  1 

RtF 

619 

UASi 1018 

00*2716 

52" 150 

1 

" "DXLTT" 

MFAt  +3 

SUPPLY  ARGUMEnIB  TTT  USUAL"  SEOUEnCE  , 

1722 

. REF 

620 

LASI 1019 

00,2717 

52  145 

0 

UXLH 

MPAt 

1723 

REF 

621 

LASI 1019 

00,2720 

52  150 

1 

DXtH 

MPAt  *3 

172A 

REF 

2 

LASI 1019 

00,2721 

0 2727 

1 

1C 

V/SCDV 

Y COMPONENT. 

1725 

RtF 

622 

LAsI 1019 

00,2722 

52  152 

0 

DXLH 

MPAC  +5 

1726 

RfF 

623 

LAST1019 

00,2723 

52  145" 

0 

ITXCH 

TAP  A C 

1727 

RfF 

624 

LA5T1019 

00,2724 

52  152 

0 

UXCH 

MPAC  +5 

T7ZB 

RtF 

3 

LASI 1019 

00,2725 

0"  272  7 

1 

1 C 

V/SCDV 

z component. 

1729 

REF 

2 

LASI 1002 

00,2726 

1 7477 

0 

ItF 

VROTATEX 

GO  kE-ArrANgE  components  before  EXIT. 
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1732 

ReF 

45 

Last  1018 

00,2727 

3 0117 

0 

V/SCDV 

EA 

VBUP  +5 

reflects  sign  of  scalar. 

1733 

REF 

1 

LASI 1016 

00,2730 

54  126 

0 

IS 

DVSIGN 

173A 

REF 

625 

LA5U019 

00,2731 

10  144 

1 

LEb 

MPAC 

FORCE  MPAC  positive,  EXITING  ON  ZERO. 

1735 

REF 

1 

00,2732 

1 2746 

1 

ICP 

/MPAC* 

- - 

00,2  7 33. 

1^735 

0 

1 Eh 

1737 

REF 

1 

00,2734 

1 2742 

0 

1 CP 

/MPAC- 

• nT8  ' 

REF 

626 

LAST  1020 

00,2735 

10  145 

0 

EC5 

MPAC  +1 

1739 

REF 

2 

LASI 1020 

00,2736 

1 2746 

1 

ICP 

/MPAC* 

17A0 

RfF 

296 

LASI 1016 

00,2737 

0 000^: 

0 

1C 

u 

1 7Al 

RLF 

2 

L/vSI  1020 

00,2740 

1 2742 

0 

1 Ch 

/MPAC- 

17A2 

REF 

297 

last  1020 

00,2741 

0 0002 

0 

IC 

Q 

mj- 

00*2742 

0 0006 

1 

AMPAC- 

tXT  ENO 

TJSUAL  COMPLETAENTTNG'ANtr  SETTING  OP  SIGN. 

17AA 

REF 

627 

LASI 1020 

00,2743 

4 0145 

0 

ucs 

MPAC 

17A5 

REF 

62» 

LAST  1020 

00,2744 

52  145 

0 

DXCH 

MPAC 

17A6 

RETF 

6 

LaSI 1020 

00,2745 

24  126 

1 

INCR 

OVSICN 

1747 

re-f 

170 

LASI 1018 

00,2746 

4 7763 

0 

/MPAC+ 

C5 

ONE 

INIIIALIZE  NEAR-ONE  SWITCH. 

1748 

RfF 

4 

LA5I 1013 

00,2747 

54  130 

1 

1 5 

1MAX0V5W 

1749 

ref 

629 

last  1020 

00,2750 

4 0144 

1 

cs 

MPAC 

CHECK  possible  OVERFLOW. 

1750 

REF 

18 

LaSI 1019 

00,2751 

6 0125 

1 

AO 

BUF  2 

UNNORMALTZED  input  U1  VISOR, " 

1751 

00,2752 

0 0006 

1 

EXI ENU 

1752 

REF 

1 

00,2753 

6 2757 

0 

B2MP 

/AGREE 

CHECK  FOR  NEAR-ONE  OR  OVERFLOW. 

1753 

RfF 

630 

Last  1020 

00,2754 

52  145 

0 

dovcall 

UXCH 

MPAC 

call  pre-divide  normaluation. 

1754 

ref 

6 

LASI 1019 

00,2755 

50  127 

0 

INUEX 

OyNURMCT 

1 75^ 

REF 

2 

LAb ) 1012 

00  *2756 

1 2541 

1 

ICh"  ■ 

MAXI EST  ' 
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1756 

REF 

LftSIloig 

00,2757 

3 77A6 

0 

/AGREE 

LAh 

HALF 

forge  sign  agreement  in  dividend 

1757 

00,2760 

6 0000 

1 

OUUBLE 

(ALREADY  DONE  FOR  DIVISOR ) . 

1758 

REF 

6il 

LaSI 1020 

0.0,2761 

6 0195 

1 

AO 

MPAG  +1 

1759 

RfF 

632 

LASI1021 

00,2762 

54  145 

0 

IS 

MPAG  +1 

1760 

RfF 

281 

tA5TlI7l9 

OU  »2  763 

~3  776  7 

0 

CAF 

ZBRO 

1761 

RfF 

t>9 

LASI 1019 

00,276A 

6 7793 

0 

AO 

POSMAX 

1762 

RfF 

633 

LAS11021 

00,2765 

26  199 

1 

AOS 

MPAG 

1763 

Ref 

634 

LASI 1021 

00,2766 

9 0199 

1 

LS 

MPAG 

CHEGK  to  see  if  overflow  GONE  OK  IF 

176<t 

REF 

19 

LASI 1020 

00,2767 

6 0123 

1 

AO 

BUF2 

near-one  case  is  present. 

17^ 

REF 

33a 

LAST  1011 

00,2770 

. 10  000 

0 

CCS 

A 

1766 

RfF 

1 

00,2771 

1 2759 

1 

IGF 

ddvgall 

NOT  NEAR-ONE. 

1767 

00,2772 

32606 

0 

SLOPELU 

otc 

.8329 

1768 

ReF 

a 

LASTlOlB 

00,2773 

1 2909 

1 

TCI- 

DVOVF 

NO  HOPE. 

1769 

RfF 

- 5 

LaSI 1020 

00,277A 

59  130 

1 

IS 

MAXOVSW 

SIGNAL  possible  NEAR-ONE  CASE, 

1770 

RfF 

635 

LAST1021 

00,2775 

4 0145 

0 

CS" 

MPAG  +I 

SEE  rr  DTvrsTON^inEnioNE. 

1771 

REF 

20 

LASI 1021 

00,2776 

6 0129 

0 

AO 

BUF2  +1 

1772 

00,27  7 7 

0 0006 

1 

LX  1 LNO 

1773 

RLF 

9 

LA5T1021 

00,3000 

6 2909 

0 

BZMF 

DVOVF 

177A 

REF 

2 

LASI1021 

00,3001 

1 2759 

1 

IGF 

ddvgall 

going  TO  MAXDV. 
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1777 

REF 

2 

LaSI  9B9 

00,3002 

0 7612 

0 

UNIT 

1C 

MPACVBUF 

SAVE  the  argument  IN  VbUF, 

1778 

RrF 

282 

LAS71021 

00,3003 

3 7767 

p 

LAF 

EERO 

MUSI  SENSE  overflow  IN  FOLLOWING  DO  1 . 

^ ITTF' 

FEF  19 

X"7i5TKrcri 

01T,3iroA 

56  in 

0 

ALh  UVPlfNU 

1780 

REF 

4 

LASI  20 

00,3005 

59  131 

0 

IS 

TEMl 

1781 

REF 

1 

00,3006 

0 3301 

0 

IC 

VSOSUB 

DOT  MPAC  WITH  ITSELF. 

■■■■  178X  - 

■ RCF 

5 

EAS^I10T2^ 

UU  f 3U0  / 

3 0 731 

T 

LA 

7EM1 

1783 

REF 

20 

LASI 1022 

00,3010 

56  111 

0 

ACH 

OVFINU 

178A 

00,3011 

0 0006 

1 

EX  1 END 

■ T7E5 

00,3012 

1 3019 

0 

“BZF 

1786 

REF 

10 

LASI 1021 

00,3013 

1 2909 

1 

ICF 

OVOVF 

1787 

00,3019 

0 0006 

1 

tXIENU 

1788 

REF 

636 

LA5T1021 

00»3015 

3 0195 

1 

UCA 

^PAL 

LEAVE  TFiE”  SUUARF  OF  THE  LENGTH  OF  THt 

1789 

REF 

91 

LASI  975 

00,3016 

50  no 

1 

INULA 

FiXLUC 

argument  in  LvSOUAKE. 

1790 

REF 

1 

00,3017 

52  093 

1 

UXCH 

LVSQUARE 

1791 

REF 

1 

00,3020 

0 3325 

0 

IC 

SORT  SUB 

GO  lAKE  THE  NORMALUED  SQUARE  ROOT. 

1792 

REF 

637 

LASI 1022 

00,3021 

ID  1a9 

1 

LCS 

MMAC 

CH£C|(^  for  unit  OvERFLO’rt, 

1793 

00,3022 

1 302  ! 

0 

ICF 

♦ 5 

MPAC  IS  NOT  Less  than  .5  unless 

1799 

REF 

177 

LASI 1013 

00,3023 

54  001 

1 

1 S 

L 

1/95 

REF 

42 

LaSI 1022 

00,3029 

50  no 

1 

INULA 

FlXtOC 

1796 

REF 

3 

LASI  739 

00,3025 

52  095 

1 

UALH 

LV 

1797 

RfF 

u 

LASI 1022 

00,3026 

1 2909 

1 

ICF 

OVOVF 

INPUT  TO  SUKISUB  WAS  0. 

1798 

RrF 

1 

00,3027 

9 3130 

1 

Lb 

FOURTEEN 

SEE  IF  the  input  WAS  SO  SMALL  THE  THE 

1799 

ref 

46 

LASI 1008 

00,3030 

6 0125 

1 

AO 

MPTEMH 

first  Two  registers  of  the  square  were  o 

1800 

ref 

339 

LaSI 1021 

00,3031 

10  OOO 

0“ 

LCb 

A 

1801 

00,3032 

4 0000 

0 

CUM 

IF  so,  SAVE  IHE  negative  OF  THE  SHIFT 

1802 

REF 

1 

00,3033 

1 3111 

1 

ICF 

SMALL 

COUNT  -15D. 

iao3 

RrF 

1 

00,3039 

1 3093 

1 

ICF 

large 

(THIS  IS  usually  the  CASE.) 

I bU4 

REF 

1 

00,3035 

9 3127 

1 

Lb 

TFIIRI  EEN 

IF  IHE  SHTFT  XOON-T  WAS  EXACTLY  1A»  SET 

1805 

ref 

97 

LASI 1022 

00,3036 

59  125 

0 

IS 

MPTEmP 

THE  pRE-DIvIDE  NORM  CUuNT  TO  -13D. 

1606 

kpF 

638 

L/\S  1 iU22 

00,3037 

3 0144 

0 

LA 

MPAC 

bFfiFT  THF  Length  kighi  14  before  storing 

1807 

REF 

178 

LASI 1022 

00,3090 

59  001 

1 

SMALL2 

IS 

L 

(SMALL  EXITS  10  THIS  POINT). 

1808 

REF 

283 

LaSI 1022 

00,3091 

3 7767 

0 

LAF 

EERO 

18tJ9 

REF 

1 

UU  « 3U42 

1 3070 

1 

1 CF 

LARGE2 

GO  IT)  ST0REn:^.NG-T7t  ANI7  proceed. 

1810 

RfF 

48 

LASI 1022 

00,30A3 

10  125 

0 

LARGE 

LCb 

MPTEMP 

MOSI  ALL  CASES  COME  HERE. 

1 B 1 1 

ReF 

1 

00,3044 

i 305^ 

1 

1 LF 

LARGE3 

SEE  IF’  NO  NOKHALiZAT  ION  WAS  KEQUIREU  BY 

1812 

REF 

1 

00,3095 

9 2029 

1 

cs 

SROOV 

SQRI,  AND  IF  SO,  SET  UP  FOR  A SHIFT 

RtlF 

49 

00 , 3046 

59  125 

13 

RI-GHT  1 BtFOKt  U'I'VIuI'NG  TO  PRODUCE 

1819 

00,3097 

0 0006 

1 

EXIENU 

THE  DESIRED  HALF  UNIT  VECTOR. 

1815 

REF 

639 

LaSI 1022 

00,3050 

3 01A5 

1 

UCA 

MPAC 

1816 

ref 

2 

LaSI 1022 

00,3051 

1 3070 

1 

■ FCr 

L1ARGE2 
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1817 

00,3052 

4 OOOU 

0 LARGE3 

LOM 

leave  negative  of  shift  count-1  for 

1818 

RfF 

50 

T-A5I  10'?2 

00,3053 

54  125 

0 

1 6 

"MPTEMP 

PKEDIVIDE  LEFT  SHIFT. 

1819 

00,3054 

4 OOOU 

0 

LOM 

PICK-  UP  required  shifting  bit  to  unnorm- 

!82cr 

■ref 

340 

La511022 

0 a,  35  55 

50"5)55“ 

1 

“TNDEX 

A 

AEIAr  THE"  sort  RE5UET7' 

1821 

REF 

54 

Last  1007 

00,3056 

3 7746 

0 

LAF 

SIT14 

1822 

REF 

114 

LAST  1019 

00,3057 

54  120 

0 

1 b 

BUF 

1823 

O0,3060 

0 0006 

1 

EXTENtr 

182A 

-ReF 

b^O 

LASI 1022 

00,3061 

7 0145 

0 

MP 

MPAL  +1 

182S 

RfF 

115 

LASI 1023 

00,3062 

56  120 

1 

ACH 

BUF 

1826 

00,3063 

0 0006 

1 

EXIEND 

(UNNORMAL IZE  THET  SORT  FOR  LV)  • 

1827 

REF 

6<tl 

LAST  1023 

00,3064 

7 0144 

1 

MP 

MPAL 

1B2B 

REF 

1 19 

LASI 1022 

00,3065 

56  001 

0 

ACH 

L 

1829 

REF 

1 16 

LAST  1023 

00,3066 

6 0120 

1 

AO 

BUF 

1830 

REF 

180 

LASI 1023 

00,306  f 

56  001 

0 

ACH 

L 

■ 1831 

Rff 

^3 

LASI 1022 

00,3070 

50  110 

1 LAR6E2 

INDEX 

FIXLOC 

1832 

RfF 

4 

LaSI 1022 

00,3071 

52  045 

1 

OXLH 

LV 

length  now  stored  in  worn  area. 

1833 

RtF 

171 

LaSI 1020 

00,3072 

4 7763 

0 

Lb 

ONE 

183A 

REF 

6 

LASI 1021 

00,3073 

54  130 

1 

1 s 

MAXDVSW 

NO  MAXDV  cases  in  UM  I . 

1838 

Rff 

46 

LAST  X020 

00,3074 

52  113 

0 

DXLH 

VBUF 

PREPARE ■ TTXOlMFONENT  TOR  DIVIDE,  SETTING 

1836 

Rff 

642 

last  1023 

00,3075 

52  145 

0 

DXLH 

MPAL 

length  of  vector  as  divisor  in  BUF. 

1837 

RrF 

117 

LASI 1023 

00,3076 

52  121 

1 

OXLH 

BUF 

1838 

«LF 

1 

00,3077 

0 3131 

1 

rc 

UNITDV 

1839 

RfF 

47. 

LaSI 1023 

00,3100 

52  115 

0 

DXLH 

VBUF  +2 

DO  Y and  2 IN  USUAL  FASHION  SO  WE  CAN 

18A0 

RFF 

643 

LAS • 1023 

00,3101 

52  145 

0 

DXLH 

MPAL 

Exil  Through  vrotatexf 

IbAl 

REF 

644 

LaSI 1023 

00,3102 

52  150 

1 

OXLH 

MPAL  +3 

1842 

ref 

2 

LASI 1023 

00,3103 

0 3131 

1 

IC 

unitdv 

1843 

REF 

48 

LASI 1023 

00,3104 

52  117 

1 

DXLH 

VBUF  »4 

1844  . 

REF 

64t) 

LAS'  1023 

00,3105 

52  145 

0 

DXLH 

MPAL 

1845 

■RTF 

646 

LA^ 1 iU2  3 

■ 00,3156" 

52  152^0 

' yXLH 

MPAL  +5 

1846 

REF 

3 

LASI 1023 

00,310 1 

0 3131 

1 

IL 

UNITDV 

1847 

REF 

3 

LASI 1019 

00,3110 

1 7477 

0 

ILF 

VROl ATEX 

AND  EXIT. 
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1852 

REF 

51 

LASI 1023 

00,3111 

54  125 

0 SMALL 

1 s 

MPTEMH 

negative  of  pre-divide  SHIFT  COUNT. 

1853 

REF 

28A 

LAS) 1022 

00,3112 

3 7767 

0 

(.Ah 

2ERU 

SHIFT  each  component  LEFT  14. 

185A 

REF 

LAST  1023 

00,3113 

56  113 

1 

ACH 

VBUF  *1 

■'1855 

REF 

■ 50- 

East  1 024  ' 

'00,31I4 

56  112 

0 

ALM 

TBUF 

1856 

REF 

bl 

LASI  1024 

00,3115 

56  115 

1 

ACH 

VBUF  +3 

1857 

REF 

52 

LASI 1024 

00,3116 

56  114 

0 

ACH 

VBUF  *2 

■ ■ ' ~~rb^e 

REF 

^3 

ti/'S  1 1024 

00  »31 1 7 

56  117 

0 

ACH 

VBUF  +5 

1659 

REF 

b4 

LASI 1024 

00,3120 

56  116 

1 

ACH 

VBUF  +4 

I860 

REF 

b2 

LAST1024 

00,3121 

4 0125 

0 

C5 

MPTEMP 

1861 

REF 

3A1 

LASI 1023 

00,3122 

50  000 

1 

INPEA 

A 

1862 

REF 

b5 

LASI 1023 

00,3123 

3 7746 

0 

CAF 

B1T14 

1863 

UUf312*t  U UUUO 

r 

extend 

186A 

rff 

647 

LaSI 1023 

00,3125 

7 0144 

1 

MP 

MPAC 

1865 

REF 

1 

00,3126 

1 3040 

1 

ICF 

SMALL2 

1866 

1867 


00,3127  00015  0 THIRTEEN  PEC 

00,3130  00016  0 FOURTEEN  PEC 


13 

lA 


^ 6~33i.T6n  YuL  SySTEr  POh  AGC:  REVISION  0 OF  PrOGrAH  BURbT170  BYTVAS7r  203H06-031 


n5EET7V“l%7  (J-iAlNr  PAGE1026 


P1888 

— rNTE«PHETFK 

MbGELLANEoUS  UNARY 

operations 

USER'S  OWNTFWiE  NU.  79'  ' ' S3  E3 

1889 

REF 

1 

00,3159 

0 3262 

1 

DSQ 

1C 

OSCibUB 

SOUARe  the  dp  contents  of  MPAC, 

1890 

REF 

39 

LASI 1012 

00,3155 

1 6125 

0 

IGF 

0AN21G 

1891 

REF 

30 

LASI 1008 

00,3156 

10  153 

1 

ABVALABb 

CCS 

MODE 

ABVAL  OR  ABS  INSTRUCTION. 

1892 

Rff 

3 

LaSI  902 

00,3157 

1 3206 

1 

ICF 

abs 

DO  AbS  on  SgALAR, 

" 1893^ 

'REF 

h 

LaSI 1026 

00,3160 

1 3206  1 

TCF" 

AbS 

1899 

ref 

2 

LAbI 1022 

00,3161 

0 3301 

0 

ABVAL 

IC 

VSQbUB 

DOT  MPAC  WITH  ITSELF. 

l’S?5 

T?EF 

L/^S  1 1026 

00 « 3 162 

22  153 

0 

UXLH 

MODE 

MODELS  Noirop  (L  ZERCrFAFTETT  DAS)  , 

1896 

00,3163 

0 0006 

1 

tXIENO 

STOKE  SOUARE  OF  LENGTH  IN  WORK  AREA, 

1897 

rff 

652 

L.ASl  1025 

00  « 3 1 64 

3 0145 

1 

UCA 

MPAC 

1898 

REF 

LASI 1023 

00,3165 

50  110 

1 

INOtX 

FIXLUC 

1899 

REF 

2 

LASI 1022 

00,3166 

52  093 

1 

UXCH 

LV5UUARE 

1900 

REF 

2 

LASI 1022 

00,3167 

0 3325 

0 

SORT 

1 C 

SQRTbUB 

TAKE  the  square  ROOT  OF  MPAC. 

1901 

Rff 

55 

LASI 1025 

00,3170 

10  125 

0 

CCS 

MPTEMP 

RETURNED  NORMALIZED  SQUARE  ROOT.  SEE  IF 

1902 

00,3171 

1 3173 

0 

rch 

♦ 2 

ANY  UN-NORMALIZAT  lOlY  KETjUIRED  AND  EXIT 

1903 

REF 

90 

LASI 1026 

00,3172 

1 6125 

0 

ICF 

0AN21G 

IF  NOT. 

1909 

RETF 

3 

Last  1007 

00  • 3 1 M 

6 3710 

1 

Air 

1'IEG12 

A RIGHT  SHIF]  OF  KORE  THAN  13  COULD  bE 

1908 

00,3179 

0 0006 

1 

txl ENO 

required  If  input  was  2ER0  in  MPAc,*1. 

1906 

REF 

1 

00,3175 

6 3201 

1 

B2MF 

SORTbHFT 

GOES  HERE  IN  MOST  CASES. 

T90T 

OO  « 3 1 ^6 

22  00 r 0 

2L 

IF  A LONG  SHIFT  16  KEUUIRED*  GO  TO 

1908 

REF 

77 

last  1008 

00,3177 

22  106 

0 

LXCH 

ADDKrtD 

general  right  SHIFT  ROUTINES. 

1909 

RfF 

4 

LASI 1007 

00,3200 

1 2303 

1 

ICF 

GENSCR  +9 

ADDKWD  WAS  ZERO  TO  PREVENT  ROUND. 

1910 

Rff 

56 

LASI 1026 

00,3201 

50  125 

1 

SORTSHFT 

INOEX 

MPTEMP 

select  shifting  bit  AND  EXIT  THROUGH 

1911 

ref 

90 

LaSI  998 

00,3202 

3 7795 

0 

cAf 

B1T15 

shift  routines. 

1912 

Rf  f 

57 

La  5 I 10‘26 

00,3203 

59  125 

0 

] 5 

MPTEMP 

1913 

ref 

286 

LASI  1025 

00,3209 

3 7767 

0 

CAF 

EERO 

TO  ZERO  MPAC  +2  IN  THE  PROCESS, 

1919 

REF 

2 

Last  1007 

00,3205 

1 2036 

1 

ICF 

MPACSHR  +3 

1915 

RfF 

3 

LaSI 1009 

00,3206 

0 7001 

1 

ABS 

IC 

BRANCH 

TESI  SIGN  OF  MPAC  AND  COMPLEMENT  IF 

1916 

REF 

41 

LASI 1026 

00,3207 

1 6125 

0 

ICF 

DANZIG 

1917 

ref 

42 

LASI 1026 

00,3E10 

1 6125 

0 

1 Ch 

UAN21L 

1918 

RfF 

4 

LAST  996 

00,3211 

1 7722 

0 

ICF 

COMP 
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1919 

REF 

30 

LaSl  991 

00,3212 

4 7761 

1 

VDEF 

Lb 

Four 

vecIqr  define  - essenIially  Treats 

192H 

TTET- 

14 

CAS'T  994 

0073213 

26  756 

1 

ADS' 

TUSFTCOCr 

SCALAR”  FN  MPal  Ab  x~tOWONENT  « FU SHE 5 UF 

1921 

00,3214 

0 0006 

1 

tXIEND 

FOR  Y AND  THEN  AGAIN  FOR  Z. 

1922 

REF 

342 

LASI 1024 

00,3215 

5 0000 

1 

INDEX 

A 

1 9?3 

“00,3216 

3 OOUT 

1 

OCA 

2 

192A 

REF 

653 

LAbI 1026 

00,3217 

52  150 

1 

UXLH 

MPAC  *3 

1925 

00,3220 

0 0006 

1 

tx  I tm 

X9Z6 

REF 

15 

LASn02  7 

00^,3221 

5 0156 

0 

TTTDEX' 

PUSHLOC 

1927 

00,3222 

3 0001 

0 

OCA 

0 

1928 

REF 

654 

LAbI 1027 

00„3223 

52  152 

0 

OXLH 

MPAC  +5 

X929 

RfF 

172 

1023 

00,3224 

4 7763 

0 

LS 

“ONE 

MODE  IS  NOW  VECTOR. 

1930 

ref 

.10 

La51  999 

00,3225 

1 6124 

1 

ICF 

NEWMUDE 

1931 

REF 

3 

LAST  1026 

00,3226 

0 3301 

0 

VSQ 

IC 

VS05OB 

DOT  MPAC  WITH  TTSELT . 

1932 

REF 

287 

LAbT 1026 

00,3227 

3 7767 

0 

LAF 

2ER0 

1933 

ref 

11 

LAbl 1027 

00,3230 

1 6124 

1 

ILF 

NEWMODE 

MODE  IS  NOW  DP. 

193A 

00,3231 

0 0006 

1 

PUSH 

tXIEND 

PUSH  DOWN  MPAC  LEAVING  IT  LOADED. 

1935 

RfF 

655 

LASI 1027 

00,3232 

3 0145 

1 

OCA 

MPAC 

1936 

RCF 

1 6 

LaSI 1027 

00,3233 

50  156 

0 

INDEX 

PUSHLUC  ' 

PUSH  down  first  two  registers  in  EALH 

1937 

00,3234 

52  001 

1 

OXLH 

0 

1938 

RpF 

32 

L/\S  1 1026 

00,3235 

50  153 

0 

INOEX 

MODE 

INL^tMENl  FU6H0UWN  FOiNiER* 

1939 

REF 

5 

LAbl  972 

00,3236 

3 6310 

0 

LAF 

NO.WDb 

19A0 

REF 

17 

LAbl 1027 

00,3237 

26  156 

1 

AOS 

PUSHLUC 

19A1 

RfF 

33 

LAbl 1027 

00,3240 

10  153 

1 

LCb 

MODE 

1942 

REF 

1 

00,3241 

1 3254 

0 

ICF 

TPUbH 

PUSH  down  MPAC  *2. 

T9  4’3 

REF 

43 

Las ( 1026 

00,3242 

1 6125 

0 

1 Cf- 

DANZiCi 

DONE  FOR  DP.  ' 

19^4 

00.3243 

0 0006 

1 

LXItNO 

ON  vector,  push  down  y and  z components. 

19^5 

RFF 

656 

LASI 1027 

00  * 3Z44 

3 0150 

0 

■ MPAC  +3 

1946 

REF 

18 

LAbl 1027 

00,3245 

50  156 

0 

INDEX 

PUSHLOC 

1947 

00,3246 

51'775 

0 

OXLH 

0 .4 

00, 3 2 47 

0 0006 

1 

tXIEND 

1949 

RfF 

657 

LAbl 1027 

00,3250 

3 0152 

1 

DCA 

MPAC  +5 

1950 

REF 

19 

LAbl 1027 

00,3251 

50  156 

0 

INDEX 

PUSHLOC 

1957 

00,3252 

51*777 

1 

OXLH 

0 -2 

1952 

REF 

44 

LAbl 1027 

00,3253 

1 6125 

0 

1 CF 

0AN21G 

T9^T 

REF 

658 

LaSI 1027 

00,3254 

3 0146 

1 

TPU5H 

LA 

IMPACT 

1954 

RfF 

2 

Last  971 

00,3255 

1 6632 

1 

ICF 

ENDTPUSH  +2 

1955 

RET 

45 

LaSI 1 U ^ 6 

00,3256 

50  110 

1 

RVQ 

INDEX 

FIXLOC 

RVQ  - return  IVA  QPKEI. 

1956 

REF 

4 

LASI  974 

00,3257 

3 0052 

0 

LA 

OPRET 

19565 

REF 

22 

LASI  985 

00,3260 

54  107 

0 

lb 

POLISH 

1957 

ref 

5 975 

00,3261 

I 6730 

r 

- 1 Ct 

GOTO  44 

(ASSUME  OPRET  POINTS  10  PTXFU  ONLY.) 

0 

0 

0 

0 

0 

0 

0 

'J 

*) 

0 

0 

0 

# 

m 

0 

# 

m 

m 
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*^iys8 

iHt  t-OULOWlNG  subroutines  AKE 

USeD  in  squaring 

mpac,  in  both 

the  scalar  and  Vector  sense,  they  are 

RT960" 

SPECIAL 

L/i5t8  Or 

UMrSUb  AMU  UOTSUb»  rUJ 

IN  TO  SAVE  SOME 

TIME. 

1961 

REF 

659 

LAST  1027 

00,3262 

3 0165  1 

USQSUb  LA 

MPAC  +1 

squares  the  scalar  contents  of  mpac. 

r952" 

00*3263 

0 0006  1 

EXTEND" 

1963 

00,3266 

7 0000  0 

SUUAKt 

196A 

REF 

660 

last  1028 

00,3265 

56  166  0 

IS 

MPAC  *2 

T9B5- 

RFP  ^86 

LA^ 1 1027 

00*3266 

3 f fb  ( U 

LAF 

EERO 

FORM  2 (CROSS  • 

1966 

REF 

661 

last  1028 

00,3267 

56  165  1 

AGH 

mpac  +1 

1967 

00,3270 

0 0006  1 

LX  1 end 

1968 

REF 

662 

Last  1028 

00,3271 

7 0166  1 

MP 

MPAC 

1969 

00,3272 

20  001  1 

DDUUBL 

AND  MAYBE  OVERFLOW, 

1970 

REF 

663 

LAST  1028 

00,3273 

20  166  0 

UAS 

MPAC  +1 

AND  set  a to  net  OVERFLOW. 

1971 

Ref 

66A 

La51 1028 

00*327^ 

56  14^  0 

XCH 

MPAC 

1972 

00,3275 

0 0006  1 

EXTEND 

1973 

00,3276 

7 0000  0 

bUUAKt 

1 97A 

REF 

665 

Last  102s 

00*3277  Z\ri4P  0 

DAS 

“MP'AC 

1975 

RfF 

30Q 

LASI 1025 

00,3300 

0 0002  0 

1C 

Q 

1976 

00,3301 

0 0006  1 

VS05UB  EXTEND 

DOTS  the  vector  ITT  MPAC  WITH  ITSELF. 

1977 

REF 

B 

last  983 

00,3302 

22  127  0 

QXLH 

OOTKET 

1978 

REF 

2 

last  1026 

00,3303 

0 3262  1 

1C 

DSQSUB 

square  the  X COMPONENT, 

“ ^ 1979 

RFF 

666 

LAGI  1028 

00,3306 

52  1 50  7 

DXLH 

MPAC  +3 

1980 

■REF 

667 

LASI 1028 

00,3305 

52  165  0 

UXCH 

MPAC 

1981 

REF 

118 

LAST  1023 

00,3306 

52  121  1 

UXLH 

8UF 

SO  WE  CAN  ENU  IN  DOTSUb, 

1982 

REF 

668 

LaS I 1028 

00,3307 

3 0146  1 

LA 

MPAC  +2 

1983 

REF 

119 

LaSI 1028 

00,3310 

56  122  1 

IS 

BUE  +2 

198  A 

REF 

3 

LASI 1028 

00,3311 

0 3262  1 

1 L 

DSQSUB 

square  Y COMPONENT, 

1985 

REF 

669 

LASU028 

00,3312 

52  166  0 

UXCH 

MPAC  +1 

1986 

REF 

120 

LASI 1028 

00,3313 

20  122  1 

UAS 

BUF  +1 

7987 

RfF 

670 

LASI 1028 

00,3316 

6 0144  0 

- 

MPAC 

1988 

REF 

121 

LASI 1028 

00,3315 

6 0120  1 

AU 

BUF 

1989 

RpF 

122 

LaSI 1028 

00,3316 

56  120  0 

1 s 

BUF 

1990 

00,3317 

I 3321  0 

rcF 

♦2 

1991 

REF 

21 

LASI 1022 

00,3320 

56  111  1 

1 s 

OVFINO 

IF  OVERFLOW. 

1992 

REF 

67 1 

Las  1 1028 

00,332T 

52  152  0 

UXLH 

MPAC  *5 

1993 

REF 

672 

LAST  1028 

00,3322 

52  165  0 

UXCH 

MPAC 

199A 

REF 

LASI 1028 

00,3323 

0 3262  1 

1C 

DSqSUB 

Square  z compunent. 

1995 

REF 

1 

00  *332A 

1 7257  1 

1 Ch 

ENDDOT 

END  AS"TN'D0TSUB7 
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2001 

REF 

289 

LA5I 1028 

00,3325 

3 7767 

0 

SORTsUB  LAf 

ZERO 

SlAHT  BY  ZEROING  RlGHl  SHIFT  COUNT. 

'■'2002 

' REF 

58 

LA5I 1026 

00,3326 

59'  125 

0 

rs~ 

MPTEMP 

2003 

REF 

6?3 

LASI 1028 

00,332  7 

10  199 

1 

CCS 

MPAC 

CHECK  FOR  POSITIVE  ARGUMENT,  SHIFTING 

ZUDA 

1 

00,3330 

1 3366 

0 

1 Cf 

SMPAC^ 

first  STGNIFTCANT  MPAC“KEGISTERTNT0 

2005 

00,3331 

1 3333 

0 

ICE 

♦2 

MPAC  itself. 

2006 

REF 

1 

00,3332 

1 3355 

0 

ICE 

SQRINEG 

SEE  IE  HAG  OE  APGUMENI  LESS  THAN  10 (-9). 

2007 

ref 

6 7a 

LASI 1029 

00,3333 

56  H6 

1 

ACH 

MPAL  +2 

MPAL  IS  ZERO  - SHIET  LEFT  19. 

2008 

REF 

675 

LASI 1029 

00,333A 

56  195 

1 

ACH 

MPAC  +1 

2009 

REF 

b Jb 

LASI 1029 

00,3335 

59  199 

1 

T5" 

MPAC 

2010 

REF 

18 

Last  998 

00,3338 

3 7765 

1 

CAE 

SEVEN 

augment  right  SHIET  COUNTER. 

2011 

REF 

t)9 

LASI 1029 

00,333  7 

59  125 

0 

IS 

MPTtMP 

2012 

REF 

677 

LaSI 1029 

00,3390 

10  199 

1 

LLb 

MPAC 

SEE  IF  MPAC  NOW  PNZ. 

2013 

REF 

2 

LASI 1029 

00,3391 

1 3366 

0 

ICE 

SMPACt 

^ 20TA 

00773772“ 

'T^337T9' 

TT“ 

TCf 

♦ 2 

2015 

REF 

1 

00,3393 

1 3360 

0 

ICE 

ZERUANS 

negative  but  less  than  10(-9)  IN  MAG. 

2016 

Rf-'F 

678 

LAS  1 1029 

00,3399 

58  1a5 

1 

“ ACH 

MPAC  *I 

ZERO  - SHIFI  left  TT  AGAIN. 

2017 

REF 

679 

LASI 1029 

00,3395 

59  199 

1 

IS 

MPAC 

2018 

REF 

19 

LaSI 1029 

00,3396 

3 7765 

1 

CAE 

SEVEN 

augment  right  SHIET  COUNTER. 

2019 

RfF 

60 

LASI 1029 

00,3397 

26  125 

0 

AL?b 

MPTtMP 

2020 

REF 

680 

LaSI 1029 

00,3350 

10  199 

1 

CCS 

MPAC 

2021 

rtf 

J 

LASI 1029 

00,3351 

1 3366 

0 

ICh 

SMPAC+ 

2022 

RfF 

301 

LASI 1028 

00,3352 

0 0002 

0 

IC 

Q 

SORT  (0)  = 0. 

2023 

REF 

2 

LASI 1029 

00,3353 

1 3360 

0 

1 CE 

ZEROANS 

2tT24 

■RfF 

X 

' 00,3339 

1'  3939 

0 

IXf 

FUKOOT 

DO  NOT  LEAVE  SORT SUEr-*ri  JM  -0  IN  MPAL, 

2025 

2026 

REF 

REF 

343 

1 

LftSI 1027 

00,3355 

00,3356 

10  000 
1 3369 

0 

1 

SORTnEG 

LCb 

ici- 

A 

Sort AbRT 

argument  is  negative,  but  see  IE- 
CORRECTED  ARGUMENT  IS  LESS  THAN 

SIGn- 

l0(-9) 

2027 

REF 

681 

UaSI 1029 

00,3357 

10  195 

0 

LCb 

MPAC  +1 

IN  magnitude.  IE  SO,  CALL  ANSWER 

ZERO. 

2028 

RLF 

2V0 

LaSI 1029 

00,3360 

3 7767 

0 

ZEROANS 

LAh 

ZERO 

forge  ANSWER  10  ZERO  HERE. 

RrF 

2 

LASI 1029 

00  f 3361 

1 3939 

0 

1 O' 

FIXROOT 

2030 

REF 

2 

LaSI 1029 

00,3362 

1 3369 

1 

ICE 

SQRTABRT 

2031 

REF 

3 

LASI 1029 

00,3363 

1 3939 

0 

ICE 

FIXROOT 

2032 

REF 

6 

LaSI  708 

00,3369 

0 6000 

1 

SQRTABRI 

IC 

ABORI 

2033 

00,3365 

01302 

1 

uci 

1302 

^3?36A“  rut' SYSTEM-  f UR  AUCf  KEVISTON  OTJF  PKOURAM  BUK5TI20  BY  NASA  2021106-U31 


DEC  7,  1967  (MAIN)  PAGE1030 


INI ERFRErER 


USER'S  OhN  T>AGE‘'NDI^'7e 


S3  E3 


203A 

RfF 

1 

00,3366 

6 2992 

1 

SMPAC, 

AU 

-1/2*2 

SEE  IF  ARGUMENT  GREATER  THAN  OR  EQUAL  TO 

203S' 

00  » 336  f 

0 0006 

1 

tXIENU 

iST 

2036 

REF 

1 

00,3370 

6 3937 

1 

B2MF 

SRTESI 

IF  SO,  SEE  IF  LESS  THAN  .25. 

2733  7" 

“RfF 

682^  LA5T1D29 

00,3571 

52~l95 

0 

UXCFI 

"MPAC 

TIE  wn.L  TAXE  TH^"5QUAKE"T100T"0F'MPAC/2. 

2038 

ref 

30 

LASI 1013 

00,3372 

22  021 

1 

LXCH 

SR 

SHUT  RIGHT  1 AND  GO  10  THE  SqRT  ROUTINE 

2039 

00,3373 

0 0006 

1 

EX  1 END 

2TTA0' 

REF 

23 

LA5n021 

00,337A 

7 7796 

1 

MP 

TIACF 

20A1 

ref 

683 

LAST  1030 

00,3375 

52  195 

0 

DXLH 

MPAC 

2092 

REF 

31 

LASI 1030 

00,3376 

56  021 

1 

ACh 

SR 

2093 

684 

LASI 1030 

00,3377 

26  145 

0 

ADS 

MPAC  *l 

CUAHANTEED  NU  OVEKPLCJW, 

2099 

REF 

1 

00,3900 

3 2319 

0 

ARGHI 

LAh 

SLOPEHI 

argument  between  .25  AND  .5.  GET  A 

2095 

00,3901 

0 0006 

1 

EX  1 END 

LINEAR  APPROX! HATICIN  TOR  THIS  RANGE, 

2096 

REF 

685 

LASI 1030 

00,3902 

7 0199 

1 

MP 

MPAC 

2097 

REF 

1 

00,3903 

6 2592 

0 

AD 

81ASH1 

XO/2  = (MPAC/2) (SLOPEHI)  ♦ BlASHl/2. 

2098 

REF 

123 

LASI 1028 

00,3909 

59  120 

0 

♦9 

IS 

BUF 

XO/2  (ARGLO  ENTERS  HERE). 

2099 

REF 

686 

LASI 1030 

00,3905 

3 0199 

0 

LA 

MPAC 

SlNuLE-pREClSION  THROUGHOUT, 

~ 2050"* 

00,3905" 

"22  007 

~xr 

"rc 

2051 

00,3907 

0 0006 

1 

EX  1 END 

2052 

REF 

129 

LASI 1030 

00,3910 

10  120 

0 

DV 

BUF 

(MPAC/2)/(X0/2) 

2 05  3 

0015911  0 0006 

"T" 

EXl 

2059 

REF 

24 

LASI 1030 

00,3912 

7 7796 

1 

MP 

HALF 

2055 

REF 

125 

LASI 1030 

00,3913 

26  120 

0 

AUb 

BUF 

XI  = XO/2  + ,5(MPAC/2I/(X0/2) . 

2056 

00,3919 

0 0006 

1 

EX  1 END 

2057 

REF 

25 

LASI 1030 

00,3915 

7 7796 

1 

MP 

HALF 

form  up  Xl/2. 

2058 

ReF 

687 

LaS I 1030 

0U*3416 

52  195 

0 

1/XLH 

“MF>AC 

SAVE"  AND  BR!NG'  OUT  ARGUMENTT 

2059 

00,3917 

0 0006 

1 

EX  1 END 

take  dp  quotient  with  XI. 

2060 

REF 

126 

LASI 1030 

00,3920 

10  120 

0 

DV 

BUF 

ref 

127 

L A 5 1 10^0 

00,3921 

59  121 

1 

'IS - 

BUF  *1 

SAVE  MAJOR  PART  OF  QUOTIENT. 

2062 

REF 

291 

LASI 1029 

00,3922 

3 776  1 

0 

LAI- 

2ER0 

FORM  minor  part  of  quotient  using 

2063 

REF 

iBl 

LASI 1023 

00,3923 

56  001 

0 

ACh 

L 

(REMAINDER, 0) , 

2059' 

00,3929 

0 0006 

1 

EX  1 END 

2065 

REF 

128 

LASI 1030 

00,3925 

10  120 

0 

DV 

BUF 

2066 

REF 

182 

LASI 1030 

00,3926 

59  001 

1 

IS 

L 

IN  preparation  for  das. 

2067 

RrF 

129 

L A S I 1030 

00^3427 

3 0121 

0 

LA 

BUF  *1 

2068 

REF 

688 

LASI 1030 

00,3930 

20  195 

0 

UAS 

MPAC 

X2  = XI/2  ♦ (MPAC/2)Xi 

'2USR 

2070 

2071 

2072 
2073 
207A 


RfF  1 

RfF  60  LAS11021 
REF  669  UaSI 1030 
Ref  690  LAS  I 1030 
REF  302  LASI 1029 


3A31 

3A32 

3A33 

3A3A 

3A35 

3A36 


0 0006  I 

1 3A36  I 
3 77A3  0 
5A  14A  1 
5A  US  0 
0 0002  0 


tXIENU 

BZF 


UAF 

FIXROOI  IS 
I S 

TCQBNXOO  1C 


TCOBNKOO 
POSMAX 
MPAC 
MPAC  +1 
U 


UVERFtOWS  rF^AFOTi'NEAK-pOSMAX. 


return  to  caller  to  unnormalue.  etc. 


633^36*' VUU  SYSIEf.  f-OR  AbC!  REVISION  0 OF  PROGRAM  BuRSTliiU  BY  NABA  VlU^UOa-Oil 


DEC  7* ’^967*  (MAINT  PAGEIOBI 


rNYERPRETER 


USER'S  CNN  PAGFl^a.  yy 


S3  E3 


2075 

Ref 

2 LaSI  50A 

00.3A37 

6 77A7 

1 

SRTEST 

AU 

QUARIER 

argument  was  less  than  .5,  SEE  IF 

Less 

2076 

00.3AAO 

0 0006 

1 

EX  1 END 

THAN  .25. 

2077 

Ref 

1 

00.3AA1 

6 3463 

0 

BZMF 

5QRTN0RM 

IF  So,  BEGIN  normalization. 

2T)7B 

~1TET^ 

t^t;as  riffJO 

00'»3AA2" 

T2  1A5 

0 

DXUFT 

MPAG 

IF  between  .5  and  .25*  STTIFT  RIGHT 

l AND 

2079 

Rff 

32  LASTI030 

00.3AA3 

22  021 

1 

lxch 

SR 

START  AT  ARglO. 

2080 

, 0 0006 

1 

LXItNO 

2081 

TTEF 

26  LASri030 

00 ♦ 3^45 

7 77A6 

1 

FiP 

HALF 

2082 

REF 

692  LAST1031 

00,3446 

52  1A5 

0 

MPAC 

2083 

RFF 

33  LASU03I 

00.3AA7 

56  021 

1 

ACM 

SR 

2 08  A 

RTF 

693  LA6 1 iU3l 

00.3A50 

26  IAS 

0 

AOb 

MPAC  *1 

NO  OVERFLOW. 

2085 

REF 

1 

00.3A51 

3 2772 

1 

ARGLO 

CAF 

SLOPELO 

(NORMALIZED)  ARGUMENT  BETWEEN  .125 

AND 

2086 

00 , 345^ 

0 CTIJ06 

I 

EXTEND 

^VZ5 

2087 

REF 

69A  LASI 1031 

00.3A53 

7 OlAA 

1 

MP 

MPAC 

2088 

REF 

1 

00.3A5A 

6 2270 

0 

AO 

BIASED 

20B9 


REF  1 


00,3A55  1 3 AO  A 0" 


ARGHI  +A 


BEGIN  square:  "ROOT-V 


2090 

00.3A56 

0 0006 

1 

SQRTNM2  EX  1 END 

■ Z09T 

REF 

695 

l_A51  1031 

00, 3 A 57 

3 01A6 

1 

UCM 

MPAC 

+ 1 

2092 

REF 

696 

LA5T1031 

00,3A60 

20  1A6 

0 

OAb 

MPAC 

*1 

2093 

REF 

697 

LAST  1031 

00,3A61 

6 OIAA 

0 

AD 

MPAC 

Z09A 

RfF 

698 

LAGT1031 

00,3A62 

26  lAA 

1 

AOb 

MPAC 

SHIFT  LEFT  2 AND  INUREMENT  RIGHT  SHIFT 
COUNT  (FOR  terminal  UNNORMAlIZATION) . 


(NO  OVERFLOW). 


2095 

REF 

6l 

LASI 1029 

00.3A63 

2A  125 

1 

SORTNOKM  lfNK.K 

MPTEMP 

2096 

00,3A6A 

0 UUU6 

1 

E7TIE:ND 

2097 

REF 

699 

LASI 1031 

00,3A65 

3 01A6 

1 

DCA 

MPAU 

+ 1 

2098 

REF 

700 

LASI 1031 

00,3A66 

20  1A6 

0 

OAb 

MPAC 

♦ 1 

2099 

REF 

701 

last  1031 

0 U , 3 4 6 ( 

6 0144 

0 

At) 

MPAC 

2100 

REF 

702 

LASI 1031 

00,3A70 

26  lAA 

1 

AOb 

MPAC 

2101 

REr 

18 

00,3A71 

6 0000 

1 

double 

2102 

LAST  303 

00,3A72 

5A  022 

0 

1 b 

CYL 

first  time  ihkough,  just  shift  left  1 

(PUlS  IN  EFFtETTiVE  right  SHIFT  SINCE 
WE  want  MPAU/Z) . 


(AGAIN  NO  OVERFLOW) . 


2103 

REF 

19 

LAST1031 

00,3A73 

10  022  0 

NORMTEST  CCS 

CYL 

2 rOA 

REF 

70 

Las  t 1 0 3 1 

00,3A7A 

TO  7322'  0“ 

EC'S 

' CYL 

2105 

REF 

1 

00,3A75 

1 3A56  1 

ICF 

SURTNM2 

2106 

REF 

2 

LASI 1031 

00,3A76 

1 3A00  1 

ICF 

ARGHl 

2 107 

REF 

1 

00,3A77 

1 3A51  0 

1 CF 

ARGLO 

SEE  IF  argument  NOW  NORMALIZED  AT 

GREATER  THAN  ,I2S, ^ 

NO  - SHIFT  LEFT  2 MORE  AND  TRY  AGAIN. 
YES  - NOW  13ETWEEN  .5  AND  .25. 
argument  now  TJETWEEN  .25  AND  .125. 


6JT<t3f6A“TUl.^5Y'5TE|  FOR  AtiCl  REV TSTON^O  “OF  pRO&RAm “BOR5TaZO“&Y“  NASA"  2021106-031  DEC  7,  1967  ^[”m AIN ) ““pA(;E  1032““ 


C“ 

lNTtffPRtTE*< 

USER'S  OWN  Page  no.  so  S3  “F3 

R2108 

trigonometric  EUnCTION  package. 

R2109 

the  Following  trigonometric  functions 

ake  available  as  Interpretive  operations; 

R2111 

R2UZ 

1*  blN 
2.  COS 

COMPUTtS  U/2/SlNtU  PI  MPACJ  . 
COMPUTES  (l/2)CUSiNt{2  Pi  MPAc) . 

R21“13 

K211A 

3,  A51N 
9.  ACOb 

COMPUTtS 

COMPUTES 

( 1/2PU  AKCSIfNt  T2  MPAU  • 
(l/2Pi)AKCCOSiNE(2  MPAC), 

Rzns 

STN-AblN  ^05* 

ACOS  are  mutually  inverse.  IE 

3i|N(ASlN(X)  ) = X. 

2116 

2117 

ref  9 

LA5I 1026 

00.3500 

00,3501 

0 7001  1 

1 3509  1 

COSINE 

IC  BRANCH 

ICF  *3 

FINDS  COSINE  USING  THE  IDENTITY 
COS(X)  = SINIpl/2  - ABS(X)). 

2 n 8 

2119 

REF  1 

REF  2 

LaSI 1032 

00,3502 

00,3503 

i JSU  7 1 
1 3507  1 

TCF  PRESINE 

ICF  PRESINE 

2T20 

2121 

2122 

ref  703 
ref  709 

LA5T1031 
LAbI 1032 

00,3509 

00,3505 

00,3506 

0 0006  1 
9 0195  0 
52  195  0 

+ 3 

EX  1 END 
DCS  MPAC 

DXCH  MPAC 

2123 

212A 

ReF  3 

REF  705 

LASI 1031 
LAS'  1032 

00,3507 

00,3510 

3 7797  1 
26  199  1 

PRESINE 

CAF  QUARIER 

AOS  MPAC 

Pl/2  SCALED, 

“2125 
2126 
. 2127 

RpF  706 

LaGI 1032 

00,3511 

00,3512 

00,3513 

52  195  0 
20  001  1 
59  000  0 

SINE 

DXCH  MPAC 

DDOUBL 

UVSK 

double  argument. 

SEE  IF  OVERFLOW  PRESENT. 

2128 

00,3519 

1 3517  0 

1 CF  +3 

IF  NOT,  argument  ok  AS  15. 

2129 

00,3515 

0 0006  1 

EX  1 END 

IF  SO,  WE  LOST  (OR  GAINED)  PI,  SO 

2T30 

A2131 

2132 

REF  707 

LA5I 1032 

00,3516 

00,3517 

9 OODl  1 
52  195  0 

+ 3 

DCUM 

DXCH  MPAC 

COMRLEME7n“FiP7TC  USING  THE  IDENTITY 
SINlX-(+)PI)  = SIN(-X) . 

2133 

2139 

2135 

ref  708 
REF  183 

LAS  1 1032 
LAST1030 

OO  , 3 5 2 U 
00,3521 
00,3522 

3 0199  0 
6 0000  1 
59  001  1 

CA  MPAC 

DOUBLE 
IS  L 

SET- lE  ARGUMENI  GREATEp  THAN  ,5  IN 
MAGNITUDE,  IF  SO,  REDUCE  IT  TO  LESS  THAN 
.5  1+-PI/2  SCALED)  AS  FOLLOWS! 

^ i ^6 

REF  1 

00,3523 

1 3539  1 

ICF  SNl 

2137 

REF  399 

LASI 1029 

00,3529 

50  000  1 

INULA  A 

IF  POSITIVE,  FORM  PI  - X,  IF  NEGATIVE 

2138 

2139 
2190 

REF  9 

LASI  6bS 

00,3525 

00,3526 

00,3527 

3 7795  0 
6 0000  1 
0 0006  1 

CAE  NEGl/2  +1 

DOUBLE 

EX  1 END 

UST:  -Tl  - Xw  ' - 

2U2 

2193 

ReF  709 
REF  710 
REF  711 

LAS i 1032 
LASI 1032 
LASI 1032 

00,3530 

00,3531 

00,3532 

00,3533 

60  199  0 
59  199  1 
9 0195  0 

^SU""  MPAC 

IS  MPAC 

CS  MPAC  .1 

GUAR  A-NTEED^^NO^OVERF  LOW  , 

REF  712 

5A  1A5  0 

m MPAC  +1 

633436^ 

1 -< 
r 

SYSTEM  FOR  AGC: 

REVISION 

0 OF  PRDGR71W‘"BUR5ri7a“BmASR  2021 106-031  ~ 

Dtt  7,  1967  ‘ (MAIN)  PAGE1033 

L 

iNTtKPKtlEH 

USER'S  OWN  PAGS“NO.  Bl  S3  E3 

21^5 

00,3534 

0 0006 

1 5N1 

tAIEI^O 

SET  UP  TO  evaluate  HASTINGS  POLYNOMIAL 

2146 

REF  713 

LaST1032 

00,3535 

3 0145 

1 

OCA 

MPAt 

2147 

REF 

21 

LaSU021 

00,3536 

52  124 

1 

OXt-H 

SUF2 

2148 

REF 

5 

LaSI 1028 

00,3537 

0 3262 

1 

It 

DSQSUB 

SOUARE  MPAt. 

2144 

REF 

5 

LASI  937 

00,3540 

0 7274 

1 

1 c 

POLY 

EVALUATE  FOUR  1 H ORDER  POLYNOMIAL. 

2150 

00,3541 

00003 

1 

OEt 

3 

2151 

00,35^2 

14441 

0 

^UETC 

♦.3926990796 

C2151 

00,3543 

37325 

1 

2152 

00,3544 

53250 

0 

2UEL 

-.6459637111 

C2T52 

00t35A5 

, 60764 

1 

2153 

00,3546 

12146 

1 

20tt 

♦.318758717 

C2153 

00,3547 

21276 

1 

2154 

00»3550 

75466 

1 

2Dtt 

-.074780249 

C2154 

00,3551 

71471 

0 

2155 

00,3552 

00236 

0 

20EC 

♦.009694988 

C2l5b 

0075553^ 

“32757 

0 

2156 

REF 

1 

00,3554 

3 2466 

1 

CAh 

LBUF2 

MULIIPLY  BY  ARGUMENT  AND  SHIFT  LEFT  2. 

2157 

REF 

19 

LASI  994 

00,3555 

0 7160 

1 

It 

OMPSUB  -1 

2158 

00,3556 

0 0006 

1 

EX  I END 

2159 

REF 

LASI 1033 

00,3557 

3 0146 

1 

UtA 

MPAt  ♦! 

2 161J 

REF 

715 

LaS  J 1033 

00*3560 

20  1 46 

0 

UAS 

MPAt  ♦! 

2161 

REF 

716 

LASI 1033 

00,3561 

6 0144 

0 

AO 

MPAt 

2162 

ref 

717 

LASI 1033 

00,3562 

26  144 

1 

AOS 

MPAt 

NEIIHER  SHIFT  OVERFLOWS. 

2163 

00*356^ 

0 0006 

1 

EX  1 END 

2164 

REF 

718 

LaSI 1033 

00,3564 

3 0146 

1 

OCA 

MPAt  ♦! 

2165 

REF 

719 

LASI 1033 

00,3565 

20  146 

0 

OAS 

MPAt  ♦! 

2166 

REF 

720 

LATS 1 1 033 

UU  * J 666 

6 0144 

0 

— ATT 

“MPAC~ 

2167 

REF 

721 

LASI 1033 

00,3567 

26  144 

1 

AOS 

MPAt 

2168 

REF 

45 

LASI 1027 

00,3570 

1 6125 

0 

ItF 

0AN21t 

633A36A 

“YUL^SYSTEF  FOR  AOC: 

REVrSTDN 

0 OF  program  BURSTlTCTHTTTO^A  20211X)6-03r 

“TTEC  7,  1967  (MAIN)  PAGE1034 

L 

INTtRHKtlEK 

USER'S  OWN  Rage  no.  52  SS"  T3 

H2169 

AKC51N/ARCC0S  ROUTINE. 

2170 

REF  1 

00,3571 

3 3612  1 

ARCSIN 

LAI- 

LASINEX 

compute  arcsin  by  using  the  IDENTITT 

2171 

00,3572 

1 ^ 
o 

ICF 

+ 2 

ARCblN(X)  = Pl/2  - ARCCUS(X). 

2172 

REF  1 

00,3573 

3 36^^  1 

ARCCOb 

L0AN21G 

(EXITS  IMMEOIATELY) . 

2173 

REF  1 

00,3574 

54  126  0 

lb 

ESCAhE 

2T7‘T 

ttef  ^rA^no32  ” 

' 00;3575 

0 70ffl  T 

1 c 

BRANCH 

TESI  SIGfrOF  INPUT, 

2175 

ref  1 

00,3576 

1 3606  0 

IGF 

ACObST 

START  IMMEDIATELY  IF  POSITIVE. 

2176 

RfF  1 

00,3577 

1 3706  1 

ICF 

ACObEERO 

ARCCOS(O)  = PI/2  = .25, 

2177 

OCT*  3600 

0 0006  1 

tX 1 ENO 

IF  NEEATIVEY  CT5E“THE  IDENTITY 

2178 

REF  722  LASI1033 

00,3601 

4 0145  0 

UCb 

MPAC 

ARCCOS(X)  = pi  - ARCCOS(-X),  FORCING 

2179 

ref  723  LASU03A 

00,3602 

52  145  0 

UXCH 

MPAC 

argument  positive. 

2180 

REF  1 

00,3603 

3 3711  0 

C^Af- 

tcsubtr 

SET  EXIT  TO  "DO  ABOVE  BEFORE 

2181 

REF  2 LASI1034 

00,3604 

56  126  1 

XCH 

ESCAPE 

ARCblN/ARCCOb  CONSIDERATIONS. 

2182 

ref  1 

00,3605 

54  127  1 

lb 

ESCAPE2 

2183 

RfF  . 27  UA5T1031 

00,3606 

4 7746  1 

ACObbI 

Cb 

HALF 

TESI  magnitude  OF  INPUT, 

218A 

REF  724  LA5I 1034 

00,3607 

6 0144  0 

AU 

MPAC 

2185 

ref  345  East  1032 

00,3610 

10  000  0 

CCb 

2186  ■ 

RfF  1 

00,3611 

1 3702  0 

ICF 

ACObOVF 

THIS  IS  PROBABLY  AN  OVERFLOW  CASE. 

2187  ReF  1 00,36l<!  1 3670  1 LASTNEX  TCP  A5INEX 


2188 

REF 

1 

00,3613 

1 3623 

1 

ICF 

AC0SbT2 

NO  OVERFLOW  - PROCEED, 

2189 

REF 

725 

LA5I 1034 

00,3614 

10  145 

0 

LCb 

MPAC  +1 

IF  major  part  is  ,5,  CALL  ANSWER  0 

2190 

RfF 

292 

LAbl 1030 

00,3615 

3 7767 

0 

LAF 

EERO 

UNLESS  minor  PART  NEGATIVE, 

2191 

RTF 

1 

00,3616 

■ tcf 

AC0S*0 

2192 

REF 

2 

LASI 1034 

00,3617 

1 3623 

1 

ICF 

AC0bST2 

2193 

REF 

726 

LaSI 1034 

00,3620 

54  145 

0 

ACOSiO 

1 b 

MPAC  +1 

2194 

RfF 

72  7 

LASI 1034 

00,3621 

5^  144 

1 

1 b 

MPAC 

2T9^ 

“REF" 

LaSI 1034 

‘ 00^3622 

0 O TZB 

r 

1 C' 

ESCAPE 

2196 

00,3623 

0 0006 

1 

AC0SSI2 

tXl ENO 

NOW  THAT  ARGUMENT  lb  IN  PROPER  RANGE, 

2197“ 

ref 

728 

L A'b  1 1 U 3 A 

00,3624 

4 0145 

0 

UCb 

MPAC 

BEGIN  COMPUTTIrTlON,  USE  HASTINGS 

2198 

ref 

28 

LaSI 1034 

00,3625 

6 7746 

0 

AD 

HALF 

APPROXIMATION  ARCLOb(X)  = SORT ( 1-X) P (X) 

2199 

REF 

729 

LASI 1034 

00,3626 

52  145 

0 

DXLH 

MPAL 

IN  A scaled  version  where  p(X)  is  A 

2200 

■RrF 

22 

LaSI 1 0 3 3 

00,3627 

52  124 

I 

DXCH 

"BUF2 

seven  IFT“OROEF<“POtrYNOMt"AL, 

2201 

REF 

3 

LASI 1026 

00,3630 

0 3325 

0 

1C 

SQRTbUB 

RETURNS  WITH  NORMALIZED  SOUARE  ROOT, 

2202 

REF 

62 

LAST  1031 

00,3631 

10  125 

0 

LCb 

MPTEMP 

SEE  IF  UN-NORMALIZATIUN  REQUIRED. 

2203 

ref 

1 

00,3632 

1 3675 

1 

ICF 

AcOSSHR 

IF  SO. 

> 


bsa'tseA 

rut 

SrSTEP  FOR  ACjCi 

REVISIOAi 

b OF  PROGRAM  BURSfiiJU  dY  NASA  2U21106-031 

DEC  i,  1967  (T'^AIN)  PAGE1035 

L 

INTEKPKtIEK 

USER* 5 OWN  PAGE  NO.  83  S3  E3 

220<i 

REF 

730 

LI'S!  1039 

00,3633 

52  195 

0 

AC0S3 

UXGH 

MPAC 

SET  UP  FOR  polynomial  EVALUATION. 

22^36 

RfF 

23 

LaSH039 

00,3639 

52  129 

i 

uxlh 

'B0F2 

2206 

REF 

731 

La5I 1035 

00,3635 

52  195 

0 

UXGH 

MPAC 

2207 

REF 

6 

LAbI 1033 

00,3636 

0 7279 

1 

1C 

"TOO 

2208 

00,3637 

00006 

1 

UEL 

6 

2209 

00,3690 

13290 

0 

tOtL 

♦.353553385 

COEFFICIENTS  ARE  C 2 ( ♦ 1 ) /P 1 SORT ( 2 ) WHERE 

C2209 

00,3691 

23630 

u 

2210 

00,3692 

79721 

0 

2UEL* 

-.0983017006  B+l»  1 

02210 

00,3693 

97775 

1 

zzrr 

00,3699 

02990 

0 

2DEC* 

♦ •02UU273U85  b + 2X  WHEKt  L Sr^NUS  FUK  URI^INAU  V-Dtl-FS. 

(.2211 

00,3695 

2023  7 

0 

2212 

00,3696 

75067 

1 

2UEC» 

-.0112931863  B+3* 

C2212 

00,369r 

70792 

1 

2213 

00,3650 

03936 

0 

20EL* 

♦.00695311612 

b^9» 

02213 

00,3651 

26756 

1 

221^ 

00,3652 

7903  7 

0 

2DtC^t 

-.00389617957 

b+5* 

0221^. 

00,3653 

57690 

1 

221b 

00,3659 

03096 

0 

20EC* 

♦.001501297736 

C22T? 

0'013^55" 

0TPT3” 

u 

2216 

00,3656 

76659 

1 

2UEC* 

-.000284160334 

b+7Jt 

02216 

00,3657 

42244 

0 

2217 

REF 

2 

EAST  1033 

00,3660 

i 2466 

1 

GAh 

LBUF2 

DO  final  multiply  ANT)  GO  TO  ANY 

2218 

RfF 

20 

LAbI 1033 

00,3661 

0 7160 

1 

IC 

DMPSUB  -1 

EPILOGUE  SEOUENCES. 

2219 

REF 

4 

LASI 1039 

00,3662 

0 0126 

1 

1C 

ESCAPE 

2220 

00,3663 

0 0006 

1 

SUBTR 

EX  I END 

epilogue  for  negative  INPUTS  TO  ARCLOS. 

2221 

REF 

732 

LaSI 1035 

00,3669 

9 0195 

0 

UES 

MPAC 

2222 

REF 

29 

L S T 1 0 3 4 

00 ♦ 3665 

6 7746 

0 

AU 

half 

FORMS  PT  -“TWtCXrST-XT  S ARCCOS(X). 

2223 

REF 

733 

OAbi 1035 

00,3666 

52  195 

0 

UXGH 

MPAC 

2224 

REF 

2 

LASI 1039 

00,3667 

0 0127 

0 

IC 

ESCAPE2 

GO  10  POSSIBLE  ARC5IN  EPILOGUE. 

2225* 

00,3670 

0 0006 

1 

ASINEX 

EX  1 END 

2226 

ref 

739 

LASI 1035 

00,3671 

9 0195 

0 

UCb 

MPAC 

AKCSIn  EPILOGUE  - GET  ARCSIN(X) 

2 2 2 7 

REF 

4 

UAb  1 

00 ,36^2 

5~774^ 

1 

AO 

UUAR 1 ER 

= Pl/2  _ AKCCOS(X) . 

2228 

ref 

73b 

LAST1035 

00,3673 

52  195 

0 

UXLH 

MPAC 

2229 

RfF 

46 

LaSI 1033 

00,3679 

1 6125 

0 

LDANzILj 

ICF 

DANZlt. 

6 3 34 36 A 

YUL 

system  for  AtiCl 

1 RtvISION 

0 OF  program  BUR5T12U  bY  NASA  2021106-U31 

DEC  7,  3967  (MAIN) 

PAQE1036 

t 

TNTtRPRtlEK 

USER'S  OSN  PfiGETTlO,  84 

S3  E3 

2230 

REF 

346  LaSTl034 

00,3675 

50  000  1 

ACOSSHR 

INDEX 

A 

the  shift  RIUHT  is  less  than  14  SINCE 

2zn 

reF- 

56  Va3T1024 

00,3676 

3 7246  0 

CAh 

B1T14 

!Mt  iNHUT  WAO  NUN^/tRU  OK. 

2232 

REF 

63  LASI1034 

00,367  / 

54  125  0 

IS 

MPTEMP 

2233 

REF 

4 LASI 1002 

00,3700 

0 2073  1 

IQ 

YSFIKRND 

up  shift  RICH!  AND  ROUND. 

7234 

TTTF- 

”7)0,3701 

TT  3633  0 

1 Qt 

"AXOS"? 

“PROCEED. 

2235 

00,3702 

0 0006  1 

ACOSOVF 

EX  1 END 

IF  major  part  was  only  1 MORE 

THAN  .5, 

ZZJ6 

KfF. 

2“X7V5  11034 

00,3703 

i 362U  i 

tJ2l- 

A S ” u 

CALO  AISSWER  “ZtKCr. 

2237 

REF 

7 LASI1029 

00,3704 

0 6000  1 

ACOSAbKT 

IC 

ABOKl 

2238 

0XT,3T0D  orjol  1 

ocl 

130T 

2239 

22u0 

RtF 

RTF 

5 LASI1035 

3 LA5I1036 

00,3706 

00.3707 

3 774/  1 
1 3621  0 

ACOSZERO 

(.AF 

ICF 

aUARIER 
AC0S=0  ♦! 

AC05(0)  = Pl/2. 

SErMPAC  ANI7  ^-X^T' VTA  ESCAPE- 

22403 

22406  RtF  I 


00,3710  77763  0 NtG12  UtO 

00,3711  I 3663  0 tCSUBIK  I CF 


-12 

5UBTK 


633436A 

yUL  SySTtf/  hOH  A^,C:  REvlSlOM  0 OF  PROGRAM  BUR5T120  BY  20211106-031 

' XIEC*7," 

1967 

(FiAIN) 

PAgE1037 

L 

P22409 

iMTtRPRETEK 

Auxiliary  lqoing  for  odv/bodv; 

"njStR',5  OWN  PAGE 

NO. 

65 

53 

22A1 

ITCF- 

3<t7 

XA5rri0’36 

00,3712 

10  000 

0 

BUFPOS"" 

22A11 

Ref 

2 

LASjI  10,09 

00,3713 

1 2920 

1 

KF  BUF  + 

TO  BUF+  IF  bUF  IS  GREATER  THAN  +1. 

22912 

RLF 

130 

LAbU0'30 

00,3719 

9 0121 

1 

bUf-  +1 

IF  tiUF  IS  +it  FORCITmG  stgn  agrefmeni 

22913 

00,3715 

0 0006 

1 

tXILNO 

MAY  CAUSE  BUF  TO  BECOME  ZERO. 

22919 

REF 

3 

LASl 1037 

00,3716 

6 2920 

0 

B2MF  BUF+ 

BRANCH  IF  SIGNS  AGREE. 

22915 

REF 

30 

LAS  1 1035 

00,37l7 

3 7796 

0 

^-A  HALt- 

SIGNS  DISAGREE.  FORCE  AGREEMENT. 

22916 

00,3720 

6 0000 

1 

+ 6 

OOubLt 

22917 

ReF 

131 

LA5T1037 

00,3721 

26  121 

1 

ADS  BUF  ♦ 1 

22918 

REF 

293 

LA5I 1039 

00,3722 

3 7767 

0 

LA  EERO 

22919 

REF 

132 

LASI 1037 

00,3723 

59  120 

0 

IS  BUF 

' 2292 

REF 

1 

00,3729 

I 2362 

0 

rCF  BUFZERO 

22921 

22922 

RtF 

REF 

348 

2 

las'  1037 
LaSI 1009 

00,3725 

00,3726 

1C 

1 

1 000 
2919 

0 bUFNtG 
0 

CCS 

iCF 

a 

BUF- 

TO  BUF-  IF  BUF  IS  LESS  THAN  -1. 

22923 

REF 

133 

LASI 1037 

00,372  7 

3 

0121 

0 

ca 

BUF  ♦! 

IF  BUF  IS  -1,  FORCING  SIGN  AGREEMENI 

22929 

00,3730 

0 

0006 

1 

EX  1 END 

MAY  CAUSE  BUF  TO  BECOME  ZERO. 

22925 

REF 

3 

LASI 1037 

00,3731 

6 

2414 

1 

bZf^F 

BUF- 

BKAI'^CH  IT  SIGiviS  AGREE, 

22A26 

22427 

RLF 

-REP 

31 
■ 2 

LASI 1037 
1 AS  1 1009 

00,3732 

00.:?T33 

4 

1 

7746 

3720 

1 

0 

CS 
1 rF 

HALI- 

'B'LJPPUS  >6  - 

SIGNS  disagree.  FORCE  AGREEMENT. 

633436A 

TUt^^TSTEf.'  EOH  AGCl 

KEViSlOrJ'O' OP  PKDGRAI^  BUK5T120  bY  NASA  ■202H06-U‘3I " ' 

1967 

mATN)  PAGE1038 

L 

iNFtKPKtTtK 

USfcR' 

'S  OWN  PACF~N0.  B6 

S3  E3 

l^22‘iZ8 

the 

hOLLOWlNG  instructions  ARe  AVAILABLE  ROR  SeITINU,  MOUIRYINC,  ANO 

branching  ON  index 

REGISTERS; 

K2243 

1. 

AXT 

ADDRESS  (0  INDEX  IRUE. 

K22‘,‘> 

!• 

AXC 

ADDRESS  TO  INDEX  COMPLEMENTED. 

LXA 

LOAD  INDEX  FROM  EKTTSTIBCEi  " 

R2246 

A* 

LXC 

LOAD  INDEX  COMPLEMENTED  EROM  ERASABLE. 

K22'.7 

5. 

SXA 

STORE  INDEX  IN  ERASABLE. 

R2Z^  8 ' 

6* 

"XCHX 

EXCHATJGE'TNDETC'TTE'f&’STER  RTTH  ERASABLE. 

RZZ'.V 

7. 

INCR 

INCREMENT  INDEX  REGISTER. 

KZZ50 

P* 

X AO 

ERASABLE.  ADD  TO  i^DtX  KEGiSTtK* 

K2251 

RPpfy? 

9. 

in. 

xsu 

TIX 

erasable  subtract  PKUM  INDEX  REGISTER. 
BRAMCH  ON  INDEX  KEGlSlEH  AND ' DFCRFMENT.  ' 

ZZ53 

Ol.ZbZb 

BANK 

01 

22SA 

REF 

1 

01 ,ZbZ6 

0 Z7Z3 

u 

A X T 

1 c 

TAGSUb 

SELECT  APPROPKlATEr  iTVPEX  REGISTER. 

ZZ55 

RrF 

Z3 

LASI 10Z7 

01  ,ZbZ7 

3 0107 

I 

CA 

POLISH 

ZZ56 

REF 

4 

LASI  9SI 

01.Z630 

50  120 

1 

XSTORE 

INDEX 

INDLXLOL 

CONIAINS  C(EIXLOC)  OR  C(E1XL0C)+1. 

2257 

Ref 

22 

LASI  967 

01  9 2 63 1 

T4  046 

1 

I’S 

X 1 

ZZ58 

REF 

47 

LASI 1035 

01  ,Zb3Z 

1 blZ5 

0 

ICE 

DANZIG 

ZZS9 

■REF 

2 

LAS  1 1038 

01 92633 

0 27Z3 

0 

AXC 

1 c 

T AGSUB 

Z260 

ref 

ZA 

LASI 1038 

01  ,Z63A 

A 0107 

0 

cs 

POLISH 

Z261 

REF 

I 

01,Zb35 

0 2b30 

0 

1C 

XSTORE 

22(j2 

ref 

I 

01 ,Zb3b 

0 2711 

1 

LXA 

1C 

15ADKERS 

LOAD  index  register  FROM  ERASABLE. 

2263 

REF 

zs 

LASI 1038 

01,Zb37 

50  107 

1 

INDEX 

POLISH 

ZZbA 

0 1 9 2 64U 

'TO  Oder 

1 

LA 

— Q- 

ZZ65 

REF 

2 

LAST  1038 

Ol.ZbAl 

1 2b30 

1 

ICE 

XSTORE 

2266 

RrF 

2 

LA^I  1038 

01  ,"2642 

0 2711 

1 

LXC 

re  ■ 

15ADRERS 

LOAD  NOX  REG  FROM  EKA1>ABLE  COMPLEMENTED. 

ZZ67 

REF 

Z6 

LaSI 1038 

01  ,2bA3 

50  107 

1 

INDEX 

POLISH 

ZZ68 

01  ,Zb4A 

A 0000 

0 

cs 

0 

2269 

Ref 

3 

01 92645 

1 2630 

1 

1 Ch 

XSTORE 

ZZ70 

Ref 

3 

last  1038 

01  ,ZbAb 

0 2711 

1 

SXA 

IC 

I5ADRERS 

STORE  INDEX  REGISTER  IN  ERASABLE. 

ZZ7I 

PEP 

5 

LAS! 1038 

01  92647 

50  120 

1 

INDEX 

INOEXLOC 

2212 

REF 

23 

LASI 1038 

Ol.ZbSO 

3 OOAb 

0 

LA 

XI 

227Z5 

REF 

Z7 

LASI 1038 

01  ,Z651 

50  107 

1 

MSTOREl 

INDEX 

POLISH 

22  <3 

Ul  92662 

5A  000 

“0“ 

i S 

0 

Z2735 

REF 

48 

LASI 1038 

01,Zb53 

1 bl25 

0 

1 CE 

DANZIG 

6‘3343*A 

VUL 

"SrSTEM  FOR  SGC: 

REVISION 

0 OF  Program  BuRbii20  b7  nasa  2021106-031 

DEC  7TT567  (MAIN)  PAGE1039 

L 

INTfcKl'KtlFK 

USERiS  OEIN  Page  no.  87  S3  E3 

2Z1^ 

ReF 

LaSI  1038 

01,2684 

0 2711 

1 

XCHX 

1C 

IbADRERb 

exchange  index  register  with  erasable. 

REF 

28  LA5T1038 

01,2688 

80  107 

I 

INDEX 

POETSH 

2276 

01 ,2686 

3 0000 

1 

0 

2277 

REF 

6 EaSI 1038 

01,2687 

50  120 

1 

INOtX 

INDEXLOC 

2XT8' 

R^F 

'ZA  E715T1038 

01 ,2667) 

56  046  0 

XCR~ 

XI 

2279 

REF 

1 

01,2661 

1 2651 

0 

ICF 

MSTUREl 

2280 

RET" 

8 EA5TI039 

01,2662 

0 2711 

1 

AAO 

K 

I5ADRERS 

ADD  EKAbAbLh  ID  IINDex  Kt^IblEK* 

2281 

REF 

29  LAbI 1039 

01 ,2663 

50  lOI 

1 

INDEX 

POLIbH 

2282 

01,2664 

,3  0000 

1 

CA 

0 

" “ ?Z83”  ' 

REF' 

7 EA5T1039  ' 

01,2668 

50  120 

1 

XAD2 

INDEX 

TNDEXLDC 

2289 

RfF 

28  LA5I 1039 

01,2666 

26  046 

1 

AUb 

XI 

IGNORING  OVERFLOWS. 

2285 

RfF 

99  LAbll038 

01,2661 

1 6128 

0 

ICF 

DAN21G 

2286 

REF 

3 LASI1038 

01,2670 

0 2723 

0 

INCR 

1C 

TAGbUB 

INCREMENT  INDEX  REG15IER. 

2287 

Rff 

30  LAbI 1039 

01,2671 

3 0107 

1 

CA 

POLlbH 

2288 

Krf* 

’1 

01,2672 

1 2665 

1 

TCh 

XAD2 

2289 

REF 

6 LAbll039 

01 ,2673 

0 2711 

1 

XSU 

1C 

15ADKERb 

SUBIRACT  erasable  FROM  INDEX  REGISTER. 

2290 

REF 

31  EA5I1039 

01,2614 

50  107 

1 

i INDEX 

POLIbH 

2291 

01,2678 

4 0000 

0 

(.5 

0 

2292 

REF 

2 EA5I1039 

01,2676 

1 2668 

1 

ICF 

XAD2 

-22-93- 

2294 

2295 

ref 

REF 

RpF 

4 

B 

35 

Last  1039 

LaSi 1039 

UAbI  936 

01,2677 

01.2700 

01.2701 

0 2723  0 

50  120  1 

4 0050  0 

T IX 

|C  ' 

INDEX 

CS 

"TA'GSUB  ' 
INDEXLOC 
51 

' BRANCH  AND  DEcREmENt'  ON  INDEX. 

2296 

ref 

9 

LASI 1039 

01  ,2702 

50  120'  T 

irNDEX 

INDEXLOC 

22  97 

REF 

26 

LASI 1039 

01,2703 

6 0046  0 

AD 

XI 

2298 

01,2704 

0 0006  1 

EX  1 end 

NO  operation  if  decremented  index  is 

2299 

REF 

50 

LaSI 1039 

01,2705 

6 6125  1 ' 

B2MF" 

'OAN'AIG 

NEGATIVE  OR  2ER0.  " 

2300 

RpF 

10 

lasi 1039 

01,2706 

5O  120  1 

DOTIXBK 

INDEX 

INDEXLOC 

23TM 

—Rff 

27 

LAbI 1039 

01 ,2707 

56  U 

' XCH  ' 

XI 

Ignoring  ovEKfcows. 

23012 

Ref 

6 

lasi 1027 

01,2710 

1 6724  1 

ICF 

GOTO 

Do  the  branch  using  the  CADR  in  POLISH. 

6r3^T6A“fUr‘SY5TE:f/  FOR  A(^Ci  RBvISION  0 OF  PRO&RAH  gUR5TI2U  bT  NASA  202  H06-03y 


DECT 'mW7“  (RAIR)  PAgElOAO 


17,rrERPRtTER  ■'  USER* 5 OWN  PAGE  NO"." “88  53““  "ES 

P2  3013  SUERpUriNE  Tp  CqNVERT  AN  ERASABLE  aUURESS  111  BUS)  Ip  AN  EBanA  SEUlNG  ANU  SUBaUURESS. 


01,2711  A 0107  0 IbADKEKS  (.5  POLISH 

01,27U  6 S353  1 AP  OECAS 

0T,“27T3“  “TO"OWTT CCS A OPES  THF  ADBKES'S-punrmc  THE  WORK  AREA? 

01.271A  ■ 3 Olio  1 CA  FIXLPC  YES.  ADD  FIXLOC.  EBANX  OK  AS  IS. 

01.271S  1 2722  0 I CF  *5 


2302 

RtF 

B 

LA5I  967 

01 ,2716 

3 5352  0 

CA 

OCTIAOO 

NO.  SET  EBANK  6 HAKE  UP  SUBADDKESS. 

23021 

REF 

33 

LAbI lOAO 

01  ,271  1 

56  107  1 

XCH 

POLISH 

“23022 

RfF 

'71 

LA5I  975 

01  ,2720 

5^  003  0 

i b 

EBANK 

23023 

RfF 

16 

Last  975 

01,2721 

7 A56A  0 

MAbK 

L0W8 

2302A 

REF 

3A 

LAST lOAO 

01,2722 

26  107  0 

+ 5 ADS 

POLISH 

fall  into  tagsub,  and  return  via  0. 

R2303 

subroutine 

WHICH  Sets  the  address  of  the  specified  index 

IN  INDeXLUC.  (actually,  the  address  -38D.) 

2305 

REF 

A7 

LAST lOAO 

01,2723 

3 0110  1 

lAGSUy  CA 

MXLUC 

2306 

REF 

11 

LASI 1039 

01.272A 

U1 

1 

' C 

0 

IS 

INDEXLOC 

2307 

Rf^ 

A2 

LaSI 1008 

01,2725 

10  020  1 

CCb 

CYR 

BTT  15  SPECIf^IES  TTWEXr, 

2308 

RfF 

12 

LASI IOaO 

01  ,2726 

2A  120  1 

INCR 

INDEXLOC 

0 means  use  X2. 

2309. 

REF 

303 

LASI 1030 

01,2727 

0 0002  0 

1 C 

Q 

2310  REF  30A  LA5I10A0  01 , 2730  0 0002  0 TC  0 


23015. 

23016 

REF 

REF 

32 

2 

last  1039 
LASI  967 

T30T7 

23018 

23019 

REF 

46 

LASI 1027 

I fur  XI 
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L InTENPN^Te'N  " ^ "USER'S  '0k^N  PA&E^'OV"^B9  ' 53  E3 

P2311 miscellaneous  qPERAtION  CqOES  WljH  UlREC|  aOORESSES.  INCLUDED  HERE  ARE; 


K2313  1.  ITA  store  QPRET  (RETUKN  AUOKESS)  IN  ERASABLE. 

K2315  2.  LALL  CALL  A 'SUBROUUNt*  LEAVING  RETURN  IN  QpRET. 

R2Trr  1.  RTB Return  T0"BA51C  language  AT  THE  GIVEN  ADDREiYS';’ 

R2319  A*  6^^'^  ' branch  if  THe  HIGH  ORUER  I3F  MPAL  IS  ZERO  (SINGLE  PRECISION). 

R2321  5.  BOV  BRANCH  ON  OVERFLOW. 

R2322  6.  BOTQ  SIMPUE  5E0UENCE"CF(ANGE.  ' " 


2323 

REF 

43 

LAS) 1040 

01.2731 

10  020 

1 

RTB/BHU 

CCS 

CYR 

"232A 

REF 

■ 35 

LA8  1 1040 

01,2732 

3 0107 

1 

RTB 

CA 

polish 

2325 

REF 

14 

LaSI  435 

01,2733 

1 5230 

1 

ICF 

6AN>^JUMP 

call  BASIC  ROUTINE, 

2326 

REF 

736 

LA5I 1035 

01,2734 

10  144 

1 

BHIZ 

CCb 

mpac 

2327 

REF 

51 

LA5I1039 

01,2735 

1 6125 

0 

ICF 

(3ANZ1G 

2328 

ReF 

7 

LASI 1039 

01,2736 

1 6724 

1 

ICh 

GOTO 

2329 

REF 

52 

L/\5T104I 

01 ,2T37 

1 6125 

u 

1 Lh 

OANZTG 

2330 

REF 

8 

LA5T1041 

01  ,2740 

1 6724 

1 

ICF 

GOTO 

2331 

RfK 

22 

LaSI 1028 

01,2741 

10  111 

I 

BOV(B) 

OVFINO 

BRANCH  ON  OVERFLOW  TO  BASIC  OR  INTERP, 

2332 

01,2742 

1 2744 

0 

ICF 

♦ 2 

2333, 

REF 

53 

last  1041 

01,2743 

1 6125 

0 

ICF 

OANZlG 

2334 

REF 

23 

LflSf 1041 

01,2744 

54  111 

1 

1 5 

OVFINO 

2335 

RfF 

44 

LASI 1041 

01,2745 

10  020 

1 

LC6 

CYR 

2336 

REF 

1 

01,2746 

1 2732 

1 

ICF 

RTB 

IF  basic. 

T337 

01,2747 

00360 

1 

B5T0B8 

UCl 

360  " 

2338 

REF 

y 

Last  1041 

01,2750 

1 6724 

1 

ICF 

GOTO 

633436A 

YOl-'^ 

SYSTEM  FOR  AGC: 

REVISION 

0 OF  PROGRAM  BURST120  IJY 

NASA"  2021106-031 

DEC'7»  1967  EMATNT  PAGE  1092 

_ __  _ 

TNlERPRtTEH 

USERiS  OlYFmiGE^NO,  90  S3  E3 

2339 

ref 

^5 

LAST1091 

01,2751 

10  020 

1 

BZE/GOTO 

LCb 

CYR 

SEE  WHICH  OF-COCE  IS  DESIRED. 

2390  - 

REF 

6 

LA^T 1034 

01 ,2752 

0 7001 

1 

1 C 

BRANCH 

DO  bze:. 

2391 

REF 

59 

LaSI 1091 

01,2753 

1 6125 

0 

ICF 

UANZIG 

2392 

ref 

10 

LASI 1091 

01 ,2759 

1 6729 

1 

ICF 

CsOTO 

DO  GOTO. 

T39T3 

■RtF 

“ 55" 

"01  ,"2755 

~t“6rZT 

C7 

1 CF 

DARZ  ICj 

23^^ 

REF 

^6 

LASI 1092 

01,2756 

10  020 

1 

BPL/BMN 

CCS 

CYR 

2Vi3 

“RET^ 

1 

■ 01,275F 

1 2765 

u 

ICF 

BPi: 

2396 

01 ,2760 

12000 

1 

5B10 

PEC 

5 B+10 

SHIFTS  OP  CODE  IN  SWIICH  INSTRUCTION  ADR 

2397 

ref 

7 

LASI 1092 

01,2761 

0 7001 

1 

1C 

BRANCH 

DO  BMN . " " 

2398 

REF 

56 

LASI 1092 

01,2762 

1 6125 

0 

ICF 

OANZIG 

2399 

ref. 

5 7 

LASI 1092 

01,2763 

1 6125 

0 

1 CF 

OANZIG 

2350 

RELF 

11 

La5 1 1042 

01 ,2769 

1 6729 

1 

! CF 

GUTO 

ONLT  "TF  NNZ". 

2351 

REF 

8 

LASI 1092 

01,2765 

0 7001 

1 

BPL 

IC 

BRANCH 

23^2 

Rff 

12 

L745  1 1092 

0 i f 2 ^66 

1 6729 

1 

1 CF 

COTO 

If  positive  Ok  zero. 

2353 

REF 

13 

LASI 1092 

01,2767 

1 6729 

1 

ICF 

GOTO 

2359 

REF 

58 

LASI 1092 

01,2770 

1 6125 

0 

ICF 

DANZIG 

2355 

REF 

97 

LaSI 1092 

01,2771 

10  020 

1 

CALL/1  lA 

CCS 

CYR 

2356 

REF 

1 

01,2772 

1 6716 

0 

ICF 

CALL 

2357 

REF 

49 

LASI  959 

01,2773 

0 9736 

1 

IC 

CC5H0LE 

2358 

REF 

7 

LASI 1039 

01,2779 

0 2711 

1 

IC 

15ADKERS 

STOKE  QPRET.  1 TAGSOB  AFTER  15ADKERS  IS 

235B5 

RFF 

48 

LaSI 1040 

01,2775 

50  TIO 

1 

i NUt  A 

F IXLOC 

SLOW  If'TTHrS  XTASE.*  bU  1 SAVES  STORAGE,) 

2359 

REF 

5 

LAST  1027 

01,2776 

3 0052 

0 

LA 

QPREl 

. 2360 

REF 

2 

LASI 1039 

01  ,2777 

1 2651 

0 

ICF 

MSTOKEl 

■633V^A“T0r"5YSTeNf  F3H  A6C:  REVISION  0 UT  PR'OG8rAM  BUR5rT2OTJTnTO5^ft  202UC56-Cfyi  Utl.  7»  1967  (MAIN)  PRQEiOAS 


L INTERPHtlER  ^ USER'S^OWN  HAGE^MO.  91  S3  E3 

R2361 tHe  EOLLQWING  UPePATIONS  AHE  AVAlLAbLE  EUR  ALTERING  AND  TESTING  INTERPRETIVE  SWITCHeI>I 


R2363 

00 

BONSEl 

Set  a switch  and  do  a goto  if  it  was  on. 

R2364 

01 

SETGO 

set  a switch  and  do  a goto. 

TF2365 

O2 

'FOFSET'  ' " 

so  a SWITCTT  ATTO  DO^TI  goto  if  it  WA5“  oft 

R2366 

O3 

SET 

SET  A SWITCH. 

W236  7 

0^ 

pONIN'V 

INVERT  A'  SWilCH  AND  BRANCH  IF  IT  WAS  ON. 

R2368 

06 

INVCjO 

INVERT  A SWITCH  AND  DO  A GOTO. 

R2369 

06 

EOF INV 

invert  a SWIICH  and  branch  if  11  WAS  OFF 

R2370 

07 

INVERT 

INVtKl  A bWIlLM, 

R2371 

lu 

■ BONCLR 

CLEAR  A switch  AND  BRANCH  IF  IT  WAS  ON. 

R2372 

II 

CLRGO 

CLEAR  A SWITCH  AND  DO  A GOTO. 

R2373 

1? 

BOFCLR 

CLEAR  A SWITCH  AND  BRANCH  IF  IT  WAS  OFF. 

R2374 

13 

clear 

CLEAR  A SWITCH. 

R2376 

14 

PON 

BRANCH  IF  A SWITCH  WAS  ON. 

R2376 

16 

PUFF 

BRANCH  IF  A SWITCH  WAS  OFF. 

R2377  tHe  address  supplied  WITH  THe  SWITGH  INSIRUCIION  IS  INTEPPHETeD  AS  FOLLOWS:' 

R2379  BITS  1-A  SWITCH  BIT  NUMBER  (1-16). 

R23W  BITS  5-B  SWITCH  OPERATTW  NUMBER. 

K238i  BITS  9-  SWITCH  WORD  NUMBER  (UP  TO  64  SWllCH  WORDS). 


R2382  THe  address  itself  is  made  up  by  the  YUL  system  assembler,  the  branch  instruct  I0N5TTE(JUmE~r WO 

R2384  addresses,  THe  SeCOND  TAkEN  AS  TH£  DIReCT  (OR  INDIReC)  Ip  IN  eRASAeCE)  ADDReSS  OF  THe  (3RANCH. 


2386 

ref 

3 

LAS)  801 

01  .3000 

3 5343 

0 

SWITCHES  CAF 

LOW4 

LEAVE  THE  SWITCH  BIT  IN  SWBn  . 

T3S7 

2388 

2389 

ref 

REF 

RfF 

36 

360 

41 

las  1 1041 
LAST  1040 
LaSI 1026 

01 , 30U 1 

01.3002 

01.3003 

7 OIDT 

50  000 

3 7746 

0 

1 

0 

' mask 

INDEX 

CAF 

POLISH 

A 

BIT15 

(NUMBER  FROM  LEFT  TO  RIGHT.) 

23V0 

RfF 

i 

0 1 1 300^ 

T" 

1 5 

"SWE"!  1 

2391 

ref 

39 

LASI  998 

01,3006 

3 7755 

1 

CAF 

BIT7 

LEAVE  THE  SWITCH  NUMBER  IN  SWWORO. 

2392 

01,3006 

0 0006 

1 

EX  1 end 

2393 

REF 

37 

LASI 1043 

01,3007 

7 0101 

0 

MF 

POLISH 

2394 

REF 

1 

01,3010 

54  120 

0 

i s 

SWWOKD 

2395 

01,3011 

0 0004 

0 

INHINT 

DURING  SWITCH  CHANGE  SO  RUPT  CAN  USE  TOO 

2396 

REF 

361 

LASI 1043 

01,3012 

50  000 

1 

INDEX 

A 

leave  the  SWilCH  WORD  IISELF  IN  L. 

2397 

■Rrr 

3T 

LAST  672 

01 13013 

3 XI07^ 

1 

■ LA’ 

STATE 

239B 

REF 

30t> 

LASI 1040 

01,3014 

54  002 

1 

IS 

u 

Q WILL  BE  USED  AS  A CHANNEL. 

~FiW3bl^  TuCSrSTEI"  I- aw  AGC:  KEVISI0IT^T!f^PR06R»1»t'BURSTl2U  er 'NA5^2V2j:j06-O31 


“DtC  i,  1967  (MAIN)'  “PAGTIOAA 


X INfXRHRtrER  " ' 'OStK'S  OKN  RaXE  NO.  92  5?  E3 


2399 

RpF  90 

La5T  997 

01,3015 

3 7751 

0 

LAF  BlTll 

2A00 

01,3016 

0 U006 

1 

tXTEi^D 

DfSRATCh  SWITCH  BIT  OPERATTOI'T  AS  TN  BITS 

2A01 

ReF  38 

LASI 1093 

01,3017 

7 0107 

0 

MR  POLISH 

7-8  OF  POLISH, 

2902 

RfF  1 

01,3020 

7 3060 

0 

MASK.  B3TUB9 

C.ETS  9X2-BIT  CODE. 

2903 

17EF:352 

L A S 1 1 U 4 3 

01  ,3021 

“T0“i300 

1 

“TNOETT  IfT 

2909 

01,3022 

1 302  3 

1 

ILF  +1 

2905 

RtT  ,2 

EA5T1093 

01  ,3023 

3 0121 

G 

+ 1 

XA  SUB  IT 

00  - 5ET”5W1|CH  IN  OUE51ION.  ' ’ 

2906 

01,3029 

0 0006 

1 

EX  1 END 

2907 

REF  306 

LASi 1093 

01,3025 

09  002 

1 

KOK  Q 

2908 

RTF  1 

01,3026 

1 3035 

0 

TCP  5W5TDRE 

2909 

REF  3 

LASI 1099 

01,3027 

3 0121 

0 

+ 5 

LA  SWBII 

01  - INVERT  SWITCH. 

2910 

01,3030 

0 0006 

1 

tX  ItNO 

2911 

REF  307 

LASI 1099 

01 ,3031 

06  002 

0 

RXUK  Q 

2912 

REF  2 

LASU099 

01,3032 

1 3035 

0 

ILF  SWSTORE 

2913 

REF  9 

LASI 1099 

01,3033 

9 0121 

1 

+ 90 

LS  SWblT 

10  - CLEAR. 

2919 

RfF  308 

LASI 1099 

01,3039 

7 0002 

1 

MA5K  Q 

2915 

REF  2 

Las  1 1093 

01 *3035 

50  120 

1 

SWSTORE 

INDEX  bWWOKD 

2^\b  . 

REF  38 

LASI 1093 

01,3036 

59  079 

0 

IS  STATE 

NEW  SWITCH  WORD. 

633436A  Yul-  pOR  A(jC!  REVISION  0 Op  rROgRAm  BuRSUiU  By  NASA  ZO^lIOb-OBT  OEo  7,  1967  "(MAIN)  RAgEIOAS 


L INTERPRETER  ■ USER'S  OWN  PACE  NO/  93  S3  ET 


2917 

01,3037 

0 

0003 

1 

♦ 130 

RELINI 

11'  - NOOP. 

29Tb 

RtF 

30 

Last  99 1 

01,30*90 

3 

774^ 

1 

CAP 

U 1 1 1 3 

2919 

01,3091 

0 

0006 

1 

EXIENO 

OISPATCH  SEUUCE  CHAN61NU  OR  BRANCHING 

2920 

REF 

39 

LAS  1 1099 

01,3092 

7 

0107 

0 

MP 

POLISH 

CODE. 

2921  ' 

”REF 

2 

LTASTT099 

*01,309*3 

! 

3060 

0 

PW5IC 

S3T0B9 

2922 

RfF 

3t)3 

LASI 1099 

01,3099 

50  000 

1 

INOEX 

A 

2*t23 

01 ,3095  ' 

1 

3096 

1 

tCP 

+1 

ORIUINALLY  STUREO  in  B1!5  5-6. 

2929 

REF 

3U9 

LaSI 1099 

01 ,3096 

4 

0002 

1 

+1 

C5 

Q 

00  - branch  if  on. 

2^25 

REF 

5 

LASI 1099 

01,3097 

7 

0121 

1 

TEST 

MASK 

SWBI  T 

292^6 

ffEF 

354 

LAST1045 

01,3050 

10  000 

0 

CC5 

A 

2927 

RfF 

1 

01,3051 

1 

3061 

1 

ICF 

SWSKIP 

292b 

REF 

1 

01 ,3052 

1 

6773 

0 

+ 5 

ICP 

SwBRANCH 

01  - GO  TO. 

2929 

REF 

2 

LaSI 1095 

01,3053 

1 

3061 

1 

ICF 

SwSkIr 

here  only  on  blT  15. 

2930 

REF 

50 

LASI 1092 

01,3059 

0 

9736 

1 

1C 

CCSHOLE 

2931 

REF 

51 

LASI 1095 

01,3055 

0 

9736 

1 

1C 

CCSHOLE 

2932 

REF 

310 

LaSI 1095 

01,3056 

3 

0002 

0 

+90 

CA 

U 

10  - BRANCH  IF  OFF. 

2933 

REF 

1 

01,3057 

1 

3097 

0 

ICF 

TEST 

2939 

01,3060 

00019 

1 

B3T0B9 

UCI 

19 

2A3S  REF  3D  1.AST  976  0i,306l  29  159  1 SWSKIP  iNCR EX)C 


2436 

REF 

1 

01,3000 

SW/ 

tUUALS 

SWITCHES 

2437 

REf 

59  LAS11092 

01,3062  1 6125  0 

+ 130 

K*p 

0AN21g 

11  - NOOP. 

tcc'7.  1^61  fKATNi  pAetroAe 
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0001  53SA 

ROOO'2  ‘'STNetE“PRFOrSI0NTrrRE"^T'lD  COSINE"  " 


BLOCK  02 


0003 

ReF 

32  LASI 1037 

5354 

6 7746 

0 

SPCOS 

AU 

half 

arguments  scaled  at  pi 

"000^ 

" RfF" 

1 

ys’ss 

"55^1310 

cr 

5FST1N" 

TT 

T £HK“ 

0005 

REF 

1 

5356 

1 5360 

0 

ICh 

SPT 

0006 

REF 

2 LAS11046 

5357 

4 1130 

0 

Lb 

temk 

"0007  ■ 

5360 

6 0000 

1 

SPT 

OOUBCT 

0008 

REF 

3 last  1046 

5361 

55'130 

0 

1 S 

TEMK 

0009 

REF 

1 

5362 

1 5373 

1 

ICF 

POLLEY 

0010 

REF 

4 LASI 1046 

5363 

57*130 

1 

ach 

temk 

0011 

Ref 

5 LASI 1046 

5364 

51*130 

1 

INUEA 

TEMK 

0012 

REF 

4 Last  5bo 

6365 

6 7744 

1 

AO 

LIMl IS 

OOT3" 

5366  4 OODO 

u 

COM 

OOIA 

REF 

6 LaSI 1046 

5367 

6 1130 

1 

AU 

TEMK 

0015 

REF 

7 LAST1046 

5370 

55*130 

0 

IS 

TEMK 

OOT6 

REF 

2 LASI 1046 

5371 

1 5373 

1 

1 CF 

PULLEY 

0017 

REF 

1 

5372 

1 6411 

1 

ict- 

ARG90 

0018 

5373 

0 0006 

1 

POLLEY 

LX (EMU 

0019 

REF 

8 LAST  1046 

5374 

7 1130 

0 

MP 

TEMK 

0020 

REF 

1 

5375 

55*131 

1 

1 S 

so 

0021 

5376 

0 0006 

1 

tXI END 

0022  ' 

T 

^T7 

7 54 1^" 

u 

MH 

"X572 

0023 

RrF 

1 

5400 

6 5415 

1 

AU 

C3/2 

0024 

5401 

0 0006 

I 

EXTEND 

0025 

REF 

2 LA5T1046 

5402 

7 1131 

1 

MP  - - 

SO 

0026 

Ref 

1 

5403 

6 5414 

0 

AD 

Cl/2 

0027 

5404 

0 0006 

1 

EXTEND 

0028 

REF 

9 LASI 1046 

5405 

7 1130 

0 

MP 

TEMK 

0029 

5406 

20  001 

1 

UDUUbL 

0030 

ref 

10  LASI 1046 

5407 

55*130 

0 

IS 

TEMK 

0031 

REF 

311  LASI  10<tb 

5410 

0 0002 

0 

1C 

u 

0032 

REF 

355  LASI 1045 

5411 

50  000 

1 

ARG90 

INDEX 

A 

0033 

REF 

5 LASI 1046 

5412 

4 7744 

0 

CS 

LlMl IS 

OOTR 

REF 

312  LASI 1046 

■"54T3" 

■ 0 "0002 

O’ 

1C" 

Q 

RESULT  SCALED  AT  T 

0035 

5414 

31103 

1 

Cl/2 

utc 

.7853134 

0036 

5415 

65552 

0 

C3/2 

DEC 

-.3216146 

0037 

5416 

01124 

I 

C5/2 

Utc 

.0363551 

633't36A 

YuL  SYSltfi-  hOK  AtiC:  revision  6 OE  PrOGrAm  BURS' IHO  BY  NAsA 

2021106-031  deg  T. 

1967  (MAIN) 

PAgEIOAT 

C 

siNGi-t  Precision  subroutines 

USER'S  OWN  PAGE  NO.  2 

S3 

K0038 

EmTER  with  aNBUMENT  in  a*  exit  with  Roo'  in  a*  IE  BIVEN  a 

negaUve  aRbumen'i  the  return 

SKIPS  WITH  GCS 

RESULT. 

rtOOAO 

«OOA1 

K0042 

Minus  ^eRo  returns  like  plus  zero. 

maximum  error  in  answer  is  no  greater  than  2 BUS. 

INTERRUPT  PROGRAMS  USING  SPROOT  MUST  SAVE  ANO  ReSIORE  SR. 

00A7 

"ReF- 

1- 

54T7" 

35 ' 1 32' 

I 

"SPROO'I 

TS^  ' 

SORARB 

ENTER  WITH  CTAT  = Y^ 

REF 

356 

LASI1046 

5420 

10  000 

0 

GCS 

A 

00^5 

REF 

1 

5421 

1 5425 

0 

IGF 

POSAKC 

IF  PNZ.  CONTINUE 

■ ' 00A6 

REF 

313 

LAST  1046 

5422 

0 0002 

0 

1C 

Q - 

return  WTTFTO  for~+d 

■ 00A7 

REF 

3 1 4 

LASI 1047 

5423 

24  002 

0 

INLK 

u 

0048 

REF 

315 

LAS  11047 

5424 

0 0002 

0 

IC 

0 

return  with  0 FOR  -u 

0049 

5425 

0 0006 

1 

POSARG 

tXIENO 

0050 

REF 

2 

LAST  27 

5426 

23'131 

0 

UXCH 

ROOTRET 

WILL  BE  calling  SPKOOTl 

0051 

1 

5427 

6 5504 

0 

Aa 

63/64*1 

B ( A 1 = Y - 1 “ 

0052 

5430 

54  000 

0 

UVSK 

0053 

REF 

1 

5431 

1 5473 

0 

IGF 

SPROOT2 

0054 

REF 

2 

LAST1047 

5432 

57'132 

0 

XCH 

5QRAR0 

ARG  JUGGLING  " 

OO55 

REF 

3 

LAST 10a7 

5433 

55*132 

1 

SPROUT  3 

IS 

SQRAKB 

UU5b 

“REF 

34. 

LAS^I  1031 

5434 

54  021 

0 

rs 

SR" 

CtAT  s Y 

0057 

REF 

35 

LASI 1047 

5435 

56  021 

1 

XGH 

SR 

(LOSE  1 BIT) 

0058 

REF 

2 

LAST  27 

5436 

55'130 

0 

IS 

HALEY 

HALFY  = Y/2 

0059 

REF 

2 

Ly'ST  172 

5437 

6 5502 

0 

ad 

-178 

FORM  Y/2  - 1/8 

0060 

REF 

357 

LASI 1047 

5440 

10  000 

0 

GCS 

A 

TEST  FOR  FIRST  GUESS 

0061 

REF 

1 

5441 

6 5503 

1 

AD 

5/8  + 1 

Y .G.  1/4,  X = Y/2  ♦ 1/2 

0U6<^  ■ 

REF 

1 

5442 

0 5447 

0 

TC 

HIGUESS 

+ 0 IMPOSSIBUT^I^OTT  ADDHION 

0063 

5443 

1 5444 

1 

imoup 

Y ,LE.  1/4,  X/2  = Y + 1/16 

0064 

REF 

41 

LAST  1044 

5^44 

3 7751 

0 

GAF 

Bini 

1/16 

UU65 

REF 

4 

LASI 104  7 

5445 

6 1132 

0 

AD  “ ■ 

5QRARG 

SURARG  = Y ^ 

0066 

5446 

6 0000 

1 

DOUBLE 

X FROM  X/2 

0067 

REF 

1 

5447 

0 5462 

1 

HIGUESS 

IC 

SPROUT  1 

UU6  b 

Kph 

2 

LaS1“1047 

5450 

0 5462 

1 

1 C 

^PROOIl 

ITERATE  TWICE^  

0069 

ref 

3 

Last  1047 

5451 

57'131 

0 

XCH 

ROOTRET 

SAVE  answer  and  GET  0 

0070 

REF 

358 

LASI 1047 

545E 

10  000 

0 

CCS 

A 

OOTl 

REF 

4 

LASI  1047 

5*»53 

57*131 

0 

XCH 

ROOTRET 

NO  SHIFT  needed  ' 

0072 

REF 

1 

5454 

0 5460 

0 

IC 

ROOTBCK 

0073 

REF 

5 

Last  1047 

5455 

57*131 

0 

ACM 

ROOTRET 

0 NEG,  SHIFT  RIGHT  THREE 

5456 

0 0006 

1 

EX  1 end 

00?5 

ref 

28 

Last  909 

5457 

7 7750 

0 

MP 

6IT12 

EXP  -3 

0076 

REF 

6 

LAST  1047 

5460 

51*131 

0 

ROOTBGK 

INDEX 

ROOTRET 

ROOIRET  = Q - 1 

0077 

5461 

0 0001 

0 

I c ■ 

T 

RETURN,  C(A)  = SQRT(Y)"" 

0078 

REF 

.36 

LASI 1047 

5462 

56  021 

1 

5PR00I 1 

ACM 

SR 

SR  = X/2 

RfF 

3 

LA^I 1047 

5463 

4 1130 

0 

cs  ■ " 

'1+ALF  T " 

NEW  I ON  ITER )T  = X/2  + (7/2  / X/2)  / 2 

OOBO 

5464 

22  OOT 

0 

2L 

GOBI 

5465 

0 0006 

1 

EX  1 END 

REF 

37 

Las  1 1047 

5466 

TO  021 

0 

yy-  - 

SR 

CTSRT  s X/2  DV  DOES  NOT  EDIT 
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ooa3 

REF  38 

LASI 1097 

6967 

56  021 

1 

ACM 

SR 

^ OO'gA 

S970 

0 0006 

1 

EXTEND 

008S 

REF  39 

LaSI 1098 

5971 

60  021 

1 

bU 

SR 

0086 

REF  316 

LASI 1097 

6972 

0 0002 

0 

1 c 

U 

CIA)  = X (NEXT) 

0087 

RfF  7 

LASI 1097 

5973 

9 1131 

1 

SPR0012 

C5 

ROOTRET 

SET  RETURN  Q NEG*  AS  FLAG 

0088 

RpF  8 

LASI 1098 

5979 

55*131 

1 

IS 

ROOTKET 

0089 

RtT"  40 

Cfi^TI043 

59  75 

3 7755 

1 

CAT 

^TT7 

SH1^T  FOR  SIGNTFCANCE 

0090 

5976 

0 0006 

1 

LX  1 END 

009i 

REF  6 

LAST  1097 

5977 

7 1132 

1 

MP 

SQRARG 

0092 

REF"  189 

L/5T1032 

&50U 

3 OOOi 

0 

CA 

c 

B ( A # = 0 

0093 

REF  1 

5501 

0 5933 

0 

IC 

SPR00T3 

0099 

5502 

73777 

1 

-1/8 

UC  I AL 

7377  / 

009S 

5503 

29001 

0 

5/8  + 1 

UCI  AL 

29001 

0096 

5509 

37901 

0 

63/69+1 

UCI  AL 

37901 
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L EXECUTIVE  USER'S  OWN  PAGE  NO.  1 S'S 


0001 

5505 

BLUCK. 

02 

R0002 

TO  enter 

A JOB  request  requiring  NO  VAt 

"AREJE; 

0003 

REF 

4 

LAST  80S 

5505  59  063  0 NOVAC 

IS 

NEWPRIO 

SAVE  PRIORITY  OF  NEYi  JOB, 

OUTJA 

TSXife  0 OOWT 

EXl END 

OOOS 

REF 

317 

Las  1 1098 

5507  5 0002  0 

iNUbA 

0 

Q WILE  BE  UNDISTURBED  THROUGHOUT. 

0006 

5510  3 0001  0 

UQ.A 

0 

2CADR  OF  JOB  ENTERED. 

TTOUT 

REF 

1 

6511  52  066  0 

UXCH 

7TESL0C 

0008 

REF 

1 

' 5512  3 5575  0 

CAF 

EXECBANK 

0009 

REF 

^5 

LAST  995 

5513  56  009  0 

ACM 

OOTO^ 

REF 

1 

5519  59  061  1 

1 b 

BXECTEHl 

0011 

Ref 

1 

5515  1 3105  1 

ICF 

N0VAC2 

enter  EXECUI IVE  BANK, 

R0012  TO  enter  A JOB  REQUEST  ReOUTRING  A VAC  AREA  - E.6.,  AEE  (PARTIALEV)  TNT ERPRE1TVE'~J0BS.  " ^ 


0014 

REF 

5 

LAST  1099 

5516 

59  063 

0 

FINDVAC 

IS 

NEWPRIO 

0015 

5517 

0 O0TJ6 

1 

EXTEND’ 

0016 

REF 

318 

EAST1099 

5520 

5 0002 

0 

INDEX 

0 

0017 

5521 

3 0001 

0 

UCA 

0 

0018 

RfF 

2 

LA5T1049 

5522 

52  066 

0 

OXC.H 

NEVvLOC 

0019 

REF 

2 

LAST1099 

5523 

3 5575 

0 

CAP 

execbank 

0020 

REF 

26 

Last  1099 

5529 

56  004 

0 

XCH 

fbank 

D02F 

■RTF 

1 

5525 

1 3063 

O’ 

1 ZK 

FTNDVAC2  OFT  TO  EXECUT  1 VE  STYTTCHED-BANK  . 

. R00211 

TU  enter  a 

HNDVAC  with  the 

PRIORITY  IN 

NEWPRIO  TO  IHE  2CADR  ARRIVING  IN  A AND  E! 

00213 

REF 

31V 

EAST  1099 

5526 

56  002 

0 

SPVAC 

XCH 

Q 

00219 

REF 

4 

EASI  910 

5527 

6 5336 

1 

AD 

NE&2 

TJD^IS 

RfF 

3"20 

Last  1099 

" ssso 

56  002 

0 

X CH  ’ 

■Q - - 

00216 

REF 

32 

EAST  916 

5531 

1 5522 

0 

ICF 

FINDVAC  +9 

R0O22 

TO  SUSPtND 

A BASIC  JOB  50  A 

higher  priori it  job  mat  be  SERVICtO;  - . 

0029 

RfF 

3 

EASI 1099 

5532 

3 5575 

0 

CHANGl 

CAh 

EXECBANK 

“00Z5' 

KrP 

185 

LaSI 1048 

5533 

59  OOT 

1 

i b 

■ 

0026 

REF 

321 

EAST  1099 

5539 

3 0002 

0 

CA 

Q 

0027 

REF 

24 

LAST  976 

5535 

22  006 

1 

UXCH 

BBANK 

002b 

6636 

'O^ODTJiT 

“0“ 

“^4" 

‘TNFTiTrr 

0029 

REF 

1 

5537 

1 3163 

1 

ICF 

CHANJUB 

R0030 

TO  suspend 

AN  rNTtKPRbTiVE  job; 

0031 

REF 

4 

Las  1 1099 

5590 

3 5575 

0 

CHANG2 

CAh 

EXECBANK 

f^U03  1 6 

14J  ^brtKb  lU 

"CHANG«i"« 

0032 

REF 

25 

LAST  1099 

5591 

54  006 

0 

1 s 

BBANK 

0033 

REF 

31 

Last  1095 

5592 

9 0159 

0 

C5 

EOC  NEGATIVE  EOC  SHOWS  JOB  = INTERPRETIVE. 

00335 

RfF 

10 

LT\^1  976 

53^4“3 

22  155 

a 

LXCH 

BANKSET  BANKSTT,  NOT  TITANKy  HAS  RIGHT  CONTENTS, 

0034 

REF 

9 

east  916 

5599 

1 5536 

0 

ICF 

CHANGl  +9 

biS'taeA  YuV  SYSTEI^  E3«  AtCS  REVISION  0 OF  PKOGKAM  BURST120  BY  NASA  202U06-03T  ” ' “ OFC  7 T967  (MAIR)  PAGE1050 


L 

EXECUTIA7E 

UStR»5  OWN  PACjE  NO.  2 S3 

F0036 

TO  voluntarily  bJSFbNO  A JOB  UNIIL  |He  COMPLETION  OF  SOME 

anticipated  eVeNT  (I/O  event  ETC.); 

0037 

REF 

32 

last  1049 

5545 

54  154 

0 

jubsleep  is 

LOC 

0038 

Rff 

5 

last  1049 

5546 

3 5575 

0 

caf 

EXECBANK 

”003V 

■cast  1049 

5547 

54  ■DTT4 

1 

1 s 

FFANX 

OOAO 

REF 

1 

5550 

1 3244 

1 

ICF 

JObSLPl 

ROOaI 

TO  awaken 

A JOB  PUT 

TO  SLEEP  TN  THE  AbOVE  FASHION: 

OOi.2 

REF 

3 

LAST  1049 

5551 

54  065 

0 

JOBWAKE  IS 

newloc 

CKT4'3 

Htr  7 04 

Last  992 

5552 

4 7762 

1 

LS 

Two 

EXl 1 rs  VIA  FlNDvAC/NOVAC  procedures. 

OO^t^ 

REF 

322 

LAST  1049 

5553 

26  002 

1 

AOS 

0 

0045 

REF 

6 

LAST  1050 

5554 

3 5575 

0 

LAh 

EXECBANK. 

0046 

ref 

28 

Last  1050 

5555 

56  004 

0 

ACM 

FBANX 

0047 

RfF 

1 

5556 

1 3255 

1 

ICF 

J0BWAK.E2 

ROOA8 

TO  CFIANGE 

THE  PRIORITY  OF  A 

JOb  CUKRENTUT  UNOEK  EXELUTlOriS 

0049 

5557 

0 0004 

0 

PRIOCHNCj  INFIINT 

NEW  PRIORITY  arrives  IN  A.  RETURNS  TO 

0050 

ref 

6 

Last  iO'49 

5560 

54  063 

0 

jb- 

newp^ 1 0 

caller  as  SOON  as  new  job  PRIORITY  IS 

0051 

REF 

7 

Last  1050 

5561 

3 5575 

0 

LAP 

EXECBANK 

highest,  prepare  for  possible  BASIC- 

0052 

REF 

26 

LAST  1049 

5562 

56  006 

1 

ACH 

BBANK 

style  change-job. 

0053 

REF 

XI 

LaSI 1049 

5563 

54  155 

1 

1 5 

BANKStr ■ 

0054 

REF 

323 

LAST  1050 

5564 

3 0002 

0 

CA 

0 

0055 

REF 

1 

5565 

1 3324 

0 

ICF 

PRI0CH2 

R0056 

TO  FREE  the  DISPLAY 

BEFORE  ENDOFJOB; 

0057 

REF 

14 

LA5>I  418 

5566 

0 4724 

1 

EJFREt  IL 

■FREEOSP  ' 

R0058 

TO  Remove 

A JOB  FROM 

EXECUTIVE 

consiuekai IONS: 

0059 

RfF 

8 

last  1050 

5567 

3 5575 

0 

ENDOFJOB  CAF 

EXECBANK 

0060 

RfF 

29 

LASI 1050 

5570 

54  004 

1 

IS 

FBANK 

0U6 1 

REF 

1 

5'57l 

T 3335 

0 

_ 1^,. 

ENDJOBl 

0062 

ref 

2 

last  1049 

5572 

3 0061 

0 

ENDFIND  CA 

EXECIEMl 

RETURN  TO  CALLER  AFTER  JOB  ENTRY 

0065 

R"pF 

30 

las 1 1050 

557^ 

54  004 

1 

1 s 

FBANK 

COMPLETE. 

0064 

REF 

5 

LASi  290 

5574 

1 7017 

1 

ICF 

Q + 2 

0066 

RfF 

2 

Last  1049 

5575 

03063 

1 

EXECBANK  LADR 

F1NUVAC2 

YUL  SySTtM  i^OR  ACsCJ 

; Revision 

0 op  program  BUR5I12U  bY 

NASA  2021106-031 

DEC  7*  IV67  (MAIN)  PACatlOSl 

L 

EXECUTIV8 

USER'S  OWN  PAUE  NO.  3 S3 

P0067 

LoOAIE  an 

available 

VAC  area. 

0068 

01*3063 

bANK 

01 

0069 

ref  3 Lost  1050 

01,3063 

59  061  1 

FIN0VAC2  IS 

EXECIEMl 

(SAVE  CALLER'S  BANK  FIRST.) 

OOtU 

“RfF  9 Lost  139 

01 t3069 

TO  930  1 

CCS 

VACIUSE 

0071 

ref  1 

01,3065 

1 3100  1 

ICF 

VACPUUNO 

0072 

REF  3 Lost  159 

01,3066 

10  509  1 

LCS 

VAC2USE 

0073 

R(LF  2 L/\5T1D51 

01,3067 

1 3100  1 

7CF 

VACFDUND 

0079 

REF  3L0SI  159 

01,3070 

10  560  0 

CCS 

VAC3USE 

0075 

RfF  3 LAST1051 

01,3071 

1 3100  1 

ICF 

VACFOUNU 

^ 0076 

RfF  3 tffST  T59 

0173D72 

TO  639  I 

CCS 

VAC9U5E" 

0077 

ref  9 L0SI1051 

01,3073 

1 3100  1 

ICF 

VACFOUNU 

007B 

RL.F  3 Lost  169 

01,3079 

10  710  0 

CCS 

VAC5USE 

0079 

REF  5 LA5T1051 

01,3076 

1 3100  1 

ret 

VACFOUNU 

0080 

ref  8 LASI1036 

01,3076 

0 6000  1 

IC 

ABORT 

0081 

01,3077 

01201  0 

UCI 

1201 

NO  VAC  AREAS. 

0082 

REF  105  LASI 1050 

01 ,3100 

6 7762  0 

VACFOUNU  AO 

TWO 

RESERVE  THIS  VAC  AREA  BY  STORINU  A 2ER0 

0083 

01,3101 

22  007  0 

4L 

IN  ITS  VAC  USE  REUISTER  AND  STORE  THE 

0089 

REIF  369  LAb  1 10^7 

01,3102 

50  000  1 

INOEX 

A 

ADDRESS  OF  THE  FIRST  WORD  OF  IT  IN  THE 

00b5 

01,3103 

21*777  0 

LXCH 

0 -1 

LOW  NINE  BITS  OF  THE  HRIORITY  WORD. 

0086 

REF  7 LaSI 1050 

01.3109 

26  063  0 

AUS 

NEWPKIO 

0087 

RrF  299  LASI1037 

01,3105 

3 7761  0 

NOVAC2  CAF 

2ERO 

NovAC  enters  here,  find  a core  set. 

0088 

REF  8 LASI  291 

01,3106 

59  069  1 

IS 

LOCCIK 

0089 

REF  1 

01,3107 

3 3119  0 

CAP 

'NO, CUKES 

SEVEN  sets  OF  ELEVEN  RECjISTERS  EACH, 

0090 

REF  1 

01,3110 

59  062  1 

N0VAC3  IS 

EXECTEM2 

0091 

REF  9 LASI 1061 

01,3111 

50  069  0 

INOEX 

LOCCIK 

0092 

REF  8 LaSI  97 

01,3112 

10  15T0 

C'C  S - ' 

prtokitt 

EACH  PRIORTTT  T<E"0TSTEK“C0NTAT'NS  -O'  IF 

0093 

REF  1 

01,3113 

1 3159  0 

ICF 

NEXrCURE 

the  CORRESPONOINC  CORE  SET  15  AVAILABLE. 

0099 

01,3119 

00006  1 

NO, CORES  OEC 

6 

0095 

RfF  2 LAST1051 

01,3115 

1 3159  0 

TCP 

NEXTCORE 

AN  ACTIVE  JOtr  HAS  A POSITIVE  PRIORI  lY 

A0096 

BUT  A UORMAM  JOB'S  PRIORITY  15  NEGATIVE 

633‘i36A  YUL  SYSTEI'  EQR  AbC:  REVISION  0 OF  PROGRAM  BURST12U  BY  NASA  202U06-031 
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L 

ExKUl  IVE 

USt-R'S  OWN  PAGE  NO.  A S3 

0097 

Ref 

u 

LASI 1051 

01,3116 

3 0063 

1 

CORFOUNO  (.A 

NEWPKIO 

SET-  THE  PRIORITY  OE  THIS  JOB  IN  THE  CORE 

" 009^ 

- -RZF' 

10 

LaS1“1051 

OT  * 3 1 1 7 

50  06A 

0 

loccth 

SET’S  PRIOFTITY  REGTSTtR  AND  SET  THE 

0099 

ref 

9 

last lOSl 

01.3120 

5A  151 

0 

IS 

PRIORITY 

JOB'S  PUSH-DOWN  POINTER  AT  THE  BEGINNING 

0100 

REF 

5 

last  16A 

01,3121 

7 53A1 

0 

mASx, 

L0W9 

OE  the  work  Area  and  overflow  indicator 

OTOl 

- IREF 

11 

LI'S  IT052 

or ,71 Z2 

50  064  0 

INOEA 

LOCCIR  ^ 

0102 

ref 

20 

LA51 1027 

01 ,3123 

5A  156 

1 

IS 

pushloc 

OFF  TO  PREPARE  FOR  INIERPRETIVE  PROGRAMS 

010^ 

Rtr 

X2 

LA5T1052 

01,312A 

10  06A 

I 

CCS 

Luce  1 K 

IP  CuKt  St  1 IS  btlNb  LUAutL^*  StJ  UP 

OlOA 

REF 

1 

01,3125 

1 31A1 

1 

ICI- 

SETLOC 

OVFIND  AND  ElXLOC  IMMEDIATELY  . 

OIOS 

REF 

24 

LASi lOAl 

01,3126 

5A  111 

1 

IS 

OVFIND 

U 1 Ub 

REF 

21 

LAS  1 1052 

01  «312  ^ 

3 0156 

0 

LA 

PU5EIL0C 

0107 

REF 

A9 

LAS110A2 

01,3130 

5A  110 

0 

IS 

EIXLOC 

0108 

RLF 

11 

Last  954 

01,3131 

10  067 

1 

SPECTEST  LCS 

NEVj  JOb 

SEETTF  any  active  jobs  KATrrNG  (RARE)  , 

0109 

REF 

2 

LASI 1052 

01,3132 

1 31A1 

1 

ICE 

SETLOC 

MUSI  BE  awakened  BUT  UNCHANGED  JOB. 

0110 

REF 

S2 

LASI 10A5 

01,3133 

0 A736 

1 

1C 

CeSHOLE 

oni 

REF 

53 

LASI 1052 

01 *3134 

0 A736 

1 

1 c 

CeSHOtE 

0112 

REF 

12 

LaSI 1052 

01,3135 

5A  06T 

1 

1 S 

NEWJOB 

+ 0 SHOWS  ACTIVE  -JOB  ALREADY  SET. 

0113 

RfF 

4 

LASI 1050 

01,3136 

52  066 

0 

OXCH 

NEWLOC 

01  lA 

RfF 

33 

Last  1050 

01  ,3137 

52  155 

1 

OXCH 

Luc 

Oils 

REF. 

1 

Ol,31A0 

1 5572 

0 

ICE 

ENDE IND 

0116 

REF 

5 

Las  1 1052 

01,31A1 

52  066 

0 

SETLOC  OXCH 

NEWLOC  ■ 

Set  Cip  THE“LOCAT10N““HtC3i STEPS  FOR  THIS 

0117  ■ 

REF 

13 

LaSI 1052 

01,31A2 

50  06A 

0 

INUEX 

LOCCIR 

0118 

REF 

34 

LASI 1052 

01 ,31A3. 

52  155 

1 

OXCH 

LOC 

0119 

REF 

13 

las  I 1052 

01 ,31AA 

50  067 

0 

l"NOtX 

WEWOOB 

THIB  TNOrX  tnrTROCriON  insures  that  the 

0120 

REF 

10 

LaSI 1052 

01,31A5 

A 0157 

0 

cs 

PRIORITY 

highest  active  priori IY  will  be  COMPARED 

0121 

ref 

9 

LASI 1052 

01,31A6 

6 0063 

1 

AD 

NEWPRIO 

with  the  NEW  PRIORIIY  TO  SEE  IF  NEWJOB 

0122 

U 1 * i 1 H r 

0 0006 

1 

EX  1 END 

SHOULD^  BE  SE1  Ttl  'S^lGNAE  A SWITCH. 

0123 

REF 

2 

LASI 1052 

01,3150 

6 557<i 

1 

B2ME 

ENDE IND 

012A 

ref 

lA 

LaSI 1052 

01,3151 

3 006A 

0 

LA 

LOCCIR 

LOCCTR  is  left  set  AT  THIS  CORE  SET  IF 

0125 

Ref 

1 4 

Last  1052 

01 *31 52 

54  067 

1 

j b 

NEWJOB 

the  CALLEF*  wants  to  load  ANY  MPAC 

0126 

REF 

3 

Last  1052 

01  ,3153 

1 5572 

0 

ICE 

ENDE IND 

REGISTERS,  EK. 

17127 

REF 

1. 

01 ,315A 

3 7265 

0 

Nr X r COKE  C71E 

CORE  INC 

0128 

REF 

IS 

LASI 1052 

01,3155 

26  06A 

1 

AOS 

LOCCIR 

0129 

REF 

2 

LAST1051 

01,3156 

10  062 

1 

CCS 

EXECTEM2 

0130 

REF 

1 

01 *3157 

1 3110 

0 

1 Ch 

N0VAC3 

0131 

RfF 

9 

LASI 1051 

01,3160 

0 6000 

1 

IC 

ABORI 

NO  CORE  SETS. 

0132 

01,3161 

01202 

0 

UCI 

1202 
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X EXECUTIVE  OStHTS  OWN  PAGE  NO.  5 5F 

HQ133 the  following  ROUTINE  SWAPS  COKE  SET  0 W11H  (HAT  WHOSE  RELATIVE  AQUReSS  IS  IH  NeWJQB, 


013S 

REF 

35 

LaSI 1052 

01,3162 

52 

155 

1 

-1 

L»XLH 

LOC 

0136 

REF 

15 

LA5I 1052 

01,3163 

50 

067 

0 

CHANjUb 

INULX 

NEWJOB 

LOC  ARRIVES  IN  A ANQ  BBANK  IN  L. 
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P031i,  IDLING  AND  COMPUTER  ACTIVITY  (GREEN)  LIGHT  MAINTENANCE.  THE  IDLING  ROUTINE  IS  NOT  A Job  IN  ITSELF, 

ROSTS  BUT  rather  A SUBROUTINE  OF  THE  TXECUTTVE.  ^ 


0317 

5576 

bLUCK 

02 

03TB 

ReF 

2 

LAST  9B 

E2 

tDMiNN-  OtUrKtl 

'SELF-CFiLCK  SIOKALjE  ItJ  EbATiK, 

031V 

RfF 

301 

LASI 1058 

5576 

9 7767 

1 

DUMMY JOB 

cs 

EERO 

SET  NEWJOB  TO  -0  FOR  IDLING. 

0320“ 

TTfF 

“ 23 

LAS  f 1059 

5^577 

067 

I 

TS“ 

tyewjdb 

0321 

5600 

0 0003 

1 

KELINI 

0322 

REF 

lUb 

LAST1051 

5601 

9 7762 

1 

LS 

TWO 

TURN  OFF  THE  ACTIVITY  LIGHT. 

VJ23 

5^602  0 0006 

1 

ETCTERir 

032A 

RfF 

18 

Last  997 

5603 

03  Oil 

1 

WAND 

DSALMOUT 

032S 

REF 

1 

5609 

1 5607 

1 

ICh 

CHECKNJ  +2 

0326 

5605 

0 0006 

1 

CHECKNJ 

EX  1 END 

SPECIAL  NEWJOB  TEST  FOR  SELF-CHECK, 

0327 

REF 

3 

LASI 1060 

5606 

23'359 

1 

UXCH 

selfret 

WHICH  Rons  unoer  executive  control. 

032B 

REF 

2^ 

La5 I 1060 

5 6U  ^ 

1 0 U6  f 

I 

♦ 2 

L C 3 

NEWJOB 

bUT  OOE.S  fVO  1 HAVE  A JU15S  tXJHE  KE^jlSlEKS* 

0329 

REF 

1 

5610 

1 5622 

0 

ICF 

NUCHANGE 

NEW  job  requiring  A CHANGE  JOB. 

0330 

ref 

107 

LASI 1060 

5611 

3 7762 

0 

LAh 

TWO 

NEW  JOB  already  IN  POSITION  FOR 

03  31 

REF 

1 

5612 

1 5616 

1 

1 CF 

NUDIRECT 

EXELUTION* 

0332 

REF 

1 

5613 

3 5631 

0 

ADVAN 

LAF 

selebank 

(SIMULATOR  ADVAN  IF  NEWJOB  = 77777). 

0333 

RrF 

28 

LAST  1065 

5619 

59  006 

0 

1 5 

BBANf^ 

0^3** 

REF 

4 

LASI 1060 

5615 

0 1359 

1 

IC 

selfret 

0335 

56l6 

0 0006 

1 

NUDIRECT 

EX  1 END 

TURN  THE'  GREEN  LIGHT  “BACIC  ON. 

0336 

REF 

19 

LASI 1060 

5617 

05  Oil 

1 

WOK 

DSALMOUT 

0337 

RfF 

92 

LASI 1057 

5620 

52  155 

1 

DXCH 

LOC 

JOBS  STARTED  IN  THIS  FASHION  MUST  BE 

03  3B 

5621 

52  006 

0 

DTCB 

BAs-rc; 

0339 

Ref 

lOB 

LAST  1060 

5622 

3 7762 

0 

NUCHANGE 

LAF 

TWO 

03a0 

5623 

0 OGUTS" 

i 

“CXTEmr 

0391 

REF 

20 

LASI 1060 

5629 

05  Oil 

1 

WOK 

DSALMOUT 

0392 

Rp.F 

9 

LASI 1050 

5625 

3 5575 

0 

CAF 

EXECBANK 

SWAP  CORE  sets. 

03«f3 

RCF 

31 

LaS I 10 SO 

5626 

5^  00^ 

1 

IS"  - 

FBANK 

0399 

5627 

0 0004 

0 

INHINT 

change  jobs 

0395 

REF 

3 

LAST1059 

5630 

1 3162 

0 

ICF 

CHANJOB  -1 

03955 

RfF 

5 

Last  1060 

E2 

ebank= 

selfret 

0396 

REF 

2 

Last  99 

5631 

76062 

1 

selfbank. 

BBCON 

SELFCHK 

633436A  YUL  SySItf/'  FOR  AOC!  REvTSTOJy  0 Op  rWOgRAm  BuROH2u  by  NASA  202110b. 


L txECUllVfc 

H03A7 pmoRl'TY  CONSTANTS  (NOTE  IN  F 1 XEP.F  1 XbO)  . 


03A8 

REF 

A8  Last  1007 

7752 

PRIOl 

EQUALS 

BITIO 

03A9 

RfF 

62  LASU067 

7751 

PRI02 

EQUALS 

BlTll 

^ 0T5D 

563i^ 

TD300D  1 

PRr03 

OCT 

■DTOOO 

0351 

REF 

29  LASI 1067 

7 150 

PRI06 

tOUALS 

B1T12 

0352 

5633 

05000  1 

PRI05 

UCI 

05000 

0353 

5636 

U600*J  1 

PR106 

OCT 

U6UUU 

035A 

5635 

07000  0 

PRI07 

UCI 

07000 

0355 

REF 

31  LA5I1065 

7767 

PRIOlO 

EQUALS 

BIT13 

0356 

5646 

11000  1 

PR  1011 

UCI 

11000 

0357 

REF 

1 

5236 

PRI012 

s 

BNKJUP+6 

0358 

5637 

13000  0 

PR1013 

UCI 

13000 

”DT59 

5660 

16000  1 

PR1016 

oci 

16000 

0360 

5661 

15000  0 

PR1015 

uu 

15000 

0361 

5662 

16000  0 

PRI016 

UCI 

16000 

0362 

5643 

17000  1 

PR1017 

UCI 

17000 

0363 

REF 

57  LASI 1036 

7766 

PRI020 

tUUALS 

B1T16 

0366 

5666 

21000  1 

PKI021 

UCI 

21000 

0365 

5665 

22000  I 

PR1022 

UCI 

22000 

0366 

5666 

23000  0 

PRI023 

UCI 

23000 

0367 

REF 

1 

6260 

PRI026 

5 

NUFA2+10 

0368 

5667 

25000  0 

PR10T5 

UCI 

25000 

0369 

5650 

26000  0 

PRI026 

UCI 

26000 

0370 

5651 

27000  1 

PR1027 

UCI 

27000 

0371 

RFF 

1 

5210 

PR1030 

• 

BNKCAL+2 

0372 

5652 

31000  0 

PRI031 

UCI 

31000 

0373 

5653 

32000  0 

PRI032 

UCI 

32000 

0376 

5656 

33000  1 

PRI033 

UCI 

3300tr 

0375 

5655 

34000  0 

PRI036 

UCI 

36000 

0376 

5656 

35000  1 

PRI035 

UCI 

35000 

0377 

5657 

36000  1 

PR1036 

OCT 

^36000 

0378 

5660 

37000  0 

PR1037 

UCT 

37000 

R0379 

EBANK 

CONSTANTS  IN 

fixedltftxed 

0380 

REF 

9 LASI 1060 

5352 

EBANX3 

EQUALS 

OCT1600 

0381 

Ref 

43  L/'STlObl 

7751 

tBANK4 

tOUALS 

BlTll 

0382 

5661 

02600  1 

EBANK5 

UCIAL 

02400 

0383 

REF 

6 Last  838 

5632 

EBANK6 

tOUALS 

PRI03 

03^A  ' 566<:  03^,00  0 EBANK  7 ( 
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USER'S  OWN  T^AWNO",  13 


S3  E2 


^6?J^36A 

Yur  system  E3r  AGC:  revision  0 of  program  BUrSTTZO  by  NAST\  ^UZ1106-03T  ' 

" ' 'D"EC~r,  T9'67~  (MATNX  ' PAGEX062 

' 1.  ' 

rfATTUTST 

USER'S  OWtT  page  NO^  X 53 

KOOOOOl 

PROGRAM  UESCRIPI ION 

DATE  - XO  OCTOBER  X966 

R000003" 

ROOOOOb 

R000007 

MOD  NO  - 2 

MOO  BY  - MILLER  (DIMAX  INCREASED  TO  162.5  SEC) 

LOG  SECTION  - WAITLIST 
assembly  SUNBURST  REV  5 

Rooooos 

H000009 

Functional  description- 

PARi  OF  A Section  of  programs, -waitlis),  iasxuveh. 

T3RUPT,  used 

TO  call  a program,  (Called  a tasx). 

KCToaoii 

K000013 

wniLn  15  |u  lia;  Lti'J  I U5|i 

FOLLOW. 

AND  LST2.  TTrErT'EAWlNG  TJF  THeSE  LISTS 

■ ■ ■R'oaoou 

K000016 

= 16384  -(ll-N  LEIN  1 i:3tLU!NU6t  U 

=KKEbENT  IlML* 

TX-TIMF  rOR~TA3KlT 

R000017 

R000018 

R000019 

CTLSTl)  = -(T2-li)+X 
C(LST1  +1)  = -(T3-TZ)+i 
C(LST1  +2)  = -(T4-T3)+l 

ROW02 

R000021 

K00002Z 

• 

C(LSTl  +6)  = -(T8-17)+I 

RO00023 

CrCSTl  +7)  = -(T9-T8)+l 

K00002^t 

C(LST2)  = 2CADR  OF  1 ASX  1 

R000025 

R000026 

R000027 

C(LST2  *-2)  = 2CADR  OF  1 ASX?  ' 

■ RDOOO20 
R00002y 

C(L5T2  +14)=  2CADK  OF  lAbKb 
C(L5T2  +16)=  2CA0K  OF  IAbtC9 

R00003 

R000031 

R000032 

WARNINGS- 

X)  X <=  C(A)  <=  X6250D  (X  CENTIStCOND  10  X62. 

5 SEC) 

R000033 

R00003A 

R00003& 

2)  9 TA5XS  MAXIMUM 

3)  lASXS  CALLED  UNDER  INTERRUPT  INHIBIIED 

4)  lASXS  END  BY  TC  TASXOVER 

R000036 

CALLING  SEOUENCE- 

K000038 

R000039 

0-2  CAF  DELTAT  (TIME  IN  CENllStCUNDS 

L-X  INHINT 

L TC  waitlist 

TU  task  si AR) ) 

ROOOOAl 

R0000A2 

L + X 2CADR"  DESIRED  TASX 

L+2  (MINOR  OF  2CADR) 

L+3  relint  (REIURNS  MERE) 

R0000A3 

Normal  exi i modes- 

ROOOOAA 

AT'L+3  OF  CALLING  SEQUENCE 

KOOOOA5 

Ai ARM  OR  ABORT  EXIT  MODES- 

633A36A 

ruL  systEfi  f^r  acc:  rEvIsIoei  o of  pkOgrAm  buksTTEO 

B'Y  RAsA  2021106-0Tr 

TJCC 

r96T  (MAIN) 

PAgET063 

L 

rtAlTUST 

USER»5  OWN  BABE 

TTo;  2 

53 

K0000^6 

TC  abort 

ROOOOTTT 

OCT  T2TJ3  (WAlTLIbT  OVERFLOW  - 1 UO 

TRATTYTTASub) 

ROOOOAb 

ERAbAbLE  I NU  1 ALi EAT  1 ON  REOUIREO- 

K0000^^9 

ACLuMPLiSHEU  BY  FRESH  STAR  i * — LS  I 2 * • • • 

» L5T2  +16  =ENU‘TAS< 

K000051 

OUTPUT  — 

R000052 

K000063 

LbTi  and  L5T2  UPDATED  WITH  NEW  TASK  AND  A550CIAIED  TIME, 

DESK  lb- 

K00005A 

ROOOObb 

R000056 

CENIRALS-  ALffTC 

OIHtR  - WAITEXIT,  WAITADK,  WAIIIEMP.  WAi  TBANK. 

Detailed  ANALYsib  of  timing- 

R00005 1 
R000059 

control  will  not  Be  returned  to  the  BPeCIHeU  ADDReEB  (^CADK) 
THE  APPRUXIMAIE  TIME  MAY  Be  CALCULATED  AS  FULLOWb 

IN  exactly  Delta  ■ 

r lentiseconds. 

R00006 

K000061 

LET  TO  = the  time  OF  TH£  TC  WAITLlb! 

LET  TS  = TO  +1A7U  ♦ COUNTER  INCREMENIb  (bET  UP  IIME) 

ROUUU62 

K000063 

R00006A 

LET  X = TS  -dOOTSI/lOO  CVTOTIANCETT^OFT  C00NTEK51  “ ' 

LET  Y = length  OF  TIME  OF  INHIBIT  INTERRUPT  AF 1 ER  T3RUPT 

Let  2 = Length  of  time  to  procege  lAbub  which  are  due  thib  tbRupt  but  dispatched 

earlier. 

K0UUU66 

R000067 

R000068 

TrsO"*  usuallyt 

let  DELTD  = THE  ACTUAL  TIME  TAKEN  TO  GIVE  CONTROL  TO  2LADK 
IHEN  DELTD  = TS+DELTA  T -X  +Y  +Z  ♦l.ObMb*  +COUNTERS* 

^^000069 

K000071 

»-THe  TIMe  taken  by  waitlist  ITSeLF  and  the  coon  I eR  t icking  DURING  THIS  W^AITLIST  CIME.  

^000072 

R000D7A 

R000076 

ilM  onun  1 , |nt  HV.IUHU  |iriE  TO  f'EIDKI'l  GUW  TAOU  TO  A 2CAUR  lb  AUGMENTED  BY  THE  TTME  TO  BET  UP  the  TASK;b 

interrupt,  all  Counters  ticking,  the  isRupi  pruCesbing  time,  the  waiilisi  processing  time  and  the  possibilitt 
OF  other  tasks  inhibiting  the  interrupt. 

0002 

5663 

BLOCK. 

02 

REF 

E3 

ebank= 

LST 1 

TASK  LT-STS  TN'^w^lTCHtD  E BANK. 

000^ 

Ref 

325  LAST1059 

5663 

56  002  0 

waitlist 

ACM 

a 

SAVE  delta  T IN  0 AND  RETURN  IN 

Ref 

1 

566*^ 

5A  061  1 

IS 

WAITEXIT 

irA-mxir,  

0006 

5665 

0 0006  1 

EX  1 END 

0007 

REF 

36A  LAbl 1059 

5 666 

5 0000  1 

INDEX 

A 

REF 

5667 

"3“ 0001  0 " 

UCA 

0 ^ ^ ^ 

PICK  UP  2CADR-0F  TASICT  “ " 

0009 

1 

5670 

5A  063  0 

lb 

waitadr 

bbcun  will  remain  in  L, 

0010 

RlF 

1 

5671 

3 5700  0 

DLY2 

CAF 

WAITBB 

ENTRY  FROM  FiXUFLAY  AND  VARDELAY. 

REF 

29  LF^b  1 1060 

5672 

56  006  T 

ACH 

BBANK 

0012 

REF 

1 

5673 

1 3A2T  1 

ICF 

WAIT2 

R0013  RETJRN  TO  CALLER  AFTER  TASKT  rNSERTION:  
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■0ECT“7V  1“967  rWA  rN)  FACE  1064 


L 

WilTUST 

UStRYS“0WN  PACmo.  "3  “ S3  E3 

0014 

REF 

1 

5674 

3 0062  0 

LVWTLIST 

I.A 

WAI TbANK 

■ ' " " 0015“ 

“REF 

“30 

LA5TI063 ““ 

5675 

54  006  0' 

T5 

BBAN^ 

0016 

REF 

2 

LAST1063 

5676 

50  061  0 

INUEX 

WAITtXIT 

0017 

5677 

0 0002  0 

1C 

2 

00175 

REF 

35 

■LA5T1063 

E3 

tt3ANK  = 

LSTl 

0018 

REF 

2 

LAST  1063 

5700 

02063  0 

WAITBB 

Db^ON 

WAI T2 

R0019 

RETJRN  10 

caller  +2 

AFTER  WAITING  DT  SPECIHeO 

AT  caller  +1. 

' ' 002T) 

REF 

326 

Last 1063 

5701 

50  002  0 

1-  1 ADtLMT 

iNUtA 

Q 

BOT^  ROUTTNF^  MUST  BET  CAULTD  UNDER 

0021 

5702 

3 0000  1 

CAT 

0 

WAITLIST  CONTROL  AND  TERMINATE  THE  TASK 

0022 

REF 

327 

last  1064 

5703 

24  002  0 

INCR 

Q 

IN  WHICH  THEY  WERE  CALLED. 

R0023 

RETJRN  10 

caller  ♦! 

AFTER  WAITING  THE  OT 

AS  ARRIVING  IN  A« 

002^f 

R£F 

328 

LaS I 1064 

5704 

56  002  0 

VAKDtLMT 

XCT1 

0 

DT  to  Q,  TArSlC“AfDRFS  70“  wATTADR, 

0025 

REF 

2 

LaST1063 

5705 

54  063  0 

IS 

MAI  TAI3R 

0026 

ReF 

31 

LAST1064 

5706 

3 0006  1 

C.A 

BBANX 

BBANX  IS  SAVED  DURING  DELAY, 

0027 

■RtF’ 

186 

LASI 1049 

5707 

5^4  001  1 

1 S 

U" 

0028 

REF 

1 

5710 

3 5713  1 

CAT 

OELAYEX 

0029 

RpF 

3 

LASI1064 

5711 

54  061  1 

IS 

WAITEXI 1 

GO  10  TA5K0VER  AFTER  lASX  ENTRY. 

0030 

RtF 

1 

5712 

1 5671 

TCF~ 

~wrz 

0031 

REF 

120 

Last  922 

5713 

1 5725  0 

DELAYEX 

ICT 

TASXOVER  -2 

RETURNS  TO  TASXOVER 

633<t35A  YUL  SYSTE(^  PoK  A^jC!  REVISioPI  0 OF  PROGRAM  BURSYl^u  BY  NAbA  202H0b-031  ’ oEcTT*  1967  TMAlNr  PAGElObT 
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R0032  ENOIASK  MgbT  Bt  ENTEReU  IN  FIXeB-FIXeEI  BO  U lb  0 i b I I NOU 1 SHABLe  BY  IT^  ADRe^  ALWE. 


00335 

0034 

REF 

36 

LAST106A 

5719 

E3 

72061  0 

tbANK.= 

tNDTAilC  -2CADK 

LSTl 

SVCT3 

oY(m  “ 

I.a’ST  303 

5715 

77719  1 

0035 

REF 

31 

Last  b66 

5716 

10  076  1 

SVCT3  LCb 

FLAGWRD2 

DRIFT  flag 

00351 

REF 

121 

LAST 106A 

5717 

1 5727  1 

ICF 

TASXOVER 

" " T00352 

REF 

122 

L/'  5 1 i U65 

5720 

1 5727  1 

TCF 

TASKOVER 

00353 

5721 

1 5722  1 

ict- 

♦ 1 

T)03bA 

REF 

4 

Last  863 

5722 

3 5656  1 

C.Ah 

PRIOSb 

COMPENSATE  FOITTIBU  COEFFTCIENTS  ONLY 

00355 

REF 

34 

LAST  863 

5723 

0 5505  1 

IL 

NOVAC 

enable  every  81.93  SECONDS 

003555 

RfF' 

7 

LAST  866 

E3 

tbANK= 

NBDX 

00356 

5729 

03501  0 

aCADR 

NBOONLY 

C00356 

REF 

1 

5725 

29063  1 

00357 

REF 

123 

LAST1065 

5726 

1 5727  1 

ICF 

lASKOVER 

^33^l6A  TOIT^YSTEr  FOR  AGC:  KEVI SION  0 OF  PROGRAM  BURS!  IZU  BY  NASIT  202 1 10b-03r  DEG  y,  1967 TMATNr- 'PAGE  1066  " 


"L  waITCISI  " ^ “ OSGRTS-Q^gM  no.  5 ' S3'  E3 

P0036  BEGIN  JaSIC.  INSERTION. 


0037 

0038 

REF 

2 LASI 1064 

01,3427 

01,3427 
54  062  1 

bANK 

WAIT2  15 

01 

WAITBANK. 

BBANK,  OF  CALLING  PROGRAM. 

0TJ39 

3^  LA'S!  408' 

01 ,3430 

A ODE  6^  1 

C5 

TIHE3 

0040 

REF 

35  LASI 1005 

01,3431 

6 7754  0 

AD 

B1T8 

BIT  8 = OCT  200 

0041 

REF 

365  LASI1063 

01,343il 

10  000  0 

Ct5 

A 

TESI  200  - CIT1ME3).  IF  POSITIVE, 

AOOA'2  ' ' ' ■'  ""  rr'MEANb'TFmr  TIMEJ  overflow  HAE>-DCGURREP'PR'n3R  TO  C5-  rtWE3  ANU  THAT 

A00A3  , C(TIME3)  = I - T1.  instead  OF  1.0  - (T1  - T).  THE  FOLLOWING  FOUR 

AOOAA  orders  SEI  G(A)  = TO  - U ♦ 1 IN  EIIHER  CASE. 


00A5 

0046 

RtF  3 LA5I  998 

RtrF  366  LAS!  1066 

01.3433 

01.3434 

6 6153  0 
4 0000  0 

AD 

L5 

OCT40001 

A 

Overflow 

I - Tl  4 

HAS  occurred,  set  C(A)  = 
1.0  - 201 

R0047 

Normal  case  icia) 

NN2)  YIELDS 

Same  c(a) : 

-(  -d.u-tTi 

-Tl)  + 200)  - 1 

REF  1 

01,3435 

6 3563“! 

AD 

OCTAOZDl 

0049 

ref  329  LASI1064 

01,3436 

6 0002  0 

AD 

Q 

RESULT  = 

TD  - Tl  ♦ 1. 

0050  RfF'  367  LA5T1066  01,3A37  10  000  0 ' CL'S  A'  ' ' TESI  TD  - T1  "+'  I 


0051 

REF 

37  LaSI 1065 

01,3440 

6 1400  1 

AD 

LSTl 

IF  ID  - Tl  POS,  GO 

TO  WTLST6  with 

0032 

■ref 

1 

01 *T441 

1 3503  0 

1 ct 

WTLSI5 

C(  A»  - = (TD'"'=^T)  ■ + 

C(L5Ti)  " TD"T2^i 

0053 

01,3442 

1 3443  0 

NOUH 

Rt- F 

330  las T 1 066 

0 1 * 3443 

4 0002  1 

ls 

'ff  ■ 

R0055 

NOTE 

that  this  program  Section  is  never 

entered  when  I 

l-Tl  G/E  -1, 

• K0066 

U + U • 

1 1 ♦ 1 ; • 

UtL  1 A 

1 - 1 U»-  1 

^/t  • (G/t 

R0057 

Symbol  means  greater 

than  or 

equal  TO). 

thus 

there  Need  be  no  con- 

R0058 

CeRN 

over  a previous 

OR  imminent  overflow  of 

1 1ME3  here. 

0059 

REF 

1 

01,3444 

6 7746  0 

AD 

POSl/2 

WHEN  TD  is  next,  form  QUANTITY 

0060 

RfF 

2 LASH066 

01,3445 

6 7746  0 

Ad 

POSI72 

1.0  - delta  T = 1 

.0  - (To  - T) 

00  b 1 

RfF 

01  *3446 

56  iJ26  tl 

ACH 

T 1ME3 

0062 

REF 

16  LASI  670 

01  ,3447 

6 7745  0 

AD 

NEGMAX 

0063 

REF 

331  LaSI 1066 

01,3450 

6 0002  0 

AD 

Q 

l.O  - DELTAl  T NOW 

complete. 

U 1 ♦ 3 4 5 i 

0 0006  1 

tA  I tIND 

ZERU  INDEX  D* 

0065 

01 ,3452 

22  007  0 

UXCH 

7 

(ZQ) 

TTEXT  7«nT967 


(7iAIN)  PAGE1067 
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0066 

RfF 

38 

LASI 1066 

01 ,3A53 

57'AOO 

1 

WTLSTA  aLH 

LSTl 

0067 

RET 

39 

LA  ST  106 7 

01 ,3A6A 

571 AOI 

0 

XCH 

L5T1  +1 

0068 

REF 

AO 

LASI 1067 

01.3A65 

5l'A02 

0 

ACM 

LSTl  *2 

0059 

REF 

41 

LASI 1067 

01 ,3A56 

57*403 

1 

aCh 

LSTl  +3 

' ^ 0070' 

R'E'F 

A2 

LaSI 1067 

07  t3A57 

^77A7)A 

0 

ACK 

LSTl  +A 

0071 

REF 

43 

LASI 1067 

01,3A60 

5 7'A05 

1 

ACM 

LSTl  +5 

0072 

RfF 

44 

LASI 1067 

01.3A61 

57'a06 

1 

ACM 

LSTl  +6 

■ ' 0073 

REF 

AS 

LAST1067 

01 ,3A62 

57'A07 

0 

aLH 

Lb  I i ♦7 

007^ 

REF 

3 

LaSI 106A 

01 .3A63 

3 0063 

1 

CA 

WAi TAOR 

(MINOR  PART  Of  TASK.  CAUR  HAS  BEEN  IN  L.) 

00T5 

REF 

332 

LaSI 1066 

01 ,3A6A 

50nyUT 

u 

INDEX" 

U 

0076 

01 ,3A65 

1 3466 

1 

ILF 

♦ 1 

0077 

RFF 

19 

Last  97 

01 .3A66 

53'a11 

0 

UXLH 

LST2 

0078 

REF 

20 

LASI 1067 

01,3A67 

53'A13 

1 

UXLH 

LST2  +2 

0079 

REF 

21 

LASI 1067 

01.3A70 

53>A15 

1 

oalh 

LST2  +A 

0080 

REF 

22 

LAb 1 i067 

01,3A71 

53  *417 

0 

UXLFI 

LST2  +6 

0081 

REF 

d3 

LASI 1067 

01 ,3A72 

53'A21 

0 

UXCH 

LST2  +8U 

0082 

REF 

ZA 

LASI 1067 

01 ,3a73 

53 'A23 

1 

UXLH 

LST2  *10D 

AT  END,  LHELK  THAT  L(LST2+10)  IS  STU 

0083 

RUF 

25 

LAb I 106  7 

01 ,3A7A 

53 • 425 

1 

UXLH  ' 

LST2  +12D 

008A 

REF 

26- 

LAST1067 

01,3A75 

53'A27 

0 

UXLH 

LST2  +14D 

0085 

RfF 

27 

LASI 1067 

01,3A76 

53'A31 

1 

UXLH 

LST2  +16U 

0086 

Ref 

3 

01 t3AT7 

6 5^14 

0 

AO 

tNu  j AbK. 

h*'*0  1 1 • ^6  CHt-CK  tACttOlNG 

A0087 

THE  length  of  the  LIST, 

0088 

01,3500 

0 0006 

1 

tXIEND 

dummy  task  aures  should  be  in  fixed- 

0089 

RET 

1 

01 ,3501 

1 567A 

0 

' ■ 

'D/WILTST  ' 

FIXED  SO  ITS  ADPES  TUrONE'DlSTlNOUlSHES 

0090 

REF 

1 

01,3502 

1 3556 

0 

ILF 

wTAbORT 

IT, 

YUf  SYSTEN'  I-3R  StiCT  REVISION  0 OF  PROGRAM  BDR5Y120  BY  NASA  ■202I106-O‘31  ' 
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0091 

REF  368 

L45I 1066 

01,3503 

10  000  0 

WILST5 

LCS 

A 

TtSI 

TO  - 12  t 1 

0002 

REF  46 

LASri067 

01,3504 

6"  "14  01  0 

AD 

LSI  I +1 

0093 

01,3505 

1 3511  0 

ICF 

♦ 4 

009^ 

Ref  176 

LA5I 1056 

01,3506 

6 7763  1 

AD 

ONE 

00^? 

"REF""  "1" 

01*3507  0 356^  0 

rc 

rfTESrz" 

0096 

01,3510 

00001  0 

ULI 

1 

" 0007" 

RET^  36"9 

LAS1”T068 

01  * 3 5 1 IT 

ro  000  0 

♦ 4 

CCS 

A 

TE5  1 

TU  - T3  + "1 

0098 

REF  47 

LAS1 1068 

01,3512 

6 1402  0 

AD 

LSTl  +2 

0099 

01,3513 

1 3517  0 

ICE 

♦ 4 

OTOO 

REF  177 

LAST  1068 

"0TT3514" 

6 ^763  1 

At) 

CINE" 

0101 

REF  2 

LAS  1 1068 

01,3515 

0 3564  0 

It 

WTLSI2 

0102 

01,3516 

00002  0 

UCI 

2 

0103 

REF  370 

LaSI 1068 

01,3517 

10  000  0 

+ 4 

LCS 

A 

TESI 

TO  - T4  + 1 

OlO^f 

REF  48 

LASI 1068 

01,3520 

6 U03  1 

AD 

LSTl  +3 

0X05 

“01 *3521 

1 3525  1 

TCI" 

+ 4 

0106 

REF  178 

LASI 1068 

01,3522 

6 7763  1 

AD 

ONE 

0107 

REF  3 

LASI 1068 

01,3523 

0 3564  0 

It 

»ITLSI2 

0TO8 

01 ,3524 

00003  1 

UCI 

3 

0109 

REF  371 

LaSI 1068 

01,3525 

10  000  0 

+ 4 

LCS 

A 

lESI 

TO  - T5  + 1 

0110 

RrF  ^9 

LaS I XU68 

0 i *35^6 

6 1404  0 

AD 

LSTl  *4 

0111 

01,3527 

1 3533  0 

ICE 

♦ 4 

0112 

RfF  179 

LASI 1068 

01,3530 

6 7763  1 

AD 

ONE 

0113 

RrF  ^ 

Las  I iU68 

01  *3531 

U 3564  U 

1 c 

WTLS 1 2 

0114  . 

01,3532 

00004  0 

UCI 

4 

0115 

REF  372 

LaS I 1068 

01 *3533 

10  000  0 

+ 4 

CCS 

’A 

TESI 

TD  - T 6 + T 

.0116 

REF  50 

LaSI 1068 

01,3534 

6 1405  1 

AD 

LSTl  +5 

0117 

01,3535 

1 3541  0 

ICE 

♦ 4 

0118 

RlF  IbO 

LAb 1 1U68 

01  *3536 

6 7763  1 

“At)' 

"ONE 

0119 

REF  5 

Las i 1068 

01,3537 

0 3564  0 

1C 

WTLSI2 

0120 

01,3540 

00005  1 

UCI 

5 

0121 

REF  373 

Las  1 1068 

01,3641 

10  000  0 

+ 4 

CCS 

A 

TESI 

TO  - T7  + 1 

0122 

REF  51 

LASn068 

01,3542 

6 1406  1 

AD 

LSTl  +6 

0123 

01  * 35^^ 

T 3547  0 

I'O' — 



0124 

REF  IBI 

LaSI 1068 

01,3544 

6 7763  1 

AD 

ONE 

0125 

RfF  6 

LASI 1068 

01,3545 

0 3564  0 

IC 

NTLST2 

633‘t36A 

fUL  STST  tf'  hOH"  AGC  : 

'REVISION 

0 OF'  PtROGRA,M  BukSri2'0'  "Sr 

NAS'A  2021106-031 

DEC  7.  1967 

" WAIN)  PAGE1069 

L 

waitlist- 

'OSERTS~'owN  Rage  no. 

8 S3  E3 

Oi27 

RtF  37A  Last  1068 

01 ,35A7 

10  000  0 

44 

CCb 

A 

0128' 

R(T  62  LAST1068 

01,3550 

6 1A07  0 

AT7 

LSTV  *1 

0129 

01,3551 

1 3555  0 

ICF 

♦ 4 

0130 

ref  182  LAST1068 

01,3552 

6 7763  1 

AO 

ONE 

0131 

ref  7 cttst  loss'  ■ 

01  r3553 

0 336^  0 

1 L 

WlLSTE 

0132 

01,355A 

0000^  0 

UCI 

7 

" 0133 

ReF  375  LAS11069 

01,3555 

10  000  0 

44 

CCS 

A 

013A 

RLF  10  LASI 1052 

01,3556 

0 6000  1 

WTABOKT 

1C 

ABORT 

NO  room  in  Ihh  INN, 

0135 

01,3557 

01203  1 

UU 

1203 

0136 

REF  183  LASI1069 

01,3560 

6 7763  1 

AO 

ONE 

0137 

REF  ,8  Last  1069 

01, -3561 

0 356A  0 

IC 

WTLSI2 

0138 

0r735'6Z 

oaoio^TT" 

TTCT 

iO 

0139 

01,3563 

A0201  0 

0CTA0201 

UCI 

A0201 

1>:3T«6» 

YUU^SYSTEf'’  708  A&C; 

REVISION 

0 OF  PROGRAM  BURST  120  BY  NASA  2021 106-031 

- DE(TlrVT96^ 

(H'ATN') 

^PAGEIOTO 

L 

WAITLISI 

THE  ENT8Y  10  WTL5T2 

jUbT  preceding  OLT  N 

Ib  F08  T LE 

TD  Le  T -1. 

USER'S  OWN  PAGE  NO, 

9 

S3  E3 

KOl'iZ 

(LE  MtANb  LtSb  THAN 

OR  EOUAL 

TO).  AT  ENIRY 

fN  N+l 

, etA)  = -(TU  - T +1) 

T^crrv3 

KOl't'f 

the  U5T1  ENT8y  -(T 

- T *1) 

IS  TO  Bt  KtpLACtO  bY  - T + 1)  t AMO 

H0145 

N+l  N 

N 

K01't6 

THE  ENT8Y  -(T  - TO 

' ♦ 1)  lb 

TO  Be  inserted 

IMMeDIAIELY 

FOLLOWING, 

'ROT^^ 

N*1 

oms 

REF  1 

01,3569 

59  069  1 wTLST2  lb 

WAIT  1 EmP 

C(A)  = -(ID  - T 

+ 1) 

01*19 

ReF  333  LA5T1067 

Ui  t356!3 

50  002  0 

INOtA 

0 

0150 

01,3S66 

3 0000  1 

LAh 

0 

0151 

REF  339  LflSI 1070 

01,3567 

59  002  1 

lb 

Q 

INDEX  VALUE  INTO  0. 

0152 

REF  1B9  LAbI 1069 

01,3570 

3 7763  1 

CAh 

ONE 

0153 

REF  2 LAS11070 

01,3571 

6 006**  0 

ad 

wAITIEMP 

0159 

REF  335  LA5I1070 

01,3572 

50  002  0 

i'NUEX 

CT 

C-iM/  - — ilU  • 1 ) + i« 

0155 

REF  53  LAbI 1069 

01,3673 

27*377  1 

ADb 

LSTl  -1 

N 

0156 

RFF  3 LaS'1070 

01,3579 

9 0069  1 

LS 

WAITIEMP 

015? 

Ref  336  LAbI 1070 

01,3675 

50  002  0 

INDEX 

0 

0158 

REF  1 

01,3576 

1 3953  1 

ICE 

WTLS19 

k0159 

C(T1ME3)  = 1.0  - (Tl 

- T) 

KU16U 

CTLbTl  1 = - (T2  - 

Tl)  + 1 

K0161 

C(LbTl*U  = - (T3  - 

T2)  + 1 

K0162 

C(Lbll+2)  = - (T9  - 

13)  + 1 

ROl'63 

CrLSTl»3)~=  - (T5  ~ 

T9)  + I 

K0169 

C(LbTl*9)  I - (T6  - 

15)  + 1 

KD165 

“CTLST2  )■  = ZCAOR 

TASK  I 

K0166 

C(LbT2*2  ) = 2CA0R 

TASK2 

80167 

C (LSI  2 + 9 ) : 2CAU8 

TASK3 

1 6 b 

L(Lblk^6  ) = 

TASIC9 

K0169 

C(LbT2+8  ) = 2LA08 

TASK5 

80170 

C(LbT2+lO)  = 2LAU8 

TASK6 

63'3'.36A  Vul-  5Y5TE^■  KOK  A&C:  REVTSION  0 OF ' PROGRAM  BURSTliKJ  BY  NASA  ^021106-031  UtG  / ,"1T6"7  (MATNT  PAGEIO7I 

L waitlist  ^ UStK'S  OWN  PAGE  NO.  H)  S3  E3“ 


P0171 enters  here  on  T3  KUPT  TO  PlSPAlLH  WAITUISIEO  TASK. 


0172 

REF 

21 

Last  633 

01,3577 

59  016 

1 

T3RUPI 

IS 

BANKRUPT 

0173 

01,3600 

0 0006 

1 

LX  1 END 

0I7A 

RET“ 

ITAST  633 

0^  , 3T0 1 

22  012 

1 

’SXEfi 

^QPl 

0175 

REF 

10 

LaSI 1032 

01*3602 

3 7799 

1 

T3RUPT2 

LAt- 

NEGl/2 

DlSPATCh  WAIILIST  TASX. 

0176 

Rrp 

59 

'LA'S!  1070 

OT  f 3603 

57'90  7 

0 

ACM 

L5T1  *7 

0177 

REF 

5t> 

last  1071 

01,3609 

57*906 

1 

ACH 

LSTl  +6 

0178 

REF 

t>6 

LASI 1071 

01,3605 

57*905 

1 

ACM 

LSTl  *5 

■ "CU'79 

pe:f 

^7 

LAST  107 1 

01,3606 

57*909 

0 

XC'FI 

LSTl  +9 

I,  ' WOVFTjP  TSTTtONTtNTS,  ENTERING 

0180 

REF 

f>8 

LASI 1071 

01,3607 

57•^^03 

1 

XLH 

LSTl  +3 

A VALUE  OF  1/2  +1  AT  THE  BOTTOM 

Olbl 

REF 

59 

LAST1071 

01,3610 

57*902 

0 

ACM 

LSTl  +2 

FOR  T6-15,  CORRESPONDING  TO  THE 

0182 

REF 

60 

Last  10  Ti 

01,3611 

57*901 

0 

ACM 

LSTl  •►I 

InIlRvAU  til»9i  btU  I'UK  hNUlAbA, 

0183 

ReF 

61. 

LAST  1071 

01,3612 

57*400 

1 

AC.H 

LSTl 

018A 

REF 

61 

LASI 1030 

01,3613 

6 7793 

0 

AL) 

POSmAX 

Z.  SET  T3  = 1.0  - T2  -T  USING  LIST  1, 

0185 

ref- 

5 

LA6 I 1066 

0 1 ♦ 3 6 1 

26  026 

1 

AOS 

TTME3 

SO  T3~W0NT  T1CK“0UK1NCj  UPOATE* 

0186 

REF 

4 

last  197 

01,3615 

55*076 

0 

IS 

RUPTAGN 

0187 

RfF 

302 

LASI 1060 

01,3616 

9 7767 

1 

Lb 

EERO 

0188 

REF 

5 

Last  1071 

0 1 9 36  1 f 

55  * 076 

0 

1 s 

RUpTAQN 

^ETS  RUpTTrGTf^a  +T~ON'TJVERFLOW. 

0189 

01,3620 

0 0006 

1 

EXIENO 

DISPATCH  TASX. 

0190 

REF 

4 

LA  6 1 1067 

01  *3621 

9 5715 

0 

ucs 

END  1 ASX 

0191 

REF 

2B 

LaSI 1067 

01,3622 

53*931 

1 

OXLH 

LST2  +160 

0192 

ReF 

29 

LAST1071 

01,3623 

53*927 

0 

oxlh 

LST2  +190 

0193 

RfF 

30 

LaSI 1071 

01  »3b^** 

53*425 

1 

OXLFT 

L5T2  +120 

0199 

REF 

31 

LA5T1071 

01,3625 

53*923 

1 

UXLH 

LST2  +100 

0195 

REF 

32 

LASTIO7I 

01,3626 

53*921 

0 

OXLH 

LST2  +80 

Rf'F 

33 

t,A5T  10  71 

01  *3627 

53*41 ^ 

0 

—OXG'H 

LST2  +'6 

0197 

REF 

39 

last  1071 

01,3630 

53*915 

1 

OxLH 

LST2  +9 

0198 

REF 

35 

LAST1071 

01,3631 

53*913 

1 

UXLH 

LST2  +2 

0199 

REF 

36 

LAST  1071 

01,3632 

53*911 

0 

'UXLH 

LST2 

0200 

01,3633 

52  006 

0 

oTLB 
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“O 

P0202 

WAITEIS) 

pEl JRN» 

after  execution  of  T3 

OVERFLOW 

1ASK.: 

US  ERTS-owpi“PAWNO. 

11 

53  E3 

0203 

5727 

bLUCK 

02 

020A 

RfF 

6 

LAST  1071 

5727 

11*076  0 

TASKOVER 

(-Cb 

KUPTACjN 

IF  +1  RETURN  TO  T3RUPI 

« 

IF  -0  resume. 

ozoy 

- FTEF“ 

2 

0.5T  106J 

ET3TT 

i b ^UU  u 

CA? 

TTAITBB 

0206 

REF 

32 

LASI 106A 

5731 

5A  006  0 

IS 

bbanx 

0207 

REF 

1 

5732 

1 3602  1 

KF 

T3RUPT2 

OISPATCH  NEXT  TASK  IF 

IT 

WAS  DUE. 

0208 

0209 

REF 

20 

LAST1071 

5733 

573A 

0 0006 
22  012 

1 

1 

RESUME 

LXitMO 

UXLH  QRUPf 

0210 

‘ REF 

22 

LAST  1071 

5735 

3 bU  i 6 

0 

N00R5M 

bANXKUK 1 

0211 

ref 

33 

LA5T1072 

' 5736 

56  006 

1 

XCH 

BBANK 

0212 

REF 

11 

Last  6i 

5737 

52  Oil 

0 

NOQBRSM 

bX^H 

ARUPI 

CT2TT“ 

57AO 

50  017 

1 

Ktburot 
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L ^S’ilfLrSl  ' " ' ■ UStR'S  CRN  Pace  No;  T2  S3  t3 

PIOOO  LQNGCALL ; 

KlOOl  LoNGCALL  is  CALLtD  WITH  THE  DeLTA  TIME  ARRIVING  IN  A,L  SCALED  AS  T1ME2i1IME1  WITH  THE  2CADR  OF  THE  TASK 

KIOO3  IMMEDIATEI-F  FOLLOWING  THE  TC  LONGCALL,  FOR  EKAMPLEt  IT  MIGHI  BE  DONE  AS  FOLLOWS  WHERE  TIMeLOC  IS  THE  NAME  OF 

RTOOT  ^^Tn>FTiE''l  STE»<  CONTATNTNGTT  TOrCTAmME  ATOTTmERET  TAGKTODO  IS  THE  NAMET  OF  THE -COCATIUN  A|  WH  lt:H~LDNCCACtr  I S TO 

R1007  START 


A1008 

LX  1 LIND 

A1009 

UCA 

TIMELOC 

AlOlO 

IC 

LONGCALL 

AlOn 

2TADK 

TASKTOOO 

R1012 

the 

Following 

lb  TO  Be  in 

FIXED-FIXED  AND  UNbwllCHED  ERRAblBLE  *** 

1013 

5791 

block 

02 

1019 

REF 

62 

LAST1071 

E3 

LBANK,= 

LSTl 

1015 

RpF 

7 

Last  75 

5791 

53*15^  1 

LONGCALL  UXCR 

LDNGT IME 

OBTAIN  THE  UErTTTTTM^  

1016 

5792 

0 0006  1 

EX  1 End 

obtain  the  2CAUP 

1017 

RfF 

337 

La51 1070 

5793 

5 0002  0 

NDX 

3 

1018 

S744 

3 0001  0 

UCA 

0 

1019 

REF 

1 

5795 

53*152  1 

UXCH 

LONGCADR 

1020 

5796 

0 0006  1 

LXItNO 

NOW  GO  TO  THE  APPROPRIATE  SWITCHED  BANK 

1021 

ref 

1 

5797 

3 5752  1 

UCA 

LGCL2CDR 

FOR  THE  REST  OF  LONGCALL 

1022 

5750 

■57'  O06'0 

PTCB 

10225 

REF 

63 

last  1073 

E3 

LBANK.= 

LSTl 

1023 

5751 

03639  0 

ENGCALL2 

C1023 

REF 

1 

5752 

02063  0 

R1029 

the 

Following 

may  Be  in  a 

switched 

bank,  including 

lkasabll  ***: 

1025 

01,3639 

BANK 

01 

1026 

REF 

1 

01,3639 

Z3'935  1 

LNGCALL2  LXCH 

LONGEXIT  +1 

SAVE  the  correct  BB  FOR  RETURN 

1027 

ref 

109 

L '\S  1 1060 

01  »3635 

3 7762  0 

CA 

Two 

obtain  THE^KtlURN  ADDHESS 

1028 

REF 

338 

lasi 1073 

01,3636 

26  002  1 

AOb 

Q 

1029 

REF 

i 

lasi 1073 

01,3637 

55*939  1 

1 s 

LONGEXIT 

R10291 
1030 
' - 103  r 

1032 

1033 
103A 

A1035 

A1036 

A1037 

A103B 

A1039 


REF 

REF 

RFF 

REF 


1 

8 

9 

1 


*•*  WAIILIST  TASK  LONQCYCL  *** 


01,3690 

0 0006 

1 

LONGCYCL 

EX  1 end 

CAN  WE  SUCCESFOLLY  TAKE  ABOUT  1.25 

LASI 1073 

01  *3641 
01,3642 

9 3652 
21*159 

1 

1 

VCb 

UAb 

DPBl  1 19 
LONG) IME 

minutes  TYFF^^  tONGI  IME  ' 

01  ,3643 
01,3644 

11*159 
1 3663 

1 

0 

CCb 

ICh 

Long! ime  +i 
muchume 

- The  reasortbg  bfhtnD'Fhis  part  is 

INVOLVED,  TAKING  INIO  ACCOUNT  THAT  I HE 
WORDS  MAY  NOI  BE  SIGNED  CORRECTED  (DP 

■ UASTC 'mSTRDCTlONS 

DO  NOT  SIGN  CORRECT)  AND  THAT  WE  SUBTRAC 
TED  B1T19  (1  OVFR  HALF  i HE  POS.  VALUE  ■ 

REPRESENTIBLE  in  single  WORD) 
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1040 

01,3645 

1 3646  1 

NUUP 

CAN;T  GET  HERE  ********** 

ruTTi 

Ui 

1 3647  0 

1 Lb 

+ 1 

1042 

REF 

10  LASI 1073 

01,3647 

11'155  0 

CCS 

LONGTIME 

1043 

REF 

2 LaSI  10A3 

01,3650 

1 3663  0 

ICF 

MUCHIIME 

T04^T 

Ui  tibbi 

ODOOtn 

“0PBTTT4” 

IJCI 

“OOOOO 

1045 

01,3652 

20000  0 

PCI 

20000 

A10^6 

LOnllall 

1047 

REF 

58  LAS11061 

01,3653 

3 7746  0 

LASTTIME 

LA 

61T14 

GET  BACK  THE  CORRECT  PELTA  TFOR  WAITLIST 

1048 

REF 

11  LA5T1074 

01,3654 

27'154  1 

ADb 

LONGTIME  ♦! 

1049 

■REF 

126  LASl  921 

01  f 3£>55 

0 5663  1 

K 

WAITLIST 

10495 

REF 

64  LA5U073 

E3 

tBANK.= 

LSTl 

1050 

01,3656 

03670  0 

^CAOK 

GETCAPR 

THE  ENTRY  TO  uUR  LONGLAPR 

C1050 

RtT“ 

r 

Ui t36b  f 

U206J  U 

1051 

REF 

1 

01 ,3660 

3 3672  1 

LONGRIKN 

LA 

TSKOVLOK 

SET  IT  UP  SO  that  ONLY  THE  FIRST  EXIT  IB 

1052 

REF 

3 LASI1073 

01,3661 

53*435  0 

PXLH 

LONGEXn 

TO  IHE  CALLER  OF  LONGLALL 

1053 

01 *36b2 

52  006  0 

PI  Lb 

^HE  REST  ARE  ICT  TASKOVEK 

1054 

REF 

59  LA.51  1074 

01 ,3663 

3 7746  0 

MUCHTIME 

LA 

BIT14 

WE  HAVE  OVER  OUR  ABOUT  1,25  MINUTES 

r055 

REF 

127  LAS11074 

U i ♦ 3 66*» 

U 5663  1 

1 L 

WAITLIST 

SO  BET  UP  FOR  ANOTHER"tYCLE  THROUGH  HERE 

10555 

REF 

65  LA5I 1074 

E3 

LBANK= 

LSTl 

1056 

01,3665 

03640  0 

2CADK 

LONGCYCL 

C1Q56 

RFF 

1 

U 1 1 3b(>b 

02063  0 

1057 

ReF 

1 

01,3661 

1 3660  0 

ICF 

LONGRTRN 

NOW  EXIT  PROPERLY 

R10571 

WAMLIbl  TAbiC  OETCADK  *** 

1058 

REF 

2 LAbll073 

01,3670 

53*152  1 

GETCApR 

PXLh 

LONGLApK 

GET  The  LONGLALL  THAT  WE  WISHED  TO  bTART 

1059  . 

01,3671 

52  006  0 

PTLB 

AND  TRANSFER  CONTROL  10  IT 

1062 

ReF 

124  LASl 1065 

01,3672 

05727  0 

ISKOVCPR 

LtNAUK 

TASKUVER 
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agc  block  iwg  self.check 
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ROOOOOI  PROGRAM  DESCRIPTION 

■R'0000'03  Program  name  - self-check' 

ROOOOOS  MOD  NO  - 0 
ROOOOO/  MOD  BY  - GAUNl T 


DATE  14  FEBRUARY  1467 

LOG'  SECT lOT^^AGC^BL'OCK  TWO  SELF'-LHECK 

ASSEMBLY  SUNBURST  REV  107 


'R'O'OOO'O'B 'FUNCrrONA'r'DESCRIPTlON  ' -----  - - 

R000004  program  has  two  main  PARfS.  tHE  first  is  SeLF-CHeCk  which  runs  as  A ^eRO  PRlORITt  JOB  WIIH  NO  CORE  SET.  AS 

ROOOOll  PART  OF  THE  BACK-UP  IDLE  LOOP,  THE  SECOND  IS  SHOW-BANK-SUM-  WHICH  RUNS  AS  fK  REGULAR 'EABCOTTVE—JOtJ- rTTH  TTS  TOWN 
R000013  STARTING  VERB. 

ROOOOIA  IHe  purpose  of  SeLF-CHeCK  is  to  check  OUI  various  parts  of  the  computer  as  outlined  Below  in  the  options, 

R000016  the  purpose  of  SHOW-BANKSUM  is  to  display  the  sum  of  each  bank  , ONE  AT  A TIME. ' ' 

rooooib  a third  Section,  dskychk,  lights  up  all  the  dsky  electroluminescent  elements, 

R00002  IN  all  there  ARe  15  POSSIBLE  OPTIONS  IN  THIS  BLOCK,  U VERSION  UF  SeLF-CHeCK,  MORE  DETAIL  DESCRIPTION  MAY  BE 

ROOOOZ2  Found  in  e-zubs  block  ii  agc  self-check  and  show  danksum  by  edwin  d, -smally-deCemberttsfl ' 

Rooooza  the  different  options  are  controlled  by  puTiiNu  diffeReni  numbers  in  tHe  smode  Register  (noun  2T>.  below  is 

ROOOOZb  A DESCRIPTION  OF  WHAT  PARTS  OF  TH£  COMPUTER  THAI  ARe  CHECKED  BY  THE  OPTIONS,  AND  THE  CORRESPONDING  NUMBER.  IN 

ROOOOZ8  OCTAL rTO^LOAD“TNTO  SMODET 

ROOOOZ9  +-1  ALL  pulses  POSSIBLE  BY  INTERNAL  CONTROL  OF  IHE  COMPUTER. 

ROOOU3  +-Z  ALL  THE  IN-OUT  INSTRUCTION  PULSES. 

M000031  +-3  special  AND  CENTRAL  REGISTERS.  ALL  BIT  COMBINATIONS,  - 

R00003Z  +-4  erasable  MEMORY 

R000033  +.5  fixed  MEMORY 

R000034  +-6.7, 10  EVERYTHING  IN  THE  PREVIOUS  5 OPTIONS,  

R00003S  +-11  TURNS  ON  THE  ELECTROLUMINESCENT  DISPLAY  IN  THE  DSKY, 

R000036  -u  same  as  +-10  UNTIL  AN  ERROR  IS  DEIECTED, 

R000037  +D  NO  check,  PUTS  COMPUTER  INTO  THE  BACKUP  IDLE  LOUP,  ' 


K000038  warnings 

'RO'O'OG'39  ' ' SMoDe  LOADED  WITH  GReA'TER  THAN  OCTAL  n PUTS  COMPUTER  INTO  THE  BACKUP  IDLE  LOOP, 

R000041 


R00004Z  CALLING  SeUUeNCE 

R000043  TO  Call  self-check  key  in  

R000044  V Z1  N Z7  £ OPTION  NUMBER  E 

R000045  TO  Call  dskychk  key  in 

R000046  V 21  N ■'Z7~E'  +-11  E 

R000047  TO  Call  show-banksum  key  in 

R000048  V 5b  E DISPLAYS  FIRST  BANK 

R000049  V 33  E PROCEED,  DISPLAYS  NEXT  BATTK 
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L ■ aGC  BLOCK  1^<0  self-check  ‘ " ^ " T1SET<*  0WrPSGE“  Ntli  2 53 

R00005  EMI  modes.  NORMAL  AND  ALARM 


Moooosi  self_ch£Ck  normally  Continues  indefinitely  unLeSs  tHere  is  an  eRRok  deieCteD,  if  so  ♦ opiion  numbers  put 
R000053  computer  INTO  BAlKUP  IDLE  LOOP,  - OPTION  NUMBERS  rESTArT  THE  OPTION, 

RODCrOSA TWE“AXnOPT  lONM»ROeEEDS"F1TOM-TFtEMrnTE^FOttOK-lT)G'TME“t-I'NEr  WHeRETTHF  ERROR  WAS  DETECTFDi 

R000056  completion  OF  OSKYCHK  PUTS  THE  COMPUTER  1N|0  THE  BACKUP  IDLE  LOOP. 

ROOOO57  SHUW.BANKSUM  PROCEEDS  UNTIL  A TERMINATE  IS  KeYeD  IN  (V  3A  E) . THE  COMPUTER  IS  PUT  INTO  THE  BACKUP  IDLE  LOOP 

R0000S9 


" R00006  OUTPUT  ^ 

R000061  self.cHeck  upon  Detecting  an  error  loads  the  self.check  alarm  constant  (01102)  into  the  failreg  set  and 

R000063  triggers  tHE  ALARM,  THE  ALARM  ROUTINE  DISPLAYS  THe  IHReE  FAILReGS,  IF  UPeKAIUR  DeS  IRETj-FORtHeR  MtlF  ORMAT  ION  He 
R00006S  MAY  KeY  IN  V Ob  N SI  E DSKY  DISPLAY  IN  Rl  WILL  BE  ADDRESS  +l  OF  WHERE  I HE  ERROR  WAS  DETECTED,  IN  R2  THE 

R00006T  Bank  number  of  self-check  (37  octalj  , and  in  R3  the  toial  number  of  eRRurs  detected  by  Self-check  since  the  last 

R000069  FRESH  START,  

R00007  OSKYCHK  LIGHTS  UP  THE  DSKY  DISPLAY  ELEMENTS  SIARTING  WITH  THE  UIGIT9  IN  ALL  POSITIONS,  EACH  DISPLAY  LASTS 

R000072  b SECONDS. 

“ R000073  SHow-BANKsuM  Starting  with- bank  0 displays- in  ri  +-  the  bank  sum  -lshould  euual  the  bank- nombertt  in  r?  the 

ROOOOTb  bank  number.  AND  IN  R3  THE  BUGGER  WORD. 


R000076  erasable  INITIALIZATION  REUUIReD 


R000077  accomplished  BY  FRESH  START 

R000078  SMODE  6 ERESTORE  SET  TO  +0 


R000079  DEBRIS 

ROOOO8  ALL  exits  from  THe  CHeCk  OF  ERASABLE  (ERASCHk,)  RESTORE  ORIGINAL  CuNTENIS  TO  REGISTERS  UNDER  CHeCk, 

R00008Z  fxcfptidn  IS  A Restart,  restart  thai  occufTs-tjuRiNo  eRaschk  does  a fresh  start.  — 

R00008A 


0001 

37,2000 

BANK  37 

0002 

RET“ 

Last  99T 

7763 

-"SBTTr 

— tTJtlAtS  BITl * 

0003 

RfF 

3^ 

Last  997 

7762 

SBIT2 

tOUALS  6IT2 

OOOA 

REF 

2b 

last  997 

7761 

5BIT3 

tUUALS  BIT3 

RtF 

^9 

LAST  99  ^ 

7760 

SBITA 

EOUALS  6ITA 

0006 

RbF 

33 

last  965 

77b7 

SBITb 

tUUALS  BITS 

0007 

Ref 

^6 

LASI 1008 

77b6 

SBIT6 

EOUALS  B1T6 

Rtf 

^1 

Las  f io<»8 

775b 

SP I T f 

tOUALS-BlT  7 

i 


• • 
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L 

AGO 

Block  twj  bEuF 

-CHECK 

UStRiS  OWN  PAGE  NO.  3 S3 

0009 

REF 

36 

L^ST 1066 

7759 

SB1T8 

tUUALS 

BIT8 

ooro 

Ref 

21 

EAST  887 

7753 

SB  IT9 

EQUALS 

6139 

0011 

REF 

49 

LAST1061  ' 

7752 

SBITIO 

EQUALS 

BITIO 

0012 

REF 

44 

LA5I 1061 

7751 

SBITll 

EQUALS 

BlTll 

omx 

REF 

BO 

L/T5T1061 

7750" 

"5BITT2 

tUUAL5~ 

BTTI2 

OOl^t 

REF 

32 

LASI 1061 

7797 

SBIT13 

tOUALS 

B1T13 

0013 

RfF 

60 

LaSI 1079 

7796 

SBIT19 

tUUALb 

BIT19 

0016 

RfF 

^92' 

LAST  1 09 3 

7795 

SBTTX5 

EQUALS 

BIT  15 

0017 

REF 

303 

LA5T1071 

7767 

S+ZERO 

EQUALS 

ZERO 

001^ 

ref 

63 

last  1076 

7763 

S+1 

EQUALS 

BITl 

0019 

REF 

33 

Last  io?6 

7762 

S + 2 

EQUALS 

BIT2 

0020 

REF 

41 

Last  993 

6311 

S*3 

EQUALS 

THREE 

0021 

REF 

31 

LAST  102  7 

776F* 

S + 4 

EQUALS  FOUR 

0022 

.REF 

18 

LaSI  989 

7766 

S + 5 

EQUALS 

FIVE 

0023 

REF 

21 

Last  999 

6306 

5*6 

EQUALS 

SIX 

0022^ 

RrF 

20 

Last  102*9 

7765 

5 + 7 

EQUALS 

SEVEN 

0023 

RfF 

17 

LASI 1090 

9569 

SBBITS 

EQUALS 

LOWS 

003  n 

0026 

37.2000 

00050  1 

CNTRCON 

UCIAL 

00050 

USEU  IN  CNTKCHX 

0027 

37,2001 

UUU6 i u 

ERASCUNl 

UC  1 AL 

UUU6  1 

USEU  IN  ERASLHK 

0028 

37,2002 

01379  0 

ERASC0N2 

UCIAL 

01379 

USEU  IN  ERASLHX 

0029 

37,2003 

01900  1 

ERASCONb 

UCIAL 

01900 

USEU  IN  ERASLHK. 

0030 

37,2009 

U 146 i U 

6RASCON3 

UCIAL 

01461 

USEU  nr  eraschk  — 

0031 , 

37.2005 

01779  1 

ERASC0N9 

UCIAL 

01779 

USEU  IN  ERASLHK 

0032 

REF 

17 

last  975 

5337 

SIOBITS 

tUUALS 

LOWIO 

017  17,  USED  IN  ERASLHK. 

0033 

REF 

2 

LaSI  1^6 

5639 

SBNK03 

EQUALS 

PR  106 

06000,  USED  Iir^TOPtCHK. 

■ 003^f 

37,2006 

00060  1 

SIXTY 

UCIAL 

00060 

0035 

37,2007 

60017  1 

SUPRCON 

UCIAL 

60017 

USED  IN  ROPELHK 

0036 

37,2010 

17777  0 

S13B1T5 

UC  1 AL 

17777 

0037 

37,2011 

25252  0 

C0NC*S1 

UCIAL 

25252 

USEU  IN  CYCLSHFT 

0038 

37,2012 

3773^  0 

OVCON 

UCIAL 

3773  1 

USEU  IN  RUPILHK 

0039 

37,2013 

'3  77  76  0 

OVCON 

UCTAL 

37776 

00^0 

37,2019 

52900  1 

C0NC+S2 

UCIAL 

52900 

USEU  IN  CYCLSHFT 

0091 

37,2015 

76777  1 

ERASC0N5 

UCIAL 

7677^ 

0042 

3 ^ U 1 6 

77770  1 

5-7 

UC  1 AL 

77770 

0043 

REF 

2 

last  939 

6156 

S-9 

EQUALS 

NEG9 

0044 

RfF 

4 

last  610 

5390 

S-3 

EQUALS 

NEG3 

OO45 

Ref 

5 

L/'5T  1049 

5336 

S-2 

EQUALS 

NEG2 

0046 

REF 

12 

LASTlOl 1 

7771 

S-l 

EQUALS 

NEGONE 

0047 

REF 

7 

Last  771 

7770 

S-ZERO 

tUUALS 

NEGO 

0048 

REF 

66 

LaSI 1079 

£3 

LBANK= 

LSTl 

0099 

RfF 

1 

37,2017 

01371  0 

APRSl 

MOKES 

SKEEPl 

uu^o 

RfF 

40 

LaS I 1048 

37,2020 

0002  1 

SRADRS 

AOKES 

SK 

0051 

ref 

3 

UA51 1060 

37,2021 

02115  0 

selfaqks 

MOKES 

selfchk 

selfchk  return  address,  should  be  put 

A0032 

IN  SEEFRET  when  going  from  selfchk  10 

A0053 

SHQWSUM  AND'PDT  IN  SKEEPl  WHEN  GOING 

A0054 

from  showsum  to  seef-check. 

RfF 

3 

37,2022 

3 1353  *0 

PKERKORS 

CA  ■ ■ 

EKE6 1 UKt 

IS  IT  necessary  to  RE5TQRE  ERASABLE 

9 


C 
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005A2 

37 

2023 

0 0006 

1 

tXIENO 

O05A3 

REF 

'1 

37 

202A 

I 2033 

1 

BZ7 

ERRORS 

NO 

OOSAA 

37 

2025 

0 0006 

1 

tXI ENO 

005A5 

REF 

1 

37 

2026 

3 1376 

1 

UCA 

SKEER5 

O'O^'e — RTF 

57 

“2CTZT 

^7*^377 

a 

nwEx 

SKEER7 

00SA7 

37 

2030 

52  001 

1 

UXCH 

0000 

RESIORE  THE  (RO  ERASABLE  REGISTERS 

005A8 

REF 

1 

37 

2031 

3 7767 

0 

LA 

S+ZEKU 

OOyAT 

'REF' 

- -{^ 

LAST  1077 

3T*2C73Z 

55‘'75'3 

1 

1 s 

ERES ! ORE 

005b 

37 

2033 

0 OOOA 

0 

ERRORS 

INHINT 

00555 

REF 

339 

LaSI 1073 

37 

203A 

3 0002 

0 

LA 

Q 

CTOb6 

REF 

3 

LAST  759 

37 

2035 

55*357 

0 

1 s 

SFAIL 

SAvL  Q FOR  Failure  lola|"Ion 

005^15 

REF 

8 

Last  336 

37 

2036 

55*363 

1 

IS 

ALFiCAOR 

FOR  015PLAY  WITH  BBANK  AND  ERCOUNT 

0057 

REF 

1 

37 

2037 

25*365 

0 

INCH 

ERCOUNT 

KEEP  TRACK  OF  NUMBER  UF  MALFUNCTIONS, 

0058 

RfF 

2 

Last  313 

37 

20A0 

0 A760 

1 

TCALAKM2 

1 C 

ArCARM? 

0059 

37 

20A1 

01102 

0 

UCI 

01102 

SELF-CHECK  MALFUNCTION  INDICATOR 

0060 

REF 

6 

Last  A97 

37 

20A2 

11*355 

1 

LCS 

SMOOt 

0061 

RETF 

Z 

LAS  1 10  A8 

37 

20A3 

3 f (b  f 

0 

LA 

S+ZtKU 

0062 

REF 

7 

Last  1078 

37 

2044 

55*355 

1 

IS 

SMOOt 

0063 

RfF 

4 

LAST  1077 

37 

20A5 

0 2115 

0 

1C 

selfchk 

GO  10  IDLE  LOOP 

006^ 

REE 

L ASTI  078 

37 

20A6 

0 1357 

1 

1 c 

SFAIL 

CONlINUE  \nITFT  SFLF-LHtCK 

0065 

ref 

376 

Last i069 

37 

20A  r 

A 0000 

0 

+ OCHK 

C5 

A 

'0066 

3^77 

LASl  1078 

“37 

ZUOV  iu  TJC70 

0 

^^HKT 

LCS" 

0067 

REF 

2 

LASI 1078 

37 

2051 

1 2033 

1 

ICF 

ERRORS 

0068 

REF 

3 

LASI 1078 

37 

2052 

1 2033 

1 

ICF 

ERRORS 

0069 

RfF 

LaSI 1078 

37 

2053 

1 2033 

1 

1 O' 

tKKUKS 

0070 

ReF 

3A0 

LASI 1078 

37 

205A 

0 0002 

0 

1 C 

Q 

0071 

ref 

378 

LA6T  1078 

37 

2055 

4 0000 

0 

+ 1CHK 

L5 

A 

0072 

REF 

379 

LASI 1078 

37 

2056 

10  000 

0 

-ichk 

CCS 

A 

0073 

REF 

1 

37 

2057 

1 2022 

1 

ICF 

PRERRORS 

007^ 

RfF 

2 

Last  1070 

37 

2060 

1 2022 

1 

1 C^“ 

PREKKORS 

0075 

REF 

380 

LASI 1078 

37 

2061 

10  000 

0 

LCS 

A 

0076 

REF 

3 

LASn078 

37 

2062 

1 2022 

1 

ICF 

PRERRORS 

0077 

REF 

341 

LAST  1078 

37 

ZD&3 

^ 0002 

cr 

1 c 

Q 

0078 

37 

206A 

0 0006 

1 

SMODECHK 

tXIENO 

REF 

2 

LASI 1077  ' 

3T 

2065 

23*371 

0 

UXCH 

SkEEPI 

0080 

ref 

2 

LASI 1060 

37 

2066 

0 5605 

1 

1C 

CHELKNJ 

CHELK  FOR  NEW  JOB 

0081 

REF 

8 

LAST1078 

37 

2067 

11*355 

1 

LCS 

SMOOE 

0082 

Ref 

1 

3^ 

2070 

0 2075 

1 

I L 

SOP! IONS 

0083 

REF 

1 

37 

2071 

0 2066 

0 

IC 

SmOOELHK  +2 

TO  backup  lULE  LOOP 

OOSA 

REF 

2 

LAST1078 

37 

2072 

0 2075 

1 

1C 

SOPTIONS 

RrF 

37 

2073 

Z5  * 366 

0* 

INCH 

SCOONT 

0086 

RfF 

3 

LaSI 1078 

37 

207A 

0 1371 

0 

IC 

SKEEPI 

LONIINUE  WITH  SELF-LHtCK 

OOB7 

Ref 

t 

37 

2075 

6 ZU  1 6 

1 

SORT  IONS 

AO 

S-7 

0088 

37 

2076 

0 0006 

1 

tXIENO 

0089 

37 

2077 

6 2101 

0 

b2MF 

+ 2 

FOR  OPTIONS  btLOW  NINE. 

1 

37 

2100 

0 3604 

0 

BNKOF'tfT 

) L 

SBNKOPTN 

FOFF  OP'Tl'ONS  AbOVE  EIGHT' 
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0091  REF  2 LASllO/B 37,2101  25<366  0 INGK  SCQUNI FOR  OPTIONS  bELOW  NINE, 


aU92“ 

RfT 

1 

37,2102 

6 7766  1 

0093 

REF 

381  LASI1078 

37,2103 

50  000  1 

INUtA 

A 

OXTyT 

YTTF 

r 

37,210A 

0 21CT5  T 

TC 

SOPTIONl 

0095 

REF 

1 

37,2105 

0 2116  0 

SOPTIONl 

IC 

TC*TCF 

0096 

REF 

1 

37,2106 

0 3003  1 

S0PTI0N2 

1C 

IN-OJI  1 

0097 

RLf 

1 

37,2107 

0 3057  0 

S0PTTUN3 

IQ 

COUNT CHK 

0098 

REF 

1 

37,2110 

0 3153  0 

SOPTIONA 

IC 

ERASCHK 

0099 

REF 

1 

37,2111 

0 33A0  0 

S0PTI0N5 

1C 

ROPECHK 

0100 

REF 

A L«ST107b 

37,2112 

0 1371  0 

S0PTI0N6 

rc 

SKEEPl 

0101 

REF 

b LAS  I 1079 

37,2113 

0 1371  0 

SOPTION  7 

1C 

SKEEPl 

0102 

REF 

6 LAST1079 

37.211A 

0 1371  0 

SOPTONIO 

IC 

SKEEPl 

CONIINUE  WITH  SELF-CHECK 

0103 

REF 

2 Last io78 

37,2115 

0 206A  1 

SELFCHK 

IC 

SMOOtCHK 

**  CHARLEY,  COME  IN 

HERE 

ROlOA 

TL*T^r  LMFLKb  ALL 

OF 

THE  pULSES  OP  TLP 

AND  ALL  Of 

the 

pULSES  OF  TC 

R0105 

EXCEPT  ABILITY  TO 

TC 

TO  erasable. 

R0106 

ALSU 

first  time  CS 

FIXED  MEMORY  IS  USED 

DT07" 

37,2116 

TJ  217^  0^ 

IC+TCF 

TC 

+ 2 

0108 

REF 

1 

37,2117 

0 2125  0 

IC 

CCSCHK 

0109 

37,2120 

1 2122  0 

ICF 

+ 2 

4 TCF  fixed  MEMORY 

0110 

ref 

b LASI1078 

37,2121 

0 2033  0 

1C 

ERRORS 

0111 

REF 

1 

37,2122 

A 6311  0 

C5 

S*3 

» CS  FIXED  MEMORY 

0112 

REF 

3A2  LASI 1078 

37,2123 

0 0002  0 

IC 

J 

$ 

0113 

■RCF 

6 Las  1 10 79 

37,212A 

0 2033  0 

rc 

ERRORS 

ROllA 

CCSCHK  checks  ALL 

OF 

CCS  EXCEPT  RB  WG, 

R0116 

ALiJL 

1 uT^AjAULct  ANL/  Lj 

EKA6ADLE  f^ti^UKT 

• 

0116 

REF 

382  LASI 1079 

37,2125 

10  000  0 

CCSCHK 

CC6 

A 

4 CCS  SC,  C(AI  = -3 

0117 

REF 

7 last  10  79 

37,2126 

0 2033  0 

IC 

ERRORS 

01 18 

RrF 

b La 5110^9 

6 i ( 

0 2033  0 

( c 

EKRUKS 

0119 

37,2130 

0 2138  0 

IC 

♦ 2 

0120 

REF 

9 LASI 1079 

37,2131 

0 2033  0 

IC 

ERRORS 

rff 

383  L/TSTX079 

37,2132 

10  000“  0 

CCb 

A 

4 CIA)  = +2,  KESULl 

OF  CCS 

-NUMBER 

0122 

37,2133 

0 2137  0 

IC 

♦A 

0123 

REF 

10  last  10  79 

37,213A 

0 2033  0 

IC 

Errors 

RCF 

37*2136 

0 2033  0 

1 c 

ERRORS 

0125 

REF 

12  LASI 1079 

37,2136 

0 2033  0 

IC 

ERRORS 

0126 

REF 

7 LAST1079 

37,2137 

55*371  1 

1 5 

SKEEPl 

4 TP  ERASABLE 

37  *2 1 AO 

11*371  1 

CC6 

SKEEPl 

4 CCS  ERASTTbtE , C“FA) 

- "♦!* 

RESULT  OF 

0128 

37,21a1 

0 21A5  0 

IC 

♦A 

CCS  +NUMBER 

0129 

REF 

13  LAST1079 

37,21A2 

0 2033  0 

IC 

ERRORS 

REF 

i A La6 I lU79 

37 ,21A3 

0 2033  0 

1C 

ERRORS 

0131 

REF 

15  LAS11079 

37,21AA 

0 2033  0 

IC 

ERRORS 

0132 

REF 

38A  LAST1079 

37,21A5 

10  000  0 

CCb 

A 

4 CIA)  = +0,  RESULI 

OF  CCS 

+1,  CHECKS  Cl 

ref 

37*21^6 

0 2033  0 

1 c 

ERRORS 

013^ 

37,21A7 

0 21S2  0 

IC 

♦ 3 

0135 

REF 

17  Last  1079 

37,2150 

0 2033  0 

IC 

ERRORS 

18  La6 I 1079 

3^*2161 

0 2033  0 

1 c 

ERRORS* 
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0137 

REF 

385  LASU079 

37,2152 

9 0000 

0 

CS 

A 

$ CS  SC 

' 0138 

“ REF 

386  LAST  1080 

37,2153 

ID  000 

0 

LC5 

$ CIA)  = .-0*  “RESULT  OF  CCS  +0“ 

0139 

REF 

19  LASI 1079 

37.2159 

0 2033 

0 

IC 

ERRORS 

OlAO 

REF 

20  LAS  1 1080 

37,2155 

0 2033 

0 

1C 

ERRORS 

DTAl 

RfF 

21  L/T5T1080 

37  «21^6 

0 2073 

u 

1 c 

ERRORS 

0192 

RfF 

387  LASI 1080 

37,2157 

10  000 

0 

CCS 

A 

$ RESULT  OF  CCS  -0 

0193 

REF 

22  LASTIOBO 

37.2160 

0 2033 

0 

IC 

ERRORS 

0199 

3 ^ f 2 1 6 1 

0 7169 

0 

1 c 

♦ 3 

019S 

REF 

23  Last iobo 

37,2162 

0 2033 

0 

IC 

ERRORS 

0196 

REF 

29  LASTIObO 

37,2l63 

0 2033 

0 

IC 

ERRORS 

0197 

REF 

9 last  1079 

37,2169 

9 1371 

1 

L5 

SKEEPl 

S CS  erasable,  AUSO  CFIECKS  back  " INTO  - 

Oi^B 

REF 

1 

37,2165 

0 2056 

0 

IC 

-ICHK 

ERASABLE  5E(jUENCE. 

R0199 

ALL 

PULSES  OF 

BZMF. 

ROISO 

Also 

checks  ca  fixed  memory. 

0151 

REF 

1 

37,2166 

3 7753 

1 

bzmfchk 

CAF 

SBIT9 

$ CA  FIXED  memory 

0152 

if  * 2 1 6 / 

0 0006 

1 

LX  1 END 

0153 

REF 

1 

37,2170 

6 2211 

1 

bZMF 

ERRBZMF 

0159 

REF 

388  LASIIOBO 

37,2171 

4 0000 

0 

CS 

A 

0155 

37*2172 

0 0006 

I 

EX  1 ENU 

0156 

37,2173 

6 2175 

0 

BZMF 

+ 2 

s 

0157 

REF 

25  LASTIOBO 

37,2179 

0 2033 

0 

IC 

ERRORS 

0158 

• RfF 

1 

37.Z175 

3 3503 

“I' 

VA"  ■■ 

S*MAX 

0159 

REF 

1 

37,2176 

6 7763 

1 

AO 

S.l 

0160 

37,2177 

0 0006 

1 

EXIEND 

0 i 6 1 

RLF 

1 

37,2200 

6 2212 

1 

bZMh 

ERRBZMF2 

$ ♦ OVERFLOW,  CWECKt-OT-DOOO 

0162 

ref 

3 LASI1078 

37,2201 

3 776T 

0 

LA 

S+ZERO 

0163 

37.2202 

0 0006 

1 

EXIEND 

t)l6^ 

37,2203 

6 2205 

1 

BZMF 

*z 

$ - - - 

0165 

REF 

26  LASI 1080 

37,2209 

0 2033 

0 

IC 

ERRORS 

0166 

REF 

389  LASTIOBO 

37,2205 

4 0000 

0 

US 

A 

0T6'7 

3 f «22t>6 

0 0005“ 

1 

TLX  FEND 

0168 

37,2207 

6 2213 

0 

bZMe 

+ 4 

s 

0169 

ref 

27  LASI 1080 

37,2210 

0 2033 

0 

-ERRBZMF 

IC 

ERRORS 

2 b L/\  3 1 1 0 bO 

37,2711 

0 2033 

cr 

tc 

EKKUKS 

FROM  BZMF  W"llR  .-NON-ZtRO 

0171 

RfF 

29  UaSI IObO  , 

37,2212 

0 2033 

0 

ERRBZMF2 

IC 

ERRORS 

OVERFLOW  WITH  .0 

R'0172  ReSIOREI  ANO  z CHECKS  INSTRUCTIONS  (WITH  STAR)  ABILITY  TO  REAU  BACK  INTU 

R0173  erasable  Memory,  not  normally  interesteo  in  contentp  uf  a register. 

R017A  FIRST  TIME  MANY  INSTRUCTIONS  ARE  USED. 

— RtriTS  ' Restore  1 also  checkb-tndex  (without  eatracodet  erasable,  ca  erasable.  - 

R0176  AmD  mask  ERASABLE. 


0177 

RLF 

1 

37.2213 

3 2020  1 

RESTOKEl  CAF 

SRADRS 

AODRESS  OF  SR 

37,2219 

55'377  1 

lb 

SKEEP7 

0179 

REF 

1 

37,2215 

3 9569  1 

CA 

S8B1 IS 

00377 

0180 

REF 

3 LAST  1080 

37,2216 

51'37(  0 

IMUX 

SKEEPT 

i INOEX  erasable 

37,2217 

S4  UUU  U 

— IS 

OOOO 

TS  SR,  C(SR) — = 770^17  7- 

0182 

RfF 

91  LASI1077 

37,2220 

10  021  0 

CCS 

SR 

C(SK)  : 00077 

* 

0183 

REF 

9 LASIIOBO 

37,2221 

51'377  0 

INJOX 

SKEEP  f 

checks  C(5KEEP7)  CORRECI 

37,2222 

“Tr-eooo  o~ 

CS 

OtTOO 

C(SR)  5 00037 
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0185 

REF 

42 

LASI IObO 

37,2223 

6 0021 

1 

AD 

SR 

0186 

37.222a 

0 0006 

1 

tXlEND 

0187 

REF 

43 

LAST1081 

37,2225 

20  021 

0 

hSU 

SR 

0188 

37,2226 

0 0006 

1 

EX  1 END 

0109 

REr 

4^ 

LASTI081 

3"7,2227 

60  021 

1 

6k 

0190 

REF 

4t> 

LaSI 1081 

37.2230 

3 0021 

1 

1.A 

SR 

0191 

REF 

46 

LASTIOBI 

37,2231 

7 0021 

0 

MASK 

SR 

0192 

■RrF 

1 

37,2232 

0 205t> 

0 

1C 

♦ ICHI^ 

0193 

37,2233 

0 0006 

1 

tXItNO 

0194 

REF 

47 

LAST1081 

37,2239 

7 0021 

0 

MP 

SR 

0195 

37,2235 

O'  UUO6 

1 

EXTEND 

OI96 

rff 

48 

LaSI 1081 

37,2236 

10  021 

0 

uv 

SR 

0197 

REF 

49 

LAST1081 

37,2237 

3 0021 

1 

CA 

SR 

0198 

RpF 

, 2 

LASTIOBI 

37,2290 

0 206t> 

0 

1 C 

♦ ICHK 

C(SR)  = 00017 


* 


C(SK)  = 000U7  * 

“ C(SR)“  6 00003  » 

i C(SR)  = *1,  C(A)  = *3,  CA  ERASABLE  * 

i B(SR)  = C(SR)  = ♦!.  MASK  ERASABLE  * 


S CA  ERASABLE 

MAKtS  SORE  MA3K,  and 'DV  00  NOT  EDIT. 


R0199  ReSTOREZ  ALSO  CHtCKS  XCH  ERASABLE , I NDEX  (WITH  EXTKACUUe)  ERASABLE  AND 


R02D0 

0201 

0202 

fixed  memory,  DCS 
ref  1 

REF  1 

ERASABLE,  CA  SC,  AND 

37.2291  3 2017  0 

37.2292  55'376  0 

DCA  erasable. 
REST0RE2  CAF 
IS 

ADRSl 

SKEEP6 

0203 

REF 

1 

37.22A3 

3 

T77I 

1 

CA 

S-l 

0209 

REF 

10 

LaSI 1080 

37,2299 

55*371 

1 

IS 

SkEEpI 

0205 

REF 

390 

LASI 1080 

37,2295 

4 

0000 

0 

CS 

A 

02X)6 

RfF 

11 

LaSI 1081 

37.2296 

57*371 

0 

XCH 

SKEEPl 

0207 

REF 

1 

37,2297 

57*372 

0 

XCH 

SKEEPZ 

0208 

37,2250 

0 

0006 

1 

EX  1 End 

020.9 

REF 

2 

Last  1061 

37,2251 

5 

1376 

1 

NDX 

’SKEEP6 

0210 

37,2252 

3 

0001 

0 

DCA 

0000 

0211 

37,2253 

0 

0006 

1 

EX  1 END 

0212 

ref 

2 

37 1 2254 

5 

2017 

u 

NOX 

ADRSl 

0213 

37,2255 

4 

0001 

1 

OCS 

0000 

0219 

Ref 

2 

last  1080 

37,2256 

0 

2056 

0 

IC 

-ICHK 

0215 

ref 

187 

Las  1 1 U64 

37,2257 

3 

0001 

0 

L' 

0216 

REF 

3 

LAST1081 

37,2260 

0 

2055 

0 

IC 

+ 1CHK 

0217 

37,2261 

0 

0006 

1 

EXIEND 

0218 

ReF 

3 

Last loai 

37,2262 

5 

1376 

1 

NDX 

SKEEP6 

0219 

37,2263 

3 

0001 

0 

DCA 

0000 

0220 

REF 

4 

lastiobi 

37,2269 

0 

2055 

0 

IC 

♦ICHK 

REF 

188 

L”A  S 1 1081 

37,2265 

7 

0001 

0 

CA 

L 

0222 

REF 

3 

LASTIOBI 

37,2266 

0 

2056 

0 

IC 

-ICHK 

ADDRESS  OF  SKEEPl 


-I 


$ XCH  erasable,  CISKEETT,)  '=^+1 

S XCH  erasable,  C(SKEEPZ)  5 -1 

S NOx  ERASABLET  * 

DCA  ERASABLE  * 

S NOX  FI XED“  MEMORY • 

i DCS  ERASABLE  MEMORY  K 


Makes  sure  dcs  erasable  ok 
» CA  sc 


MAKE  SURE  CISREEPE)  IB^STlLt  CORRECI 
i DCA  ERASABLE 


RD223 

R0229 

R0225 

REST0RE3  CHtCKS  ABILITY  TO  RESTORE  INSTRUCTIONS  BACK  INTO  ERASABLE’ 
memory,  it  is  ONLY  NECE5SARY  TO  ReSIORE  ONE  INS1RUCI1UN  BECAUSE  THE 
G REGISIER  DOES  NOT  CHANbE. 

^02Zt 

0227 

REF  1 

LKMSMBLt  ntMUKT, 

37*2267  3 7745  0 

RESTORES 

CA 

SB1T15 

0228 

REF  12  lastiobi 

37,2270 

55*371  1 

1 s 

SKEEPl 

02z9 

1TEF  T 

3T72271 

T 7Tb2  0 

CA 

-ST7 

0230 

Ref  2 LAST1081 

37,2272 

55*372  1 

IS 

5KEEP2 

0231 

REF  2 LA5T1080 

37,2273 

3 7763  1 

CA 

S.l 

REF  13  LAS  1 i08l 

37,2279 

0 1371  O’ 

IC 

S’KEEKl 

cs 

AOOUO 
— TC^^Q- 


♦ 1 

S TC  erasable  
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0233 

REF  4 lastiobi 

37,2275 

0 2056 

0 

1C 

-ICHK 

first  time  BACK  FROM  ERASABLE, 

023A 

" RYF“  14  CASTIOel 

37  *22  ^6 

0 1371 

0" 

icr 

5KET1P1 

0235 

REF  1 

37,2277 

0 2050 

0 

1 c 

-OCHK 

SECOND  TIME  BACK  FROM  ERASABLE. 

^0236“ 

s^TCFnr  checks  ai:l  tulses  of  bzf. 

0237 

REF  1 

37,2300 

3 7766 

1 

BZFCHK 

CAF 

S+  b 

0238 

37,2301 

0 0006 

1 

EX  1 END 

■ T)23^ 

4fT  1 

3 f *230^ 

r ^325 

0 

ERRBZF 1 

S'  ' ' ' ' ■ ■ 

0240 

RfF  391  LaSTIOBI 

37,2303 

A 0000 

0 

cs 

A 

0241 

37,2304 

0 0006 

1 

EX  I END 

■ "OZAF 

RpF  1 

37 ,2305 

1 2326 

0 

D2F 

ERRBZF2 

5 - 

0243 

REF  2 LASI 1080 

37,2306 

3 3505 

1 

CA 

S+MAX 

0244 

REF  3 LASTIOBI 

37,2307 

6 7763 

1 

AO 

S*1 

01-00000 

0245 

^TTZSTtr 

OTTO  06“ 

I 

“EXT'ENtr 

0246 

REF  1 

37,2311 

1 232  7 

1 

bZF 

ERRBZF3 

s 

0247 

REF  392  last  1082 

37,2312 

^ 0000 

0 

cs 

A 

0245 

37*231^  U 0006 

1 

tXTENir 

0249 

ref  1 

37,2314 

1 2330 

1 

BZI- 

ERRBZF4 

s 

0250 

REF  4 LA51 IObO 

37,2315 

3 776  7 

0 

CAF 

S+ZEKO 

025X 

37,2316” 

0 0006 

1 

EXTEND 

0252 

37,2317 

1 2321 

1 

BZI- 

♦ 2 

s 

0253 

Ref  30  Las i iobo 

37,2320 

0 2033 

0 

1C 

ERRORS 

0254 

RfF  393  LaSTIOBZ 

3 < « 2 32 1 

A 0000 

a 

cs 

A 

0255 

37,2322 

0 0006 

1 

EX  1 END 

0256 

37,2323 

1 2331 

0 

BZF 

♦ 6 

s 

02S7 

RfF  3X  LaS 1 1082 

37,2324 

0 2033 

0 

1 c 

ERRORS 

0258 

REF  32  LASriOBZ 

37,2325 

0 2033 

0 

ERRBZFl 

1 C 

ERRORS 

♦NON-ZERO 

0259 

REF  33  Last 10b2 

37,2326 

0 2033 

0 

ERRB2F2 

1C 

ERRUKS 

-NON-ZERO 

02^0 

RbF  3*4  LaS710b2 

37,2327 

0 2033 

0 

ERRB/F  3 

ERRORS 

01-00000 

0261 

RFF  3b  LASI10B2 

37,2330 

0 2033 

0 

ERRBZF4 

1C 

ERRORS 

10-37777 

K02  6 2 

DXCH+OIM  checks  ALL 

PULSES  OF 

DALH  ANU 

DIM. 

R0263 

AlSo  checks  rs  with 

ovehfliiw* 

TS  Sc. 

CA 

Sc,  AND 

AD  erasable. 

0264 

ref  3 LAST10B2 

37,2331 

3 3505 

1 

DXCH+DIM 

CA 

S*MAX 

RLF  2 LA6IIU0I 

37*2332 

6 f f 

0 

- AO 

5 + 2 

OVERFLOW  Vrt^fTl"  ♦ 1 — 

0266 

REF  15  LASU0B2 

37,2333 

55'37l 

1 

IS 

SKEEPl 

i TS  WITH  OVERFLOW,  +1 

0267 

REF  36  LASI 1082 

37,2334 

0 2033 

0 

IC 

ERRORS 

37,2335 

4 0000 

0 

cs 

A 

0269 

REF  3 LAST1081 

37,2336 

55'372 

1 

1 s 

SKEEP2 

0270 

REF  4 LASI 1082 

37,2337 

4 3505 

0 

cs 

S + MAX 

37,2340 

54  001 

1 

1 s 

L 

" “$^TR”S^,  4W0U 

0272 

REF  395  LASI 1082 

37,2341 

4 0000 

0 

cs 

A 

3777  7 

027  3 

REF  16  UaSI 1082 

37,2342 

53'372 

I 

OXCH 

SKEEPl 

i DXCH  ERASABLE 

37,2343 

0 2056 

1 C 

♦ 1 CHK 

0275 

REF  190  LASI 1082 

37,2344 

3 0001 

0 

CA 

L 

1 CA  SC 

0276 

REF  5 LASI 1082 

37,2345 

0 2056 

0 

IC 

-ICHK 

3T,2346 

0 Ouuo 

"t” 

EX  1 END 

0278 

REF  17  LASI 1082 

37,2347 

27'371 

1 

DIM 

SKEEPl 

$ DIM  ERASABLE,  DIM  ♦ NUMBER,  37776 

0279 

37,2350 

0 0006 

1 

EX  1 END 

02b0 

37*23S1 

27*372 

diva 

-SKEtPZ  - 

S DIM  - number,-  40001 

i 
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0281 

REF  5 LA5T10B2 . 

37.2352 

3 3505  1 

LA 

S+MAX 

377  n 

0282 

Rt-F  5 L>5T10b2 

37*23B3 

6 1372  0 

AO 

SKEET2 

i AD  eras ABLET  ♦! 

0283 

RFF  6 LAS  1 1082 

37.2359 

0 2055  0 

IC 

♦ ICHK 

028A 

ref  6 LASI 1083 

37.2355 

9 3505  0 

cs 

S + MAX 

400U0 

02SS 

iB  1 1UB2 

3T*23>6 

6 r3“mr“ 

AU 

SHEEP  1 

••  I 

0286 

REF  6 LflSI 1082 

37.2357 

0 2056  0 

1C 

-ICHK 

0287 

REF  9 LASU082 
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29 

last  1087 

37 ,2651 

61*371 
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* SU  ERASABLE 
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0^89 
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S SU  sc,  SU  L 

0490 

REF 
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37,2656 
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0492 
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0493 
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♦ 2 

0494 
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37.2661 
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LA 
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37,2662 
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0496 

RfF 
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I 
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0497 
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0 2056 

0 
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$ DXCH  SC 
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6 0002 

0 
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Q 
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Last loe? 

37.2670 
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0 
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37,2671 
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0 

LA 

L 
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6 
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37,2672 

0 2047 

0 
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+ OCHK 

0505 
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3 

L AST 10b3 
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1 

LA 
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0506 
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37,2674 

54  002 
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IS 

0 

0507 
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419 
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37,2675 
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A 
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H0509 
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= BIO)  = -1 
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0 
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L 

1 PCA  SC 
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37,2700 
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"0 

0512 
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7 

LAST1087 

37,2701 
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1 

AU 

SKEEP3 

0513 
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21 

LASI 1087 

37,2702 

0 2055 

0 

IC 

♦ ICHK 
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L A 5 1 1 0 8 / 

37,2703 

3 0001 

0 

— ^ 

"t 

0515 
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21 

last  1087 

37,2704 

0 2056 

0 

PROCESS 

IC 

-ICHK 

I 5 LtjS  1 

I N 

Ur  V3U1INU  THKUU»jH  L KE«- 

R0517 

ALSO  CHECKS  |HAT 

0 WILL  HOLP 

16  BITS 

0518 
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2 

LAST  1083 

37,2705 

3 5336 

1 

0— LCHK 

LA 

S-2 

REF 
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La  S 1 108  7 

37,2706 

54  002 

1 

1 s 

■Q'  ■ ' 

0520 
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1 

37,2707 

3 3506 

I 

LA 

S-MAX 

0521 
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LASI 1087 

37,2710 
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1 
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LS 
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OS23 

REF  A20  LASTI087 

, 37.2712 

5^  000 

0 

1 b 

A 

“ - 05ZA 

REF  39  LASri086 

37,2713 

0 2033 

0 

1 c 

ERRORb 

052S 

37.27IA 

0 0006 

I 

EX  1 END 

0S26 

REF  223  LASI 1087 

37,2715 

3 0002 

0 

OCA 

L 

0S27 

RETF  ^^21  La5T10B8 

37  *2716 

"5A  OTTCT 

u 

1 b 

A 

052E 

37,2717 

0 2721 

I 

IC 

♦ 2 . 

0S29 

REF  AO  LaSTIOBB 

37,2720 

0 2033 

0 

1C 

ERRORb 

0530 

RL'F  ~22  UASTXX)B7 

37,2721 

0 20  56 

0 

\ c 

AlCHK 

R0531 

CHECKb  overflow, 

UNOERFLOW.'eNO-AROUNO-CARRY,  ANO  sign 

CHANGE  OF  ADDER, 

RD532 

ALoU  Wljn  (JvtKrLOW  AINL> 

1 6 

A wim  uiMytKruuw 

0533 

RfF  a LASII085 

37,2722 

3 77A6 

0 

ADDRCHK  CA 

bBI  1 lA 

20000 

063A 

REF  355  LA5TI0B7 

37.2723 

5^  002 

I 

lb 

0 

0535 

Kph-  356  La6I1uB0 

3 / *2  ^ 2** 

26  002 

1 

AL3b 

0 

S ADS  SC,  OVERF'LOW 

0536 

REF  357  LASI I0B8 

37,2725 

26  002 

1 

AOb 

Q 

underflow 

0537 

RLF  A22  LA5II0B8 

37,2726 

5A  000 

0 

lb 

A 

S TS  SC  WITH  underflow 

0538 

RrF  Last ioes 

37,2727 

0 2033 

0 

f c 

ERRORS 

0539 

RfF  358  LA5I1088 

37,2730 

26  002 

1 

ADb 

U 

05A0 

ref  22  LAbI I0B7 

37,2731 

0 2055 

0 

IC 

♦ ICHK 

ROSAI  RUPTLHK  checks  that  interrupt  does  not  occur  while  overflow  or  underflow 
R05A2  IS  IN  the  a REGISTER.  ALSO  CHECKS  THAT  INHINT  RECINI  WORK  PROPERLY, 


05A3 

05AA 

05A5 

RfF 
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6 

1 
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37.2732 

37.2733 

37,273A 

a oooA  0 
3 7767  0 
5A  015  I 

RUPTCHK 
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37T2T35“ 

o-croos  1 

05A7 
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.4 
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37,2736 

6 0027  I 

05A8 
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30 

LAbl I0B7 

37,2737 

55,371  1 

RtF 

31 

LAS  1 loes 

37,27A0 

A 1371  1 
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0550 

RFF 

5 

LaSI 10B8 

37,27Al 

6 0027  1 

0551 

37,27A2 

0 0006  I 

0552 

RfF 

1 

37,27A3 

1 27A0  1 

0553 

37,27AA 

0 OOOA  0 

055A 

REF 

2 

Last iobb 

37,27A5 

3 0015  0 

0555 

37,27A6 

O 0006  1 

0556 

. 37,27A7 

1 2751  1 

0557 

Ref 

I 

37,2750 

0 2732  0 

13 

L/'ST  10(5  ( 

3T,2751 

3 7763  1 

0559 

Ref 

I2b 

LASI107A 

37,2752 

0 5663  1 

0560 

REF 

67 

Last  1077 

E3 

“056 1 

37,2753 

027TC  0 

C0561 

ref 

I 

37,275A 

76063  0 

0562 

REF 

lA 

LAST  1086 

37,2755 

3 3505  1 

37*2756 

6 20r2-0" 

056A 

37,2757 

0 0003  1 

0565 

RfF 

A23 

LASI I0B8 

37,2760 

4 0000  0 

WAIT 

L7'  si  1 0B8 

3 ^ * 2 f 6 1 

It)  00c  0 

0567 

RLF 

1 

37,2762 

0 2766  1 

056B 

REF 

1 

37,2763 

02772  1 

RUPTCON 

ref 

6 

LaSI 10b7 

if  * 2 { 

6 7762  0 

INHINT  " " " “ “ 

LA  S+ZERO 

lb  ZRUPI 

RELINT 

AO  TIMEA 

lb  bKEEPI 

Lb  SKEtPI ^ 

AO  timea  waii  for  next  tinea  increment 

EX  I END 

BZF TENMb  — 

INHINT 

CA  ZRUPT 

EXIENO  

bZF  *2  NO  INTERRUPT. 

1C  RUPTCHK  there  WAS  AN  INTERRUPI,  START  AGAIN, 

CAF  S,1  2 1/2  MS- UNTIE-E- NEXT  13  INTERRUPT. 

1C  WAITLISl 

EBANK=  LSTI 

-2CA0R-  “TSKAORS- 

CA  b.MAX 

AO  OVCON  CON  I ROUS  TIME  SPEtlT  IN  OF-UF  LOUP 

RELINT 

Cb  A 

Ctb ^ - - — 

1C  INHNTCHK 

ADREb  C(BRUPT) 

HO b«2 
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0570 
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1C 

WAIT 
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37.2766 
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I NHNT  CHK 

INFHINT 

13  RUPT  SHOULD  B E^  WAIT mCT 

0572 

RtF 

4 

LA5T1089 

37,276  7 

55'375  0 

IS 

SKEEP5 

0573 

REF 

92 

EASI 1088 

37,2770 

0 2033  0 

1C 

ERRORS 

057A^ 

37,2771 

0 0003  I 

KtLlN I 

0575 

REF 

3 

Last i088 

37,2772 

9 0015  1 

UBRUPT  ) 

cs 

2RUPI 

interrupt  should  happen  here 

0&76 

37,2773 

0 0006  1 

tXIENO 

0^77 

37,2779 

1 3002  1 

tJZF 

+ 6 

MAKES  SURE  ATT  INTERRUPT"  BID  OCCUR 

057b 

REF 

z 

LASU079 

37,2775 

0 3003  1 

IC 

IN-UUf 1 

AN  interrupt,  end  OF  KUFTCHK 

0b79 

ref 

4 

LAST1089 

37,2776 

9 0015  1 

TSKADKS 

LS 

2RUPI 

05^0 

RfT 

■1 

37,2777 

6 2763  1 

AD 

RUPTCON 

05bl 

REF 

23 

LAST  1088 

37,3000 

0 2056  0 

IC 

-ICHX 

0582 

REF 

125 

LAST1079 

37,3001 

0 5727  0 

IC 

lASXOVER 

05825 

re:f 

43 

LaST1089 

37,3002 

0 2033  0 

TC 

ERRORS 

NO  INTERRUPT 

R0583 

IN-OUTl 

ChEUAS  all 

PULSES  OF 

WRITE  and 

KtAEI 

058A 

RfF 

4 

LAST  108  1 

37,3003 

3 7771  1 

IN-OUT  1 

CA 

5-1 

0585 

37.3009 

0 0006  1 

WRITECHK 

tXIEND 

0586 

REF 
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LAS  1 1088 

37,3005 

01  002  1 

wRl  It 

0 

0587 

REF 

360 

LAS  1 1089 

37  *3006 

22  002  0 

LXCH 

Q 

RUT  C(Q)  IN  L ' ' 

0588 

REF 

LAST1089 

37,3007 

0 2056  0 

IC 

-ICHX 

0589 

37,3010 

0 0006  1 

READC.HK 

tXIEND 

CIU  F 77776 

0590 

RFF 

224 

EASI 1088 

3 / * 30  1 i 

00  001  0 

READ 

L 

0591  ■ 

REF 

25 

Last 1089 

37,3012 

0 2056  0 

IC 

-ICHX 

0592 

RfF 

225 

LAST1089 

37,3013 

3 0001  0 

CA 

L 

0593 

REF 

26 

Las  1 1089 

37,3019 

0 2056  0 

1 c 

-ICHX 

R059A 
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PULSES  OF 
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0595 
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4 

Last  1084 

37*3015 
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iD-utri  z 

vs 

5+3 

0596 

RfF 
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Last  1089 

37,3016 

59  001  1 

RORCHK 

IS 

L 

77779 

0597 

REF 

6 

EASI 1086 

37,3017 

3 2013  1 

CA 

DVCON 

37776 

0598 

3 r *3020 

"~D  TI0O6  1 

tXIEND 
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Rff 
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Las  1 1089 

37,3021 

09  001  1 

KDK 

U 

i ROR,  -1 

0600 

REF 

27 

LAST1089 

37,3022 

0 2056  0 

IC 

-ICHX 

060 1 

ret 

LAST1089 

37,3023 

3 2013  1 

WORCFIK 

CA 

DVCON 

CIU  STILL  77779 

0602 

37,3029 

0 0006  1 
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0603 

RfF 

228 

LaSI  1089. 

37,3025 

05  001  0 
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L 

* WDR,  -1 

REF 

28 

37  *3026 

U 2056  U 

1 C 

-ICHX 
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REF 
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EASI 1089 

37,3027 
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CA 

L 

0606 

RfF 

29 

LAST  1089 

37,3030 

0 2056  0 

IC 

-ICHX 

R0607 

IN-0UT3 
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PULSES  OF 
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, AND  KXOR 

0608 

REF 

8 

Last  1089 

37,3031 

9 2013  0 
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cs 

DVCON 
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54  001  1 
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L 
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0610 

REF 

3 

EASI 10b5 

37,3033 
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CA 

S13B1TS 

17777 

0611 

37,3039 

0 0006  1 
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KAMD 

L 
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0613 

REF 

23 

LaSI 1088 

37,3036 

0 2055  0 
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0619 
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4 
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03  001 

0 
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RFF 

2^ 
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37.3092 
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0 
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0618 

R£F 

2 

LA5T1082 

37.3093 
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0 

cs 

5*5 

0619 

REF 

233 

LaSI 1090 

37.3099 

56  001 

0 

ACH 
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WiT 

2S 

LAS  1 1090 

■ 37.3D9S 

0 2053 

0 
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♦ 

0621 

REF 

1 

37.3096 
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1 
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5*6 

0622 

37.3091 

0 0006 

1 

EXTEND 

0623 

■ REF 
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LaS 1 1090 

37.3050 , 
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a 
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062A 

REF 

7 

LaSI 1088 

37.3051 

6 7762 

0 

AD 

S*2 

0625 

REF 

30 

LASI 1089 

37.3052 

0 2056 

0 

1C 
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0 
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RFF 
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37.3059 

6 7761 
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37.3055 

0 2056 

0 
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-ICHK 

0629 

ref 

3 
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37.3056 

0 2069 

1 

1C 

SMODECHK 

R0630  COONTCHK  COUNTS  UP  lA  BIT  NUMBER  WITH  SION. 
R0631  takes  approximately  B.7  SECONDS. 

R0632  »*  pur  IN  CCS  NEWJOB  FOR  ROPE. 
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0635 
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REF  361 
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37.3063 
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Q 

0638 
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1 
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0639 
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Las  1 1090 

37.3065 
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ref  925 

LAST1088 

37.3066 
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0 
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A 

0691 

REF  1 

37.3067 
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0 

1C 
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06f  2 

REF  1 

37.3070 
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0 
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ENDCUUNI 
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55*376 
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SKEEP6 

0699 

REF  5 

LASI 1080 
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0 
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REF  32 
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0 
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0696 

REF  6 
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0699 

REF  33 
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37.3077 

0 2056 

0 

1C 

-ICHK 

0650 

RfF  3 
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37.3100 
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1 

IC 

CHECKNJ 
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RpF  12 

LaSI 1090 

37 .3101 

9 1376 

0 

CS 

SKEEP6 

0652 

ref  2 

LASI 1090 

37.3102 

0 3063 

1 

IC 
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0653 

REF  7 

LaSI 1090 
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3 1377 

0 
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SKEEP7 

06^^ 

"RFF  13 
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37.3109 

6 1376 

1 

AD  " 

SKEEP6 

0655 

REF  7 
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37.3105 

0 2050 

0 

IC 

-OCHK 

R0656 

O-OFEOW 
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overflow 

AND  UNDERFLOW  NUMBERS, 

— 
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10.8  SECONDS 
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ref  2 
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37.3106 

3 3506 

1 

0-UFLOW  £A 

S-MAX 

0659 

RrF  5 

LAST 10B9 

37.3107 
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0 

lb 

“SKEEPS 

0660 

RfF  926 
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37.3110 

A 0000 

0 
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A 
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363  LASI 1091 

37,3115 

10  002 

1 

CCS 

0 

0666 

REF 

1 

37,3116 

0 3133 

0 

1C 

-NMBRS 

(7667 

REF 

A9  LASU069 

37,3’117 

0 2033  0 

IX" 

ERRORS 

CAN  PUT  TN  CONSTANT 

0668 

REF 

8 LASllOttT 

37,3120 

55*373 

0 

1 b 

5KEEP3 

0669 

RfF 

95  LAST1091 

37,3121 

0 2033 

0 

IC 

ERRORS 

0670 

9 XAST1091 

37,3122 

3 1373 

1 

CA 

SKEEP3 

0671 

RfF 

6 LAbl 1090 

37,3123 

6 1375 

1 

AO 

5KEEP5 

0672 

REF 

39  LASI 1090 

37.3129 

0 2056 

0 

IC 

-ICHK 

0673 

37,3125 

0 0003 

1 

KtLlNT 

0679 

REF 

9 LASI 1090 

37,3126 

0 5605 

1 

IC 

CHECKNJ 

CHECK  FOR  NEW  JOB 

0675 

REF 

6 LAST1085 

37,3127 

3 1379 

0 

LA 

SKEEP9 

0S76~ 

37T3T3TT  XT^aODX 

i 

fcXItNO 

0677 

REF  ■ 

7 LAST1091 

37,3131 

27'375 

0 

DIM 

bKEtP5 

0678 

rff  , 

1 

37,3132 

0 3111 

0 

IC 

OFLOOP 

0679 

RfF 

7 Last i09i 

37,3133 

55  * 37^ 

1 

•NMBRS 

\ b 

5KFEP9 

0680 

REF 

i 

37,3139 

0 3199 

0 

IC 

ENDOFUF 

06Bl  • 

RfF 

8 UAST1091 

37,3135 

3 1379 

0 

OA 

SKEEP9 

068<i 

REF 

8 LAST  1091 

37,3136 

6 137s 

1 

AO 

SKEEP5 

0683 

Rff 

35  LA5T1091 

37,3137 

0 2056 

0 

IC 

-ICHK 

0689 

REF 

9 LAST1091 

37,3190 

3 1375 

1 

(.A 

SKEEP5 

0685 

RrF 

3 UASl 1090 

i ^ dihi 

6 3506 

I 

AO 

b»MAA 

0686 

RfF 

5 LASI 1089 

37,3192 

6 7771 

1 

AD 

S-l 

0687 

REF 

2 LAST1091 

37,3193 

0 3119 

0 

IC 

□FLOOP  ♦S 

0688 

ref 

10  L A S 1 1 0 9 1 

37,3199 

3 1375 

1 

ENDOFUI- 

CA 

SKEEP5 

0689 

Rff 

8 LAST1090 

37,3195 

0 2050 

0 

IC 

-OCHK 

0690 

RfF 

9 LASI 1091 

37,3196 

9 1379 

1 

cs 

SKEEP9 

0691 

RfF 

9 Last ioe9 

37,3197 

6 2013 

1 



DVCON 

0692 

REF 

36  LASI 1091 

37,3150 

0 2056 

0 

IC 

-ICHK 

0693 

37,3151 

0 0003 

1 

KELINT 

069^ 

REF 

9 Last  1090 

37,3152 

0 2069 

1 

IC 

smodechk 

R069^ 

MULi^b  LUWtbT  OF  TWO  AUORESSEb 

BEING  GHE'-KtO. 

K0696  . 

5KEEP6  HOLOS  B(X+1) 

K0697 

5KEEP5  HOLOS  B(X). 

K^069B 

'-umrcjuo  Jr  roUN«6W i 1 v-nADLt  EKM6Mt5Lt  rltnUKY  WllM 

R0699 

bank 

NUMBfKS  IN  tb, 

R0700 

SKEEP3  HOlOS  UASl  AOPRESS  BEING  CHECKEO 

IHIGHESI 

ADURtSS) . 

ffD7T71 

nuLU'i  v..ltDAN^/  UUKiINo 

LME'wFNJ 

R0702 

ERASCHK  TAKES  APPROXIMATELY  7 

SECONDS 

0703 

REF 

15  La5T1091 

37,3153 

3 7763 

1 

ERASCHK 

GA 

S*1 

REF 

iU  LAb 1 1U91 

37  * 31 5A 

55*  379 

1 

1 b 

SKEEP9 

0705 

REF 

7 LAST  1088 

37,3155 

3 7767 

0 

OEBANK 

GA 

S+ZERU 

0706 

REF 

72  LASI 1090 

37,3156 

54  003 

0 

IS 

EBANK 

REF 

1 

3 ^ t b i b r 

3 2009 

1 ■ 

GA 

ERASC0N3 

01961 

0708 

Ref 

8 LASI 1090 

37,3160 

55<37  T 

1 

IS 

SKEEPT 

SIAKTiNG  ADDRESS 

0709 

REF 

1 

37,3161 

3 5337 

0 

GA 

SIOBITS 

017  17 

ref 

10  LASTIO9I 

37,3162 

55'373 

n 

|-S 

- SKEEP3 

LAS  1 ADDRESS  X-HFCKED 
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L “ ‘ AGO  block  two  self-check 


-TJStR^rS  OWfT  FWJEnTTT. T8 S3  E3 


0711 

REF 

1 

37,3163 

0 3203 

0 

1C 

ERASLUOP 

0712 

REF 

1 

37,3169 

3 2003 

0 

E13956/B 

(.A 

ERASC0N6 

01 900 

0713 

Ref 

9 

LAST1091 

37,3165 

55'37/ 

1 

IS 

SKEEP/ 

STARTING  ADUKESS 

- ' 071A 

REF 

2 

LAST  1091 

37,3166 

3 5337 

0 

tA 

blOb 1 TS 

017^7 

0715 

REF 

11 

LASU091 

37.3167 

55>373 

0 

IS 

SKEEP3 

LASI  ADDRESS  CHECKED 

0716 

REF 

2 

LAST  1092 

37,3170 

0 3203 

0 

1C 

ERASLUOP 

0717 

ReF 

2 

LAST1092 

37,3171 

3 2003 

0 

2EBANK 

CA 

ERASCUNb 

01900 

0718 

REF 

10 

LAST1092 

37,3172 

55'377 

1 

IS 

SKEEP/ 

STARTING  ADDRESS 

" 071^ 

REF 

1 

37,3173 

3 2005 

0 

^A 

ERASCON9 

0720 

REF 

12 

LAST1092 

37,3179 

55*373 

0 

IS 

SkEEp3 

LAST  ADDRESS  CHECKED 

0721 

REF 

3 

LASI 1092 

37,3175 

0 3203 

0 

1C 

ERASLUOP 

0722 

REF 

11 

last  1091 

37,3176 

55*379 

1 

NOEBANK 

IS 

SKEEP9 

+0 

0723 

REF 

1 

37,3177 

3 2001 

1 

LA 

ERASCONl 

00061 

072A 

1 1 

LASI 1092 

37,3200 

55 • 377 

1 

1 5 

skeept 

SJAKIIIN^  ADUREbS~ 

0725 

REF 

I 

37,3201 

3 2002 

1 

LA 

ERASC0N2 

013  79 

0726 

REF 

13 

LaS.I  1092 

37,3202 

55*373 

0 

IS 

SKEEP3 

LAST  ADDRESS  CHECKED 

07  2 7 

37,3203 

0 0004 

0 

ERASLUOP 

INHINT 

0728 

37,3209 

0 0006 

1 

EX  1 end 

072^ 

RfF 

12 

LASI 1092 

37,3205 

5 1377 

0 

N17X 

SKEEP7 

073.0 

37,3206 

3 0001 

0 

UCA 

0000 

0^31 

REF 

11 

LAST1091 

37,3207 

53*376 

0 

UXCH 

SKEEP5 

STORES  C(X)  AND  C(X+1)  IN  SKEEP6  AND  5. 

0732 

REF 

13 

Last  1092 

37,3210 

3 1 i f f 

0 

LA 

SKEEP7  " 

■ 0733 

ref 

5 

LaSI 1078 

37,3211 

55*353 

1 

IS 

ERESIOPb 

IF  RESTART,  RESTORE  CIX)  AND  C(X,1) 

073L 

Ref 

238 

LAST  1090 

37,3212 

59  001 

1 

1 s 

L 

0735 

ref 

239 

LAST  1092 

8^*321:^ 

29  001 

0 

L 

0736 

REF 

927 

last  1090 

37,3219 

50  000 

1 

NOA 

A 

0737 

37,3215 

52  001 

1 

UXCH 

0000 

PUTS  OWN  ADDRESS  IN  X AND  X +1 

0/38 

RfF 

14 

LaS] 1092 

37  *32  1 6 

51*377 

0 

NUX 

SKEEP7 

0739 

37,3217 

9 0001 

1 

LS 

0001 

CS  X+1 

0790 

REF 

15 

last  1092 

37,3220 

51*377 

0 

NUx 

SkEEP/ 

o?irl 

3 / 1 322 1 

6 UUUU 

1 

AO 

0000 

Ai;  A 

0792 

REF 

37 

LAST  1091 

37,3222 

0 2056 

0 

IC 

-ICHK 

07921 

REF 

6 

Last  1092 

37,3223 

3 1353 

0 

LA 

ERESrORE 

HAS  erasable  been  RESTORED 

07422 

37,32ZA 

0^0006” 

"1 

tX*FfcNt> 

07923 

REF 

1 

37,3225 

1 3251 

0 

B/F 

ELOOPFIN 

YES,  EXIT  ERASLOOP. 

0793 

37,3226 

0 0006 

1 

tXlENU 

6 

37,3227 

5 137  ^ 

INOA  ■ 

SKEEPr 

0/95 

37,3230 

9 0001 

1 

OCb 

0000 

COMPLEMENT  OF  ADDRESS  OF  X AND  X*1 

0/96 

ReF 

17 

Last  1092 

37,3231 

51*377 

0 

NOA 

SKEEP/ 

3 f *3232 

52  00 1 

1' 

UALH 

0000 

PUT  COMPL‘EMEN+"OF  ' address  OF  X AND  X+l 

0798 

REF 

18 

lasi 1092 

37,3233 

51*37/ 

0 

NUX 

SkEEp/ 

0799 

37,3239 

9 0000 

0 

CS 

0000 

CS  X 

I9 

37.S235 

5 1 ' 377 

(NO  A- 

^K^EPr' 

0751 

37,3236 

6 0001 

0 

AU 

0001 

AD  A+l 

0752 

REF 

38 

LAST  1092 

37,323  / 

0 2056 

0 

IL 

-ICHK 

7 

37,3290 

3 1353 

0 

ERESIURE 

HAS  ERASABLE  BEEN  RESTORED 
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L 

AGC 

BLOCK  )V»3  SELF-CHECK 

USER *5  0WN"PAGT  no.  ^9  S3  E3 

07522 

37.3241 

0 0006 

1 

EXIEND 

07  523 

RLF 

2 

LA5T1092 

37,3242 

I 3251 

0 

“b■Z^ 

"ELOOPFITT 

YES,  EXIT  EFTASLODP, 

0753 

37.3243 

0 0006 

1 

EXIEND 

075A 

REF 

12 

LASI 1092 

37,3244 

3 1376 

1 

OLA 

5KEEP5 

0755 

RfT 

20 

L/'571092 

37,3245 

51T37  T 

0 

NDX 

SKEEPT 

0766 

37,3246 

52  001 

1 

UXLH 

0000 

PUT  BIX)  AND  bIX+l)  BACK  INTO  X AND  X+l 

0757 

REF 

8 

Labi  1091 

37,3247 

3 7767 

0 

LA 

S+ZERO 

0738 

REF" 

8 

LA'S  1 1092 

37,3250 

55  •353’ 

1 

1 5 

ERESTORE 

IF  RESTART,  "DO  "NOT  RESTORE  CIX),  C(X+U 

0759 

37,3251 

0 0003 

1 

ELOOPFIN 

RELINT 

0760 

REF 

73 

LaSI 1091 

37,3252 

3 0003 

1 

CA 

EBANK 

STORES  C(EBANK) 

U76  i 

RFF 

10 

LA5T1086 

37,3253 

55*372 

1 

1 5 

5KEEP2 

0762 

Rff 

5 

L7'iSU09i 

37,3254 

0 5605 

1 

K 

CHECKNJ 

CHECK  FOR  NEW  JOB 

0763 

REF 

n 

LAST  1093 

37,3255 

3 1372 

0 

LA 

5kEEp2 

replaces  B(EbANK) 

076A 

REF 

LA5T1093 

37.3256 

54  003 

0 

1 5 

EBANK 

0765 

RfF 

21 

LASI 1093 

37,3257 

25*377 

0 

iNLK 

SKEEPY 

0766 

REF 

22 

LASU093 

37,3260 

4 1377 

1 

Lb 

SKEEPT 

U767 

RfF 

14 

LAST  1092 

37,3261 

6 1373 

1 

AO 

SKEEPS 

0768 

37,3262 

0 0006 

1 

EXIEND 

0769 

37,3263 

1 3265 

1 

B2F 

♦ 2 

0770 

RLF 

4 

LAST7092 

37,3264 

0 3203 

0 

]C 

ERASLOOP 

GO  10  NEXT  ADDRESS  ITT"  SAME  BANK 

0771 

REF 

12 

LA5T1092 

37,3265 

11*374 

1 

CCS 

SKEEP4 

0772 

REF 

1 

37,3266 

0 3176 

1 

1C 

NOEBANK 

0773 

REF 

13 

last  1093 

37,3267 

25*374 

0 

INCR  " 

SKEEP4 

PUT  +I  T^rr^EETJA" 

077A 

REF 

75 

LASI 1093 

37.3270 

3 0003 

1 

LA 

EBANK 

0775 

ref 

2 

LASI 1080 

37,3271 

6 7753 

I 

AO 

SBI  19 

0776  ' 

RlF 

^6 

LAST  1093 

37,3272 

54  003 

0 

1 b 

EBANK 

0777 

REF 

1 

37,3273 

6 2015 

1 

AD 

ERASCUN5 

767 T7,  CHECK  FOR  BANK  E2 

0778 

37,3274 

0 0006 

1 

EXIEND 

07T9 

REF 

1 

37,3275 

1 3171 

1 

BZh 

StBANK — 

0780 

REF 

7 1 

Last  1093 

37,3276 

10  003 

0 

LCb 

EBANK 

0781 

ref 

1 

37,3277 

0 3164 

1 

IC 

E134567B 

GO  10  EBANKS  1,3,4, 5, 6,  AND  7 

7)782 

REF 

3 

Last  1092 

37,3300 

3 2003 

0 

LA 

LKAbLUN6 

END  OF  ERASCHK 

0783 

REF 

78 

LAST1093 

37,3301 

54  003 

0 

IS 

EBANK 

R078A 

cntrghk 

Performs 

A 

CS  OF  ALL 

registers 

from  OCT, 

60  through  OCT.  10. 

R0Tff5~ 

“iNCLOtJEO  aRe  ALL 

COONTERS",  tb 

4r,  CYCLE 

AND  SHI F T 

, AND  all  RUPT  registers  - - 

0786 

REF 

1 

37,3302 

3 2000 

0 

CNTRCHK 

CA 

CNTKLON 

00050 

0787 

REF 

12 

LAST1093 

37,3303 

55*372 

1 

CNTRLOOP 

1 s 

SKEEP2 

RLF 

1 

37  *3304 

6 7 760 

1 

AO 

SBII4 

+ 10  OCTAL  " 

.0789 

REF 

A28 

last  1092 

37,3305 

50  000 

1 

INDEX 

A 

0790 

37,3306 

4 0000 

0 

Lb 

0000 

REF 

13 

3^*330^ 

11*372 

I 

LCb 

SKEEP2 

0792 

REF 

1 

37,3310 

0 3303 

1 

IC 

CNTRLOOP 

RO 

v.Y'*>i-0nri  tntwKo 

|H£ 

CYCLE  AND 

bHif-T  KEt)IbTEK5 

079A 

REF 

1 

37,3311 

3 2011 

0 

CYCL5HF 1 

LA 

CONC+Sl 

25252 

0795 

REF 

48 

last  1042 

37,3312 

54  020 

1 

IS 

CYR 

C(CYR)  = 12525 

RfF 

L abT 1031 

37,331s 

54  022 

0 

f b'  ■ ■ 

CYt 

C(CYL)  =52524  " 

0797 

RFF 

50 

LAST1081 

37,3314 

54  021 

0 

IS 

bR 

CISR)  = 12525 

0798 

REF 

6 

LAST  954 

37,3315 

54  023 

1 

lb 

EDOP 

CIEDOP)  = 00125 

49 

3 ^ f 3 3 1 6 

6 UU20 

0 

-AO’ 

C YR  - - - 

377 T7  CICYR)  = 45252 

633A36A 

YUL 

system  for  AUC! 

REVISION 

0 OF  PROOKAM 

burst  120  BY 

NASA  -2021106-031 

- ■ "DEC -7,  1967  (MAIN) 

PAGE109A  - - 

L 

AC,C 

block  two  self- 

•CHECK 

USER’S  OWN  PAGE  NO.  20 

S3  E3 

0800 

ref 

22  LASIIO93 

37,3317 

6 0022  1 

AO 

CYL 

00-1252A  C(CYL)  = 25251 

080T 

REF 

51  last  1093 

37,3320 

6 0"021  1 

AO 

SR 

^ ( SH ^ - U52  52 

0B02 

REF 

7 LAST1093 

37,3321 

6 0023  0 

AD 

EDOP 

00-25376  C(EDOP)  i +0 

0803 

REF 

1 

37,3322 

6 201A  0 

ad 

C0NC+S2 

C(CUNC'*S2)  = 52A00 

"080a 

REF 

39  LA3I-UI92  - 

3713323 

0 E05  6 0 

1 c 

-ICHK 

0808 

RfF 

SO  Last  1093 

37,332A 

6 0020  0 

AD 

CYR 

A5252 

0806 

REF 

23  LAST109A 

37,3325 

6 0022  1 

AO 

CYL 

72523 

0807 

-REF 

5Z  LaSI 109^ 

37  *3326 

6 0021  1 

AO 

SR 

11115 

0808 

REF 

8 LASI 109A 

37,3327 

6 0023  0 

AO 

EDOP 

77775 

0809 

RFF 

16  LASUO9I 

37,3330 

6 7763  1 

AO 

SaI 

11116 

0810 

RET 

AO  LAS  1 109A 

3 f t 33.5  !■ 

0 2056  0 

1 c 

-ICHK 

0811 

REF 

3 LAST  1079 

37,3332 

25'367  1 

INCH 

SCOUNT  +1 

0812 

REF 

5 LA5T1091 

3 / f 3333 

0 206A  1 

1 c 

SMODECHK 

0813 

REF 

2 LASI1079 

37,333A 

0 33A0  0 

1C 

ROPECHK 

K081S 

K08i6 

«OeiT 

K0818 

K0819 

ffasztr 

K0821 

K0BZ2 

K0823 


"SHEtPl  HOLDS  50M 

SKtfcPi  H0LD8  PKE8ENT  CONTENTS  OF  AL^DRESS  IN  KOPeCHU  AND  SHOWSUM  ROUTINES 
SICEEP2  HOLDS  BANS  NUMBER  IN  LOW  ORDER  BITS  DURINU  SHuWbUM  DISPLAY 
SICEEP3  HULU5  present  address  (00000  TO  01777  IN  COMMON  FIXED  BANXb) 

(OAOOO  TO  0T777  IN  FXFX  BANKS) 

5KEEP3  HOLDS  BU(50ER  WORD  DURING  SHOWSUM  DISPLAY 

SXEEPA  holds  bank  NUMBER  and  super  bank  number-  “ - 

SkEEPS  counts  2 SUCCESSIVE  1C  SELF  WORDS 
SKEEPb  controls  ROPECHK  OR  SHOWSUM  OPTION 

SKEEP7  CONTROLS  WHEN  ROUNTINE  IS  IN  COMMON  F I XeD  UR-  F IXED  F 1 XeD  BANKS 


082A 

REF 

3 

LAST  A22 

37,3335 

0 A632 

1 

stshdsum 

1C 

GRABDSP 

0825 

REF 

3 

Last  a2z 

3 f « 3 336 

0 A637 

1 

rc" 

TREGbST 

0826 

37,3337 

0 33A2 

1 

IC 

♦3 

0827 

REF 

2 

LaSI 1085 

37,33A0 

3 7770 

0 

ROPECHK 

LA 

S-ZERO 

0828 

RrF 

X A 

37,33A1 

55'376 

0 

1 5 

SKEEH6 

ROPECHK  OPTION 

0629 

REF 

9 

LAST  1093 

37,33A2 

3 7767 

0 

LA 

S+ZERO 

0830 

REF 

lA 

LAST1093 

37,33A3 

55'37A 

1 

IS 

skeepa 

bank  number 

RpF 

X7 

L/'SI  X09A 

37 ,33AA 

3 T763 

1 

LA 

6 + 1 

0832 

REF 

23 

last  1093 

37,33A5 

55*377 

1 

COMMFX 

IS 

skeep? 

0833 

REF 

10 

LAST 109A 

31,33‘tb 

3 7767 

0 

CA 

S+ZERU 

l_  A 0 1 X 0 8 

31 ,33A7 

55  * 37  X 

1 

1 s 

SKEEPl 

0835 

REF 

15 

LASI 1093 

37,3350 

55*373 

0 

IS 

SKEEP3 

0836 

ref 

X6 

LaSI 109A 

37,3351 

3 7763 

1 

LA 

S + 1 

RfF 

37  f 3352 

55  * 375 

IS 

SKEEPS 

eOUlYT-S  iJOWN  2-  1 C StLF  WORDS 

0838 

REF 

15 

LAST109A 

37,3353 

3 137A 

0 

COMADRS 

CA 

skeepa 

0839 

REF 

ZAO 

LASI 1092 

37,335A 

5A  001 

1 

IS 

L 

TO  SET  SUPER  DANK 

REF 

Last  Z'BO 

37*3355 

7 A560 

1 

MASK 

H 1 5 

08A1 

REF 

16 

last 109A 

37,3356 

6 1373 

1 

AO 

SKEEP3 

08A2 

REF 

1 

37,335  7 

0 52A5 

1 

IC 

SUPDACAL 

SUPER  DATA  CALL 

RtF 

37T338tO- 

0 3A0 J 

~i"C 

— AfDSOM 

08AA 

REF 

1 

37,3361 

6 7751 

0 

AO 

SBITll 

02000 

08A5 

REF 

1 

37,3362 

0 3A1A 

0 

1 c 

adrschk 

0 


c 
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L 

agc 

BLOCX  TWO  SELF 

-CHECK 

USER'S  CRN  page  NO.  21  S3  E3 
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F 

■ 

SYMBOL  H 
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ReFeReNLeB 

F 

symbol  h 

DeF INI T IUN 

REFeReNCeB 

F 

ADROFSER 

36.2SA3 

751 

3 

7Al 

797 

■ 

■ 

ALFLT 

35,;;1e2 

^5A 

1 

953 

alwaysg 

35*2532 

959 

2 955 

959 

ADRPCHNz 

AI73 

B2 

1 

82 

m 

ALgURIHM 

21,3101 

597 

1 

596 

ALxlS 

E5.1600 

46 

6 452 

470 

s 

^7.?UT7 

1077 

, 3i08ilU97 

m 

ALICP 

1 

456 

ALaAA2 

35^^T6  470 

■ r 952 

ADRS+l 

3 T.3AA0 

1095 

• 

. 

. 

■ 

ALINTIME 

11  t23U2 

2O9 

1 

200 

AM 

E3,1692 

32 

4 647 

666 

AURSCHX 

it, 3‘ii‘i 

10V5 

210991095 

■ 

ALK 

E5, i6U2 

A6 

7 

455 

961 

= 

AMEMORY 

E9.1900 

39 

127  39 

766 

. " AUb 

Z2 ,3>63 

905 

A 

88A 

898 

5 

■ 

ALnCeZ 

35  * 2 1 r3 

1 

454 

A*'<gURE'AD 

10,27t3 

189 

• — 

• 

ADSRAX 

E3, 1A5Z 

6i 

2 

296 

662 

■ 

ALXCG 

35,2170 

A5A 

. 

. 

- 

ANGLTIME 

39*3979 

667 

1 666 

AUbRAY 

E3,1A53 

31 

1 

86Z 

• 

ALXLP 

35i22bA 

*♦56 

1 

456 

ANGX 

E5,l639 

96 

4 45  7 

961 

= 

ADSRAZ 

E3i1A5A 

31 

1 

Bb2 

ALL+XJTS 

17 *25  76 

5 31 

" 

“ 

“ 

AFfGY 

E5  *T 6 TZ~ 

46 

r 959 

461 

X 

AUbUM 

37.3A03 

1095 

2109A1095 

« 

ALLCOASl 

20,2127 

^77 

3 

9Bl 

515 

ANez 

85  * 1626 

96 

3 959 

961 

; 

AUl TFNU 

22,2216 

bbO 

5 

876 

877 

■ 

ALLDC/OC 

05*26  /6 

268 

2 

266 

ANNNNNN 

35,2770 

965 

2 452 

460 

ADUM 

UU4U 

37 

3 

89  1 

903 

= 

ALLDONE 

12*22/3 

ill 

2 

110 

ANYTRANS 

0071 

T7 

5 528 

559 

s 

ADVAN 

1060 

. 

. 

■ 

ALLOOPl 

35,2071 

A53 

1 

68 

AUFC 

26,2516 

327 

1 321 

AFC 

EA. IB5A 

37 

2 

37 

886 

= 

■ 

ALL00R3 

35*2065 

^53 

- 

- 

- 
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7757 

979 

2 501 

= 
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2^ f ^570 

886 

2 

893 

899 

II 

ALLOOP 

35  *2062 

H53 

1 

464 

" ausgount 

t6  *1/32 

50 

T 977 

58b 

Af-LS 

EA,lbA6 

37 

a 

37 

899 

= 

■ 

ALUREAD 

1U*26‘»U 

IB  7 

1 

IBB 

ausnext 

16,3791 

517 

1 517 

AFLITE 

22^3^5^ 

9O5 

1 

895 

■ 

ALLRJEIS 

20,2567 

562 

1 

561 

AUSU 

E6,l660 

55 

20  55 

625 

Af-  I RtSEY 

12*3172 

t>70 

“ 

“ 

- 

ALMCADR 

bo 

8 

29310  » 0 

- 

ausqterm 

1 6 * 1 6"6  4 

55 

9 55 

609 

AFTRIM 

22,3b60 

905 

1 

895 

■ 

ALMOSTl 

32,3126 

925 

1 

925 

AUSR 

E6,1661 

55 

8 539 

625 

s 

AFTRUTAd 

17.3733 

551 

1 

551 

■ 

ALM/END 

11,2066 

201 

7 

200 

211 

AUSRTERM 

E6,l665 

55 

3 516 

609 

= 

A F T T CO" 

32i2*t~f'2 

9l8 

1 

918 

ALOAD 

05  * 2620 

267 

1 

2^52 

AUSTA3K 

■2Q*32^5 

^507 

1 518 

AFULLCj 

22.3S50 

905 

1 

899 

■ 

ALPHAM 

E9 , 1559 

3A 

11 

777 

790 

AUSU 

L6  * 166^ 

55 

1 609 

X 

AeSMON 

30,2251 

H22 

~ 

- 

- 

= 

• 

ALPHAu 

E6.1917 

49 

7 

988 

639 

= 

AUSy 

E6.1663 

55 

1 609 

= 

bb02 

967 

1 

96  7 

• 

ALPHAK 

b.6  * 1^21 

49 

4 

337 

592 

- 

AUTANGCK 

14  *3605' 

■ 407 

1 210 

AIMED 

^20 

1 

920 

■ 

ALPHAV 

E9.1962 

34 

19 

/84 

796 

= 

AUTAZ 

E3,1967 

31 

8 61 

166 

AIMER 

32.2P71 

919 

1 

918 

■ 

ALSK 

35.33^9 

4 (0 

1 

456 

AUTCADR 

0370 

23 

1 23 

X 

'62  *<i635 

920 

1 

920 

■ 

ALT 

0351 

26 

8 

109 

44O 

AUl  EL 

t3vr9T2“ 

-3I-- 

" r i6i 

■ AINGYRO 

3b,33W 

‘>70 

1 

A62 

■ 

ALTA 

27,2710 

r^‘t 

1 

729 

aotmark 

13,3005 

159 

2 383 

AINLA 

Eb , 1570 

AS 

3f 

A6 

= 

■ 

ALTASX 

19,352  7 

405 

2 

906 

AUTNB 

15,3119 

352 

2 383 

389 

^1 

3 

ALTb 

/25 

1 

AUTNBIMU 

T9  fZOOD 

380 

2 210 

39V 

A-b/UNLY 

17,3176 

SAO 

1 

592 

■ 

ALICALL 

3^*2226 

648 

1 

648 

AUTSM 

15,3291 

355 

. 

AKLOUP 

35,3521 

671 

1 

671 

■ 

ALTE 

39,3139 

662 

1 

662 

AUTSTALL 

13,2797 

157 

1 157 

67 1 

1 

6/1 

AL  T I M 

t'5  * 1 66^ 

46 

3 

453 

s 

apsemgon 

20  , ZTT5' 

979 

A 692 

756 

ALARM2 

A760 

3lA 

2 

3131078 

■ 

ALT  IMS 

E5,i665 

46 

2 

453 

454 

s 

apseoing 

7759 

979 

3 977 

620 

s 

ALARM 

A75B 

31A 

95 

99 

922 

■ 

ALTM 

0060 

13 

2 

109 

905 

= 

APSyEx 

30.3905 

847 

1 895 

922 

B 

ALl ME  1 

1^  * 35^7 

403 

406 

ARATE 

39 ,3969 

0 6’7 

y 666 

66  / 

ALARMS 

AI7 

5 

9l5 

922 

B 

altoui 

12*2152 

109 

• 

• 

ARCCOS 

00,3573 

1039 

1 969 

, ALBI lb 

1A,.365T 

AO9 

■ 1 

905 

B 

ALTRAIE 

0353 

23 

7 

109 

440 

ARCSIN 

00,3571 

1039 

1 969 

ALL  GK  K 

• 

•• 

— 

ALT  RME 1 

19,35  79 

406 

2 

903 

ARCS  FNH 

3^  ,^266 

ft37 

•> 

ALDK 

ti> « 1666 

A6 

3 

ASA 

A56 

s 

a 

ALIROUT 

12*2217 

110 

- 

- 

- 

ARCTRIG 

15,2976 

39z 

8 340 

907 

ALFDk 

35,3057 

A6  r 

1 

A5A 

B 

ALTSAvE 

0363 

23 

12 

109 

222 

AREARATE 

E5,1553 

92 

3 896 

= 

69 

AL T *R  • vtN 

1 1 *3100^ 

222 

1 

221 

-9 

ARGgO^ 

5911 

1096 

11096 

ALFLT2 

35,220A 

ASS 

1 

ASA 

B 

ALWAYS 

19,3519 

405 

1 

905 

B 

ARG* 

7335 

V86 

1 986 
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SYMBOL  H 

DeF INI  I ION 

ReFeReNCeS 

F 

SYMBOL  H 

DeF INI I lUN 

reference^ 

F ■ 

symbol  h 

DEHNIT  lUN 

RETERENCeS 

F 

ARGHl 

00*3AqU 

1030 

21031 

AVEMIOAD 

30*2^10 

626 

1 

826 

• 

BANK.JUMP 

5230 

998 

lA 

771041 

ARuLU 

0U,3<f5i 

1031 

11031 

AvLRAgEg 

30,2251 

823 

8 

b82 

824 

• 

bmnkmask 

6341 

961 

3 

961  974 

AKGZER02 

T3^ 

VBb 

1 

986 

“ATET'Om'O 

TJT  ,2116 

f Ob 

1 

82b 

BANKRUPT 

X)Cl-6' 

T2 

YZ  1091072 

s 

ARGZERO 

7353 

9b6 

1 

9B6 

AVGENADK 

33^2696 

707 

2 

702 

733 

• 

BANKSET 

0155 

21 

13 

9511056 

ARITH 

2A.2f3f 

A21 

3 

A21 

AVGENO 

3U*2366 

bZb 

1 

820 

ft 

BASVAC 

0002 

167 

7 

161 

= 

OYRMOSPOFr 

^viv 

315 

2 

315 

AVGtx 1 1 

2b 

T2 

65 

922 

Bb 

0006 

83 

5 

72  82 

z 

ARTHINSF 

Oa.3011 

272 

1 

271 

AVGOUIF 

10f4 

2b 

1 

26 

ft 

BBANK 

0006 

12 

33 

6OIO72 

s 

ARTOA 

iZ,Z30Z 

111 

1 

109 

AVGXTEMP 

t9,1905 

36 

9 

3b 

888 

s • 

BBANKSET 

20,2605 

562 

1 

562 

“AK1  OUTSP 

0**  * 

263 

1 

262 

AVMIDRIN 

• 163U 

90 

826 

6bbb 

1 5 1 *»V0 

1 

400 

ARUPT 

OOIO 

12 

11 

601072 

S 

AvOUTADR 

30,2124 

820 
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820 

ft 

BBBBBBBB 

27*2034 

676 

1 

676 

A5LALARM 

3Z,3001 

V22 

1 

9I6 

AVRAGEG7 

25,3013 

719 

1 

714 

ft 

tJBLOCK 

33*2624 

707 

1 

701 

- - ASCENT 

32  « ^ 1 2 ^ 

9l3 

5 

701 

924 

AWAY 

30*3505 

851 

1 

851 

BCDU 

E 3, 153  2 

' Z2 

7 

645  668 

ASCJUB 

20*3331 

621 

1 

620 

AXG 

01  >2633 

1038 

1 

963 

ft 

BDDV 

7635 

999 

2 

962  994 

ascpatcm 

32.305A 

924 

1 

916 

Axis 

E4,1640 

40 

11 

81  7 

840 

ft 

bdsu 

7127 

979 

1 

962 

ASC.RA  rt-C 

20^2313 

1 

479 

AXlSCNlR 

00b  1 

57 

7 

536 

538 

*■  • 

BbCOBB 

iQi  *?^"23 

“leiT" 

i7r  179 

ASCRET 

EA.1A50 

3a 

5 

700 

920 

S 

AXISD 

E4,1632 

90 

f 

702 

920 

■ 

BEG1N206 

35*3546 

869 

1 

88 

ASCTERM 

32*2660 

920 

1 

922 

AXiSFlLT 

30»2  ^99 

839 

- 

- 

- 

ft 

begincdu 

11*2530 

215 

2 

200  744 

AbC-UKGLW 

2U  « 23 1 1 

ABl 

I 

479 

AxISGLNT 

15,2  745 

398 

1 

398 

ft 

bllowi 

Ob  *265  f 

83 

1 

85 

ASFTtST 

21*3050 

596 

1 

596 

AXISGEN2 

13,2774 

348 

1 

399 

ft 

BEL0W2 

06*2674 

89 

2 

89 

ASINEX 

00,3670 

1035 

11034 

AXISGEN3 

13,3017 

399 

1 

399 

ft 

BEL0W3 

06*271D 

84 

1 

84 

ASVRT  " 

EA*l33z 

37 

5 f 

899 

s 

AXl3^bN 

15,2  741 

2 

9'2V 

BEL0W4 

tre  *z7i"3 

&9 

" 2 

- 89 

ASIbFMI 

26*2323 

328 

3 

321 

322 

AxlbRUTl 

15,2643 

345 

1 

343 

ft 

bestpcls 

20,2354 

555 

1 

556 

ASV.TVLON 

3b,2bl^ 

733 

1 

763 

AXiSRUI 

15,2601 

395 

b 

393 

399 

ft 

betam 

E4,1556 

34 

2 

785  787 

= 

38 

6 

701 

— 

AXT 

0 1 * 2b26 

1038 

1 

963 

BET  AV 

t9  * i960 

39 

9 

789  788 

ATMA(j4 

33*2657 

707 

1 

706 

A40 

E3, 1 736 

33 

1 

678 

ft 

BU1M21 

21  *3617 

632 

1 

632 

ATMAg 

32*3003 

923 

2 

707 

758 

AzANg 

E3,14  73 

31 

1 

300 

^ ft 

BG1M23 

16*2220 

491 

1 

490 

27  » 333^ 

^58 

756 

2 

678 

B^l W29 

1 r * 2^  1'9' 

“532 

2 

521  533 

ATMEAS 

Ea,1A30 

38 

5 

39 

911 

s 

AZIMUIH 

E3,1306 

99 

7 

38  7 

939 

ft 

BUIM 

21,3242 

599 

1 

599 

ATICADR 

0372 

23 

1 

98 

= 

A(X) 

0 r *3000 

/82 

1 

781 

ft 

BUIMBALS 

07,2075 

102 

1 

102 

i i 1 26  1 2~ 

216 

3 

216 

939 

BMI  Z 

01,2734 

1041 

— 

••  — 

AI ISTALl 

13,2  Ti,3 

i37 

6 

704 

765 

B12-1 

95b3 

303 

• 

- 

- 

Z ft 

BiASCOM 

04,2607 

262 

2 

262  263 

ATTSTEEr 

1 7,2620 

333 

1 

521 

= 

BIZI  14 

5fa55 

961 

1 

965 

= • 

blASHl 

00,2542 

1013 

11030 

1 53 

t 

153- 

B^I4+&2 

— 10  iz9b-7 

18  2 

1 

182 

blASLlT  - 

00*-Z2-70 

1006 

11031 

AUg3 

13,2610 

133 

. 1 

133 

B3T0b4 

01,3060 

1043 

210441043 

ft 

B*bIb1 AS 

30,2011 

817 

2 

676  81 7 

AURLOKON 

11,2760 

22U 

2 

20  7 

399 

B5T0B8 

01 ,2  74  7 

1091 

- 

- 

- 

ft 

BlGbOX 

E6,1766 

56 

1 

604 

4 fAt 

A75 

^76 

BACK  1 

19*3355 

909 

406 

BIGLOAD 

214  3410 

b09 

1 

603 

AVEGllAO 

36,2630 

731 

1 

7Al 

BAGKHUME 

21 1 3633 

b33 

2 

633 

ft 

BIGNO 

36,3653 

945 

1 

938 

AvEg13Ao 

27*3323 

73  7 

1 

733 

(JADDES 

10,2433 

182 

1 

182 

ft 

eiN3 

6311 

197 

2 

189 

= 

82^3 

13*2  7 15 

l5b 

3 

1S5 

660 

EjlNtOf'T 

4S70^ 

3-03 

3 

246  997 

avegadrs 

27,2342 

682 

2 

675 

683 

BADPHASE 

31,2410 

814 

1 

b03 

ft 

BINKOUND 

04,3021 

A7^ 

2 

271  27Z 

AVEGK.1LL 

07,2072 

102 

2 

103 

525 

BADKAD 

10,2  726 

189 

9 

189 

19Z 

ft 

biTio 

7752 

997 

50 

741099 

gA);-T09  -- 

fOi 

9l8 

bh  h 

T751 

-997 

99 

1161077 

AVEGUUT 

30,2116 

820 

1 

819 

BANKCALL 

520b 

948 

134 

7 7 
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ft 

B1T12 

7750 

997 

31 
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F > SYMBOL  H 
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ReFePengep 


F ■ symbol  H 


Definition 


reFeRenges  f 


BIl  12-13 
Bins 

/ f 

5bl 

yy  7 

32 

1191077 

■ 

■ 

BOKTENT 

BOTHSqN 

A 7b(i 
0A,2265 

31A 

2AA 

1 ^15 
1 244 

ft 

ft 

C2SOP 

G33JMP 

L3,1607 

12,3027 

32 

131 

3 

1 

664 

119 

= 

- ^TTir-lA 

"5Z10 

998 

A^CTA  tlO 

= 

a 

BDirrBT^ 

Oi,27Ai  lOAl 

1 963 

ft 

C33TE5T 

\2\ZW1T 

TT8 

’6 

17  5" 

117 

BIUa 

r^A6 

yy  7 

60 

B81077 

• 

BPL 

01  ,2  76S 

10A2 

11042 

ft 

C3/2 

5A19 

10A6 

110A6 

Bi 1 iacOm 

06,2  lOb 

bA 

r 

8A 

• 

bpl/bmn 

01,2796 

1042 

1 963 

ft 

CS72 

5A16 

10A6 

110A6 

BTTIS 

t 7At) 

99  7 

A2 

81107  7 

■ 

BRA'NCFi 

7001 

976 

8 9861042 

ft 

cadaver 

07,2077 

102 

1 

IDl 

Bin 

1 fh3 

yy  7 

65 

1271077 

■ 

BRATE 

t3,l63A 

32 

4 666 

669 

s 

ft 

CADRI 

39,3596 

869 

. 

_ 

- 

BI12 

nb^ 

yy  7 

35 

1091077 

■ 

BRIGNI 

0000 

b7b 

1 880 

= 

ft 

GADR2 

35,3567 

870 

“ 

- 

- 

bTT3 

7 7 6 A 

997 

25 

1 63 1 U76 

■ 

BR1GN2 

0002 

b78 

1 866 

~ 

ft 

CADR3 

35 , 3600 

btgt 

— 

• 

BIT  A 

7/60 

99  7 

99 

9210  76 

■ 

BRLING 

0001 

b 7b 

1 885 

s 

ft 

gadra 

35,3609 

870 

• 

D 1 T 

32,3051 

y2A 

1 

923 

■ 

BKNCHC.ON 

0A,2996 

2Ab 

1 2A8 

ft 

CADKSTOR 

032  7 

22 

8 

98 

290 

BITS 

7 /5  f 

99  7 

33 

921076 

■ 

BRTTFNU 

0001 

b 76 

1 880 

s 

cadrtab 

06,200r 

63 

1 

73 

s 

bI16 

1 756 

yy  7 

A6 
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29 

PIPKtrKr^  t^»1434 

30 

CONGEXl I 

UbU^» 

24 

VACZUbt 

1076 

26 

K.EYTEMP2 

1150 

2b 

SAVDI 

1304 

40 

KETSAVE 

E3.1436 

30 

PBIASX 

USDS 

24 

VAC2 

1076 

26 

KUPTAON 

1151 

2b 

LUNGLAUK 

1304 

29 

TDECIEmP 

E3.1A36 

30 

PIPABIAS 

U56U 

24 

1077 

27 

-PHASEl 

1153 

2b 

LONG  1 IME 

1306 

29 

PIPT IME  ' 

t37l437 

30 

PIPASLF 

0561 

24 

VAC3 

1100 

27 

PHA5E1 

1155 

2b 

LMEMURY 

1310 

2y 

OVSELECT 

E3,1437 

30 

PIPASLFX 

063<» 

24 

1101 

27 

-PHA5t2 

1 ISS 

2 b 

] tMX 

1311 

■ 29 

TEVElvT 

E'3.T440' 

30 

PblASY 

0635 

24 

VAC4 

1102 

799 

LMPPHASE 

1156 

2b 

lEMY 

1320 

29 

NASS 

E3.14AI 

30 

PlPAStFY 

0710 

24 

VAC5USE 

1102 

2 1 

PHA5E2 

1157 

2b 

IEM2 

1322 

29 

/ACF/ 

E3. 1442 

30 

PBIAS2 

0711 

24 

VACS 

1103 

27 

-PHA5E3 

1160 

2b 

1 EMXY 

1323 

29 

PCN  TF 

E3. 1443 

30 

P1PASLF2 

0735 

76 

GOLOc 

1104 

27 

PHASE3 

1161 

2B 

PlpAbt 

1324 

29 

/H/ 

E3, 1494 

30 

GBlASx 

U76<^ 

24 

110b 

27" 

-PHASE4 

1 1 62 

2b 

JEIRESET 

1326 

2^ 

STArimE 

E3.1^4  ■ 

■3O' 

TYBOX 

0 765 

24 

1/PlPAUI 

1106 

27 

PHA5E4 

1163 

2b 

TH1SLH32 

1330 

29 

COUTEMP 

E3.1445 

30 

NbOY 

U765 

24 

OLDb 1 1 

110  \ 

il 

-PHASES 

1164 

28 

MT 1HER4 

1336 

29 

SL05HLTK 

E3.1446 

30 

NB02 

0766 

24 

■ LUUAi; 

1110 

2 7 

PHASES 

1165 

2b 

NT1MEK3 

1337 

29 

STARIUVL 

E3, 144  7 

30 

AOIAX 

0767 

24 

euUYL) 

1111 

27 

-PHASE6 

1166 

2b 

MIIMERZ 

1340 

29 

STOPUVC 

E3,1450 

30 

AOIAT 

O77O 

1112 

27 

PHAbt6 

1 16  r 

2b 

MttMERl 

1341 

29 

SETOYfcNt 

^.L451 

3& 

A0IA2 

07fl 

2A 

UtLS-UJX 

1113 

27 

tbasei 

11 70 

2b 

MPHASEa 

1342 

29 

RSOTIEMP 

E3. IA52 

31 

ADSRAX 

^7 1 

32 

1114 

27 

pHSpKP  t 1 ■ 

■ llTl 

- 2b 

MPHASE3 

1343 

49 

TPRELTEK 

t3, 1453 

31 

ADSRAy 

07  n 

24 

OELLOOY 

1115 

799 

LMPTBASE 

11 72 

2b 

MPHASE2 

134b 

29 

DAPOFFOT 

E3.1459 

31 

AD5RA2 

07/Z 

32 

oeloloui 

Ills 

27 

IBAStZ 

1173 

2b 

MPHAStl 

1 346 

49 

OLDOVSEL 

E3.1455 

31 

COMMAND 

07^3 

24 

DELLUJZ 

■ 1116 

2 7 

PHSPRDT2 

1 1 ^4 

2b 

M 1MEK4T 

1353 

30 

ERESIUKE 

E3,l955 

31 

GCOMF 

07T3 

3Z 

UtLUU;U2 

ill? 

27 

rbASE3 

1200 

2b 

MDUEIEMP 

1353 

30 

5ELFEKA5 

E3.1A60 

31 

LDUINO 

27 

1201 

2b 

S I ATEL 1 K 

1354 

"30 

selfket 

1 3 * 1 4 6 3 

31 

GCOMPbW 

0775 

24 

ume:CjAjl> 

1121 

27 

TBASE4 

1202 

2b 

UPPHASE 

1355 

30 

SNCDE 

E3.1464 

31 

RRREI 

^77  6^ 

1 122 

27 

PMSPKD  T 4 

1203 

2b 

UPOT 

1356 

^-0 

peeetrTT< 

tS. 1465 

31 

RDES 

1000 

24 

1 6AuP 

1123 

27 

IbASES 

1204 

2b 

UPlNotX 

1357 

30 

SFAIl 

E3.1A66 

31 

KRINuEx 

1002 

2t> 

i6Mtxr 

1124 

2 7 

PHSPRDTS 

1205 

2b 

UPGE  1 

1360 

30 

failkeg 

63,1467 

31 

A0TA2 

27 

T A oL  6 

120^ 

2b 

MKtTUKN 

1363 

-30 

ALMCAL/R  - 

Er3, 1472 

31 

AOTEL 

IOU7 

Z5 

OElAYUK 

1126 

27 

PHSPKDI6 

1210 

2b 

PMtMUKY 

1365 

30 

ERLOUNl 

63,1475 

31 

A2ANG 

1 I 

- 2 b 

KLpKKL^T 

1 366 

30 

SCOtIf'rt" 

- 13‘*  1^7  5 

31 

uESlOTSX 

1016 

26 

VN 

1130 

2 7 

halfy 

1216 

2b 

KtPVKtGT 

1371 

30 

SKEEPl 

63,1475 

31 

DESLUTSY 

102A 

26 

GOT/Z 

1130 

2 7 

temk 

1224 

2V 

UELTAV 

1372 

30 

SKEEP2 

E3.1A75 

31 

ELANG 
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E3,U7S 

31 

ROLL 

£3,1615 

32 

C2MP 

£3,1 ?A? 

33 

1 ILT 

£A,1A1A 

34 

IDELl AV 

£A,1A60 

3A 

BETAV 

E3,1S00 

31 

LANDMARK 

£3,l6l5 

32 

K3 

E3 , 1 ?51 

33 

Z^SMAZ 

£A,1AeU 

A3 

“NEXTI IME 

. EA,1A60 

3A 

DELVEL 

E3.1SU6 

31 

1 IMESAV 

£3,1615 

32 

OGF 

E3,i?53 

33 

TEPHEM 

£A,IA22 

38 

AT 

EA,1A60 

43 

JETOPPTM 

E3.15I0 

31 

bLAL^AV 

£3,161 ? 

32 

CIPP 

£3,1 ?56 

33 

A20 

EA, IA22 

34 

NEWNUV 

£A,1A60 

38 

KH 

E3* 1512 

31 

1 imar 

£3,1621 

32 

LIMP 

£3,1 ?60 

33 

P37BLAI 

EA* lA22 

34 

TNUV 

Ea* 1A60 

36 

K 

E3.1S1A 

il 

l iMEoiph 

£3,1623 

32 

c<Jf 

£3,1 ?62 

33 

P37BLDNti 

EA, IA2A 

38 

VE 

£A,1A6A 

38 

YCONS 

E3  » 1516 

3X 

— PH5RAMEI 

£3,1631 

32 

LP[11 

£3 ,1 ?6A 

33 

DETL'VBUP 

£A, 1A26 

3b 

TBUP 

£4  * 1466 

34 

BVECIXIR 

E3,15W 

31 

KhSbbX 

£3,1632 

32 

uheia 

£3,1 ?6A 

33 

GLIFIUPP 

EA.IA30 

39 

1/DVl 

£A,1A66 

3A 

PHIV 

£3,1520 

31 

HHSNAvitZ 

E3,l633 

32 

LPSI 

E3,l  ? ?2 

33 

MP6TO7 

E"4  • 1 430 

38 

ATMEAS 

TA,1A66 

36 

V 

£3,1521 

31 

HhSbb2 

£3,l63A 

32 

BRATE 

£3,1 ? ?3 

33 

MPbTOv 

EA.1A30 

34 

POUNOR 

£4*1 466 

38 

YDOl 

£3,1522 

31 

HhS^A>lt3 

£3,l63A 

32 

LOPSKEW 

E3,1??A 

33 

KSBB60 

EA, 1A30 

A3 

JETONTM 

£a,1A70 

A3 

ENGSIEP 

£3,1523 

31 

PhSBB3 

E3,163A 

32 

IG 

£A,1AU0 

3A 

AMEMUK Y 

C.4  f 143'0 

~34 

KC\T 

£A , 1 A ?0 

38 

UAX 1 b 

£3, 152a 

31 

phenamea 

£3,16A2 

32 

AM 

£a,iauo 

36 

E2DPS 

t4t 1432 

3V 

1/DV2 

£A,lA7l 

A3 

CYLTIMES 

£3,1525 

3X 

PHSBBA 

£3 , 16AA 

32 

cam 

t A f I AUU 

‘^3 

PCSCNtR 

Ea, 1A33 

36 

tabli If 

tA,tA7A 

43 

nexIlylt 

£3,1526 

31 

PHSNAV1E5 

£3,l6AA 

32 

TM 

EA.IaOO 

36 

NUX2DPS 

L4  * I434 

39 

1/DV3 

£a,1A7A 

3A 

PSIV 

£3,1527 

31 

HHSbbS 

£3 , 16A6 

32 

RAO 

£A,1AUU 

3B 

PAXISI 

EA,lA36 

34 

POUNDV 

£a,1a7A 

36 

VL 

£3,1530 

31 

HHSNAiVIhb 

£3,1650 

32 

RSO 

£A,1AUU 

34 

KIGNI ION 

EA,1A36 

38 

KRl 

EA.1A76 

38 

2AX1S 

£3,1531 

31 

HMSbbb 

£3,1652 

32 

RATEINOX 

34 

RKEU 

£4 « X436 

34 

VCV 

£A,1A77 

A3 

ONTII'IE 

fc3  t X 532 

32 

b^D^ 

£•3*1653 

32 

SPNOX 

, X^Ul 

36 

NDXBR 

£4  * I44O 

38 

RDOTU 

— tArryo^ — 

■'-3^ 

KV 

£3,1535 

32 

MIS 

£3,165A 

32 

MYNDX 

Ea,iaoi 

43 

AJbut- 

EA,1AA0 

A3 

XJETS 

£A,1502 

A3 

OPPTIME 

t-3  * X 55  ? 

32 

t-3  * 1655 

32 

POfN  I VSM 

1^02 

36 

PLPASSU 

£4  * 1442 

38 

YDCTD  — 

7:a,1502 

36 

KP2 

£3,1557 

32 

KEL 

E3 , 1663 

32 

ScAxlS 

EA,1AU2 

43 

Y2JBUP 

£4*1444 

36 

pipi ImeT 

£A,150A 

36 

MAp2 

£3,155? 

32 

Mb  I 

£3,1671 

32 

TP 

£A,1aU3 

36 

COUNTPL 

£4* 1444 

3A 

TC 

£A,150a 

38 

2D0T 

t3  % X 557 

32 

t.3  * l6  M 

32 

GUGAVA  X L 

XAU3 

43 

JPBUP 

£4* 1444 

38 

2D0TU 

^A,1505 

43 

UPPT  IMEK 

E3.I565  3^  E^:  E3,l675  32  SPLOL  EA*1AUa  GOUMCU  EA 

ETXliSOO 3'3'  -RESTRIcE  E3, 1^700 32  uNRl  EA-tIABA A3— fCWTR  Ea 

E3,l6Cn  32  M E3,l706  33  ROVEL  EA.IAUS  36  AVGXIEMP  EA 

E3.1601  32  MHS7M  E3,l7lA  33  UNNORM  EA.IAUs  a3  1 HBUF  EA 


£3,1601 

32 

NGUU 

£3,1722 

33 

INOEP 

£A,1a06 

43 

OPPTMBUP 

EA, IA5O 

A6 

TPIPULO 

EA,1510 

3? 

RTEMP 

£3,1601 

32 

P21 

£3, 172a 

33 

IwEEKlT 

£A,lAOb 

38 

UAXIS 

£a,1A50 

A3 

YZJEIS 

£A,1510 

3A 

1 AVEGON 

£3*1 f 

DtPVAK 

E4 , 1 4U6 

36 

RE  1 N 1 L2 

E4  * 1451^ 

34 

XKEP 

Ea, 1510 

43 

TKIMST  EP 

£3,1601 

32 

IMIS 

£3,1730 

33 

PREVUEP 

£A,1A06 

34 

VIGNI ION 

£4*1451 

Jb 

LAMPKIO 

EA.1510 

35 

VECTAB 

£ 3 * 1 6b3 

£3,1732 

33 

DELOEP 

EA , 1 A06 

34 

VRECI 

£A,1A52 

alrhrv — 

— EA,r511 

43 

NUMT IME 5 

£3,160A 

32 

NEXI 1 ME 

£3,173A 

33 

DELINDEP 

EA, lAO  ? 

43 

JEISIEP 

E4  * 1452 

3A 

DELR 

£A,1512 

38 

PCONS 

E3,16U5 

32 

G21 

£3,1736 

33 

1 GRR 

£A,1A0? 

36 

RETXIGNI 

£4  * 1452 

38 

TCO 

EA.1512 

3A 

1 RESUME 

£3  * 1740 

3 3 

T LIP  POPP 

£A , 1 AlO 

43 

NT IMES 

Ea, 1A52 

36 

TTF/A 

tA,l51A 

3^4 

RAVEGON 

£3,160? 

32 

G2SUH 

£3,17A2 

33 

ABORI NDX 

EA,lAiO 

36 

REITHKI 

EA,1A5A 

38 

TREF 

EA.1516 

37 

VS 

K 2 

£3 , 17A2 

0I-L7F1 

E 4 * 1 4 1 1 

-36 

CL  I /2  ’ 

£4*1454 

36" 

1 rr74rMK— £4*1516 

37 

VTEMP 

£3,1611 

32 

G2SGM 

£3,l7A3 

33 

DT-LETJT 

£A,1A1a 

34 

NEWfLI AV 

£4  * 1 45£ 

36 

TULLG 

EA,1522 

3A 

VAV£^ON 

£3,1613 

32 

C2PP 

£3,17A5 

33 

A2GR 

EA.IAIA 

3b 

SAXIS 

£4*1 456 

38 

VTO 

EA.152A 

3? 

CRS2 

, 1 AA6 

38 

rreturn 

£4*1 5U6 

37 

KC 

* 1446 

34 

TET 

£A ,1506 

38 

MME 

,1AA6 

36 

TPIP 

£A,1510 

38 

GEFF 

,1A50 

38 

ASCRET 

£A,1510 

37 

RS 
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^♦3 

blpPULYT 

EA,1'6U2 

37 

AOELLlNb 

EA,l611 

40 

UNITVO 

E5,150A 

44 

piGC 

fc5,l557 

52 

DAREATNP 

tA,15i:6 

37 

bKS2 

t4  * 1 (,02 

35 

t>bpK  1 RN 

£A,1677 

41 

b I bUl h 

tb « 1 506 

44 

AZIMUIEI 

1 5 , 1 5 6"l 

• 42" 

MAbb 1 EMP 

E4*lb30 

3b 

PKa  IE 

EA,1602 

37 

CUUMPKES 

EA,m5 

41 

bl COUNI 

E5,1506 

4b 

DVTOTAL 

E5,156l 

55 

1EMPI INt 

Ea.1530 

3<f 

KiG-2btL 

EA.1602 

35 

MlDEXl ( 

tA,l7l6 

A1 

UPULUMUD 

tb « 1 506 

A8 

SAVEKAbE 

E5,1563 

52 

MINlMAbb 

h4,1530 

3 7 

IK52 

EA,l603 

3b 

INLOKPEX 

EA, 1 El ^ 

A1 

UPTEMP 

E5, 1510 

44 

LATIIUUE 

E5,1563 

55 

lEbTNO 

EA,lb32 

3 7 

AbPK  1 

EA.160A 

35 

blEPEXlI 

EA,  W2U 

Al 

UPIEMPI 

E5.1511 

4b 

DVCNTK 

E5,1565 

55 

IMARR 

t^t  *1532 

37 

'tjuo  t r^i ) 

EA  1 16U5 

35 

Dir-EUCNT 

E4* I7ZI 

41 

up^EKb 

E5, 1512 

44 

EROP IN 

E5 , 1565 

42 

tTFIKUT 

EA, 1532 

3b 

HI 

tA, 16D5 

35 

NURMCAM 

EA,17<!E 

Al 

EUMPNUMB 

E5.1512 

^b 

PIPCIK 

E5,1565 

52 

FOLD 

EA.15A0 

37 

AtS 

t-4*  l(>Ub 

43 

THRTblEP 

EA, 1723 

41 

U0wN2DPb 

E5,1513 

44 

e^vecittk 

E5,1SE^6 

55^ 

bHAf  171- 

EA.IBAU 

3b 

ICO 

EA,16U6 

43 

DUTIMEb 

EA,1  Ui 

33 

VOVEC 

E5,1513 

4b 

VR 

E5,1567 

52 

hCOLD 

Ea, 15A1 

IKjMONI 

EA.lbOb 

35 

5CALEA 

EA,1723 

Al 

VDVEC 1 

E5*152l 

AA 

CYROD 

E5,1567 

55 

IRUNA 

EA , 15A2 

3‘8 

I f't 

t-4  * l60  7 

35 

5C.Al_tfc3 

EA,1731 

4 1 

VCVEt 1 

E5  » 1522 

4e 

V6CNTK 

E5  rl570 

45 

AINLA 

EA.15A6 

37 

AECb 

EA.161U 

37 

CdUOTMI 

EA,173f 

3y 

KCUV 

E5,1523 

AB 

ERROR bUM 

E5,1S70 

56 

BMEMURY 

* 1 5^6 

t4  * 1 6 1 0 

3 7 

TTfLlN/4 

EA , 1 73 1 

K13' 

E5, 152  7 

44 

LENCThOT 

t6 ,15T0- 

4b 

COOT IMEl 

EA,15bO 

3B 

KY 

EA.1613 

35 

YV 

EA, 1 7A5 

41 

nco 

E5,1530 

44 

LOSVEC 

£5,1570 

A2 

FC 

Ea,1552 

3a 

UKCU 

EA,161A 

43 

delay 

EA,1 751 

41 

EALOAU 

E5,1531 

ab 

DIFeANC 

t5,l570 

55 

CENPL 

EA*155A 

3 1 

AEC 

EA, 1621 

35 

zv 

fc4*i 751 

Al 

MPDTOa 

E5,1533 

48 

bTREXlT 

£5,1570 

4b 

KDSP 

* 1 55^ 

3<f 

ALPHAVl 

EA,l62<i 

43 

THRIUME 

EA,1 752 

41 

MP9-11UT 

E5, 153A 

AB 

ABDELV 

E5,1570 

56 

wANCU 

* 1 5!)5 

t4 

40 

Pb007 ■ 

EA , 1 753 

4l‘ 

MP 1 1 1 0 U 

E5»l536 

44 

NBPOb 

t5, 15TZ 

CDUT IMEF 

EA,1556 

btTAM 

EA.1630 

AO 

AVMIDKIN 

EA,1 75A 

Al 

KP 

E5.1536 

AB 

bWITCEi 

E5,1572 

52 

PIF 

* 1560 

3^ 

EA, 163U 

43 

1 HCOMMl 

EA, 1756 

41 

CPI6/2 

E5 , 1 53  7 

‘*8 

f^GXUV 

1 5-,  1572 

46 

WANCl 

EA,1560 

34 

lAu 

EA, 1630 

AO 

W 

EA,1 76A 

Al 

RIVEC 

E5.1537 

AA 

NDXCTr 

E5,137A 

55 

cdudang 

Ea.1562 

34 

0 1 /2 

EA.1632 

AO 

AXI5D 

EA,1 7 72 

Al 

TINT 

tb » 1 54O 

AA 

PIPANO 

£6,1575 

52 

PIFPbET 

3 ^ 

/ApC/ 

t4 1 1636 

44 

[ MCOMMZ 

EA, 177A 

41 

K LO 

E5 , l5Al 

■ 4b 

P'l'PU’lDEX- 

E5, 1575 

42 

KTNEIULD 

EA.lbbA 

34 

H 

EA.16A0 

40 

AXIS 

EA, 1 7 76 

41 

1 ICNI lUN 

E5 , 15A2 

A5 

PIPNdx 

£5,1575 

55 

] EMpAOL) 

3 7 

/ Ap  C / Jt-U 

t4* 1644 

44 

3 OBOE  1 

E5 , 1 AOO  - 

4"4 

X5M — 

e5, 15AA 

- 4Z 

EMEX-  - 

E 5 , 1 57  5 

46 

1 OKCJNDX 

EA,1566 

3b 

ENGUEhUI 

£4  * 1646 

AO 

COSCDU 

E5,1AU6 

44 

YbM 

E5,15AA 

A5 

PObl ION 

£5,1575 

46 

WANCl 

EA.1566 

34 

1 DEC 

tA,l65D 

44 

3OBUE0 

E5,1A1A 

44 

2SM 

E5,15AA 

A2 

VEXUEX 

E5,1575 

55 

CDURtADF 

EA 1 1 566 

37 

UNAEL/2 

EA,l65A 

44 

UUITLOUX 

E5,1A22 

44 

XDC 

E5  * 15A5 

A2 

PREFORCE 

E5*1575 

55 

lENP 

EA,1570 

35 

EBRANtH 

EA.165A 

40 

sinldu 

E5,IA22 

44 

XNb 

t b * i 54b 

A5 

oplac 

£5,1576 

55 

CDUKLAul 

t4  * l6bb 

CHCN 1 K 
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SBIT2 

7^/1 

997 

YllTIOSl 

11  «21b3 

207 

0PTC0ART7 

22  1(3607 

905 

MADP2 

1077 

SBI  1 b 

nbl 

1077 

S + 2 

7 7 7 1 

99  ( 

NEGl 

12*2753 

130 

IMUFAIL 

Z2,373A 

9O9 

20PS2/3 

- 7755 

OBSELECT 

7762 

A7A 

TRYGIMBL 

n n 

10  77 

^-1' 

12 , 27S3 

130 

rCDUF7>TIX“ 

27*?AA2 

682 

SVEXAORS 

17  7 

KKUbthLO 

7762 

99  r , 

Two 

01,3000 

I04b 

Sw/ 

12*3161 

135 

NORRGMON 

30,2261 

822 

agSmun 

7755 

1076 

SBI  1 7 

nbi 

47A 

USEQRJIS 

0A,3315 

2b3 

MOORUUIB 

13*27a7 

157 

OPTSTALL 

30,3AlA 

8Ab 

PSTEP 

77b5 

A98 

' SOPERIOO 

776-3 

4 /4 

OURRCBl 1 

Ob » 2b'3b 

<^6<!^ 

ENUR  Tt)0 1 

15*2236 

J35 

I 

3073  ATS 

8A8 

SLOPE 

77b6 

1076 

bbl  1 b 

7765 

99  r 

ONE 

05*3077 

271 

ENORUI IN 

15*2236 

335 

UPONLIST 

30,3A16 

8A8 

VEXSI EP 

7756 

ULLAtabR 

" 7763 

1076 

SBITl 

Ob , ^000 

63 

PROT  TAB' 

l6,22A<r 

491 

'WFOKPUKIC 

T0V3536 

852 

(TXTKA 

7 75  T 

AORBSYSI 

nbi 

107  7 

S+1 

06,2001 

63 

LAORIAb 

17*2620 

533 

ATTSIEEK 

31,2333 

813 

MT able 

n^i 

Ab  1 

ENGINBI 1 

997 

NOUTLON 

06,2006 

6 f 

A.2SP0I 

17*3502 

5A5 

-TJMINUR 

33,26A0 

912 

OP. 5 

775  7 

177 

LOKONFLG 

7765 

2bO 

OSPMSK 

06,2006 

66 

3.2SPOI 

20*20  72 

A 76 

SETRAIE 

33,2bA2 

912 

OPO 

7 7b7 

10  76 

SBI  1 5 

nbb 

998 

LUW3 

06,3363 

3 (6 

TRIMLOuE 

22*2000 

8 75 

pREBURN 

36,3667 

9A5 

IPACI 

Y7S0  A7^i  ACcWRZX 
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PAGtll52 


Memory  type  s availabiliiy  display 


uooo 

TO  0057 

SPECIAL  OR  NONEXISTENI  MEMORY 

0061 

0060 
TO  0776 

0 77  7 

AVAILABLE  ETTASABEE  MEMORY 

reserved  erasable  memory 
AVAILABLE  ERASABLE  MEMORY 

1000 

1347 

TO  1346 

TO  1354 

reserved  erasable  memory 
AVAILABLE  ERASABLE  MEMORY 

- 1353 
E3,1776 

T0"E3,1775 
TO  E3,1777 

RESERVED' erasable-memory  - " 

available  erasable  memory 

EA',  IKb  KESERVEO  erasable  memory^ 

EA-,  WS'O  available  ERASABLE  MEMORY 

E5,1V76  reserved  ERASABLE  MEMORY 

E5TI771  AVAILABLE  ERASABLE  MEMORY 

E6.1A0U  TO  E6.1/66  RESERVED  ERASABLE  MEMORY 

E6.1767  10  E6,l/77  AVAILABLE  ERASABLE  MEMORY 

Eh,lAOU  10  E/,162^  reserved  ERASABLE  MEMORY 

E7.1b30  TO  ET,W7S  AVAILABLE  ERASABLE  MEMORY 


EA.IAOO^  TO^ 

EA.WAT  TO 
EA.lYSl'  TO 


E7.177&  10  ET,W7T  RESERVED  ERASABLE  MEMORY 

AOOU  TO  ST55  reserved  HXED  MEMORY 

5756  TO  5777  AVAILABLE  hlXED  MEMORY  “ 

6000  TO  777A  reserved  FIXED  MEMORY 

7775  TO  7777  AVAILABLE  FIXED  MEMORY 

00,2000  tO  00,3736  RESERVED  FIXED  MEMORY 

00,3737  TO  00,3777  AVAILABLE  FIXED  MEMORY 

01,2000-  TO  01,3675  RESERVED  FIXED  MEMORY 


01,3676  TO  01,3777 
02,2000  TO  03,3777 
0a,2O0O  . TO  0a,3560 
0A,3561  TO  0A,3777 


AVAILABLE  fixed  MEMORY 
SHeLTAL  OR- NONEXISTENT  MEMORY 

reserved  fixed  memory 
available  fixed  memory 


05.2000  TO  06,3526  reserved  FIXED  MEMORY 

05,3527  TO  05,3777  available  FIXED  MEMORY 

06.2000  10  06,3515  RESERVED  FIXED  MEMORY 

06,3516  TO  06,3777  AVAILABLE  FIXED  MEMORY 

07.2000  ' TO  07,3760  RESERVED  FIXED'MEMORY 

07,3761  TO  07,3777  AVAILABLE  FIXED  MEMORY 

10.2000  tO  10,3350  reserved  fixed  memory 

10,3351  TO  10,3777  available  F-IXED  MEMORY 

11.2000  lU  ll,332A  reserved  FIXED  MEMORY 

- 11,3325-  TO  1 1,3  77  7 AVAILABLE  FIXED-MEMORY 

12.2000  TO  12,3626  RESERVED  FIXED  MEMORY 

12,3627  TO  12,3777  available  FIXED  MEMORY 


13 

,4000 

to 

13 

*3616 

IJ 

,3617 

13 

14 

• 2QUU 

TO 

14 

,3  754 

14 

t3 

TO 

14 

t3777 

15 

,4000 

TO 

15 

,3727 

15 

*3  730 

TO 

15 

»3777 

16 

y 2UUU 

1 u 

16 

*3764 

16 

*3  /6b 

TO 

16 

.3777 

i7 

,4000 

TU 

17 

«37  71 

17 

,3  7 74 

TO 

1 r 

.37  77 

20 

♦ 2UU0 

TO 

21 

.3773 

,37  74 

TU 

21 

»37T7 

IZ 

,2UU0 

10 

22 

• 3744 

,3745 

TU- 

22 

• 3777 

43 

,2UUU 

TO 

23 

• 336b 

23 

t3366 

TO 

43 

.3777 

,2U00 

TO 

24 

,3746 

24 

,3747 

. TO 

24 

,3777 

TU 

2b 

,3D30 

25 

*3U31 

TO 

45 

.37  77 

Z 6 

,2UU0 

1 u 

26 

.3177 

Zb 

,3400 

TO 

46 

.3777 

47 

♦ 2UU0 

TO 

27 

.3611 

zi 

*36X2 

TU 

2T 

.3  777 

3U 

t2U(J0 

10 

30 

.3773 

■30 

,37  74 

TU 

30 

• 3777 

31 

,4000 

TO 

31 

.2441 

31 

,4442 

TO 

31 

.3777 

34 

,2U00 

10 

32 

.3132 

32 

,3133 

TO 

32 

.37/7 

33 

« 2UU0’ 

TU 

33 

. 3544 

33 

,3b25 

TO 

33 

.37  77 

3<t 

,2*000 

TU 

3^ 

t'iTB-t 

3^ 

,3  762 

10 

.3  7 77 

35 

,2UU0 

10 

35 

.3612 

3t) 

• 36X3 

TO 

3 b 

• 37/7 

36 

,2U00 

TO 

36 

.36  75 

36 

• ^6  (i5~ 

-j-y 

36 

37 

• 2UUU 

TO 

37 

37 

• 3/^7 

TO 

43 

tiin 

RESERVED -fixed  MEMORY 

available  fixed  memory 

RESERVED  FIXED  MEMORY 

available  fixed  memory 

RESERVED  FIXED  MEMORY 
AVAILABLE  FIXED  MEMORY 

reserved  f-ixed  memory 
available  fixed  memory 

RESERVED  'FTX ED-  MEMIORY' 
AVAILABLE  FIXED  MEMORY 
RESERVED  FIXED  MEMORY 
available  -F  IXED  memory 

RESERVED  FIXED  MEMORY 
AVAtLABLE-F  IXED  MEMORY 
reserved  fixed  MEMORY 
AVAILABLE  fixed  MEMORY 


reserved  fixed  memory 
AVAILABLE  FIXED  MEMORY 
R E SEKVEtJ  F“IAED  - MEMORY 

available  fixed  memory 

reserved  fixed  memory 
available  fixed  memory 

RESERVED  FIXED  MEMORY 
AVAtt  AtttE-T-1  X-ErD-MEMOKY 

reserved  fixed  memory 
avatlable -fixed  memory 
reserved  fixed  memory 
available  fixed  memory 

RESERVED  FIXED  MEMORY 
available  fixed  MEMORY 
-RESERVED  Rl'XLD  MEMORY 

available  fixed  memory 

-R  ESERV'E-D'  -F-EXEB-  MEMORY 
AVAILABLE  FIXED  MEMORY 
RESERVED  FIXED  MEMORY 
-AVAILa-OLE  E-EXEO  MEMORY 

RESERVED  FIXED  MEMORY 
AVALLABEE-F EXED  MEMORY 
RESERVED  FIXED  MEMORY 
AVAILABLE  FlXEp  MEMORY 
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- - UCCUPItD 

LOtAHUNS 

PAOe 

uccupitp 

LOCATIONS 

VAbt 

tiOOO 

lU 

4O46 

60  . 

5Z70 

TO 

5306 

950 

^047 

TO 

4063 

6 1 

5 307 

TO 

b332 

951 

AU6A 

TO 

/2 

5333 

TO 

5335 

952 

A0?3 

10 

4X04 

74 

5336 

99  7 

^iO;? 

10 

4X16 

76 

5337 

TO 

5353 

99b 

4X1/ 

TO 

41AU 

n 

5354 

TO 

5416 

1046 

TO  ' 

'4X70 

81 

54X7 

TO 

5466 

1047 

4i/l 

TO 

4236 

b2 

5467 

TO 

bb04 

104B 

423T" 

-fO 

424  X 

63 

5505 

TO 

5544 

1049 

10 

bb 

5b45 

TO 

bb  7b 

1050 

4Z46 

TO 

4^71 

67 

5576 

TO 

5631 

iU6U 

4Z7Z^ 

T0“ 

. 4<f73 

100 

b632 

TO 

b662 

i U6 1 

4274 

TO 

4310 

104 

b663 

TO 

56  /3 

1063 

TO  • 

10b 

5674 

TO 

5713 

1064 

4314 

TO 

432^ 

13/ 

5714 

TO 

5 /26 

1065 

4323 

TO 

4333 

166 

5/2  / 

TO 

5 /40 

10-/2 

4334 

10 

‘ii-jb 

Xb9 

5 /4I 

TO 

5752 

10/3 

437  / 

10 

4434 

X /O 

5753 

TO 

5 /54 

946 

TO 

4443 

i^7T 

6000 

TO 

6U 1 2 

3 1 b 

10 

4457 

26  / 

6013 

TO 

6036 

4b4 

TO 

44^,!) 

268 

6O37 

TO 

465 

4466 

TO 

4t)0fc 

269 

6041 

TO 

6050 

466 

460  7 

10 

4t?U 

290 

6051 

TO 

6100 

b3U 

^5 1 3 

! 0 

4543 

302 

6101 

TO 

611  1 

b3i 

TO 

4604 

303 

6x12 

TO 

6123 

953 

4631 

6X24 

TO 

6146 

9b4 

4632 

TO 

4646 

306 

6147 

TO 

6160 

955 

f 

TO  ■ 

4665 

307 

6161 

TO 

6207 

9b6 

A666  ' 

TO 

4 /35 

30b 

6210 

TO 

6256 

95  / 

4 I3b 

TO 

4 /54 

313 

6267 

TO 

6260 

9bb 

TO 

314 

6261 

TO 

6312 

959 

*♦7  74 

TO 

5025 

315 

6313 

TO 

6326 

960 

5O47 

632T 

TO 

6342 

961 

6050 

TO 

5O5X 

4b4 

6343 

TO 

6402 

962 

5052 

TO 

5O56 

799 

6403 

10 

6422 

963 

TO 

5 1 2> 

6423 

TO 

6440 

96b 

5X26 

TO 

5X61 

bOb 

6441 

TO 

6462 

966 

60/ 

6463 

TO 

6502 

96  r 

5206 

TO 

i>234 

94b 

6b03 

TO 

6b26 

96b 

5235 

TO 

526  / 

949 

6527 

TO 

6536 

969 

NASAZUZU06-U31 


Doc-pv-m? 


PAQtllSA 


OCCUFltP  UOOATiONb  PAOe  OOCUPT £D  YZOCATIONS  PAtifc 


b)J  1 

TU 

6600 

970 

00,2352 

TO 

00,2420 

1009 

6601 

TO 

6634 

971 

00  f 24<^  1 

TU 

00 , 24  34 

1010 

6635 

TO 

6/02 

972 

00,2435 

TO 

00,2475 

1011 

6/03 

973 

00,24/6 

TO 

00,2513 

1012 

6 /04 

10 

6737 

974 

00,2514 

TO 

00,2543 

1013 

6 /40 

TO 

7OOO 

975 

00,2544 

TO 

00,2563 

1014 

7001 

1 u 

7024 

976 

00 , 25t>4 

T 0 

oO , ^60u 

101b 

7025 

TO 

7052 

977 

00,2601 

TO 

00,2615 

1016 

7053^ 

TO 

7102 

978  ^ 

00T2irt6“ 

1 u yjyj  %cbc  ( 

1017 

7103 

TO 

/I4l 

979 

00,2630 

10 

00,2670 

1018 

/142 

TO 

/154 

960 

00,26/1 

TO 

00,2726 

1019 

7lbb 

TO 

7207 

- 98  r 

' OV,ZTiT 

TO 

00,2756 

1020 

/210 

TO 

/225 

982 

00,2757 

TO 

00,3001 

1021 

7226 

TO 

T266 

9sr 

— oorsoy^ 

TO 

00,3051 

1022 

l^bl 

TO 

7310 

9b4 

00,3062 

TO 

00,3110 

1023 

/311 

TO 

7 326 

985 

00,3111 

TO 

00,3130 

1024 

732  / 

10 

/3  /4 

986 

00,3131 

TO 

00,3153 

1025 

/3  /5 

TO 

7407 

987 

00,3154 

10 

00,3211 

1026 

7410 

TO 

7420 

986^ 

00,3212 

TtJ" 

00 ,3261 

1027 

/421 

.T'J 

7457 

989 

00,3262 

TO 

00,3324 

1028 

7460 

10 

7503 

990 

00,3325^ 

TO 

uy  ,336b 

1029 

/504 

10 

7537 

991 

00,3366 

TO 

00,3436 

1030 

7540 

TO 

75  76 

992 

00,3437 

TO 

00,3477 

1031 

7577 

TO 

7623 

99T 

OOj  33 

TO 

00,3533 

1032 

/624 

TO 

7655 

994 

00,3534 

TO 

00,3570 

1033 

76b6 

10 

7706 

995 

' 00,35/1 

TO 

00,3632 

1034 

nor 

TO 

7/41 

996 

00,3633 

TO 

00,3674 

1035 

7 /42 

TO 

77/1 

997 

00,36/5 

TO 

00,3711 

1036 

7 / /2 

TO 

7/73 

946 

00,3712 

TO 

00,3733 

1037 

00,2000 

10 

00,2016 

964 

00,3734 

TO 

00,3735 

946 

00”  * 2U  i 7 

ro 

00,2041:^ 

999 

01,2000 

TO 

01,2041 

8^- 

00,2042 

10 

00,2100 

1000 

01,2042 

10 

01,2112 

89 

00  y ^ 1 0 1 

10 

uu  liu- lour 

e^tT21-lT 

TO 

01  , ^ 1 bO 

9O 

00,2121 

TO 

00,2143 

1002 

01,2151 

TO 

01,2162 

9l 

00,2144 

10 

00,21/1 

1003 

01,2163 

TO 

01,2231 

92 

00  ^2172 

1 0 

00,2213 

01 

7 0 

01 ,2301 

93 

00,2214 

TO 

00,2235 

1006 

01,2302 

TO 

01,2351 

94 

* 00-^2236 

10 

00-^2276 

1006 

01*2-302 

1 0 

01,2356 

9b 

00,22  7 7 

TO 

00,2331 

1007 

01,2357 

TO 

01,2424 

96 

00,2332 

TO 

00,2351 

1008 

01,2426 

TO 

01,2502 

97 
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PAQtH55 


^ ^ UCCUPItO 

LOCAl I0N5 

PAGE 

UCCUPItO 

LOCAl luNS 

PAGt 

UCCUPItO 

LUCAIIUI^S 

page 

DTCCOPTtU 

Locations 

page 

U1 ,2A7A 

TO 

01 ,2b02 

y/ 

04,2573 

TO 

U4,2622 

262 

05,3131 

TO 

05,31 76 

276 

06,3367 

TO 

06,341 7 

377 

ui,2iOa 

1 0 

oi  ,2553 

V8 

,2623 

TO 

0 4 » 2 6 7 1 

263 

05,3177 

TO 

05 , 32;^! 

277 

06  *3420 

TO 

U6  * ,546U 

378 

01 ,2b5A 

TO 

01,2606 

99 

04,2672 

TO 

04,2  ?25 

264 

05,3222 

TO 

05,3245 

279 

06,3461 

TO 

06,3512 

379 

01,260^ 

TO 

01 ,262S 

,100 

04,2  ?26 

TO 

Oa,2740 

265 

05,3246 

TO 

05,3266 

280 

06,3513 

TO 

06,3514 

9^6 

01  ,2b2b 

TO 

01 ,2653 

103« 

O4 ,27a1 

TO 

04,2  ?bO 

271 

05,3267 

TO 

05,3301 

282 

07,20UO 

TO 

07,2033 

101 

01  ,2b5A 

10 

oi,2ao 

1034  - 

04,2761 

TO 

04,3033 

2 72 

05,3302 

TO 

05,3337 

283 

07,203A 

TO 

07,2100 

102 

01,2711 

10 

Ui ,2  ^30 

AU4C3 

,3034 

TO 

04*3AOJ 

2 73 

05,3340 

10 

05*3343 

284" 

07,^1U1 

TO 

07,2102 

103 

01,2731 

10 

01,2750 

1041 

0a,3104 

ro 

04,3116 

2 74 

05,3344 

TO 

05,3402 

288 

07i2103 

TO 

07,2115 

314 

U1  ^Zf5i 

70 

01 ,2  /7  ^ 

lOi^Z 

04,3117 

1 0 

04,3172 

2 78 

O5 ,34t)3 

10 

O5  * 3*T13 

290 

- 0T,“2Tr6 

TO 

07,2144 

766 

01,3000 

tO 

01,301a 

10A3 

Oa,3173 

TO 

04,3216 

2 79 

05,3414 

TO 

05,3457 

310 

07.2145 

TO 

07,2220 

767 

01,301b 

TO 

01,3036 

10A4 

04,3217 

TO 

04,3234 

2b0 

05,3460 

TO 

05,3520 

311 

07,2221 

10 

07,2246 

768 

01 ,303 1 

T 0 

0 i , 3U^2 

1045 

04,3235 

TO 

04 , 3305 

2bA 

05 , 3 52 1 

TO 

05*3523” 

312” 

07,2247 

TO  07.2275 

769 

01 ,30b3 

TO 

01,3115 

lObl 

04,3306 

TO 

04,3325 

482 

05,3524 

TO 

05,3525 

946 

07,2276 

TO 

07,2335 

77O 

01 , 31  lb 

TO 

0 X' , 3 i 6 ^ 

10*)2 

0^^ , 3326 

TO 

04,3351 

f b** 

0 6 f 2 0 U 0 

TO 

06  * <^032 

63 

07,2336 

TO 

07,2353 

77I 

01  ,'3162 

TO 

UA  ,323*t 

1053 

04,3352 

TO 

04,3432 

285 

06,2033 

TO 

06,2077 

64 

07,2354 

TO 

07,2416 

772 

01,323b 

TO 

01,323^ 

1054 

04,3433 

TO 

04,343 1 

2b6 

06,2100 

10 

06*2145 

65 

07.2417 

TO 

07,2470 

773 

01,32AO 

10 

01 ,325A 

IO55 

04,3440 

TO 

04,3A55 

CyU 

06,2146 

TO 

06,2206 

66 

O7.247I 

TO 

07,2542 

774 

01,32bb 

TO 

01 ,3323 

1056 

04,3456 

TO 

04,34?1 

241 

06,2207 

TO 

06,2245 

67 

07.2543 

TO 

07,2550 

775 

*532^ 

U A , 3 3 3^ 

IU57 

04,3472 

JU 

306 

06,22A6 

TO 

06,2311 

" 58 

07.2T51 

10  07.2564 

776 

01,333b 

TO 

01 ,3374 

1058 

04,3514 

TO 

04,3535 

307 

06,2312 

TO 

06*2354 

69 

07.2565 

TO 

07,2623 

777 

01, 3375 

TO 

0 A , 3*t26 

IO54 

04,3536 

TO 

04,3555 

3U9 

06,2355 

TO 

06,2  3 76 

70 

07,2624 

TO 

07,2653 

778 

01 ,3A2  1 

TO 

01,3452 

1066 

04,3556 

TO 

04,3557 

446 

06,2377 

TO 

06,2440 

71 

07.2654 

TO 

07,2714 

779 

01 ,3Ab3 

TO 

01,3502 

106? 

05,2000 

TO 

05,2033 

250 

06,2441 

TO 

06,24  73 

72 

O7.27I5 

TO 

07,2750 

780 

TO 

25A 

06,2474 

TO 

06,2541 

73 

&r.2T51 

TO 

07,2777 

78i 

01 ,3b4/ 

TO  01,3b63 

1064 

05,2113 

TO 

05,21 ,0 

252 

06,2542 

TO 

06,2570 

74 

07,3000 

TO 

07,3035 

782 

A U / U 

05,2171 

TO 

06 ,25 

10 

06  * 2 632 

75 

07,3036 

TO 

07,3100 

783 

01,3b7? 

10 

01,3633 

10  ?i 

05,2176 

TO 

05,2240 

254 

06,2633 

76 

07,3101 

TO 

07,3122 

784 

Ol,3b34 

TO 

01  ,3644 

1073 

05,2241 

TO 

05,2311 

255 

06,2634 

TO 

06,2657 

83 

07,3123 

TO 

07,3173 

785 

01  ,3b4b 

tO 

UA  ,367<i 

10,4 

05,2312 

TO 

05,2325 

256 

06,2bb0 

10 

06,2726 

84 

07,31 74 

TO 

07,3246 

786 

01 ,3b73 

TO 

OA  ,367^ 

9**6 

05,2326 

TO 

05,2402 

254 

06,2  727 

TO 

06,2 735 

85 

07,3247 

TO 

07,32  75 

787 

T 0 

U 5 * 2^4  5 2 

2 60 

06*2/36 

lu  “U6,«i  rrz 

■ 36”7 

07V3275' 

TO 

07,3324 

788 

0A,20bl 

10 

04,2116 

241 

05,2453 

TO 

05,2524 

26A 

06,2  7 73 

TO 

06,3016 

368 

07,3325 

TO 

07,3371 

789 

TO 

05  «2525 

TO 

05 ,2534 

262 

06,3017 

TO 

06,3056 

^69 

Ot“,3J72 

TO 

07,3447 

790 

04,2201 

TO 

04,22a  I 

243 

06,2535 

TO 

05,2604 

266 

06,3057 

TO 

06,3131 

370 

07,3450 

TO 

07,3477 

791 

0«f,2250 

10 

04,2323 

2'»<* 

05,2605 

10 

05,2662 

26  7 

06,3132 

TO 

06,3151 

371 

O7.35UO 

TO 

07,3525 

792 

U5 , 2663^ 

TO 

05,2733 

268 

06,3152 

TO 

06,321 1 

372 

0 7t3526 

TO 

07,3576 

793 

04,236  ! 

TO 

0A,2A44 

2itfe 

05,2734 

TO 

05,3006 

269  , 

06,3212 

TO 

06,3246 

373 

0 7.35  77 

TO 

07,363^ 

794 

2<t7 

05  * 3OO7 

10 

05 , 305'2 

- 270 

0^,3247 

Oti  *3302 

3T4 

07.3635 

TO 

07,3654 

795 

04,2bl 1 

TO 

04,2556 

248 

05,3053 

TO 

05,3076 

271 

06,3303 

TO 

06,3354 

375 

07.3655 

TO 

07,3672 

796 

04,2bbl 

TO 

04,257^ 

244 

05,3077 

TO 

05,3130 

275 

06,3355 

TO 

06*3366 

376 

07.36  73 

TO 

07,3734 

797 
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OrCUKTtO 

LOO'ATIONS 

RAGt 

occupied 

LOCATIONS* 

HAOt" 

-OCCUPIED 

LOCATTDNb 

page  " 

OUUUKXtU 

locations 

page 

0 T,3  T3b 

TO 

07»375S 

' 11,2265 

TO 

11,2301 

ZOts 

12,2615 

TO 

12,2632 

122 

13 

.2637 

TO 

13,2663 

155 

U7.3756 

;o 

07 , 3 75  7 

956 

1 1 ,2302 

TO 

11,2325 

X 2 « 263 3 

TU 

X 2 « 266b 

123 

13 

t 2664 

TO 

13,2715 

X 56 

iO,2UOO 

TO 

10,2012 

1/1 

11,2326 

TO 

11,2373 

210 

12,2656 

TO 

12,2662 

125 

13 

.2/15 

TO 

13,2752 

156 

10,2013 

TO 

10,2050 

1 72 

11,2375 

TO 

11,2507 

2X1 

12,2663 

|U 

12,2  701 

125 

13 

.2753 

TO 

13,2775 

157 

10,2051 

TO 

10,2115 

1 73 

11,2510 

10 

11,2555 

212 

12,2/02 

TO 

12,2717 

126 

13 

.27  /6 

TO 

13,3005 

158 

10,2115 

TO 

10,215  1 

175 

11,2556 

TO 

11,2500 

2X3 

12,2/20 

TO 

12,2750 

127 

13 

.3005 

TO 

13,3053 

159 

10,2150 

ru 

iO 

X75“ 

1 1 %7.bO  1 

1 u i.  1 ( 

“2"r4 

X 2 f 2 f X 

1 u 

12,2752 

126 

13 

« 3064 

TO 

1 3 « 3 1 3 1 

X bO 

10,2Z13 

TO 

10,225/ 

X (b 

11,2530 

TO 

11,2565 

2X5 

12,2/53 

TU 

12,2776 

129 

13 

.3132 

TO 

13,3205 

I6l 

10,2250  . 

10 

1 U , 2 30b 

177 

1 1 ,2565 

TO 

X 1 « ^633 

2Xb 

12,2/77 

1 u 

12,3020 

130 

13 

.3206 

TO 

13,3220 

IbZ 

10,230 1 

10 

10,2331 

17B 

11,2635 

TO 

11,2677 

21  / 

12,3021 

TO 

12,3053 

131 

13 

.3221 

TO 

13,3276 

163 

10,2332 

TO 

10,2351 

X ^9 

11,2700 

TO 

11,2/16 

218 

12,3055 

TO 

12,3115 

132 

13 

.32/7 

TO 

13,3352 

165 

10  ^ 

10 

10,2363 

ItjO 

1 1 *2717 

TO 

1 1,2  757 

2X9 

X 2 « 3 X X 6 

TU 

X 2 « 3 X 34 

l“33 

13 

.3353 

TO 

13*3364 

X65 

10,236A 

TO 

10,2522 

iBl 

11,2760 

TO 

11,3006 

220 

12,3135 

TO 

12,3160 

135 

13 

.3355 

TO 

13,3531 

l66 

10,2A23 

TO 

10,256  7 

Xb2 

11 *3007 

TO 

1 1 ,3037 

221 

1^2  • 3 X 6 1 

T'U 

12,3165 

135  - 

t sz 

TO 

X 3 * 3473 

X6  ^ 

10,2A70 

TO 

10,250  / 

183 

11,3050 

TO 

11,3106 

222 

12,3166 

TO 

12,3221 

570 

13 

.35  /5 

TO 

13,3513 

228 

10,2510 

10 

10,2555 

185 

11,3107 

TO 

11,3120 

223 

12,3222 

TO 

12,3266 

861 

13 

.3515 

TO 

13,3572 

229 

10,25A5 

TO 

10,2573 

Xbt) 

11,3121 

TO 

11,3165 

225 

12,326  7 

TO 

12,3335 

862 

13 

.3573 

TO 

13,3613 

230 

10,257A 

TO 

10,2636 

l86 

X 1 ♦ 3 1 66 

225 

12,3335 

10 

12,3377 

863 

13 

.3615 

TO 

13,3615 

946 

10  ^Zb'3J 

T U 

\0  ^ Zb'j Z 

X87 

1 1 I 3 1 67 

I'd 

11 ,3237 

226 

1 2 » 34UO 

]t>- 

12,3532 

865 

X’4 

T-U' 

15,2052 

3bO 

10,2653 

TO 

10,2/0 / 

188 

11,3250 

TO 

11,3251 

22/ 

12,3533 

TO 

12,3500 

665 

15 

.2053 

TO 

15,2112 

381 

i 0 , 7 lU 

189 

1 1 ,3252 

T 0 

1 1 ,3277 

3X9 

X2 ,3>^1 

1 u 

12,3552 

666 

14 

♦ 21X3 

TO 

X4*iil34 

38<^ 

10,2756 

TO 

10,3025 

I9O 

1 1,3300 

TO 

11 ,3321 

320 

12,3553 

TO 

12,3555 

867 

15 

.2135 

TO 

15,2207 

383 

10,3025 

TO 

10,3077 

l9l 

1 1,3322 

TO 

11,3323 

946 

12,3556 

TO 

12,3623 

868 

15 

.2210 

TO 

15,2256 

385 

♦ 3 i 0^ 

X92 

TO 

12,202  7 

X 2 *3624 

TO 

X 2 1 3626 

956 

.2257 

TO 

X4*^3lb 

385 

10,3101 

TO 

10,3l26 

I93 

12,2030 

TO 

12,2065 

106 

13,2000 

TO 

13,2052 

138 

15 

.2316 

TO 

15,2325 

386 

10,3i2  r , 

1 ^ * 3 i 6 ^ 

I95 

12  f 

TO 

12,2133 

xur 

13,2053 

1 U 

X 3 f 2U44 

X39 

14 

.2325 

TO 

15,2500 

387 

10,3162 

TO 

10,3225 

195 

12,2135 

TO 

12,2151 

10b 

13,2055 

TO 

13,2065 

150 

15 

.2501 

TO 

15,2506 

388 

10,3226 

TO 

10,3251 

196 

12,2152 

TO 

12,2216 

lOy 

13,2065 

TO 

13,2123 

151 

15 

.250  7 

TO 

14  *1^466 

389 

10,3252 

TO 

10,3260 

I97 

12,2217 

TO 

12,2270 

1 10 

13,2125 

TO 

13,2155 

152 

15 

.2557 

TO 

15,2526 

39O 

10,3261 

TO 

10,3321 

198 

12,2271 

TO 

12,2305 

111 

13,2156 

TO 

13,2210 

153 

15 

.2527 

TO 

15,2552 

391 

X^  «^322 

X 3 « 22  X 1 

TU 

13,2251 

X 44 

1 4 

.2553 

X 4 * ^6^0 

392 

10,3356 

TO 

10,335/ 

9^6 

12,2323 

TO 

12  ,2351 

113 

13,2252 

TO 

13,2315 

195 

15 

.2621 

TO 

15,2666 

393 

lO 

I i « 3 

X ^ « ^342 

X X4 

13,2316 

TU 

13,2330 

r4-6 

t-4 

.-2B67 

TO 

15,2730 

395 

11,2055 

TO 

11,2105 

201 

12,2353 

TO 

12,2510 

115 

13,2331 

TO 

13,2361 

157 

15 

.2731 

TO 

15,2751 

395 

11,210b 

TO 

11,210/ 

202 

12,2511 

TO 

12,2555 

116 

13,2362 

TO 

13,2526 

158 

15 

.2752 

TO 

15,3002 

396 

1 1 y 2 i 3 1 

2U3 

12,2556 

T-O 

X <;  » Zh  fb 

X X f 

13,2527 

TU 

13,2555 

159 

14 

.3003 

TO 

15,3052 

397 

11,2132 

TO 

II.2I53 

205 

12.2577 

TO 

12,2520 

llB 

13,2555 

TO 

13,2570 

150 

15 

.3053 

TO 

15,3105 

398 

to 

XX  y 2 2 Q 3 

10^ 

12,2521 

70 

1 2 ,2  5*3  6 

- — lr3i2A/i. 

TU 

13,2523 

1-5  1-- 

i4 

1 31 U5 

TO 

15,3155 

399 

11,2205 

TO 

11,2233 

206 

12,2537 

TO 

12,2562 

X2U 

13,2525 

TO 

L 3 t 666 

152 

14 

.3156 

TO 

15,3220 

500 

11,2235 

10 

1 1 ,2265 

20  7 

12,2563 

TO 

12,2613 

X2X 

13,256 / 

TO 

13,2636 

153 

14 

.3221 

TO 

15,3276 

501 

633'*36A 

ruu 

SYSTfcM  1 
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PAGtU57 

" UCCUPItD 

LO^Al IONS 

PAGg 

ullurieo 

LO^Al  lUIMb 

KAVat 

OH-UKXtL» 

LO^AT lONb 

PAGt 

^CCUPTtO 

LO^ATlONb 

PAGfc 

iA,327? 

10 

i‘t  ,33i<e 

t*0^ 

15,3430 

TO 

15,3A53 

359 

16,3  762 

TO 

16,3763 

946 

20,21 75 

TO  20,2231 

479 

l‘t,33‘(  t 

TO 

*l03 

15,3454 

TO 

X5f33l5 

360 

Xt  * 2 u u u 

10 

1 7 f 2025 

519 

2012232 

1 U 20 ,2262 

480 

U,3'tO't 

TO 

U, 3^*63 

*iOA 

15,3516 

10 

15,3553 

361 

17,2026 

TO 

17,2100 

520 

20,2263 

TO  20,2317 

4bl 

TO 

l't,334<i 

*i05 

15,3554 

TO 

15,3565 

362 

17,2101 

TO 

17,21A3 

521 

20,2320 

4B2 

i‘t,3b'f3 

10 

!<*, 360*1 

*i06 

15,3566 

TO 

15,3626 

363 

I7 ,2 1 AA 

TO 

17,2213 

522 

20,2321 

TO  20,235A 

555 

i't,3b0b 

fO 

l*i,363> 

*107 

15,3627 

TO 

15,3633 

364 

17,221A 

TO 

I7,22b2 

523 

20,2355 

TO  20,2A10 

556 

1 * 36  36 

TO 

1*1,366^ 

408 

15*363^ 

TO 

X 5 ♦ 37CJ6 

36b 

X 7 « 2 2 6 3 

TO 

X ^*2326 

524 

20,29 I X 

TO  20,2995 

557 

i *V  t 3666 

TO 

1*1,3723 

40*7 

15,3707 

TO 

15,3724 

366 

17,2327 

TO 

17.2A01 

625 

20,2AA6 

558 

I A , 3 72  6 

TO 

1*1,3  75I 

AlO 

l5(^  T25 

TO 

15,3  726 

V^6 

1 7 ,2A02 

10 

17,2412 

526 

^0 ,2447 

T0~20,2A76 

5^9 

l‘t,375^ 

TO 

14,3753 

*746 

16,2000 

TO 

16,2004 

17,2A13 

TO 

17,2427 

627 

20,2477 

TO  20,2526 

660 

15,2000 

329 

16,2005 

TO 

16,2036 

4b  7 

17,2A30 

TO 

17,2455 

52b 

20,2627 

TO  20,2563 

561 

i ^ y ^uO i 

TO 

15,2035 

330 

X 6 » ^03  f 

TO  ■ 

i 6 • 1 03 

4bb 

1 7 ,2A56 

TO 

17,2507 

529 

“20 , 2S69 

] 0 20 , 2606 

562 

13,^U36 

TO 

15,2102 

331 

16,210a 

TO 

X 6 1 ^ X ^6 

4b9 

17,2510 

TO 

17,2566 

530 

20,2607 

TO  20,2635 

563 

i ^ f i03 

T 0 

i t)  ♦ ^ A 5^ 

332 

1 6 « ^ X 4 ^ 

TO 

X 6 t X 6 

X^»2b67 

f 0 

X7, 2507 

-531 

^0i263& 

TO  20,2675 

564 

ib,21b3 

TO 

15,2225 

333 

16,2217 

TO 

16,2254 

X 

17,2610 

TO 

l7,26l7 

532 

20,26  76 

TO  20,2703 

565 

10 

15,2235 

334 

16,2255 

TO 

16,2303 

1 7,2  620 

TO 

17,2665 

533 

20,270a 

TO  20,2743 

566 

15,2236 

TO 

15,2271 

335 

16,2304 

TO 

l6 ,2361 

9y3 

17,2666 

TO 

17,2714 

534 

20,274A 

TO 

?0,?767 

56  7 

15,2272 

TO 

15,2331 

336 

16,2362 

TO 

l6,2A26 

494 

17,2715 

TO 

17,2730 

635 

20,27  70 

TO 

20,3027 

56B 

X 5 , <^  3 32 

TO 

X b * ^ 3 *5  3 

337 

X 6 * <^427 

TO 

X 6 * 2!)U  X 

495 

17,2  731 

TO 

1 7 , 2775 

536 

20 , 3030 

iu-zutiy97 

585 

15,2354 

TO 

15,241 7 

33b 

16,2502 

TO 

16,2550 

496 

1 7,2  7 76 

TO 

17,3050 

537 

20,3050 

TO 

20, 310a 

586 

TO 

15,2424 

339 

1 6 * ^b5 X 

TU 

X b f 2 1 2 

49  7 

1-7,3051 

TO 

17,3115 

53b 

- 20-,31U5 

TO 

20,3156 

58  7 

15,2425 

TO 

15 ,2A62 

340 

16,2613 

TO 

16,2641 

49b 

17,3116 

TO 

17,3163 

539 

20,3157 

TO 

20,3213 

588 

15,2463- 

TO 

1 5,2475 

,341 

X b f 2642 

buo 

17,3164 

TO 

17,3232 

540 

20,321a 

TO 

20,32AA 

589 

75,2^476 

TO 

Xbf^bBO 

392 

X 6 1 4 6 9“3 

10 

16*27X4 

bOX 

17,3233 

TXJ 

17,3303 

'59-1 

20^,  3245 

TO 

20,330a 

60  7 

15,2531 

TO 

l5,25«;4 

343 

l6,27l5 

TO 

l6,2  76l 

502 

l7,330A 

iO 

17,3354 

542 

20,3303 

TO 

20,33A7 

608 

1 b « ^{>2 

TO 

Xb  ,3Ul9 

bUb 

17,3355 

TO 

17,3425 

543 

20,-3350 

TO 

20,3A07 

609 

15,2601 

TO 

15,2646 

345 

16,3015 

TO 

16,306  7 

5UA 

1 7,3426 

TO 

17,3436 

544 

20,3A10 

TO 

20,3A3A 

6l0 

15,2647 

TO 

15,2712 

346 

16,3070 

TO 

16,30  73 

bUb 

17,3437 

TO 

17,3504 

545 

20,3A35 

TO 

20,3A37 

6li 

15,2713 

TO 

15,2740 

347 

l6,307A 

TO 

16,3153 

506 

17,3505 

TO 

17,3510 

546 

20,3AA0 

TO 

20,3A62 

6l8 

15,2741 

TO 

1 5 , 2 7,7  7 

348 

16,3154 

TO 

16,3235 

50  7 

17,3511 

TO 

17,3532 

547 

2U,3A03 

TO 

20,3512 

6l9 

399 

16*3236 

TO 

16,3315 

5Ub 

17,3533 

TO 

17,3601 

-548  - - 

-20,3513 

TO 

J530 

620 

15,3031 

TO 

15,3062 

350 

16,3316 

TO 

16,3374 

509 

17,3602 

TO 

17,3647 

549 

20,3531 

TO 

20,3566 

621 

Xb  , J06i 

T 0 

15 ,31 1 3 

3bX 

16,3375 

TO 

16 ,3A01 

bxo 

17,3650 

TO 

17,3720 

-550 

20-,356-7 

TO 

20,3627 

622 

15,3114 

TO 

15,3153 

3b2 

16,3402 

TO 

16,3A07 

512 

17,3721 

TO 

17,3766 

551 

20,3630 

TO 

20  * 3664 

623 

Xb,3l59 

TO 

15,3226 

353 

16,3410 

TO 

16,3471 

bl3 

17,3  767 

TO 

17,3770 

946 

20,3665 

TO 

20,370A 

62A 

1^,J.-A0 

1 6 * 3472 

TO 

X b * b bb 1 

20 1 ^000 

1 0 

X 36 

20, 3705 

TO 

20 ,374 A 

625 

15,3241 

1 0 

15,3303 

3bb 

16,3552 

(0 

X 6 * 3b2 6 

515 

20,20A6 

10 

20,2107 

475 

20,3745 

TO 

20,3761 

626 

X j , 3309 

I 0 

3b6 

1 6 * 3627 

7-0 

16,3672 

bib 

- -2-0,2110 

TO 

20,2126 

476 

20,370? 

TO 

20,3766 

627 

15,3355 

TO 

15,3401 

357 

16,3673 

TO 

16,3  745 

517 

20,212  7 

TO 

20,21AA 

477 

20,3767 

TO 

20,377A 

628 

15,3402 

TO 

15,3427 

358 

16,3746 

TO 

16 ,3  76l 

5lb 

20,2X4b 

TO 

20,21 74 

478 

20,3775 

TO 

20,3776 

9A6 
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DEir^-,”r967 


1^AT5E1T5^8~ 


UCtUHItD 

LOOA (IONS 

RAti£ 

OCCUR  I eO 

LOCAT IONS 

OCCUR l£0 

LOCATIONS 

PAOt 

OCCDP^ltU 

LOCATIONS- 

paoet- 

21,2000 

TO 

TO 

21,2036 

5 

22,2235 

TO 

22,2306 

88l 

23,2620 

10 

23,2660 

438 

25,2947 

TO 

TO 

25,2113 

686 

21,2037 

2 i * 2 i 0 3 

5 T5 

Z 2 « 2306 

TO 

22  * 23&  f 

0 0 2 

23  * 266 1 

TO 

23*2725 

439 

25  * 2 1 1 4 

25,2162 

689 

21 ,210<f 

TO 

21,2134 

316 

22,2370 

TO 

22,2441 

883 

23,2126 

TO 

43,2110 

440 

26,2163 

TO 

25,2227 

690 

21,2136 

10 

21  ,2l6  1 

6 17 

22,2442 

TO 

22,2616 

884 

23,2111 

TO 

23,3023 

441 

25,2230 

TO 

25,2274 

691 

21,2170 

10 

21,2243 

61a 

22,2616 

TO 

22,2654 

885 

23,3024 

iO 

23,30i0 

442 

26,2215 

TO 

^5,^337 

692 

21 ,22AA 

TO 

21,2314 

579 

22,2665 

TO 

TO 

22,2616 

886 

23,3011 

TO 

23,3102 

443 

26,2340 

TO 

25,1:405 

693 

^ 1 f 23  1 b 

TO 

21  ,23T2 

TiSO 

22,2617 

2~2  * 2 6 6 6 

887 

2? * 3 103 

10 

2B  ,^l  32 

444 

25  *"24^6 

TO 

25,2447 

694 

21,2373 

TO 

21,2411 

5B1 

22,2667 

TO 

22,2101 

888 

23,3133 

TO 

23,3167 

445 

26,2460 

TO 

25,2473 

695 

2 I f 2<t  1 2 

TO 

2l *2^56 

5b2 

22**2702 

TO 

22,2  133 

889 

23*3170 

1 0 

23,3233 

446 

25,2474 

ru^25*042 

713 

21 ,2A5  1 

TO 

21,2640 

583 

22,2734 

TO 

22,3000 

890 

23 ,3234 

TO 

23,3270 

447 

26,2543 

TO 

25,,;6l0 

714 

21  ,26.41 

TO  -21,2643 

584 

22,3001 

TO 

22,3016 

89l 

23,3211 

TO 

23,3327 

448 

25,2611 

TO 

25,2662 

715 

i V 

£.  1 

585 

22,3017 

TO 

22  * 3U66 

892 

23 , 333O 

TO 

23*3362 

44-9  - 

25  *2603 

TO 

2-5,2730 

7I6 

21,2661 

I'o 

21,2671 

6y0 

22,3067 

TO 

22 ,3076 

893 

23,3363 

TO 

23,3364 

946 

25,2731 

TO 

25,1:775 

7I7 

21 *2572 

TO 

2 i * 2o2^ 

59l 

22,3077 

TO 

22*31 20 

894 

|0 

24  * 2046 

4 11 

25 ♦ 27 /6 

TO 

25,3003 

7I8 

21,2626 

TO 

2i *2670 

6V2 

22,3121 

TO 

22 ,31  11 

895 

24,2041 

10 

24,2125 

412 

25,3004 

TO 

25,3025 

7l9 

21,2671 

TO 

21,2133 

593 

22,3172 

TO 

22,3236 

896 

24,2126 

10 

24,2206 

4l3 

26,3026 

TO 

25,3027 

946 

21,2134 

TO 

21,2770 

6y4 

22,3237 

TO 

22,32 7O 

89  / 

24,2207 

10 

24,2261 

4l4 

26,2000 

TO 

26,2056 

321 

21,2171 

10 

21 ,3032 

595 

22,3271 

TO 

22,3326 

898 

24,2262 

TO 

24,2326 

415 

26,2067 

TO 

26,2140 

322 

2 1 * 30 3 3 

TO 

596 

22,3327 

22*3351 

899 

24 ,2327 

1 0 

24,2406 

4l6 

T"0 

£t * 2 2 2 I 

323 

21,3101 , 

TO 

21,3150 

697 

22,3362 

TO 

22 ,3366 

9UO 

24,240  1 

10 

24,2460 

417 

26,2222 

TO 

26,2277 

324 

21 , 3”1 5 1 

TO 

^ ^ *3^23 

698 

22  *3367 

I 0 

22  * 3425 

<^4,4461 

TO 

24,2631 

4l8 

26  *2  5^0 

TO 

26,2357 

325 

21',3224 

TO 

21 ,3263 

699 

22,3426 

TO 

22,3470 

9O2 

24,2532 

TO 

24,2610 

4l9 

26,2360 

TO 

26,2440 

326 

21,3264 

TO 

2 1 ,3306 

600 

22,3471 

TO 

22,3620 

9O3 

24,2611 

TO 

24,2666 

420 

26,2441 

TO 

26,2517 

327 

TO 

22,3635 

24*2  666 

T'O 

24,2742 

42"1 

26,2520“ 

-T'O 

26,2524 

328 

21,3346 

TO 

TO 

21,3401 

603 

22,3636 

TO 

^2,3661 

9U6 

24,2  143 

10 

24,2115 

422 

26,2525 

TO 

26,2532 

552 

C i * ^ *t  i 0 

22  * 3562 

2 2 * 36 10 

9O6 

44,2  1 16 

\ 0 

24,3066 

423 

26,253  3” 

TO 

26,2575 

5t>3 

21,3417 

TO 

21 ,3462 

62y 

22,3611 

TO 

22  * 3646 

9O  1 

24,3067 

?0 

44,3067 

424 

26*25  it 

TO 

26,2636 

571 

21 ,3463 

TO 

21,3630 

630 

22,3647 

TO 

22,3704 

9O8 

24,30 lO 

10 

24,3132 

425 

26,2637 

TO 

26,2652 

572 

21  ,3631 

TO 

21 ,3672 

631 

22,3706 

TO 

22,3141 

9Uy 

24,3133 

TO 

24,3213 

426 

26,2663 

TO 

26,2712 

573 

41,3613 

TO 

21,3621 

21,3671 

632 

22,3742 

TO 

22 ,3  143 

946 

24,3214 

TO 

10 

24,3267 

427 

26,2713 

TO 

26,2754 

612 

6 33 

2 3 * 2^0  0 0 

TO 

2 3 * ^0  36 

2V4 

24,32  lO 

24  * 335 1 

42B 

26,2736 

TO 

26,3021 

613 

21 ,3672 

10 

21,3136 

634 

23,2037 

TO 

23,2107 

296 

24,3362 

TO 

24,3430 

429 

26,3022 

TO 

26,3070 

6l4 

2 1 * ^ ^70 

635 

23  *2l 10 

TO 

2^3  * 2 1 62 

296 

24,3431 

(0 

24,3467 

430 

26,30tI 

TO 

26 ,3150 

6l5 

21,3771 

TO 

21,3772 

946 

23,2163 

TO 

23,2242 

29/ 

24,3410 

TO 

24,3632 

431 

26,3151 

TO 

26,3174 

6l6 

22,2000 

TO 

22*2U33 

8 ^5 

23,2243 

TO 

23,2321 

298 

24,3533 

TO 

24,3602 

432 

26,31 15 

TO 

26,3176 

946 

23,23  1 1 

2 99  " 

24  * 3603 

1 0 

24  *"3634 

4 3^ 

2 7t2OO0 

Tt» 

27 i2004 

674 

22,2070 

TO 

22,2123 

877 

23,2400 

TO 

23,2464 

300 

24,3635 

TO 

24,3113 

434 

27,2005 

TO 

27,2050 

675 

2 3 * 2 5 1 f 

— 2-4"*  37  i"4^  - 

-fu 

24,3743 

43-5  - 

"TO 

27*<i^064 

676 

22,2140 

10 

22,2176 

8 ^9 

23,2520 

TO 

23  ,2666 

436 

24*3/44 

10 

24,3146 

946 

27,2065 

TO 

27,2126 

678 

22,2176 

10 

22,2234 

880 

23,2656 

TO 

23,2617 

43 1 

25*2000 

10 

26,2046 

687 

27,2127 

TO 

27,2203 

679 
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otv“7V~rg67 


PAtitU59 


'uccoTato 

LOCAl IONS 

FAQt 

OCCOFltD 

LOCATIONS 

PAGt 

" OCCUR ItD 

LuCATTUNS 

PAOl 

'mCUPTtP 

Locations 

PAUt 

2 7,2204 

TO 

27,2253 

660 

30,2436 

10 

30,2463 

626 

31,2410 

lu 

31,2416 

8l4 

33,3416 

TO  33,3464 

737 

27,2234 

TO 

27,2321 

6b1 

3U  « 464 

TO 

■30^2467 

629 

31 ,2917 

fo 

31 ,2420 

947 

33  *3465 

TO  33,3521 

738 

2 7,2322 

TO 

27,2357 

6b2 

30,2470 

TO 

30,2503 

B32 

32,2000 

TO 

32,2047 

9II 

33,3522 

TO  33,3523 

947 

27,2360 

10 

27,2427 

fcBi 

30,2504 

TO 

30,2552 

H33 

32,2050 

TU 

32,2124 

yi2 

34,2000 

TO  34,2055 

645 

2 f, 2430 

TO 

2 7,2445 

6b4 

30,2553 

10 

30,2573 

B34 

32,2125 

10 

32 ,2142 

9I3 

34,2056 

TO  34,2131 

646 

27,2446 

TO 

27,2503 

665 

30,25  79 

TO 

30,2602 

B35 

32,2143 

TU 

32,2224 

9I4 

34,2132 

TO  34,2205 

647 

27 ,2504 

TU 

2 7 , iit)!  U 

709 

jO  * <i6U:J 

I 0 

3U  f <^650 

836 

S2 

TO 

32t^3Ub 

9 1 5 

- 34T22U6 

TO  34,2263 

648 

27,2511 

TO 

2 7,255“* 

710 

30,2651 

TO 

30,2b  76 

B3  / 

32,2306 

TU 

32,2365 

9l6 

34  «2264 

TO  34,2341 

649 

2T72555^ 

TU 

27 ,25f,3 

7ii 

30,2677 

TO 

3U  , X 3 

b3a 

3 ♦ 2 ,56  6 

TO 

32,2447 

9t7 

34,23F2 

TT)  734,2406 

650 

27,2564 

TO 

27,2612 

721 

30,2714 

TO 

30,2  771 

B39 

32,2450 

lU 

32,2527 

9l8 

34,2407 

TO  34,^444 

653 

27,2613 

TO 

87,2661 

782 

30,2772 

10 

30,3041 

640 

32,2530 

TU 

32,2607 

9I9 

34,2445 

TO  34,2505 

654 

^ I ^66^ 

TU 

27,8667 

7ii3 

30,3042 

TU 

30,3102 

841 

3 2~,  6 i U 

TO 

J 2 f 2666 

920 

^4 ,2506 

TO  734,2563 

655 

27,2670 

TO 

27,8732 

784 

30,3103 

TO 

30,3140 

b4^; 

32,266  7 

TO 

32 ,2744 

921 

34  1 25C)4 

TO  34,2627 

6 56 

t <^733 

TU 

^7  * 3U(J^ 

7<^5 

30^3X41 

TO 

3U  1 3iJU5 

843 

3;^  ♦<::  T46 

1 0 

5^  1 3UU4 

922 

34 , 2^6*30 

TO  34,2TlO 

657 

27,3003 

TO 

27,3050 

30,3206 

10 

30,3221 

B44 

32,3005 

lU 

32,3027 

923 

34,2711 

TO  34,2734 

658 

27,3051 

TO 

27,3113 

727 

30,3222 

TO 

30,3272 

B45 

32,3030 

TU 

32,3057 

924 

34,2735 

TO  34,2760 

659 

27,3114 

TO 

27,3158 

754 

30,3273 

10 

30,3351 

B46 

32,3060 

TO 

32,3127 

925 

34,2761 

TO  34,3005 

660 

27.3153 

TO 

87,3220 

755 

30,3352 

TO 

30,3413 

B4  I 

32,3130 

TO 

32,3131 

947 

34,3006 

TO  34,3065 

66l 

27,3221 

TO 

27,327,3 

756 

3 Cr , 3 4 1 4' 

TO 

30,3444 

B48 

' JTt^JUUO-- 

10 

339201^ 

5^6 

34T30B6 

TCT34,3147 

662 

2 7,3264 

10 

87,3327 

757 

30,3445 

TO 

30,3465 

B50 

33,2016 

TU 

33,2062 

697 

34,3150 

TO  34,3231 

663 

^ 7 » 333U 

jO 

27,3333 

758 

3O  ,3466 

T 0 

30  ^ 35U6 

85i 

33,2063* 

TO 

33,2127 

698 

34V3232' 

TO  34,3313 

664 

2 7,3334 

TO 

2 7 ,3358 

759 

30,3507 

10 

30,3546 

652 

33,2130 

TO 

33,2172 

699 

34,3314 

TO  34,3374 

665 

27,3353 

TO 

2 7.340  7 

760 

30,3547 

10 

30,3576 

B53 

33,21 73 

TU 

33,2243 

7OO 

34,33  75 

TO  34,3454 

666 

7 1 ^‘♦SU 

76l 

30 ,3577 

TO 

3U  f J6  X ^ 

854 

33,2244 

TO 

33,2325 

7OI 

34-,  3455 

TO  34,3475 

667 

27,3451 

TO 

87,350  7 

762 

30,3613 

10 

30,3641 

B5!> 

33,2326 

TU 

33,8374 

7O2 

34,3476 

TO  34,3551 

668 

TU 

27,3521 

763 

3O , 364^ 

T 0 

30,3676 

b:>6 

33  /b 

TO 

33^2442 

7O3 

34,3552 

to  34,i6^5 

669 

27,3522 

TO 

87,3534 

lb<^ 

30,3677 

10 

30,3  724 

65  7 

33,^^443 

TU 

33,2510 

7O4 

34,3626 

TO  34,3665 

670 

87,3535 

TO 

8 7,3606 

765 

30,3725 

TO 

30,3770 

658 

33,2511 

TU 

33,8557 

7O5 

34 1 3666 

TO  34,3713 

67l 

■ 27,360? 

TO 

27,3610 

946 

30,3771 

TO 

30,3  772 

946 

33,2560 

TU 

33,2615 

7O6 

34*37X4 

TO  34,3756 

678 

30,2000 

TO 

3U,2U4fU 

6l  7 

31,2000 

TO 

31,2037 

bUi 

33,2616 

TO 

33,2661 

707 

34,3757 

TO  34,3760 

947 

3 1 f 0 

TO 

3 X ♦ <iU54 

bo^ 

33 ,2662 

TO 

33,2723 

70  8 

- 35,2000 

TO  35,2013 

77 

30.204  7 

TO 

30,2113 

B19 

31,2055 

TO 

31,2123 

803 

33,2  724 

lu 

33,2732 

728 

35,2014 

TO  35,2061 

452 

tu 

3 X 

TO 

31 ,2130 

804 

3312  733 

TO 

3 3 * 3UO4 

72F 

35,2062 

TO  35,2121 

453 

30,2133 

TO 

30,2175 

821 

31,2131 

TO 

31,2152 

8O5 

33,3005 

lu 

33,3051 

730 

35,2122 

TO  35,2200 

454 

30,2176 

10 

30,2242 

B2^ 

31,2153 

TO 

31,2164 

BOB 

33,3052 

TO 

33,3121 

731 

35,2201 

TO  35,2260 

455 

— 30,2243 

TO 

30,2310 

823 

31,2165 

TO 

31,2220 

8O9 

33,3122 

10 

33,3166 

73^ 

35,2261- 

TO  35,2337 

456 

30,23li 
SO,  232  r 
30 ,236b 
30,2A12 


10  30,2326 
YO  30, 23f 3 
10  30,2M1 
10  30,2A33 


624 

B23 

B2b 

62  r 


31,2221 
31,2265 
31,2325 
31 ,2360 


TO  31,2264 
TO  31^2324 
10  31,235? 
TO  31,2407 


bIO 

Bll 

Bl2 

613 


33,3167 
33,3233' 
^ -ui  I 


TO  33,3232 
TO  33,3300 
10  33.3347 


733 
T34 
735 
7 36 


2340 

24  ir 

2501 

2560 


TO  35,241b 
TO  35,2500 
TO  35,2557 
TO  35,2632 


457 

458 

459 

460 
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T9CT 


PAljtU60 


T3EI 


OCCUHItO 

LOOATIUNS 

HAOt 

occopreo 

LGOAl loNb 

PAt>t 

^ OtCUPlEU 

LOOATlONb 

HaOe 



UOtATIONS 

haoe 

3S,Z633 

TO 

35,2  701 

*t6l 

35,3610 

TO 

35,3611 

( 

36,3112 

TO 

36,3132 

933 

37,2352 

TO 

37,2525 

1083 

3S,Z70Z 

TO 

35  rO  r 

3b  9 ^000 

TO 

3b  9 ^030 

T3V 

TO 

36 ,31<»5 

934 

3 / ,^4^6 

TO 

3T  9^504 

1085 

3b,Z7lO 

TO 

35,2  7l6 

A63 

36,2031 

TO 

36,2076 

7^0 

36,3156 

TO 

36,3162 

935 

37,2505 

TO 

37,2563 

1085 

35,Z  7l  7 

TO 

35,2756 

36,2077 

TO 

36,2157 

751 

3693163 

10 

36,3252 

936 

37,2565 

TO 

37,2651 

1086 

3b,Z-757 

TO 

35,3003 

A65 

36,2150 

TO 

36,2215 

752 

36, 

TO 

36,3320 

937 

37,2652 

TO 

37,2711 

1087 

3S  ,300<» 

TO 

35,30^,3 

36,2215 

TO 

36,2261 

753 

36,3321 

TO 

36  9 33<^b 

93b 

37,2712 

TO 

37,2765 

1088 

35 

TU  r55*3iZC 

3b  9 &2 

TO 

,^69^^  f ! 

3'6~9  3 3^6 

T 0 

36,3^13 

939 

37 ,2765 

TU 

37,3050 

1089 

3b,31Z3 

TO 

35,3176 

36,2300 

TO 

36,2335 

755 

36,3515 

TO 

36,3571 

950 

37,3051 

TO 

37,3112 

1090 

35,3177 

10 

35,3250 

**b9 

, 36  9^33!> 

TO 

3 6 , 2 3 5 3 

7^»6 

36,35  72 

TO 

36,3512 

95T: 

“77 , 3*1 17 

tu 

37,3162 

IO9I 

35,3Z51 

TO 

35,3325 

A70 

36,2355 

TO 

36,2502 

36,3513 

TO 

36,3552 

952 

37,3lb3 

TO 

37,3250 

1092 

35.33Z6 

TO 

35,3375 

571 

36,2503 

10 

3b  9 Z^^b 

758 

36,3553 

TO 

36,3601 

953 

37,3251 

TO 

37,3316 

1093 

35  *3376 

1 0 

35  »3*f  16 

36,257.7 

TO 

369^^12 

759 

36  9 3602 

TO 

36  9 363<f 

9^^ 

3?  93317^ 

TO 

379^362 

1095 

35.3A1 7 

TO 

65l 

36,2513 

TO 

36,2515 

750 

36 ,3635 

TO 

36,3672 

955 

37,3363 

TO 

37,3551 

1095 

35 ,3A7Z 

T 0 

bm 

3b  f^^lb 

TO 

3b9<it>‘t4 

rt?i 

36,36/3 

TO 

3b  9 ^6 

957 

o795»+*f<c  ru 

1096 

35,3501 

TO 

35,3510 

653 

36,2555 

TO 

3b  9^602 

7b2 

37,2000 

TO 

37,2022 

1077 

37,3521 

TO 

37,3573 

1097 

35,3511 

TO 

35,351  7 

655 

36,2603 

TO 

36  9 

753 

37,^023 

TO 

37,2100 

1078 

37,35  75 

TO 

37,3653 

1098 

35,3520 

TO 

35 ,35<V^ 

57l 

36,2625 

TO 

36,2705 

yZy 

37,2101 

TO 

37,2151 

1079 

37,3654 

TO 

37,3720 

IO99 

35,357.5 

6 72 

36,2705 

TO 

36,2765 

930 

37,2152 

TO 

37,2222 

1080 

37,3721 

TO 

37,3753 

1100 

35  * 35^6 

TO 

35  * 

869 

3b  9 <^765 

TO 

■369  30<»5 

931 

37,2223 

TO 

37 , 2275 

IObI 

^Ti775t. 

to 

37,3755 

95  7 

35,3563 

TO 

35,360  7 

870 

36,3066 

TO 

36,3111 

932 

37,2275 

TO 

37,2351 

1082 

UtC  7«  1967 
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^OOU 

TO 

437 1 

PARAGRAPH 

]« 

010 

4400 

ID 

4 n / 

PARAGRAPH 

Oil 

5U0U 

TO 

paragraph 

012 

5400 

TO 

6 n f 

kakaoraph 

013 

6000 

TO 

637  f 

pAKAtaRAHH 

OlA 

6<*00 

TO 

bl7  ( 

paragraph 

» 

015 

7000 

TO 

1371 

paragraph 

n 

016 

7*tOO 

TO 

f n t 

PARAGRAPH 

at 

017 

00,2000 

TO 

00,2377 

PARAGRAPH 

020 

OOi^^tOO 

TO 

00,2  17  1 

pARAcjKApH 

021 

00,3000 

TO 

00,337  1 

PARAOKAPH 

# 

022 

“00,3^0X1 

■ TO 

00,3777 

PARAGRAPH 

ijf 

023 

ROPE 

MUUULt 

1, 

SIDE 

Af 

SENSE 

LINE 

set 

05 

(WIRES 

65-80) 

ROPE 

TMUDULE 

1 t 

SIDE 

3 « 

SENSE 

LINE 

5tT 

05 

(fllTTES 

65-80) 

rope 

MUUULt 

1 , 

SIDE 

A* 

b&Nbt 

Line 

set 

06 

(WIRES 

81-96) 

ROPE 

MUUULt 

i « 

SIDE 

b« 

SENSE 

LINE 

SET 

06 

(WIRES 

81-96) 

ROPE 

MUUULt 

1 , 

SIDE 

A, 

sense 

Line 

SET 

07 

(WIRES 

97-112) 

rope 

MOOULE 

1 , 

SIDE 

bf 

btNbt 

Line 

StT 

07 

(WIRES 

91-112) 

KUPE  MUUULt 

1 • 

b IDE 

A t 

SENbt 

LINE 

StT 

08 

(WIRES 

113-128 

ROPE 

MUUULt 

1 , 

SIDE 

b, 

SENSE 

Line 

SET 

08 

(WIRES 

113-128) 

ROPE 

MUUULt 

1 • 

SIDE 

A • 

sense 

Line 

StT 

01 

(WITTES 

i-n>) 

ROpE 

MUUULt 

1 , 

SIDE 

b« 

SENSE 

LINE 

SET 

01 

(WIRES 

1-16) 

ROPE 

MUUULt 

1 « 

SIDE 

At 

sense 

LINE 

SET 

02 

(WIRES 

17-32) 

ROPE 

MUUULt 

1 « 

SIDE 

b t 

btMbt 

Line 

btT 

(WIRES 

1 TPS  2 7 

UI.ZOOU  tU  Oi.zjyr 
01.2A00  TU  01,2777 
01,3000  TO  01,3J7r 
01 ,3A0O  yo  01,3  f7  f 


2000  TO  OA 
2AOO  TO  OA 

3000  TO  OA 


2371 
2 17  1 
3371 


3A00 


TO  0A,3171 


pARAoRApH  # 02A 
PARAGRAPH  # 025 
PARAGRAPH  A 026 
paragraph  a 027 

PARAGRAPH  OAO 
PARAGRAPH  A OAl 

paragraph  a 0a2 

PARAGRAPH  A 0A3 


ROpE  MOpULt  1 
HOPE  moooGt^  I 
ROPE  MUUULt  1 
rope  MuOULE  1 


SipE  A 
SiOE  B 
SIOE  A 
SlOE  B 


SENSE  line  SET  03  (W*RES  33-48) 
BETfSE  -t  rNE“SEl  as  THTKEB— 33^BT 
SENSE  LINE  SET  04  (WIRES  4V-64) 
sense  Line  set  04  (wires  4R-64) 


ROPE  module  1 
ROPE  MOOULE  1 
RoPE  H^oOULE  1 
ROPE  MUOULE  1 


SIDE  A 
SIDE  B 
Sl-DE  A 
SIDE  B 


sense  line  set  04  (WIRES  129-144) 
SENSE  Line  set  09  (WIPES  129-144) 

sEivSE  Line  set  lo  (witces— iatt-ipo) 

SENSE  LINE  SET  lo  (WIRES  145-160) 


03,2000 

05,2400 

05,3000 

0.5,3400 


TO  05 
TO  05 
tO  05 
TO  05 


237  1 

2 17  1 
337  1 

3 171 


paragraph  a 044 
paragraph  a 045 
PARAGRAPH  # 046 
PARAGRAPH  A 047 


ROPE  MODULE  1 


SIDE 


rope  Module  i 
ROPE  module  1 
rope  module  1 


side 

SIDE 

SIDE 


A,  SENSE  LINE  SET  11 

B,  sense  UNE  set  11 

A,  sense  line  SEl  12 

B,  seitse  Line  set  12 


(WIKES  161-1 16) 
(WIRES  161-116) 
(WIRES  177-192) 

(wiKES-rrr-  m) 


U6 

♦ 2U0U 

1 0 

06 

,237  1 

PARAGRAPH 

050 

U6 

♦ 2400 

TO 

06 

,2  17  1 

pARAoRApH 

051 

U6 

♦ 3U0U 

TO 

06 

,337  1 

PARAGRAPH 

if 

052 

U6 

,3400 

TO 

06 

,in  ! 

PARAGRAPH 

If 

053 

U7 

♦ 2000 

TO 

Of 

Wit  1 

PARAGRAPH 

» 

054 

Uf 

♦ 2400 

TO 

Of 

,2  17  1 

PARAGRAPH 

» 

055 

UT 

♦ 3000 

T 0 

07 

PARAGRAPH 

if 

056 

U7 

♦ 3400 

TO 

0^ 

,ini 

paragraph 

n 

057 

ROPE 

MUUULt 

2 * 

SIDE 

A, 

SENSE 

LINE 

SET 

01 

(WIRES 

1-16) 

KOpE 

MUUULt 

2 1 

S 1 DE 

b * 

SENSE 

LINE 

SET 

t)l 

(W  IHlPS 

1-16) 

ROPE 

MUUULt 

2 t 

SIDE 

At 

sense 

LINE 

SET 

02 

(WIRES 

1 7-32) 

ROPE 

MUUULt 

2f 

SIDE 

b t 

SENSE 

LINE 

SET 

02 

(WIRES 

17-32) 

ROpE 

MUL)ULt 

2t 

SlpE 

At 

SENSE 

line 

SET 

03 

(WIRES 

33-48) 

ROPE 

MUUULt 

2i 

SIDE 

b t 

sense 

LiNE 

SET 

03 

(WIRES 

33-48) 

ROPE 

MUUULt 

2 t 

SIDE 

A t 

SENSE 

L 1 NE 

1 -U'4" 

tWTKES- 

49P647 

RoPE 

MUUULt 

2, 

SIDE 

bt 

SENSE 

Line 

set 

04 

(WIrES 

49-64) 

10,2000 

10,2400 

10,3000 


11,2000 

11,2400 

11*3000 


TO  10,2371 
ID  1 0 , 2 1 7 1 

TO  10,3371 


TO  11,2371 
TO  11,2171 
TO  11,3371 


PARAGRAPH  A 060 
PARAGRAPH  A 061 
paragraph  a 062 


PARAGRAPH  a 064 
PARAGRAPH  A 065 

paragraph  A 066 


ROPE  MODULE  2 
ROPE  module  2 
RoPt  Module  2 


SIDE 

SIDE 

SIDE 


A,  sense  line  set  -05 

B,  SENSE  LINE  SET  05 

A,  SENSE  Line  sej  06 


rope  module  2 
ROPE  module  2 
Rope- Module  - 2 


SIDE  A 
SIDE  B 
stde  a 


sense  Line  sei  07 

SENSE  LINE  SET  07 
sense  Line  set  os 


(WIRES-  65-8 07- 
(WIRES  65-80) 
(WIRES  81-96) 


(WIRES  97-112) 
(WIRES  97-112) 
(WIRES  113-128) 


12,2000  TO  12,2371 
12,2400  TO  12,2771 


PARAGRAPH  g O7O 
paragraph  a 071 


ROPE  MODULE  2,  SIDE  A, 
ROPE  module  -2-,  SIDE  -B  ,- 


SENSE  LINE  SET  09  (WIRES  129-144) 
'SENStr-LlME  SET  09-tWmES-  129-144) 


633‘t36A  YUL  SYSTEM  ECR  AtiC:  REVI S I ON  0 OF ' PROGRAM^BURS  T 12U  BY  NASA  ;;0iU06-U3l 


PAGE1162 


DTG  7 » T9&7 


Paragraphs  GtNtRATtP  *'OR  this  assembly;  AOOKeSS  LIMUS  ANU  |Ht  MaNUF  aG|UR1nG  UuGat  ion  CoDsT^RtSMoWNFoR  each. 


t3U0U 

TO 

12 

,337  7 

PARAGRAPH 

072 

ROPE 

MUOUUt 

2« 

SIDE 

A. 

BENBt 

LINE 

Stl 

10 

(WIRES 

145-1601 

’ ITTSAOCr 

TTY  1^  3 7 77 

PARAGRAPH 

“0T3 

ROHt  MUUUtt 

2 . 

“5TDE“ 

U « 

5EN5t 

“5tr 

ncr 

cwirIs 

145-160) 

13 

,2000 

TO 

13 

,237  7 

paragraph 

ff 

O74 

ROPE 

MODULE 

2 . 

SlUE 

A. 

BENBL 

LINE 

stl 

11 

(WIRES 

161-1 76) 

I37ZA00 

TO  13 

,277T 

075“ 

KUKt  nUUUUL  2. 

5 IDE 

^ « 

5Ei\j'bt 

LINE 

StT 

11 

161-176/ 

13 

*3000 

10 

13 

,3377 

paragraph 

n 

076 

ROPt 

MOOULt 

2* 

SIDE 

Av 

BEnBE 

LiNt 

StT 

12 

(WlRtb 

177-192) 

13 

,3400 

10 

13 

, 3 77  7 

paragraph 

n 

077 

ROPE 

MUOULt 

2 . 

SIDE 

benbe 

line 

stl 

12 

(WIRES 

177-192) 

14 

,2U0U 

TO 

14 

,2377 

KAKAC)R;^Hh 

# 

100 

ROPE 

module 

3, 

SIDE 

A. 

SENSE 

tlNE 

SET 

01 

(WIRES 

1-16) 

14 

.2AOO 

tO 

14 

,2  77  7 

paragraph 

It 

101 

ROPE 

MUDULe 

3« 

SIDE 

b. 

sense 

Line 

set 

01 

(WlRtS 

1-16) 

14 

i3U0U 

TO 

14 

.3377 

PARAGRAPH 

ft 

102 

ROPE 

MODULE 

3 » 

5 1 DE 

A . 

SENSE 

Line 

StT 

T)2 

(WIKLS 

3rrW33) 

14 

,3400 

T.0 

14 

PARAGRAPH 

w 

103 

ROPE 

MUDULE 

3« 

SIDE 

b . 

SENSE 

LiNE 

stl 

02 

(WIRES 

17-32) 

is 

t2UOO 

TO 

15 

.237  r 

PARAGRAPH 

ft 

104 

ROPE 

MODULE 

3 * 

SIDE 

A . 

LINE 

StT 

03 

(W1RE5 

33”4S / 

IS 

,2400 

TO 

15 

paragraph 

it 

105 

ROPE 

mdduue 

3« 

SIDE 

b. 

SENSE 

LINE 

stl 

03 

(WIRES 

33-48) 

iS 

,3000 

TO 

IS 

%iilt 

PARAGRAPH 

ft 

106 

ROPE 

MUDULE 

3, 

SIDE 

A. 

SENSE 

LINE 

StT 

04 

(WIRES 

49-64) 

15 

.3400 

TO 

15 

,ilK 

PARAGRAPH 

tf 

107 

ROPE 

MODULt 

3 . 

SIDE 

SENSE 

Line 

StT 

04 

( WIRES 

49-647^ 

16 

,^000 

10 

16 

,237  7 

pARAGRAPh 

it 

110 

ROpE 

mudule 

3. 

blpE 

A. 

BENBt 

line 

SET 

05 

(WIRES 

65-80) 

16 

,2400 

1 0 

1 6 

.2777 

PARACjKAPH 

it 

111 

KOPt 

3 . 

SIDE 

b . 

BENBt 

LiNE 

StT 

05 

(WIRES 

65-50? 

16 

,3000 

TO 

16 

PARAGRAPH 

it 

112 

ROPE 

MUDULE 

3. 

SIDE 

A . 

BENBt 

LINE 

SET 

06 

(WIRES 

81-96) 

16 

,3400 

10 

16 

,3777 

paragraph 

it 

113 

ROPE 

MODULE 

3« 

SIDE 

bt 

btfNibb 

LiNE 

SCT 

06 

(WIRES 

81-96) 

17 

,2000 

TO 

u 

,237  7 

PARAGRAPH 

it 

114 

ROPE 

MODULt 

3. 

BIDE 

A. 

SENSE 

line 

SET 

07 

(WIRES 

97-112) 

17 

,2400 

TO 

17 

,2  77  7 

PARAGRAPH 

it 

US 

ROPE 

MUDULE 

3« 

BIDE 

b. 

BENBt 

Line 

SLT 

07 

(WIRES 

97-112) 

17 

*3000 

TO 

1 r 

*337  ^ 

paragraph 

if 

116 

ROPE 

Module 

3 * 

^ 1 de 

A* 

BEnBE 

Line 

StT 

08 

(WIRLTj 

113-128) 

17 

,3400 

TO 

1 7 

,ini 

HAKACjKAHH 

it 

U7 

ROPE 

MUDULE 

3. 

BIDE 

b* 

BENBt 

LINE 

SET 

OB 

(WIRES 

113-128) 

^0 

,2000 

TO 

20 

.2377 

PARAGRAPH 

tt 

120 

ROPE 

MUDULE 

3 . 

bide 

A . 

SENSE 

L 1 N E 

St] 

09 

(WtKLS 

3r29“-T3fW) 

^0 

,2400 

TO 

20 

,277  7 

paragraph 

it 

121 

rope 

mudule 

3, 

BIDE 

b. 

Line 

St  7 

09 

(WIRES 

129-144) 

,3000 

10 

20 

.337  { 

PARAGRAPH 

it 

122 

ROPE 

MUDULE 

3 « 

BIDE 

A. 

SENSE 

LINE 

Stl 

10 

(WIRES 

146-160) 

I'O 

20 

n ( 

it 

123 

KOPE. 

3 . 

B 1 DE 

b . 

SENSE 

Line 

St  r 

10- 

(WIRES 

145-16U) 

*2000 

10 

21 

*237  7 

paragraph 

it 

124 

ROPE 

MUDULE 

3* 

SIDE 

A. 

SENSE 

LINE 

SET 

11 

(WIRES 

161-1 76) 

ro 

pARAoKApH 

#■ 

1 ?5 

ROpE 

module 

3 . 

BIDE 

b« 

btNbt 

LlNfc 

Stl 

1 1 

(TsIRES- 

161-1  76/ 

,3000 

TO 

21 

.337  i 

PARAGRAPH 

126 

ROPE 

MUDULE 

3. 

BIDE 

A. 

sense 

LiNE 

StT 

12 

(WIRES 

177-192) 

<:i 

,3400 

TO 

21 

paragraph 

it 

127 

ROPE 

MUDULE 

3t 

BIDE 

b . 

SENSE 

LiNE 

SET 

12 

(WIRES 

177-192) 

,2000 

10 

22 

,237  7 

paragraph 

it 

130 

rope 

MUuUlE 

4. 

BlpE 

A . 

SENSE 

line 

SET 

01 

(WIRES 

1-16) 

,2400 

TO 

22 

un  t 

PARAGRAPH 

it 

131 

ROPE 

MUDULE 

4. 

BIDE 

SENSE 

LINE 

StT 

01 

(WIRES 

1-16) 

ll 

. 3^)00” 

1 0 

22 

.3377 

PARAGRAPH 

it 

132 

KOPE 

MUDULt 

4 . 

BIDE 

A . 

bfcNbt 

Line 

bt  i— or 

(WIRES  37-323 

ll 

.3400 

10 

22 

,3  77  7 

paragraph 

it 

133 

ROPt 

Module 

4. 

Side 

b. 

sense 

Line 

StT 

02 

(Wires 

17-32) 

<T3 

TO 

23 

,2377 

134 

ROPE 

module 

4. 

BIDE 

A . 

SENSE 

Lmt“bt  1 

03 

(WIRES 

33-48) 

,2400 

TO 

23 

,2  77  7 

PARAGRAPH 

tt 

135 

ROPE 

MUDULE 

4 . 

BIDE 

SENSE 

LINE 

StT 

03 

(WIRES 

33-48) 

16 

.3000 

10 

23 

.337  7 

Paragraph 

» 

136 

rope 

Module 

4. 

BIDE 

At 

sense 

LiNE 

StT 

04 

(WlRLb 

49-64/ 

,2000 

TO 

24 

PARAGRAPH 

» 

140 

KOPE 

MUDULE 

4 . 

BIDE 

A. 

sense 

Line 

SET 

05 

(WlKtb 

65-80) 

<14 

,2400 

,3000 

10 

24 

,277  7 

PARAGRAPH 

it 

141 

ROPE 

MUUULE 

4. 

bide 

b. 

SENSE 

LINE 

SET 

OS 

(WIRES 

65-80) 

TO 

*■  ' 

KoPt 

B iOE 

At 

SENSE 

LiNE 

StT 

06 

( W IRES 

81-967 

hi3‘i'ibl>‘  yUL  SySTEF  I-3K  At,C;  REVISTON  O ^OF  pROGR'AM  BURmZU 'tsy  WW5A  20E1T06-031 


T3Zt-  I f I«7 


pAt,Ell63 


- paragraphs  (JEREt^ATED  FOR  THIS  ASSgMELY;  ADDRtSS  UIMIiS  ANO-|Ht  MANUFAGtURIHVj  LOA-ATlON  CODE  AK£  SFfOWFT  FOR  E ACFT,  - ^ ' 


,3AOO 

To 

24 

.377  1 

. Paragraph 

1A3 

rope 

7»loOULE 

4^ 

SIDE 

SEhSE 

Lif.E 

5LT 

06 

(WIKEg 

81-96) 

<;s 

2000 

ru 

2S 

.Z37  7 

PARAORAPH 

# 

lAA 

ROPE 

MUUULt 

4 • 

SIDE 

A« 

SENSE 

LINE 

SEl 

07 

(WIRES 

97-112) 

<iAOO 

td 

2S 

.Z777 

PARAGRAPH 

IAS 

KOPE 

MUUULt 

4« 

SIDE 

sense 

LINE 

SET 

07 

(WIRES 

97-112) 

3000 

10 

Zb 

♦ 337T 

paragraph 

1‘46" 

ROPE 

hoddee 

4 • 

sror 

A« 

sense 

LINE 

St7 

08 

(WIRES 

"TT3-1T8) 

db 

2000 

TO 

Zb 

.Z3  7 7 

PARAGRAPH 

lit 

150 

ROPE 

MULiULt 

4 • 

SIDE 

A • 

sense 

LINE 

SET 

09 

(WIRES 

129-lAA) 

Zb 

2400 

T'j 

26 

.Z  77  7 

HARAljRAHH 

151 

r^uKt  nuDULt 

4 ♦ 

SIDE 

P • 

SENSE 

Line 

5LT 

09 

CWTRETj 

129-1A4) 

Zb 

3000 

10 

26 

.337  7 

paragraph 

162 

ROPE 

MOOOLE 

4 • 

SIDE 

sense 

LlNt 

Stl 

10 

(WIRES 

1A6-160) 

1 r 

2000 

tO 

Z7 

»237  / 

PARAGRAPH 

134 

KOPE 

MODULE 

4 « 

SIDE 

A f 

SENSE 

LINE 

SfcT 

ri^ 

"TTnifES" 

161-1 (bi 

z ^ 

2400 

TO 

Z7 

.Z  77  7 

PARAGRAPH 

it' 

166 

KOPE 

MUUULh 

4^ 

SIDE 

SENSE 

Line 

SET 

11 

(WIRES 

161-176) 

z ^ 

3000 

TO 

Z r 

.337  7 

Paragraph 

166 

ROPE 

MODULE 

4^ 

SIDE 

A^ 

bEf^bt 

Line 

SLt 

12 

(WIRES 

17  7-192) 

77 

3A00 

TO 

2T 

• 3777 

PARAGRAPH 

157 

KOPE 

module 

4 • 

SIDE 

• 

SENSE 

Line 

bt  \ 

12 

(WIRETS 

T77L192) 

30 

2000 

TO 

3U 

.Z37  7 

PARAGRAPH 

160 

KOPE 

MODULE 

6 * 

SIDE 

A« 

SENSE 

Line 

SET 

01 

(WIRES 

1-16) 

30 

tO 

30 

• 2 77  r 

PARAGRAPH 

161 

ROPE 

module 

3 • 

6 1 De 

b • 

sense 

Line 

SET  01 

"( WIRES 

T-rer 

30 

3000 

TO 

30 

.3377 

PARAGRAPH 

162 

ROPE 

MODULE 

3 ♦ 

SIDE 

At 

SENSE 

LINE 

SET 

02 

(WIRES 

17-32) 

30 

3A00 

TO 

30 

.3777 

PARAGRAPH 

163 

ROPE 

module 

b« 

SIDE 

sense 

Line 

SEl 

02 

(WIRES 

17-32) 

3l 

2000 

10 

3i 

.Z37  7 

PARAGRAPH 

l6A 

ROPE 

MODULE 

3 » 

SIDE 

At 

bENbt 

LINE 

SEl 

03 

(WlKEb 

33-46) 

31 

2400 

TO 

31 

.2  77  7 

paragraph 

165 

ROPE 

module 

3 • 

SIDE 

bt 

SENSE 

LINE 

SEl 

03 

(WIRES 

33-48) 

32 

2000 

TO 

32 

.237  7 

PARAGRAPH 

170 

ROPE 

module 

3* 

SlDt 

At 

sense 

LINE 

SET 

05 

(WIRES 

66-80) 

32 

2A0O. 

TO 

32 

.2  77  7 

paragraph 

171 

ROPE 

MODULE 

3^ 

SIDE 

bt 

sense 

LINE 

SET 

05 

(WIRES 

63<-60; 

TO 

• 337  ^ 

paragraph 

1 72 

KOPE 

module 

3 • 

SIDE 

At 

sense 

Line 

StT 

06 

(WIRES 

81-96) 

33 

2000 

TO 

33 

.237  7 

paragraph 

# 

I7A 

ROPE 

module 

3^ 

SIDE 

At 

sense 

LINE 

SET 

07 

(WIRES 

97-112) 

33 

TO 

33 

*^r77  ^ 

j? 

175 

ROPE 

MODULE' 

3 • 

SIDE 

b t 

sense 

Line 

StT 

07 

rwTKEb  -97-n2^ 

33 

3000 

TO 

33 

*337  ^ 

paragraph 

iff 

176 

rope 

Module 

6. 

SIDE 

A* 

bEf^bE 

Line 

StT 

08 

(WIRES 

113-128) 

33 

3400 

10 

33 

.3777 

PARAGRAPH 

# 

177 

ROPE 

module 

6. 

SIDE 

bt 

SENSE 

line 

SEl 

06 

(WIRES 

113-128) 

34 

2000 

10 

34 

.237  7 

PARAGRAPH 

200 

KOPE 

MODULE 

3^ 

SIDE 

At 

sense 

Line 

SEl 

09 

(WIRES 

129-144) 

34 

2400 

10 

34 

.277  7 

paragraph 

201 

Rope 

Module 

3 ♦ 

SIDE 

bt 

bENbb 

Line 

StT 

09 

(WIRES 

129-144) 

34 

»3'377 

PAKAlaKAFhr 

202 

KOPE 

MODULE 

5. 

SIDE 

A ^ 

SENSE 

Line 

StT 

TO" 

(W7KEb' 

"TASiTSOT 

34 

3400 

TO 

34 

.3777 

paragraph 

203 

ROPE 

module 

3 • 

SIDE 

bf 

SENSE 

Line 

SEl 

10 

(WIRES 

146-160) 

^i> 

T 0 

33 

• 237  ^ 

PARAGRAPH 

204 

ROPE 

MODULE 

3* 

SIDE 

A 1 

SENSE 

LlNt 

SET 

11" 

(WIRES 

161-1  76) 

3t> 

2A0O 

TO 

31) 

.2  77  7 

pARAGRApH 

205 

ROpE 

MODuLE 

3^ 

side 

bt 

SENSE 

LINE 

SET 

11 

(WIRES 

161-1 76) 

35^ 

3000 

3A00 

TO 

3D 

.337  7 

PARAGRAPH 

206 

ROPE 

MOUULE 

3 • 

SIDE 

At 

sense 

Line 

SEl 

12 

(WIkcS 

177-192) 

• 3 77  ^ 

207 

KOPE 

MODULE 

3 • 

SIDE 

b t 

SENSE 

LJINC—bCI — 

TWTKtb~r7T*  1V2  7 

36 

2000 

TO 

36 

.237  7 

paragraph 

210 

ROPE 

MOoULt 

6 • 

SloE 

At 

SENSE 

line 

SET 

01 

(WIRES 

1-16) 

%z\-{  i 

211 

KOt^E 

module 

6 • 

SIDE 

b 9 

btNbt 

Line 

StT 

01 

tWlKt-b' 

1-16) 

36 

3000 

TO 

36 

.337  7 

PARAGRAPH 

212 

ROPE 

module 

6 • 

SIDE 

At 

SENSE 

Line 

SET 

02 

(WlKtb 

17-32) 

36 

3A00 

tO 

36 

fin ! 

paragraph 

# 

213 

rope 

module 

6 • 

SIDE 

bt 

sense 

Line 

StT 

02 

(WIRES 

17-32) 

3 r 

2000 

TO 

3 7 

.237  7 

PARAGRAPH 

n 

21A 

ROPE 

module 

6 • 

SIDE 

At 

sense 

LINE 

SET 

03 

(WlKtb 

33-48) 

3 ^ 

2400 

10 

37 

.2  77  7 

PARAGRAPH 

It 

216 

KOPE 

module 

6 • 

SIDE 

bt 

SENSE 

Line 

SET 

03 

(WlKEb 

33-48) 

TO 

J r 

u 

216 

KOPt,  mouucrt 

6 ♦ 

7)  IDE 

“At 

TsEnSL 

Line 

Stj 

04- 

(WIRES 

49-64^ 

633^36A  yUL  bySTtf'  hJK  AijC;  KEVISION  0 OF  pKOtjRAM  BURSTIZU  BY  NAbA  ZU21j:06-U3r  DEt  7 • T967 

KAKAtiRAPHS  “^tNt^'ATtl^  •'OR  I ^ Abb£MBLY5  ADOK^bb  LIMIlb  aNR  iHt  MANUF  AEtOR  1 N<J  LqEajIUN  CoDe^AKE  SWOWN  FQK  eAEH, 
37t3AOO  TO  PARAORARH  * 217  pOpE  MODULE  6t  blOE  d.  bENbE  LKhE  SET  OA  (WJKEb  A9-6A) 


pAoElUA 


673A36A  TUL.  bYsTE^^  f-a«  ACj(.!  kEV  Y blON  Oh  >kQG^kAM  BUKbTlZUBY  NA5A  2U21I06-O3I  " OTC  ^ , 196r 


OCTAr  UTEiTNt>“0P  "PAKAWAHH  # OlO . wn  H PARIT  Y B JT  IN  BINARY  Al  IHt  RI'^HT  OE  EALH  WOBOT"@i'“CrtiYOTES"  UNUSED 'FIXED 


ALL  VAHO 

WOKUb  Apt  BASIL 

iNbTKUCTlONS 

LXCtPf  THOSE 

MAkXED  "1"  (INTLKHKETlYt  OFtKATUK  WORDS)  OK 

"C"  (LOmSlANTS), 

4OOO 

00004  0 

34054  1 

56006  1 

12163  0 

52011  0 

00006  1 

35051  0 

4010 

52011  0 

00006- 1 

31001  1 

5200b  0 

52011  0 

34056  0 

56006  1 

■2»U2U 

5201 1 0 

34063  0 

5b00b  1 

12000  1 

5201 1 "0 

34057  ~1 

TB006  1 

4030 

5^'Oli  0 

34060  0 

56006  1 

13221  1 

52011  0 

34057  1 

56006  1 

4O4CJ 

5ZO 1 i 0 

34“Obl  1 

5 bOOb  1 

12001  0 

52011  0 

34062  T 

56006  1 

4050 

0 

37/62  0 

5500^  0 

15  /3  / 0 

L!  02003  0 

c:  04000  0 

L;  02003  0 C 

4060 

L!  26003  0 

l:  32007  1 

L:  20001  1 

0:  £^00b  1 

22736  0 

22006  1 

5OUOO  1 

Tf07U 

22006  1 

2 2:/, 3 6 0 

12454  1 

Z2  ^“36  0 

'22006^ 

00O06  I 

4IOO 

30001  0 

22  /36  0 

22006  1 

22r36  0 

12551  0 

22002  0 

7U27  0 

.4  110 

14114  0 

06051  0 

C;  04000  0 

UOOOl  0 

0606  1 0 

C?  04000  “0 

OOUOl  0 

4120 

30000  1 

24002  0 

56302  0 

itUOOO  0 

60302  0 

00006  1 

17020  0 

4130  . 

22006  1 

15230  1 

L;  72000  1 

5000^  0 

40000  0 

6O3O2  0 

00006  1 

4140 

1 /015 

0 

00004 

0 

50002 

0 

30000 

1 

24002 

0 

54072 

0 

/7  /65 

0 

4150 

540/1 

0 

30072 

1 

/4241 

0 

UOOOb 

1 

777t>0 

0 

56072 

1 

/7  745 

1 

^l60 

14164 

1 

00004 

37763 

1 

54066 

0 

50002 

0 

30000 

I 

24002 

0 ■ 

4170 

OOOUb 

1 

34174 

i 

52006 

0 

0; 

02634 

1 

14063 

1 

22073 

0 

22006 

1 

4200 

/5640 

1 

10000 

0 

14242 

0 

'30062 

0 

77755 

0 

TDoao 

XJ 

' 727276 

7' 

4210 

31112 

1 

54070 

1 

30062 

0 

/ / f54 

1 

lOOOO 

0 

14232 

1 

30002 

0 

4220 

3000b 

1 

54064 

1 

34225 

0 

22073 

0 

52006 

0 

C! 

02722 

1 

50UU2 

0 

14211 

0 

OOOO  b 

1 

3OOOI 

0 

52064 

1 

'37762 

0 

4240 

14222 

0 

t; 

1 

77750 

0 

lOUOO 

0 

14226 

1 

14207 

1 

OOUO4 

0 

1 

24002 

1 

54061 

1 

1 000 1 

1 

-t-426T5 

Q- 

4260 

24000 

1 

54001 

1 

4OO25 

1 

50061 

0 

55111 

0 

40001 

1 

50061 

0 

4270 

OOOO3 

1 

00002 

0 

05225 

1 

C.; 

U2bOf 

1 

0; 

3776  / 

0 

c: 

37766 

1 

L;  02006 

0 

4300  , 

0;  04025 

1 

c: 

10003 

0 

c: 

14031 

0 

C-I 

20033 

0 

l: 

2401  / 

1 

Li 

30036 

1 

l:  34034 

1 

4310 

L)  4,4035 

1 

L; 

50037 

0 

C; 

54000 

0 

l; 

bOOOO 

1 

3776/ 

0 

54032 

1 

54033 

0 

4320 

c ; 

00b20 

X j 

00454” 

1 

0000b 

1 

64326 

1 

143  27 

V 

■4"Ot^UO 

0 

4330 

bOOOO 

1 

0000b 

1 

6701  / 

0 

1 /015 

0 

5OOO2 

0 

30000 

1 

24002 

0 

4340 

5 LI  0 0 

3OOOI 

0 

52062 

1 

22002 

0 

37750 

1 

7O4I2 

1 

lOOOO 

0 

4350 

30061 

0 

04323 

1 

C; 

66l6i 

1 

00001 

0 

34374 

0 

60062 

0 

04323 

1 

4360 

00001 

0 

04372 

0 

34376 

1 

b0062 

0 

04323 

1 

Ci 

65673 

0 

00001 

0 

1 

c « 

5161!? 

1 

5000  1 

0 

0000  1 

0 

00765 

0 

Ci 

ootot 

1 

" CT  16450 

1 

PAQEU65 


MEMUKY. 


52006  0 

13577  0 
13A7A  1 
135U  0 

15^36  I 
26000  0 
30001  0 

50000  I 

00006  I 

50002'0 

3A132  0 

17017  1 


60000  I 
5A066  0 
5A065  0 
22073  0 

50061  0 
5A063  0 
30000  1 
26002  I 

5A001  I 
14266  0 
53076  0 
74000  1 

40023  1 

54034  1 
50002  O 
00006  1 

14362  0 
64420  0 
30061  0 
37/63  1 


— biB-tSbA  YJL  “Sy^E',/  FOR  AbC:  REVISION  0 OF  PI^OORAm  BURS  I iVu  BY  NASA  106-031  " " ""  DFC  7t  IV67  " pAl3tU66 


OCiAt-^  trS-jTN<5“0t'''PARAOKAPN  » giU  ”*TH  PARI  T “"I  T rN”P  * NAK  Y A|  | KlOHj  q*"  EA'-H  WQPOi  "6"  PtNTjTE^'trNOSBO  HAtO  M£MqRY. 

All  VAlIu  WQRu^  ARl  basil  INStKulTIQNS  except  ThO^E  MARhEu  "1"  llNTERpRETlVE  Operator  WQRpS)  UK  "l”  (LONSjANiS), 


7O366 

0 

10000 

0 

00002 

0 

34433 

1 

704U 

1 

00006 

1 

l44l6 

1 

40412 

1 

AAlO 

74434 

1 

00006 

1 

14416 

1 

37  760 

1 

704U 

1 

10000 

0 

37754 

0 

60326 

0 

7rA^o 

7T754 

I 

OoOu  6 

1 

17020 

XT 

5400  1 

1 

30326 

0 

uOOOb 

1 

Obl^O  1 

■ 0 

77  743 

1 

AA3U 

6 77A6 

0 

5432b 

1 

00002 

0 

L;  10102 

0 

L; 

00220 

1 

34443 

0 

70311 

0 

54113 

0 

AAAO 

O440O 

1 

04442 

1 

05567 

0 

0 : 07  700 

1 

54113 

0 

10303 

0 

“00002 

0 

30002 

0 

AASO 

6 776A 

1 

64331 

1 

04466 

1 

3446  7 

0 

66006 

1 

64332 

1 

02U00 

0 

Ci 

12060 

1 

AA60 

3U0O2 

0 

67  763 

1 

5433  I 

I 

04453 

1 

62332 

1 

52006 

0 

47/45 

1 

00004 

0 

70312 

0 

67745 

54312 

I 

00002 

0 

37763 

1 

^45V3  U 

22004 

0 

ASOU 

6fa002 

0 

52124 

1 

06236 

0 

6432  / 

0 

05546 

0 

05667 

0 

10305 

0 

17015 

0 

^*5lU 

144  76 

I7OI  7 

1 

1 

54003 

0 

7^564 

0 

6555^  U 

54135 

1 

4620 

00002 

0 

30310 

0 

14614 

1 

54003 

0 

7A664 

0 

65352 

0 

00002 

0 

Ci 

00016 

0 

4630 

ej 

OOoU 

I 

c;  OOOO4 

0 

64020 

1 • 

40020 

1 

40020 

1 

4OO2O 

1 

40020 

1 

56020 

0 

4640 

U0002 

0 

54022 

0 

4OO22 

0 

40022 

0 

40022 

0 

4OO22 

0 

56022 

1 

00002 

0 

4650 

60000 

1 

60000 

1 

60000 

1 

bOOOO 

1 

60000 

1 

00002 

0 

Ci  00037 

0 

Ci 

01  mb 

0 

4560 

^6000 

0 

05663 

1 

055  lb 

0 

l:  Vim 

0 

0* 

00377 

1 

c • 

00023 

0 

C:  00021 

1 ■ 

c: 

00025 

0 

4670 

ei 

00012 

1 

37755 

1 

0000b 

1 

05011 

1 

00002 

0 

47755 

0 

00006 

1 

03011 

1 

4600 

00002 

0 

37757 

0 

00006 

1 

05011 

I 

00002 

0 

00006 

T 

30O25 

0 

52014 

0 

4610 

00002 

0 

00006 

1 

30146 

1 

20146 

0 

60144 

0 

26144 

1 

54OO7 

1 

00O02 

0 

4620 

6411  1 

1 

00002 

0 

3 7 766 

1 

UOOOb 

1 

05011 

1 

00002 

0 

47  756 

0 

00006 

1 

4630 

10330 

0 

37763 

1 

5433O 

0 

“17015 

0 

mu 

0 

4640 

^0002 

1 

60004 

0 

05226 

1 

C;  lOUOO 

0 

10330 

0 

1A637 

0 

37  763 

1 

54330 

0 

44656 

1 

bOUU2 

0 

Q_ 

05225 

1 

Ci 

10001 

“C I 0200  3 

O’ 

54113 

0 

4660 

10303 

0 

14664 

0 

30002 

0 

14461 

1 

24002 

0 

14651 

0 

56002 

0 

54134 

0 

4670 

37771 

1 

60330 

1 

00006 

1 

64  701 

0 

04714 

1 

O47OI 

0 

05651 

0 

37  Ibi 

1 

4700 

64330 

0 

00004 

0 

47767 

1 

UOUUb 

1 

03011 

1 

37767 

0 

64303 

0 

00003 

1 

4710 

00134 

i 

56002 

u 

54134 

0 

04  ^01 

0 

3776  7 

0 

56333 

1 

56334 

0 

56335 

1 

■472X; 

00(j0b 

1 

17020 

O’ 

00004“ 

■0 

“17015 

0’ 

56002 

0 

54134 

0 

■00004 

0 

34  735 

1 

4730 

06663 

1 

03536 

1 

C;  lOObO 

0 

00003 

1 

00134 

1 

c; 

00257 

1 

00004 

0 

30002 

0 

55363 

1 

0 bO  0 3 

X 

t : 01103 

1 

0.0004 

0 

30UU2 

0 

55363 

1 

04760 

1 

c; 

00310 

0 

4750 

OO0U4 

0 

34754 

0 

6600fa 

1 

1200  ( 

0 

l; 

16063 

0 

OOOO4 

0 

30002 

0 

55363 

1 

4760 

bO0O2 

0 

30000 

1 

64001 

1 

3000b 

1 

6536A 

0 

30002 

0 

54O73 

1 

11360 

1 

14773 

23  360 

1 5OO5 

11361 

147  7 7 

0 

riJbl—L 

15010 

1 

31362 

1 

633436A  YUL  SYSibN  AGC!  HEVISION  0 OP  PKO<jRAH  BURSiliiU  BY  NASA  i!O2H06-O31 


EThCT'  /*  1S67  ' PAGbXl67 


uC]AL  listing  0+-  paragraph  # 012.  with  parity  Blf  in  binary  A|  the  HIGH)  QP  EAGH  WqRIJ.  "®"  UERtJfE^DITOSEU  T-IXED"  MEMORY, 


all  valid  words  ARe  basil  instructions  eJ'LePT  THQBe  MAKK-eP  "1"  UNTERPReTIVe  OPERATDR  WQRCS)  or  "L'i  (CONSTANTS). 


5UOU 

! H‘*i 

1 

10000 

0 

15020 

1 

2336<i 

1 

15010 

1 

40326 

1 

76^06 

0 

26326 

1 

5010 

35660 

1 

05505 

1 

c_: 

02103 

1 

C;  16062 

1 

560/3 

0 

00003 

1 

50000 

1 

00001 

0 

E02U 

3OOOI 

0 

67TAy 

.0 

^ 736ii 

1 

77  743 

1 

6536  i 

0 

15014 

0 

ODU04 

0 

OOOOb 

1 

5U3U 

OOOO^t 

0 

5A001 

1 

00006 

1 

0600H 

0 

00006 

1 

15041 

0 

00006 

1 

00004 

0 

EOAO  ' 

'5^00  1 

1' 

A7  7A3 

1 

60UU 1 

0 

U UU(J6 

1 

1502  / 

0 

00006 

1 

00003 

1 

00002 

0 

bU5U 

02000 

0 

c: 

3A062 

1 

50002 

0 

3OUOU 

1 

24002 

0 

22002 

0 

05063 

1 

22002 

u 

5060 

5OOO2 

0 

30000 

1 

24002 

0 

6 / 745 

0 

51143 

0 

55133 

0 

11143 

1 

15071 

0 

- EO70 

3 77*5 

1 

551^3 

i 

00002 

0 

5OUO2 

0 

30000 

1 

24UU2  U 

22002 

0 

05063 

1 

5IOO 

I5IO2 

u 

OOO'Ofc 

1 

23146 

0 

30006 

1 

5514  / 

0 

00006 

1 

51146 

0 

30001 

0 

5110  - 

05063 

r 

23150 

1 

T)416^1 

0 

T.;  47012 

I 

c: 

f ( 

O' 

C7 

U5I2  J 

i 

c:  04062 

T 

■ 3T150 

1 

.5120 

O57OA 

1 

511A6 

0 

00002 

0 

1 

5400b 

0 

05121 

0 

00004 

0 

50002 

0 

5130 

^ocoo 

0 

67  761 

0 

54070 

1 

50000 

1 

III7O 

1 

15144 

1 

15144 

1 

15144 

1 

5IAO 

5O0O2 

0 

30001 

0 

50070 

0 

551  /U 

1 

5OO/O 

0 

11164 

1 

67  763 

1 

15155 

1 

5150 

151A6 

0 

50002 

0 

30002 

0 

50UOU 

1 

30000 

1 

5OO7O 

0 

55164 

1 

36311 

1 

5160 

feUu02 

0 

55207 

1 

3UU76 

0 

nm 

1 

10000 

0 

15202 

0 

" 15171 

1 

04  / 36 

1 

5170 

0A736 

i 

06060 

1 

C; 

00020 

0 

0000^ 

0 

35204 

1 

55201 

1 

37  763 

1 

05663 

i 

5200 

c; 

02f00 

0 

C: 

62062 

1 

00003 

r 

0120/ 

O' 

^ c: 

01033 

0 

c; 

00145 

1 

52T24 

1 

5OUO2 

0 

5210 

iOOUO 

1 

24002 

0 

54001 

1 

2200*t 

0 

7533  7 

1 

56002 

u 

52124 

1 

50002 

0 

5220 

02000 

0 

56124 

0 

56004 

0 

56124 

0 

00123 

1 

56002 

0 

50000 

1 

30000 

1 

5230 

6^00<» 

I 

7i?337 

1 

5 60U2 

(j- 

5OOO2 

0 

12000 

1 

35337 

0 

7OI23 

0 

60124 

0 

5^40 

00002 

0 

540U1 

1 

00006 

1 

UOUO  ( 

0 

56001 

0 

54125 

0 

56004 

0 

00006 

1 

' 5Z5CT 

OAOO  1 

i 

56125 

i 

75337 

1 

56001 

0 

00004 

0 

00006 

1 

OTOO7 

1 

50001 

0 

5260 

320O0 

0 

56125 

1 

00006 

1 

UiOO  f 

1 

00003 

1 

54004 

1 

30125 

1 

00002 

0 

5270 

52073 

1 

5OOO2 

0 

30000 

1 

24002 

0 

54001 

1 

22004 

0 

7533  7 

1 

56002 

0 

5300 

52073 

1 

5OO02 

0 

02000 

0 

560/3 

0 

56UU4 

0 

56073 

0 

OOU72 

1 

56002 

0 

5310 

5A15A 

0 

30006 

1 

54155 

1 

3 / 754 

0 

54023 

1 

30002 

0 

00154 

1 

54154 

0 

“5^320 

377SA 

0 

54023 

1 

30006 

i " " 

54155 

1 

5OOO2 

0 

3t)000 

1 

^47704 

1 

75337 

1 

6330 

56002 

0 

56154 

I 

15233 

1 

UOOOb 

1 

0100  / 

1 

00002 

0 

C:  77775 

1 

c:  01/77 

1 

53^0 

c. ; 

f n 

0 

c : 

00/77 

0 

(-1 

001  7 7 

0 

U0U17 

1 

0: 

UOO32 

u 

c: 

40014 

cr 

■ “40015 

1 

c:  00112 

0 

5350 

c; 

00060 

1 

c; 

74000 

1 

c: 

Ol^tOO 

1 

l;  U0055 

1 

677A6 

0 

55130 

u 

15360 

0 

41130 

0 

5360 

bOQUO 

i 

55130 

0 

153/3 

1 

5/130 

1 

51130 

1 

67744 

1 

40000 

0 

61130 

1 

'53’7U 

55130 

153T3 

1 ■ 

15411 

i 

0(7006 

i 

71130 

0 

55 1'S  1 

1- 

00006 

1 

75416 

0 

6i3^36A  YUL  SYSitY  hJK  AtiC:  KtVi'blON  0 Ut-  PKOtiHAM  BUHbli^u  BY  NAbA  <iU,dU06-U31 


op^^-n:967 


PAGtU68 


UCtAL  LIStIWCTOP  PARABRAHH  # 013.  WlfH^PARllY  BJ|  IN  BINARY  A|  |HE  KltiH|  ul"  tAOH  WgRUi  Tg"  DtNOTES^  UNOSEt!  FTAED  MtMuRY . 
all  VALIO  WuRUb  ARt  BAblL  INbiRUEUONS  tACb^'I  THO^’E  MARI^tL  "1"  UNTLRPRETlVt  OPtRATLR  WORDS)  uR  "L"  (LoNSTANTS). 


5A0U 

bbAlb 

1 

00006 

1 

71131 

1 

65414 

0 

00006 

1 

71130 

0 

20001  1 

55130 

0 

5A1U 

OOOO^i 

0 

bOOOO 

1 

47744 

0 

00002 

0 

31103 

1 

c: 

65552 

0 

Ci  01124  1 

55132 

1 

"EAZCn 

TOTT0O 

-0 

T54Z5” 

u 

UUUU2  0 

^OU'2“ 

00002 

u 

u0u06 

i 

2323 1 CT 

65504 

0 

SA30 

bAOUU 

0 

lbA73 

0 

b7l32 

0 

5bi32 

1 

54021 

0 

56021 

1 

55130  0 

65502 

u 

luooo 

0 

6 55^03 

1 

05^44  ^ 

0 

1 

A775I 

0 

bl  132 

0 

60000  1 

05462 

I 

bAbO 

Ub4b2 

1 

S7131 

0 

10000 

0 

5 7131 

0 

05460 

0 

57131 

0 

00006  1 

77750 

0 

bA60 

bll31 

u 

00001 

0 

56021 

1 

41130 

0 

22007 

0 

00006 

1 

10021  0 

56021 

1 

5A7U 

UOoUb 

1 

60021 

1 

00002 

0 

4 1131 

1 

55131 

1 

37755  1 

000u6  I 

T1132 

X 

30001 

0 

0bA33 

0 

C; 

73777 

1 

L ; 

: 24001 

0 

L; 

37401 

0 

54063 

0 

00006  1 

5OUO2 

u 

bblU 

3000X 

52066 

3557b 

5 600<t 

5406 1 

1 

131U5 

1 

'5"4'0'6  0 

00006 

i 

bb20 

5U0U^ 

0 

30001 

0 

52066 

0 

355/5 

u 

56004 

0 

13063 

0 

56002  0 

65336 

1 

Sb3U 

bb002 

0 

lbb22 

0 

355  7b 

0 

54001 

1 

30002 

0 

22006 

1 

00004  0 

13163 

1 

bbAU 

Abb  ^b 

0 

54006 

0 

401bA 

0 

22155 

0 

15536 

0 

54154 

0 

35575  D 

54004 

1 

bbbO 

1324^ 

1 

5406b 

0 

47762 

1 

26002 

1 

35575 

0 

66004 

0 

13265  1 

00U04 

0 

556U 

bA0b3 

35575 

0 

56006 

1 

54155 

1 

30002 

0 

13324 

0 

04724  1 

35575 

u 

Sb70 

5400^* 

1 

1333b 

0 

30061 

0 

54004 

1 

1701 7 

1 

c; 

03063 

1 

47767  1 

54067 

1 

5600 

OO0O3 

1 

4 7 762 

1 

uOOOb 

I 

T33011 

1 

1560  7 

1 

UUU06 

1 

^ 23354  1 

10067 

1 

b6l0 

lbb22 

0 

37  762 

0 

15616 

1 

35631 

0 

54006 

0 

01354 

1 

00006  1 

O5OII 

1 

bb20 

b21bb 

1 

b2006 

0 

3 7 762 

0 

U0U06 

1 

O5OII 

1 

35575 

u 

54004  1 

00004 

0 

5630 

1 3 16^ 

C \ 

^606^ 

1 

c. : 

03000 

1 

C_ ; 

; U5UUU 

1 

L ; 

U60U0 

1 

c; 

07000 

0 

C2  T2000  1 

C:  13000 

0 

bbAO 

e; 

i'tOOU 

1 

c; 

IbOOO 

0 

c: 

16000 

0 

c; 

; 1 /uoo 

1 

Li 

21000 

1 

Ci 

22000 

1 

Ci  23000  0 

Ci  25000 

0 

5650 

t ( 

1^6000 

27000 

1 

^ • 

31000 

0 

L ; 

Li 

33000 

1 

CJ 

34000 

0- 

CY^SEllOtl  ^ 

C!  36000 

i 

bbbU 

c: 

3 ^OOO 

0 

c_; 

02400 

1 

l: 

03400 

0 

56002 

0 

540bl 

1 

00006 

1 

50000  1 

30001 

0 

Sb70 

54063 

0 

3b  700 

0 

56006 

1 

1342  / 

1 

3006^ 

0 

54006 

0 

50061  0 

0OU02 

0 

b70U 

C.; 

Ui:063 

u 

5OOO2 

0 

30000 

1 

24002 

0 

56002 

0 

54063 

0 

30006  1 

54001 

1 

S7lU 

35713 

1 

54061 

1 

156  71 

0 

15)25 

0 

Li 

72061 

0 

Ci 

73714 

1 

10076  1 

15  727 

1 

^20 

lb7Z  7 

35656 

1 ■ 

1357505 

1 

l; 

03501 

0 

c: 

24063 

1 - 

252  2T  1 

11D76 

0 

S73U 

3b70O 

0 

5400b 

0 

13602 

1 

00006 

1 

22012 

1 

30016 

0 

56D06  1 

52011 

0 

b 7A0 

bOOl  ) 

53154 

1 

-00006 

1 

:?ooo2 

0 

30001 

0 

53152 

1 

00006  1 

35752 

1 

5 ^bO 

b200b 

0 

C: 

03634 

0 

C; 

02063 

0 

(-1 

! 05/53 

0 

Li 

05754 

1 

L^SM 

67476 

0 

e 

e 

S7bO 

1? 

e 

© 

fe 

xs 

& 

§ 

e 

r 

e 

--  e 

e 

e 



633'ti6A  rjL  STSrt^T  FjR  AtjC:  REVISION  0 OF  Pt^OGRAH  BURSl'liO  NASA  <;u<!U06-O31 


CTEC  1967  ' PA0tll69 


uC[AL  listing  or  pakagrafh  # oiAi  wiiH  partiy  bii  in  binary  ai  |ME  RitiHf  uR  EACH  woRUi  "e"T;ENOTts-’UNOSE[mxED  memory. 


all  valid  words  ARt  1 

BASIL  INS7RULTI0NS 

tXCfcPl  those 

MARK.tl'  "1" 

unteRRRetive 

OFeRATUR  WORDS)  uR 

itLi.  (LoNStANtS), 

6000 

oooo<* 

0 

30002 

u 

55363  1 

5UUU2 

0 

30000 

1 

09762  0 

LI  90900  1 

97  75O 

0 

6010 

700  7 5 

1 

59075 

1 

16012  0 

10031 

1 

00002 

0 

00002  0 

00002  0 

37793 

0 

6020 

000U6 

r 

030ir  0 

377 

5TO03 

0 

■5700'2" 

r 

^9031T^ 

T01T3-r  1 

16032 

1 

6030 

31009 

1 

16091 

0 

37795  0 

UU0U6 

1 

05013 

0 

37767  0 

57OO6  0 

57005 

0 

- 6090  - - 

6 /OOif 

1 

OOOOb 

1 

66096  0 

UDDOb 

1 

0X006 

0 

00002  0 

00006  1 

01005 

0 

60S0 

00002 

0 

00004 

0 

90075  1 

50002 

0 

70000 

0 

26075  1 

00003  1 

17016 

0 

bU6U 

00004 

0 

40076 

1 

50007  0 

roooo 

0 

26076 

1 

00003  1 

17015  0 

50U02 

0 

■'  ' 6070 

40000 

0 

00004 

0 

70075  1 

5407  5 

I 

00003 

1 

IT0I5  0“ 

50VCT2  X) 

40U00 

0 

6100 

OOOO^t 

0 

70076 

1 

540^6  1 

OOOO3 

1 

I7GI5 

0 

L; 

02327  0 

L:  02737  0 

L- 

00133 

u 

b I 1 0 C t 

00033 

1 c; 

00707 

I 

UUUU6  1 

22154 

1 

30006 

1 

54155  T 

77/4^  1 

59105 

i 

6120 

64023 

1 

16139 

u 

72006  1 

16119 

1 

54153 

1 

30155  0 

59006  0 

10023 

1 

6130 

16193 

0 

10067 

1 

15590  1 

24154 

1 

50159 

1 

30000  1 

10000  0 

16931 

0 

6190 

09736 

1 

59O23 

1 

75397  0 

54020 

1 

10020 

1 

16313  1 

I7G2I  1 

77  763 

0 

6150 

10000 

0 

16712 

1 

5OI59  1 

4OOOI 

i 

lOOOO 

0 

16261  0 

C;  77773  l 

29159 

1 

6 160 

59106 

1 

66315 

0 

10000  0 

66392 

1 

1 6 W i 

i 

30110  1 

26^U6  i 

50U20 

0 

6l70 

^6397 

0 

00006 

1 

66207  1 

7533  7 

1 

6533  7 

0 

56106  0 

60105  0 

59009 

1 

6700 

60u^U 

0 

76392 

0 

79-569  0 

6T357 

u 

56  W6 

0 

-59003  0- 

5OU2O-O-- 

76392 

0 

6710 

35396 

0 

59020 

1 

30110  1 

59120 

0 

79159 

1 

50159  1 

4000U  0 

10000 

0 

6720 

79170 

1 

16222 

1 

59106  1 

75351 

1 

00006 

1 

16230  1 

30105  0 

26106 

1 

6230 

50120 

40046 

1 

^ 6 1 06  1 

76390 

1 

00006 

1 

16250  1 

-75351  1 

00006 

1 

6790 

16257 

0 

30106 

0 

59009  1 

7533  7 

1 

6 77SI 

0 

59106  1 

50020  0 

36392 

1 

6250 

16256 

35357  0 

56106 

54003 

0 

T9569  0 - 

-261-06-1 

50t)20 

0 

6760 

36397 

1 

39565 

0 

70020  1 

6b26b 

0 

10000 

0 

16277  1 

E;  77767  1 

66  X 56 

0 

6770 

lOOOO 

0 

50000 

1 

96310  1 

16301 

1 

50 153 

0 

96306  0 

16301  1 

50153 

Q 

6300 

96310 

1 

26156 

1 

59106  1 

50020 

0 

76397 

0 

Li 

00002  0 

Li  00006  1 

Ci 

00006 

1 

6310  Li 

00002 

0 L: 

00003 

i 

C; 

00006  1 

10020 

1 

1637  7 

0 

Ci 

77722  0 

79159  1 

50159 

1 

59107 

36^-^ 7 0 

1 

7OO2O 

1 ■ 

5OOOO  t ■ 

T6903  1 

59OO9 

1 

6330 

10070 

1 

5OOOO 

1 

1200U  1 

10153 

1 

17017 

1 

12017  1 

17121  0 

Li 

02177 

1 

^ Cj 

c : 

74O56  1 

16563 

17197 

0 

I77O7  1 

17960  0 

16^61 

0 

6350 

16596 

1 

16537 

1 

1 7656  1 

1655  7 

1 

166  76 

1 

16601  1 

17913  1 

16635 

0 

6360 

I67O4 

0 

I79I6 

1 

17650  1 

1 7626 

0 

17631 

0 

17635  1 

17653  1 

17075 

0 

6370  lfOP3  i 17103  0 17910  1 ^ ^TlP'fO  0 17S09  0 17071-1- 17177  0 17093  0 


PAQtllYO 


'633^'SA'  YOt  “STSIEF  > JR  A^C!  REVISION  0 OF  PROGRAM  BURSIliiU  BY  NASA  <!U«i  1 106-031  T>E.^7>'l967 


TJCTAir  tlSflNQ  uF  paragraph  # 015.  with  PaR1|Y  BI  | IN  BINARY  A|  [HE  K10H|  qF  EAOH  WoRD5  "r'  DEwot^S-UNOSEOUXED  MEMuRY. 


all  VALU 

WORDS  APt  basil 

Instructions 

Except  those 

MARK-eD  "1"  (INTERPRETIVE 

operator  WORDS)  UK 

nCii  (LonStANiS), 

6A00 

IbAOO  1 

17b2A  -1 

176^5  0 

12b2b  0 

12b33 

1 

12636  1 

12bA2  1 

12bA6 

0 

bAlO 

1265A  0 

12670  0 

126//  1 

12662  0 

126/3 

0 

12751  1 

12/56  0 

12/31 

1 

■■  hVZU^ 

-nryii  o 

T3000  0 

T.zrA  r 0 

3tri55  0 

5400<» 

1 

?A  I5‘‘r  1 

1 

<»0000 

t,^30 

6/7/1  1 

5A106  1 

7A563  1 

5610b  0 

/5b55 

0 

00006  1 

77/5/  1 

50000 

1 

bAAO 

1 6 A A 1 1 

06A/1  0 

lbl33  1 

ObAbX  0 

1613  3 

1. 

ObAbb  0 

lb  133  1 

06A  /I 

0 

bA50 

1652/  0 

O6A7I  0 

16210  0 

ObA/1  0 

16532 

1 

06A71  0 

16535  0 

06A71 

0 

bAbU 

353AA  1 

5A020  1 

16316  1 

5OIIO  1 

A00A6 

1 

I6A7O  0 

50110  1 

A0UA7 

0 

- 1)A70 

^6 1 Ob  t 

^010^6  1 

65353~1 

30110 

1 

16S02  X 

3TJ52  “0 

6b  1 Ob 

6500 

U 

0 

26l0b  1 

OUOOb  1 

301^5 

1 

50106  0 

52001  1 

10153 

1 

bTlYI- 

16523  1 

00002  0 

uOOOb  1 

30 1 50  0 

50106 

0 

52003  0 

oouoo  1 

30152 

1 

6520 

5U1U6  0 

b2005  0 

00002  0 

jUA^tb  1 

50106 

0 

5A002  1 

00U02  0 

35BA5 

0 

6530 

1 

16152  0 

3//A5  0 

5^020  1 

16152 

0 

36153  0 

16211  1 

OOUOb 

1 

65AU 

bUlUb  u 

30001  0 

521A5  0 

37/6/  0 

5A1A6 

0 

l6l2A  1 

5010b  0 

30002 

0 

6550 

5A1A6  0 

OOOOfa  1 

b0l06  0 . 

3UU01  0 

521A5 

0 

37763  1 

1612A  1 

22007 

0 

6t>6U 

50 1 Ob  0 

30000  1 

165A2  0 

UOOU  b 1 

5010b 

0 

30001  0 

52  AA^b  0 

OOUOb 

1 

6570 

bOlUb  0 

30003  i 

52150  1 

UUUOb  1 

50106 

0 

30005  1 

52152  0 

A7/63 

0 

660U 

l6l2A  1 

OOOOf,  1 

bO 1 0 b 0 

521 A5 

0 

5OIS6  D 

^521701  1 

5OI53 

0 

6610 

36310  0 

26156  1 

10153  1 

ibb30  0 

16626 

1 

5A153  1 

5A1A6  0 

52150 

1 

6620 

50156  0 

51775  0 

52152  0 

50156  0 

517/7 

1 

16125  0 

5AIA6  0 

16125 

0 

&63U 

5A153  1 

56  l*t6  1 

5t)  1 S'b  0 

■ 53T77  0 

16125 

0 

OOOOb  1 

5OIO6  0 

30001 

0 

bbAO 

52IA6  0 

501S6  0 

52001  1 

bOAb3  0 

36310 

0 

26156  1 

10153  1 

1 6ti66 

0 

665U 

1656  r 1 

00006  1 

5010b  0 

30003  1 ■ 

52150 

1 

50156  0 

51/T5  0 

0 0 0 U b 

1 

6660 

bOlOb  0 

30005  1 

52152  0 

5Uib6  0 

517// 

1 

16125  0 

OOOOb  1 

50106 

0 

6670 

30003  1 

52150  1 

301A6  1 

50156  0 

53  /7  / 

0 

16573  1 

2A15A  1 

5015A 

1 

6700 

3OOOU  1 

5OIO6  0 

5A000  0 

16125  0 

2A15A 

1 

5015A  1 

30000  1 

50106 

0 

6/10 

bUOOU  1 

5A00A  1 

/533/  1 

bUUOU  1 

32000 

0 

5A107  0 

30155  0 

763AI 

0 

6T2U 

663^ 1 1 

60 1'5^  1 

501101 

5A052  1 

3010/ 

1 

75S51  t- 

OOtRJb  1 

16  /AO 

0 

6730 

30155  0 

5A006  0 

3010/  1 

5^00*»  i 

/533  / 

1 

67751  0 

5A15A  0 

1611A 

1 

6TAO 

30107  1 

66315  0 

rOuuu  0 

30107  1 

16753 

1 

30110  1 

60 107  1 

50000 

i 

6750 

30000  1 

5A107  0 

16725  0 

5^003  0 

/A56A 

0 

50000  1 

31A00  1 

5A107 

0 

6 /60 

16725  0 

5015A  1 

30001  0 

5UiUb  0 

bOOOO 

1 

5A00A  1 

7533/  1 

50000 

1 

6T7U 

5A107  0 

16725  0 

30L55  0 

5A0UA 

1 ” - 

5Y)1SA  1 

-3^00  i 0 

5A10T 

0 

I 


yjL  ^Sttf''  Tafr  A(jCi  revision  O OH  PkoG^R^  'BOKSI  NASA  <;U2U06-03l  DEC  7i  1967 


uC|AL  t-T5,lNQ  oE  PaKaIjKAPH  # 016»~WItH  PAR1|Y  BT  | IN  BINARY  A|  I HE  RUjHi  qP  EAtH‘  UENOlEl>~ONUSEU  PIXEL)  MEHuRY. 

all  valid  WURU5  are  BAblE  INbiRUETlQNb  eXL-i-Pj  tHqSe  MAKXeP  "L"  UNTERPReTIVE  OPeRATW  WQRDS)  UK  t.C.i  1L.QIm!>TANt5)  , 


7UOU 

16726  0 

1014A  1 

OOOO^i  0 

17006  1 

17017 

1 

10155  0 

00002  0 

IpLill 

1 

7010 

i ^0  W 1 

101A6  0 

0000^  0 

11015  0 

17011 

1 

5OOO2  0 

00001  0 

5OOO2 

0 

“TDZtr 

■ oonoz  0 

' 303  51TT  ■■ 

■5AT)06  0“ 

5Xn5A  1 

OOOOl 

0 

TR3O06  “I 

5xrro6  0 

' 30003 

1 

7030 

20160  1 

0000b  1 

1703A  0 

OfiOi  0 

00006 

1 

50106  0 

30005  1 

20152 

0 

7UAO 

U U L'  U 6 1 

170A3  0 

0 1 1 0 1 0 

uuuub  i 

60106 

0 

30001  0 

2 0 i ^b  0 

00006 

1 

705U 

16126  0 

07101  0 

16126  0 

OOUOb  1 

60106 

0 

50003  0 

20150  1 

00006 

1 

7060 

U062  0 

ohoi  0 

00006  1 

bOiOb  0 

50006 

0 

20152  0 

00006  1 

17071 

1 

7070 

07101  0 

uuuub  i 

50106  0 

AOOOl  1 

20156 

0 

OOUOb  I 

ibi2^  0 

07101 

0 

7 100 

16126  0 

37163  1 

1 122A  0 

OOUOb  1 

60106 

0 

30003  1 

62150  1 

00006 

1 

7110 

AOOOl  1 

20150  1 

uOuub  1 

11116  1 

07101 

0 

OOUOb  1 

5D10  6 0 

30005 

1 

mo 

62162  0 

OOUOb  1 

AOOOI  1 

20152  0 

00006 

1 

17127  0 

07101  0 

00006 

1 

M30 

bUlUb  U 

30001  0 

621A6  0 

OOUOb  1 

50001 

1 

20155  0 

00006  1 

16125 

0 

0^101  0 

16125  0 

00006  1 

bOiOb  0 

30002 

0 

20156  0 

5OIO6  0 

60000 

1 

7150 

6O1AA  0 

5AlL‘t  1 

16126  0 

b'tiii  l 

16126 

0 

50002  0 

30000  1 

25002 

0 

f 1 6U 

5A106  1 

b 0 i 0 b 0 

30001  0 

b<t i <®b  0 

37  761 

0 

56155  1 

55125  0 

00006 

i 

7170 

1OIA6  0 

561A6  1 

0000b  1 

^0144  i 

20156 

0 

50106  0 

30000  1 

56125 

1 

7ZOO 

ounUb  l 

7OI25  0 

2OIA6  0 

561AA  0 

0 0 0 U b 

1 

70125^ 

— 201^5 

00002 

0 

7Z10 

3 176  7 0 

5A153  1 

561A6  1 

bOUOU  1 

65001 

1 

00002  0 

60156  1 

55155 

0 

7220 

UOOO^^  u 

601A‘t  0 

6A1AA  1 

uuuoii  0 

55111 

1 

00002  0 

37762  0 

55126 

0 

7230 

UUO^b  1 

22127  0 

O7 1 6 1 0 

biTlbO  1 

b21^5 

0 

52121  1 

'30156  1 

55122 

i 

72A0 

30126  1 

26106  1 

0il6l  0 

521A6  0 

20122 

1 

60155  0 

60120  1 

55120 

0 

rz^ 

17262  1 

5A11I  1 

52152  0 

52155  0 

30126 

1 - 

26106  *1 

^Tl  6l  0 

52122 

1 

7260 

201A6  0 

601AA  0 

60120  1 

b'+i^**  1 

00121 

0 

55111  1 

00127  0 

00006 

1 

7270 

22131  1 

5AIO7  0 

;?^130  0 

1 1305  0 

b0002 

0 

30000  1 

55130  1 

60000 

1 

7300 

bUOU^  u 

5AIO7  0 

61766  1 

65131  0 

35351 

1 

55106  1 

OOUOb  1 

50107 

1 

7310 

3U0O^  0 

52U5  0 

52113  0 

11311  1 

65130 

1 

57762  1 

26107  0 

O7I6I 

0 

50 IOt~ 1 

3OOOZ  0 

20155  0 

10130 

I 

17315  r 

OOlTl  1 

22002 

0 

7330 

07001  1 

17335  1 

17355  1 

5 1153  1 

17336 

1 

37753  0 

55002  1 

00006 

1 

bO  i *tb  1 

6A1A6  0 

37167  0 

60002 

0 

60155  1 

^^5155  0 

37  767 

0 

7350 

bUOO^  0 

601AA  0 

b4l4^  1 

b^A^5  0 

UOOOi 

0 

55156  0 

17352  0 

55125 

0 

7360 

00006  1 

701ttb  0 

5A1A6  0 

3 116  1 0 

66155 

1 

00006  1 

70126  0 

20156 

0 

0000b  i 

r0l<ib  0 

20156  0 

00002 

0 

--52rt25  0 

- OOUOb  1 

70156 

0 

633^36A  YUL  SYbTEN'  EJK  AOC:  REVISION  0 OF  FROORAM  BUHSliilU  BY  NASA  20^11106-031  " OEl^N  IV67  ' " PAGtll72 


UC|  AL  LIb|  ING  CJF  PARAGRAPH  § 017.  WIjH  PAR  1 I Y Hi  | IN  BINARY  A|  (HE  KIGH)  OF  FAOH  WoROi  "g"^tN0TtbT7NUbEP  FIAED  MEMuRY. 
all  valid  words  are  basil  instructions  E^^CePT  those  MARK-eP  "1"  UNTERPRtTiVE  OPERATOR  WORDS)  OR  "G"  (LONStANTS)  . 


7A00 

521A5 

0 

00006 

1 

70125 

0 

30001 

0 

26144 

1 

00006 

1 

30145  1 

00002 

0 

7A10 

0)226 

0 

37767 

0 

1612A 

1 

3 ) 762 

0 

54130 

1 

17421 

0 

44570  0 

54130 

1 

7A20 

36306 

1 

5^126 

0/612 

00006 

1 

30113 

X 

52  i4"5  0 

52124 

1 

7A30 

00006 

1 

30115 

1 

52150 

1 

0UU06 

1 

3011  7 

0 

52152 

0 

30130  0 

26106 

1 

" 7AA0 

0 niKi 

1 

6^113 

0 

52145 

0 

5^1  ll) 

0 

52I5O 

\ 

52117 

’1  ■ 

52152  0 

30130 

0 

7AS0 

26106 

1 

07230 

1 

52124 

1 

52145 

0 

52152 

0 

52115 

0 

52150  1 

16125 

0 

7A60 

10153 

i 

17507 

0 

1 750  ) 

0 

0)161 

0 

07212 

1 

52150 

1 

52145  0 

52150 

1 

- 7<t70 

0Tl6l 

07Z12 

1 

5 2 1 51i 

52^145 

52152 

0 

071 61 

0 

07212^ 

52X45 

0 

7S0O 

52152 

0 

52150 

1 

52145 

0 

16125 

0 

U7226 

0 

47761 

1 

26106  1 

00006 

1 

7t>lU 

301 A5 

I 

52150 

1 

0 / 1 6 1 

07^12 

1 

37762 

26X06 

X ■ 

00U06  1 

3UX5U  TT 

7S20 

52i  A5 

0 

52152 

0 

07161 

0 

0 T212 

1 

37762 

0 

26106 

1 

52150  1 

52145 

0 

/S30 

52150 

1 

O7I6I 

0 

07212 

1 

52145 

0 

52152 

0 

52145 

0 

47  763  0 

16124 

1 

7SA0 

00006 

i 

30152 

1 

52145 

0 

52113 

0 

0)161 

0 

00006 

1 

4OI5O  1 

52145 

u 

7S50 

0 

O7I6I 

0 

37)62 

0 

26106 

1 

00006 

1 

40152 

0 

52145  0 

52152 

0 

7t>6U 

07161 

00006 

1 

301 1 3 

1 . 

52145 

52117 

I 

U7 1 6 1 

u 

S7  762  0 

26  X 06 

1 

7S70 

00006 

1 

A0113 

0 

52145 

0 

2015^ 

0 

00006 

1 

17577 

1 

07101  0 

07161 

0 

7600 

521 15 

52150 

1 

52145 

2OI5U 

1 

I 

17607" 

"0 

— Oytt)  1 0 

07161 

0 

7610 

5211) 

1 

I7OA6 

0 

00006 

1 

30145 

1 

52113 

0 

00006 

1 

30150  0 

52115 

0 

7620 

00006 

1 

30152 

1 

5211  ) 

1 

00U02 

0 

0)161 

0 

16125 

0 

O7I6I  0 

07211 

1 

7630 

161^1) 

0000  6 

1 

50106 

0 

3UU01 

0 

17641 

1 

00006“ 

"1  “ 

"50106  0 

30001 

0 

76AO 

521A5 

0 

52121 

1 

3 776  ) 

0 

54004 

1 

12352 

0 

30106 

0 

54156  1 

I6I27 

1 

T650“ 

37767 

5<r004 

1 

12  1 72 

35342 

1 

54004^ 

1' 

12214 

0 

7 025  3 1 " 

17670 

0 

7660 

1 75)0 

0 

00006 

1 

50106 

0 

30U01 

0 

52121 

1 

37767 

0 

54004  1 

12630 

1 

1670 

00006 

1 

5OIO6 

0 

30003 

1 

52150 

1 

00006 

1 

50106 

0 

30005  1 

52152 

0 

7)00 

A)763 

0 

5^1b3 

1 

00006 

1 

50106 

0 

30001 

0 

52145 

0 

17664  0 

50106 

0 

7710 

lOOOO 

0 

16125 

0 

17714 

0 

1 ) 722 

0 

50106 

0 

10001 

1 

16125  0 

16125 

0 

7T20 

1T7'22 

16125 

OOOO6 

1 

40145 

0 

52145 

0 

10153 

X 

1773T  1 

I7737 

X 

7730 

00006 

1 

A0150 

1 

52150 

1 

U0U06 

1 

40152 

0 

52152 

0 

16125  0 

40146 

0 

77AO 

5A1  A6 

0 

16125 

0 

C;  37777 

1 

0; 

37  777 

1 

5777) 

1 

Ci 

: -40000“ 

0 

C;  "20000  0 

C; 

lOUOO 

0 

7 750 

U40UU 

0 

c: 

02000 

0 

c;  01000 

0 

UU400 

0 

0; 

00200 

0 

Ci 

00100 

0 

C:  00O4U  0 

Ci 

00020 

0 

7760 

Li 

OUOiO 

0 

c; 

OOOOA 

0 

C-:  00002 

0 

c: 

UOOOl 

0 

0: 

00013 

0 

C! 

00007 

0 

Ci  00005  1 

Ci 

00000 

1 

7770 

)7T)7 

0 

c ; 

77776 

1 

C!  07772 

1 

* t; 

0 7 773 

0 

CK.5M 

41016 

0 -- 

-fe-  - 

e* 

k 

'63^36A  YUL  5Y5Ttr«  F3«  ACjC;  REVISION  0 OF  PROGRAM  BUR5U<iU  BY  NASA  ^0^1106-031  DEC  7,  1967 


OClAL  listing  OF  PARAGRAPH  * 0<;U  • W1  TH  PAR  1 1 Y BI  | IN  BINARY  Al  |FTt  RlGHl  OF  fcACFT  ffORD^“^"“DtNOTt5“W05^tD  FlXtD 

all  valid  words  ARt  b«ilC  INStRUC'iIONS  LxCtRl  THQSe  MaRreD  "1"  (INTERFReTIvE  operator  WORDS)  OR  "C"  (CoN5tANT1>) 

00,2000  1S16)  0 13bll  0 13S00  0 135)1  0 13573  1 

00,2010  13213  1 13002  1 13156  1 13326  0 16A33  0 

— - - oaparoo"  ^ ^ 70020  1 '511021'  0 10020^1 1^1011-  - c;  00024  1 

00,2030  10030  1 02050  0 16124  1 30125  1 00006  1 


OO0O6 

X 

70144 

"1  " 

52145  0 

" 30125 

1' 

0000(5 

1 

7aotrr  i 

20140  0 

UO,2U5U 

30146 

1 

00006 

i 

70125  0 

56145 

1 

00006 

1 

70125  0 

56X45  X 

U0,2U6U 

6O0OO 

i 

54146 

0 

12064  0 

46145 

0 

A776) 

0 

54146  0 

56144  0 

U0,2U70 

^0125 

0 

20145 

0 

00002  0 

30125 

X 

00006 

X " 

70r45'T)^ 

54145^0 

00,2100 

13060 

1 

30021 

1 

54135  0 

0000(5 

1 

30146 

1 

20146  0 

6OI44  0 

wO  9 2 i i ^ 

5^1 

1 

12113 

i 

54111  1 

X0X25 

12102 

X 

10020  1 ■ 

0 f 4^  Ikj  (j 

00,2120 

16135 

0 

37)65 

1 

7OO2O  1 

54X25 

0 

10020 

1 

12145  1 

c:  00176  1 

U0,213U 

3)746 

0 

54125 

0 

02073  1 

54X45 

0 

52150 

1 

52145  0 

02073  1 

00,2140 

531  53 

0 

52145 

0 

020)3  1 

1 )47  ) 

0 

54125 

0 

00006  1 

30145  1 

00,2150 

00006 

1 

12153 

0 

0)101  0 

00006 

1 

30150 

0 

20150  1 

00006  1 

vu  , 2 1 b'-’ 

0)101 

0 

0 u 0 u 6 

1 

30X52  1 

30152 

000  Ob 

X 

12167  1 ■ 

07101  0 

00,2170 

13144 

0 

16125 

0 

54125  0 

O7OOX 

1 

12176 

1 

12212  0 

07327  0 

I22O7 

1 

24125 

X 

0000^  1 

30146 

X' 

20146 

0 

b0l44~0 

26144  1 

00,2310 

54000 

0 

12201 

X 

40125  0 

16)01 

0 

yOlOb 

1 

10000  0 

12324  0 

00,2320 

)0106 

1 

10000 

0 

07210  0 

X6X45 

0 

54X45 

0 

37754  0 

00006  1 

^0311 

^0000 

X 

12233  0 

12332 

12341 

X 

12336  V 

10153  1 

00,22^^0 

132)) 

0 

30125 

1 

63)1D  1 

0000(5 

1 

62127 

1 

67771  1 

54125  0 

56 1 44 

56l45~  1 

04474 

X 

30145 

0 

56147'tl 

5 6 X 6 U 0 

00,2260 

20150 

1 

56l5l 

1 

56l53  1 

0^<; 

1 

30152 

0 

10125  0 

54125  0 

00,2270 

C;  O^tfeO^t 

I 

16125 

0 

60000  X 

54  X4b 

0 

3776) 

0 

56001  0 

00002  0 

00,2300 

63710 

i 

00006 

1 

62322  0 

67  ) )1 

1 

54125 

0 

37767  0 

56144  0 

00,2310 

54146 

0 

10125 

0 

54125  0 

0<i300 

0 

L;  2265U 

1 

37752  0 

7OIO6  1 

00 ,2320 

0 7210 

0 

T6 5^  0 

50125  1 

37746 

0 

54125 

0 

37752“0 

70106  1 

00,2330 

13031 

0 

12033 

X 

40125  0 

53126 

0 

54125 

0 

12236  0 

40125  0 

1 0 1 5 3 

X 

13345  0 

13345 

0 

12145 

X 

37756  r - 

- OOtfO-6'  X 

00,2350 

54030 

1 

12103 

0 

47763  0 

, 54136 

0 

5412  ) 

1 

54130  1 

10120  0 

00,2360 

13363 

0 

13)25 

0 

54146  0 

0)32) 

0 

10144 

1 

12412  0 

12370  0 

56120^ 

56145  1 

56144 

10120 

0 

72420  1 

^400  D 

13154  0 12116  1 
13256  1 13231  0 
50D2  n 3T74  6 T) 
70146  0 54146  0 


PAGE1I73 


memory. 


17722  D 
36306  1 
54125  D 
30125  1 

16125  D 
60001  0 
00006  I 

56001  0 

60144  0 
16125  0 
50125  1 
52145  0 


20U5  0 
12161  I 
10125  0 
30144  0 

60000  1 
37752  0 
70106  I 
12377  0 

37)67  0 
023T2  I 
12342  0 
30125  1 

56145  1 
10000  0 
10000  0 
62126  0 

70106  1 
13)12  1 
12411  0 
12414  0 


6J3436A  YUL  SrSlfcW  OH  AGC : REVISION  0 OF  PROGRAM  BURS!  1 2u  BY  NASA  4U4U06-031  D'EYT  7 , iy67  PACitllYA 

OClTU-  UISjINO  OF  paragraph  » 021>  WlfH  PARIlY  BI  | IN  BlN70<r-A|  (HE  R10H|  OF  EAOH  WoRP5^"e’'  VENOTBB  UNO5E0  F IXEO  MEMORY. 


all  VALIO  WoROb  are  BASIO  instruct  Ions  E^CeP]  TFIOSe  MARK-eO  "l"  UNTERPRETIVe  operator  WORDS)  uR  "C"  (CqnStANIS), 


00.2400 

40144 

1 

0UU06  i 

62404 

0 

i4l2b 

1 

37743 

0 

54144 

1 

02604 

1 

37  763 

1 

00,2410 

171  S3 

u 

24126  1 

40121 

1 

12401 

1 

00006 

1 

4OI2I 

1 

52121 

1 

24126 

1 

" V0,“2^2U 

117144 

1 " 

1243?  0 

12424  w 

12431 

1 

10145 

I2435 

0 

l6l^5 

0 

12431 

X 

UO,2*t3U 

1612S 

0 

000U6-  'i 

40146 

0 

52146 

0 

24126 

1 

40144 

1 

67  77I 

1 

60120 

1 

00,2440^  - 

10000 

u 

12603  1 

^■ooo  1 

0 

1 244'4' 

37  746 

0 

b u u 0 u 

X 

60 1 A5 

X 

54145 

0 

U0,24^U 

3 )7b  i 

u 

67)43  0 

26144 

1 

3 7 )46 

0 

60000 

1 

60121 

0 

54121 

1 

37  767 

u 

U0,246U 

6 )7A3 

u 

2ol2D  0 

40144 

1 

60120 

1 

10000 

0 

12503 

1 

c:  00123 

1 

12404 

1 

00,2470 

5A1  30 

i 

U 

6*-*  1 2 1 

0 

^<ju06 

1 

62404 

I25O3 

1 

"00066 

t 

24127 

0 

OO.2S0O 

OOQOfc 

i 

30121  0 

20121 

1 

3U120 

1 

bOOOO 

1 

64000 

0 

12476 

1 

52145 

u 

U0»2t>lU 

5^1 

u 

02541  0 

54146 

0 

16125 

22021 

I 

OOUOb 

1 

"77  746 

1 

56WUX 

0 

U0,2!?2U 

60021 

i 

56001  U 

12646 

0 

^OUOi 

1 

20001 

1 

20001 

1 

20U01 

1 

20001 

1 

00.2S30 

20001 

1 

20001  1 

20001 

1 

2OUOI 

1 

20001 

1 

20001 

1 

2OUOI 

1 

20001 

1 

00.2S40 

5<i  1 ^5 

u 

10130  1 

L; 

06662 

0 

12616 

0 

52145 

0 

ooooe 

1 

10120 

0 

52145 

0 

00.2SS0 

1 

00006  1 

7OI2I 

1 

00145 

1 

54000 

0 

12562 

0 

00O06 

1 

60120 

1 

00 « 2560 

12564  0 

0 UO  06 

1 

025  74 

00006 

1 

60 120 

1 

■OOUU6 

X 

12572 

1 

00.2S70 

U0006 

1 

62600  0 

24144 

0 

12601 

0 

00006 

1 

12604 

0 

00006 

1 

26144 

1 

00  y 2600 

60120 

I 

22OU7  0 

OOOO5 

1 

10120 

54145 

0 

10126“ 

“0 

60002 

0'  ‘ 

OOUO2 

0 

00,2610 

UU002 

u 

00006  1 

40146 

0 

52145 

0 

3776  7 

0 

00002 

0 

40144 

1 

60120 

1 

00,2620 

U00U6 

i 

12623  0 

12544 

1 

3 7 743 

0 

64144 

1 

40121 

1 

6OI45 

1 

12600 

1 

W'-'  1 0 i u 

47763 

54127  1 

54117 

i 26  7 ^ 

1 

12637 

0 

12665 

1 

56121 

00,2640 

S6120 

1 

5&145  1 

56144 

0 

oooob 

1 

12646 

0 

12404 

1 

56150 

0 

56147 

0 

00 « 2650 

12653  i 

' 1^404 

1 

56152 

1 

66151 

1 ■ 

00006 

"12660“ 

1 

12404 

X 

00,2660 

10120 

0 

12671  1 

12404 

1 

12665 

1 

12404 

1 

00006 

1 

40121 

1 

52121 

1 

00,2670 

24]  W 

u 

3 7746  0 

60000 

1 

OOI2I 

0 

54121 

1 

37767 

0 

67  743 

0 

26120 

0 

00,2700 

56123 

1 

30121  0 

54124 

1 

12  7II 

0 

00006 

1 

24127 

0 

00006 

1 

30121 

0 

00,2710 

20121 

1 

30120  1 

6000U 

1 

54OOU 

0 

12704 

1 

02727 

1 

52150 

1 

52X45 

0 

5^1  5^ 

02  727  1 

52152 

5'2145 

52152 

0 

&ZTTT 

• 1 — 

tJ^T 



30117 

0 

00,2730 

64126 

u 

10144  1 

12  746 

1 

12  735 

0 

12742 

0 

10145 

0 

12  746 

1 

00002 

0 

OOOO6 

1 

4OI45 

0 

52145 

0 • - 

24  ire 

1" 

47T63 

0 

54130 

X 

00,2  T50 

1 

60123  1 

00006 

1 

62  76  7 

0 

52145 

0 

50127 

0 

12541 

1 

37  746 

0 

00,2760 

6U0UU 

1 

60145  1 

54145 

0 

3 7 76  7 

0 

67743 

0 

26144 

1 

40144 

1 

60123 

1 

12754  1 

C » 

32506 

0 

12404 

1 

54130 

*1  - 

"467  46" 

■i? 

“ 60124 

0 

00006 

X 

633^36A  YQL  Sy'STEc  f 3R  HYiCr  ffEV  tSI  ON  O OF  PROGRAM  BURSFl^O  bY  NASA  20an06>U3f 


WC“Tt  1967 


PAGtll75 


OCTAL  UIStING  of  PAKAGRAPH  * 0^2.  RMH  PARry  Y H J | ' I N BrNAKY^  A(  THt^R  IGH  | OF  EACH  WORD;  I'gir  BtNQTE^'UNUStO  F IAeD  MtM0RY7 
all  VALIO  WqKOS  APt  BAblL  iMbTRULT  1QN5  bAC^Py  TFIoSe  MARReP  " F'  UNTERRRETiVb  OPERATOR  WpRDS)  QK  "C"  (LQMbTANTS). 


'UO,3UOO 

62a0a  0 

1275A  1 

07612  0 

31161  0 

-56111  0 

5A131  0 

03301  0 

30131 

1 

00,3010 

S6111  0 

00006  1 

1301A  0 

12404  X 

00006  1 

301A5  1 

50110  1 

520A3 

1 

00,3U20 

' 03323  0 

1 01 4 4 I 

13027  “0" 

54X^01  1 

5OIIO  1 

52045 

12R0C  1 

A3130 

1 

UO,3l^3U 

b012b  1 

10000  0 

4OOOU  0 

13111  1 

130A3  1 

A3127  1 

5A125  0 

301AA 

0 

00,3040 

54001  X 

37167  0 

13070  1 

10x25  0 

13052  X 

A20ZA  1 

54x25  0 

OOOOfc 

1 

00,3050 

301A3  1 

13070  1 

AOOOO  0 

5A125  0 

40000  0 

30000  1 

371A6  0 

5A120 

0 

00,3060 

00006  1 

761^5  0 

56120  1 

0UUU6  1 

701AA  1 

56001  0 

60120  1 

56001 

0 

uO  * 3 0 7 u 

501 XU  1 

52O45  X 

A 1163  0 

54X30  X 

52113  0 

^2145 

52  i"?Xr  1 

O3I3I 

I 

00,3100 

32113  0 

52U3  0 

32I5O  1 

03X31  1 

32117  1 

5ZU5 

52152  0 

O3I3I 

1 

00  f 3 i 1 0 

\ l‘*l  ( 0 

54X25  0 

3776?  0 

36113  1 

5611 Z 0 ■ 

5b  1 1“5~1 

56UA-0 

56117 

0 

00,3120 

3611b  1 

AU123  0 

50000  1 

3 1 lAb  0 

00006  i 

7OIAA  1 

130ao  1 c: 

00015 

0 

00,3130 

Ci  00016  0 

lOlAA  1 

13150  1 

13135  1 

131A2  1 

101A5  0 

13150  1 

00002 

0 

00,3UO 

13U2  1 

00002  0 

A7761  1 

5a126  0 

00006  1 

a01a5  0 

50125  1 

125a0 

0 

00,3130 

3A126  0 

52x45  0 

50125  i 

125AU  0 

03262  1 

16125  0 

10153  1 

13206 

1 

00 , 3^60 

13206  1 

03301  0 

22153  0 

vjUU06  X 

3OX45  1 

50 1 1 0 I 

520A3  1 

03325 

0 

00,3170 

10123  0 

13173  0 

16125  0 

63110  i 

00006  1 

63201  1 

22007  0 

22106 

0 

I23O3  1 

5OI25  1 

377A5  0^ 

^4^X25^  0 

m sr  0 

orotm. 

16^125 

0 

00,3210 

16123  0 

17122  0 

A 1161  1 

26156  1 

00006  1 

50000  1 

30003  1 

52150 

1 

00,3220 

00006  1 

50136  0 

30001  0 

32152  0 

A7763  0 

1612A  1 

03301  0 

37  167 

0 

00 , 3 2 3 0 

1 6 1 2 A 1 

0 0 0 6 X 

3OI45  1 

50 X 56  0 

52001  1 

50153  0 

“ 36  310  0 

26X56 

X 

00,32A0 

10133  1 

1323A  0 

16125  0 

UUUOb  X 

30X60  0 

50156  0 

51175  0 

OOOOfc 

1 

30 1 52  X 

50X56  0 

5I777  1 

X6X25  0 

301A6  1 

166  32  1 

- — 

30052 

0 

00,3260 

3A10^  0 

16/30  1 

301A5  1 

UUU06  X 

70000  0 

5A1A6  0 

37161  0 

561A5 

1 

00,3270 

00006  i 

7OIAA  1 

2UOOX  1 

201A6  0 

561AA  0 

00006  1 

7OOOO  0 

201A5 

0 

00,3300 

UUOU2  0 

00006  1 

2212 1 0 

03262  1 

32130  1 

521A5  0 

52121  1 

301A6 

1 

00,3310 

3A122  1 

03262  1 

521A6  0 

20122  1 

bOlAA  0 

60120  1 

5A120  0 

13321 

0 

541 1 X X 

52152  0 

52145  0 

03262  1 

17257  1 

37767  0 

^At23  0 

101 A A 

1 

00,3330 

13366  0 

13333  0 

13355  0 

561A6  1 

56lA3  1 

5A1AA  1 

37  165  1 

5A125 

0 

00,3350 

13366  0 

13344  0 

13360  0 

561A5  1 

5A1AA"  1 " 

^ 37165  1 

26125 

0 

lOlAA  1 

13366  0 

00002  0 

13360  0 

13A3A  0 

lOOOO  0 

1336A  1 

101A5 

0 

00,3360 

irib!  0 

13A3A  0 

1336A  1 

X3434  0 

06000  1 

c:  01302  1 

62AA2  1 

00U06 

1 

52x45  0 

22021  1 

OOv/06  X 

777A6  1 

“ 5Z1R5  0 

56t»2l  1 

Z61A5 

0 

6732T36A' TUL  SrSTEN-  AbC  T KEVI S ION  0 OE  PHOORAH  BURbV12U  BY  NA5A  2021106-031  DEC  77  7967 PACtll76 


Air  LTSflNO  OE  paragraph  # 023,  WlT>i  PARI  1 Y Blf  I N BINARY  A|  iKE  KiCHf  uF  EACEI  WoRUT  "f"  DtuOTES^WUSETJ  ElAED  NEMoiRY. 
all  valid  words  ARt  BASIL  INSTRUCTIONS  EXCEPT  TMOSe  MAKK-tU  "1"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "Ci'  (CONSTANTS). 


00,3a0O 

32319 

0 

00006 

1 

70199  1 

62692 

0 

54120 

0 

30199 

0 

2200)  0 

00006 

1 

00,3^10 

10120 

0 

00006 

1 

)7796  1 

26120 

0 

00006 

1 

77796 

1 

62196  0 

00006 

1 

U0,-3^20 

lOTZO' 

'0 

SA'lZl 

IT 

37T6T  0 

5”^0U1 

OOOO6 

1 

10120 

0" 

59001”! 

30121 

0 

00,3^30 

20196 

0 

00006 

1 

13936  1 

3 7 )93 

0 

59199 

1 

69195 

0 

00002  0 

67  )97 

1 

UO ,3440 

00Q06 

I 

62963 

0 

52145  ^ 

2202  1 

1 

00006 

I 

))r96 

I 

52145  0 

56021 

I 

00,3A60 

26196 

0 

32772 

1 

00006  1 

^0144 

1 

622  )0 

0 

13909 

0 

00006  1 

30196 

1 

00.3A60 

20196 

0 

60144 

0 

26199  1 

24125 

1 

00006 

1 

30196 

1 

20196  0 

60199 

0 

00,3470 

26199 

1 

60000 

1 

■54022  0 

10022 

10022 

0 

1"3^456 

1" 

”r3900”i 

13951 

u 

UO,3bOU 

otooi 

1 

13609 

1 

1360)  1 

1350  ) 

1 

00006 

1 

90195 

0 

62195  0 

37797 

1 

00,3510 

26199 

1 

52145 

20001  1 ' 

54000 

1351  ) 

0 

00006 

1 

90001  1 

52195 

0 

00,3620 

30144 

0 

60000 

1 

69001  1 

13534 

1 

50000 

1 

37795 

0 

60000  1 

00006 

1 

00,3530 

60144 

0 

59199 

1 

90195  0 

54145 

0 

00006 

1 

30195 

1 

52129  1 

03262 

I 

00,3690 

U)Z)9 

1 

C; 

00003 

X 

14441'  0 

C; 

3 )326 

1 

0; 

5325*^ 

0 

C: 

60769 

1 

C;  12196  1 

C; 

21276 

i 

00,3550 

e; 

^5466 

1 

c; 

71971 

0 

c: 

00236  0 

32  )6  ) 

0 

32466 

1 

O7I6O 

1 

00006  1 

30196 

1 

00 , 3560 

20196 

60199 

26199  1 

OOOO6 

1 

30146 

1 

20146 

0 

‘ “60199  0 “ 

26199 

i 

00,3670 

16126 

0 

33612 

1 

13679  0 

33674 

1 

69126 

0 

07001 

1 

13606  0 

13)06 

i 

00 , 3600 

40145 

52 1 45  0 

337  1 1 

66126 

1 

59127 

Xr 

9T796‘  1 

60199 

0 

00,3610 

lOOOO 

0 

13702 

0 

136)0  1 

13623 

1 

10196 

0 

37767 

0 

13620  1 

13623 

1 

00,3620 

69196 

0 

54144 

1 

00126  1 

00006 

1 

90196 

0 

67796 

0 

62195  0 

52129 

1 

10125 

136  75  1 

52145 

62129 

1 

52195 

0 

07279  1 

C: 

00O06 

i 

00,3690 

c; 

13290 

0 

e: 

23630 

0 

0; 

79721  0 

l: 

9))7S 

1 

0; 

02990 

0 

Ci 

20237 

0 

C:  75067  1 

c: 

70)92 

1 

00,3660 

32466 

1 

26756 

07160 

1 

00126  1 

5 7640 

00006 

1 

1 

0* 

03046 

40145 

0 

c» 

O7I93 

67796 

0 

C , Teoi>'9“i 
52195  0 

c; 

92299 

00127 

0 

0 

00,3670 

00Q06 

i 

90195 

0 

67)9)  1 

52145 

0 

16126 

0 

50000 

1 

37)96  0 

59125 

Q 

00,3700 

020)3 

1 

13633 

0 

00006  1 

13620 

1 

ObOOO 

1 

c: 

OI3OI 

1 

37)9)  1 

13621 

0 

00,3710 

e; 

) llbi 

0 

13663 

0 

10000  0 

12920 

1 

90121 

1 

00006 

1 

62920  0 

37  )96 

0 

b 0 0 0 0 

26  1 2 1 

I 

37T67  0 

54  1 20 

12362 

0 

7:0000“ 

O' 

12919  0 

30121 

0 

00,3730 

00006 

1 

62919 

1 

9)796  1 

13  )20 

0 

l; 

03739 

1 

c: 

03735 

u 

CKSM  55262  1 

e 

00  * 374o 

(? 

fel 

e — 

e — 

— e — 

e 

e 

00,3  )50 

fe’ 

& 

& 

fe 

00»3760 

e 

& 

e 

e 

e 

6" 

@ 

e 

g 

k 

633436A"  YUL  SYr5|tf'F3«  A(^Ci  HeVISION  0 UF  PKOGKaM’  BUKS  |l  i;u  BY  naBA  <;02H06-031^ 


XSECTTTybT 


PAGtUYT 


uCjJL  LI5|INti  oF  PaKaBKaFH  * OZA.  V(ItH  PaRI|Y  BI|  IN  BINABY  A|  [HE  KUjHj  qP  EA(-M  WqBU;  "S"  " UENoT^B- DNUSEB  FIY(ED  MEMoHY. 
all  VALIU  wuKLIb  ARe  BAblE  INbiKUElIQNS  E^CeFI  IHu^e  MAKK.eP  "1"  UNteBFBeUVE  OFeKATUK  woRDb)  uK  "Cn  (EunBi ANlB)  , 


UitliUOU 

UU004 

0 

02357 

1 

1200/ 

0 

3^  ^46 

0 

U5516 

0 

Li  03546 

0 

LI  72060 

1 

37  ^45 

0 

U1  ,2010 

5^326 

1 

47  167 

1 

55127 

0 

54055 

0 

55345 

0 

55162 

1 

3566 

0 

54001 

1 

Ul  *TU20 

22003 

1 

37767 

0 

53  53^ 

0 

55535 

1 

22003 

1 

55163 

Q-  - 

y4nn 

0 

54102 

0 

01,2030 

54103 

1 

55356 

1 

55360 

1 

55361 

0 

55362 

0 

37762 

0 

55337 

0 

55340 

0 

Ul  ,2U^fU 

5n‘t> 

55336 

1 

47161 

1 

55164 

1 

65165 

0 

55166 

0 ■ 

5516  f 

1 

55I7O 

1 

01,2050 

55111 

0 

55172 

0 

551  13 

1 

4//63 

0 

55145 

1 

37761 

0 

54OUI 

1 

5OUOI 

0 

01,2060 

325  16 

1 

50001 

0 

540  14 

0 

iOOOi 

1 

12056 

1 

55355 

1 

55353 

1 

56133 

0 

OTVZVJV- 

55134 

1 

55135 

0 

55136 

0 

5513  1 

1 

55140 

1 

5514T 

'0 

55142 

0 

55143 

1 

Ul  ,2100 

0 

00006 

i 

OIOO5 

0 

OOUOb 

1 

01006 

0 

32570 

1 

54365 

0 

37752 

0 

01 ,2110 

05663 

1 

C;  02273 

0 

^ I <^6063 

uOOOb 

1 

3^60b 

0 

5 300  1 

0 

34276 

0 

54*346 

1 

Ul  ,212U 

32554 

1 

54001 

1 

22003 

1 

32653 

0 

55401 

1 

32556 

0 

55405 

0 

32557 

1 

01,2130 

554O4 

1 

22003 

1 

02151 

0 

00003 

1 

12135 

0 

00004 

0 

05270 

1 

C!  40315 

1 

Ul  ,2140 

intj 

0 

54302 

1 

5476*^ 

0 

UUUU,i 

1 

05206 

0 

c;  12001 

0 

O6O5I 

0 

c;  04000 

0 

Ul  ,2150 

15600 

0 

37164 

0 

54120 

0 

4//6/ 

1 

22007 

0 

50120 

1 

53077 

1 

10120 

0 

U 1 , 2 i 6*-* 

0 

12152 

1 

00002 

0 

25356 

0 

22002 

0 

53775 

X 

023^7 

1 

37  745 

0 

01,2170 

OU006 

1 

03033 

1 

00006 

1 

12201 

1 

37746 

0 

00006 

1 

02033 

0 

00006 

1 

01,2  2 00 

12042 

1 

00006 

1 

00015 

0 

62565 

0 ■■ 

OOOOb 

1 

n20  7 

T' 

” \2ZXi 

I 

37757 

0 

Ul  ,2210 

U0006 

I 

02016 

1 

62566 

0 

00006 

1 

12042 

1 

31353 

0 

00006 

1 

12221 

0 

01 ,2220 

120^2 

1 

32574 

0 

70326 

1 

6 1 1 4 5 

0 

56326 

0 

77760 

0 

00006 

1 

05012 

1 

U 1 , 223U 

3 2 5^  i 

70365 

0 

625  72 

0 

54365 

0 

UUUU6 

1 

32604 

1 

53001 

0 

35660 

1 

01 ,22AO 

055B5 

1 

L;  02106 

1 

L-  16063 

0 

40346 

i 

62661 

1 

OOOOb 

1 

12255 

0 

11145 

1 

6 1763 

1 

55 14^^ 

47763 

0 

55145 

1 

12262 

1 

51144 

1 

4H33 

0 

77  r45 

1 

Ul  ,2260 

51144 

1 

27133 

0 

342  16 

0 

54346 

X 

37760 

1 

00006 

1 

05014 

1 

37  f50 

1 

Ul  ,2270 

lOC  15 

1 

lOUOO 

0 

122  15 

1 

06225 

1 

OJ  16000 

0 

00003 

1 

12277 

0 

00004 

0 

Ul  ,2300 

3 /766 

1 

64151 

0 

60000 

1 

00006 

1 

60000 

1 

31100 

1 

00006 

1 

06001 

0 

01,2310 

lUOOU 

0 

12347 

1 

1234/ 

1 

1234  / 

1 

10151 

0 

12301 

0 

54152 

0 

37766 

1 

Ul  ,2320 

5^1  51 

^uOOO 

1 

50000 

1 

i 1100 

0 

12326 

0 

12333 

1 

54144 

1 

24144 

0 

01,2330 

2^152 

i 

32363 

0 

05212 

0 

10161 

0 

12320 

0 

10152 

0 

I2I43 

1 

O4755 

1 

40075 

1 

77750 

0 

lOUOO 

0 

12607 

0 

54302 

1 

121 4T 

1 

04755 

1 

01 ,2350 

C;  0110/ 

0 

ouoo«» 

0 

12042 

1 Li 

14311 

1 

00004 

0 

02374 

0 

12275 

1 

37  767 

0 

01,2360 

00006 

1 

01U05 

0 

00006 

1 

UlUOb 

0 

00006 

1 

01012 

0 

37  F43 

0 

54026 

1 

67771 

1 

3776  ^ 

0 

00&06 

"1 

01007 

1 

1 

6T5i»36«‘ TOTT'STSrt^  I- JR  A&C!  REVISION  o OR  PROGRAM  ^BORS  I i ,iu  BY  NASA  11 06-UJ 1 


DtG  IT^967 


PAGtllVS 


■DCna^lri^I  ING  uF  PARAGRAPH  » OZ^f  WItH  PAR  I I Y BI  f IN  BJNAKY~Ar  IHE^RIGHt  yP  EaGH  WoHOJ  "6"  TJtfVoTE'S^  DRUSEIT  f IXED  MEMyRY. 
all  valid  words  APe  basil  INSyRULTlONS  eALePT  THOSe  MAKReP  "i"  1 1 Nj eRPRET i Ve  OPERATOR  WoRDS)  yR  "Lu  (LoNStANtS), 


01 .2a0U 

01011 

0 

00006 

1 

01014 

0 

3266  ( 

X 

00006 

1 

03012 

1 

36666 

1 

00006 

1 

01 ,2AlO 

01013 

1 

32b6A 

1 

54003 

0 

3 f f44 

1 

5540  7 

1 

55406 

0 

55405 

0 

55404 

1 

U1V2A2V 

O' 

55^W2  A 

‘^55‘AOl 

1 

5^TfOU 

4571A 

X 

554  X 0 

t~ 

^472 

XT'  - 

55414 

0 

01  ,2A30 

bSAl6 

I 

S5A20 

i 

55A22 

0 

55424 

0 

55426 

1 

55430 

u 

45715 

0 

55411 

0 

U 1 1 

66A  i 

1 

bbAib 

i 

bbAW 

55*721 

55A23 

1 

66425 

1 

^S4727  TJ 

55431 

X 

01  ,2A50 

‘t  nb  ( 

1 

5A157 

0 

64l  f5 

0 

6420  1 

0 

5A223 

0 

54237 

0 

54253 

1 

54267 

0 

01  ,2A60 

SA06  f 

1 

32b&2 

1 

64^30 

1 

62563 

0 

64604 

1 

62563 

0 

64660 

0 

62563 

0 

01 ,2^A70 

bAfeJA 

i 

62^563 

0 

5A710 

X 

64360 

54X44 

X 

^7750“ 

0 

50X44 

0 

01 ,2sOO 

bA313 

I 

lOUA 

i 

1247b 

1 

640^t6 

X 

64346 

1 

54327 

0 

54304 

1 

64306 

0 

U 1 f 1 0 

bA303 

5^311 

64312 

542  72 

X 

54273 

54333 

0 

54334 

X 

01 ,2S20 

bA3Bb 

u 

SA373 

1 

64336 

0 

5436  1 

1 

5437U 

1 

5437I 

0 

54372 

0 

54356 

0 

01  ,2S30 

bA34f 

u 

37/bA 

0 

b430  1 

X 

4 t (bi 

0 

54413 

0 

32573 

1 

54366 

0 

37  756 

1 

01 ,2bA0 

UUOOfe 

1 

02033 

0 

62b  fb 

1 

54412 

1 

32560 

0 

55354 

0 

44565 

1 

5427O 

u 

01 ,2bS0 

325bb 

0 

6AA1 1 

1 

00002 

0 

0;  U20U6 

0 

L: 

03401 

1 

l: 

02236 

1 

L;  0161b 

1 

00306 

1 

Ul *Z56U 

L ; 

0211b 

c ; 

02013 

i 

C.  1 

I 00430 

0 

l;  00054 

0 

0 : 

0 X 4O0 

X 

t; 

77755 

0 ■ 

L!  77rS7 

n 

c: 

O74OO 

1 

01  ,2B70 

c.; 

3 lAll 

1 

c: 

00435 

0 

l; 

: 37000 

0 

c:  i6uuu 

0 

00460 

0 

c: 

00102 

1 

c:  ooOoo 

1 

c; 

OOOOO 

1 

U i ♦ 2600 

C t 

i 

c ; 

40bl2 

u 

c; 

5 00000 

I 

L!  02031 

X 

0; 

34O66 

0 

c* 

03606 

r ■ 

X7  JW0S6 

IT — 

OOOO4 

0 

01.2610 

023  1‘i 

a 

05270 

1 

C; 

! 40114 

1 

052  ?0 

1 

L: 

40054 

1 

06067 

0 

Q;  04UO0 

0 

06076 

0 

01,2620 

e: 

00020 

u 

00004 

u 

021bl 

0 

32625 

1 

05161 

1 

Li 

02140 

0 

02  723 

0 

30107 

1 

0 1 * ^630 

16X26 

4OXO  f 

02630- 

02  711 

I 

50  X 07 

X 

01 ,26A0 

3000U 

1 

12630 

1 

02711 

1 

50107 

1 

40000 

0 

12630 

1 

02  71  1 

1 

50120 

1 

0 i * 2560 

30rA6 

60  1U7 

1 

0 

16125 

02711 

1 

5UXU-T'X  - 

- - TTOOOO 

1 

6O12O 

X 

01,2660 

b60A6 

u 

12651 

0 

02711 

1 

5OIO7 

1 

30000 

1 

50120 

1 

26046 

1 

16125 

0 

01,2670 

02723 

u 

30107 

1 

1266b 

1 

02  711 

1 

50107 

1 

40000 

0 

12665 

1 

02  723 

0 

01,2700 

b0120 

1 

^0060 

u 

50120 

1 

bOU46 

0 

00006 

1 

66125 

1 

50120 

1 

56046 

u 

01,2710 

1672^ 

1 

40107 

u 

65353 

X 

iUOOU 

0 

30110 

1 

12722 

0 

35352 

0 

56107 

1 

7^b6Af 

26AV7  TJ 

jotro 

X 

54120 

0 

roo20 

1 

"24~t  20 

7 

00002 

(f 

01,2730 

00002 

0 

10020 

1 

30107 

1 

15230 

1 

10144 

1 

16125 

0 

16  724 

1 

16125 

u 

12744 

X6X26 

64  X X X 

X 

10020 

X 

-72-732 

X 

C; 

00360 

1 

01,2750 

1672A 

1 

10020 

1 

07001 

1 

X6X26 

0 

16724 

1 

16125 

0 

IOO2O 

1 

12  765 

0 

01.2T60 

C; 

i20UU 

1 

07001 

1 

16125 

0 

16125 

u 

16724 

1 

07001 

1 

16  724 

1 

16  724 

X 

1 ■ 

A 6 / X 6 

0 

04736 

X 

0271 1 

. X 

57)710  7r- 

3t)052 

0- 

12651 

G 

633436A  YUt  STS|t^■  FOK  AtiC!  KfcViSJON  0 OF  PkqGWaM  BOK'Six^U  BY  NASA  <;U2U06-O31 


Dec  ?.  19t>7  FA6tTX79 


UCfAT.  LISTING  OF  PAKAGKAFH  ,»  026*  WljH  PARI|Y  Bl|  IN  BI  NAKr  A yBC  OF  fAOFi  WqBD;  Tgn  OENOTES  UNOStD  F IXEO  MEMORY^"  " 


all  valio 

WOKUB  ARt  0A611. 

INblRUCl IONS 

except  TFIOBe 

MAKXtO  ”1" 

(INTERPRETIVE  operator  WqRDSI  OR 

iiCn  (Co('*StANt5)  , 

U1 . 3UOO 

35393  0 

70107  0 

50000  1 

3 7 795 

0 

59121  1 

37755  1 

OOOOb  1 

70107 

0 

01,3010 

59120  0 

00009  0 

50000  1 

300  ?4 

1 

59002  1 

37751  0 

00006  1 

70107 

0 

01,TD2CT 

13060  0 

' ' ' 50000  1 

■~T3023  r 

30T21 

0 

UUUU6  1 

09002  “T 

1 3 055  0 

30121 

0 

01,3030 

OU0O6  1 

06002  0 

13035  0 

90121 

X 

70002  1 

5OI2O  1 

59079  0 

OOUO3 

1 

01,3090 

31791  1 

00006  X 

lOlOi  0 

(3060 

0 

50000  1 

13096  1 

40002  1 

70121 

X 

01,3050 

iUOOO  0 

13061  1 

16773  0 

13061 

1 

09736  1 

09736  1 

30002  0 

13097 

u 

01,3060 

C;  uuoi^  i 

2415^  X 

16125  0 

59061 

X 

10930  1 

13100  1 

10509  1 

13100 

X 

01 ,3d70 

10560  0 

13100  1 

10639  1 

13100 

I 

i07X^  0 

1^100  1' 

0637(30“  I “ 

c: 

01201 

u 

Ol,3lOO 

61762  0 

22007  0 

50000  1 

217  7 7 

0 

96O63  0 

37767  0 

5iy064  X 

33II9 

u 

U I « 3 1 1 0 

59062  1 

50069  0 

1015^  0 

13159 

0 

L J 00UU6  1 

13159  0"  “ 

30065  1 

50069 

u 

01,3120 

59151  0 

75391  0 

50069  0 

54156 

X 

10069  1 

13191  1 

59111  1 

30156 

u 

01,3130 

3^110  0 

10067  1 

13191  1 

0973b 

1 

09736  1 

59067  1 

52066  0 

52155 

X 

01,3190 

15512  0 

52066  D 

50069  0 

52155 

1 

5OO67  0 

90157  0 

60063  1 

00006 

1 

01,3150 

66512  1 

30069  0 

59067  1 

15572 

0 

33265  0 

26069  1 

10062  1 

13110 

0 

y 1 » 3 1 6U 

OfoQOU  1 

C;  01202  0 

52155  1 

50067 

5^2  1 5 5 1 

52155  1 

52195  0 

50067 

0 

01,3170 

52195  0 

52195  0 

52197  1 

5006  7 

0 

52197  1 

52197  1 

52151  0 

50067 

0 

52 1 5 1 

6 2 X 6 X 0 

52I53  1 

5006  7 

52153  X 

52153  1 " 

57TB7  0 

56111 

0 

01,3210 

OOOOfe  1 

13219  1 

90156  1 

59156 

1 

52157  0 

50067  0 

52157  0 

52157 

0 

01,3220 

35391  1 

70157  D 

59110  0 

10156 

1 

37767  0 

13232  0 

40X66  X 

59156 

1 

3 1763  1 

56 ill  0 

59067  1 

52155  1 

00006  1 

63290  1 

52UU6 

0 

01,3290 

90000  0 

67763  1 

59159  0 

16122 

X 

00009  0 

90157  0 

59157  0 

35^42 

1 

y 1 * S’ii  5 u 

^000t>  0 

54155  1 

97767  1 

54121 

1 

13395  1 

59061  1 

3776“T  C 

54064 

X 

01,3260 

33l 19  0 

59062  1 

50069  0 

10157 

0 

13267  0 

c:  00019  1 

13276  0 

33265 

0 

01,3270 

26069  1 

10062  1 

13261  0 

9 7 763 

0 

59069  1 

15672  0 

40065  0 

50069 

0 

01,3300 

60159  1 

00006  1 

13309  1 

1326  7 

0 

50069  0 

90157  0 

59063  0 

50069 

u 

01,3310 

59151  0 

96391  0 

70065  0 

6 7 751 

0 

56065  1 

76391  0 

50069  0 

60156 

u 

U i y 3320 

t?^066  0 

10064  1 

13191  1 

13131 

59159  0 

3776T  0 

- 5x7150  U 

55391 

X 

01,3330 

10151  0 

60063  1 

59157  0 

40000 

0 

13253  1 

00009  0 

97  767  1 

59121 

1 

01  y 3 3^0 

5615^  1 

7 5 3 4 1 0 

10000  0 

5OOOO 

X 

59000  0 

10175  *0 

'■  05912  0 

09736 

X 

01,3350 

13351  1 

10207  0 

03912  0 

09736 

1 

13355  0 

10223  0 

03912  0 

c: 

67620 

1 

01 ,3360 

13361  1 

10237  0 

03912  0 

09736 

1 

13365  0 

10253  1 

03912  0 

09736 

1 

10267  0 

034X2  0 

04/36 

X 

13375  1 

ttFE2 1'  1 

09T56  y, 

09736 

X 

"633V36A  YUt  SirSIEM  F3H  AliC:  REVISION  0 OF  PKOORAM  BUHSU2U  BY  NAbA  2021106-031  ^ DEC’  /,“lR67  ' PAGtUSO^  ' 


CICtaL  LISiInQ  oF  ParaGraph  » 027.  with  PaRIiY  BK  in  binary  A|  |HE  R1GH|  qF  EAGH  WqRO;  "§"  CENgTES^ONUSEO  TIXEO  MEMuRY, 
all  VALIO  woROb  ARt  BAblL  INbTROLTlONS  E^G£P f THoEe  MARNtP  "1"  I 1 NjeRPHeT i Vt  OPERATOR  WORDS)  uR  "L"  (LoNStANTS) . 


01.3A00 

13A02  0 

16576  1 

10120 

0 

13406  1 

13233 

1 

jjOOOO  i 

27777 

0 

63357 

0 

01 ,3A10 

5A067  1 

13162  0 

64122 

1 

60121  0 

10000 

0 

40122  1 

13422 

i 

13420 

0 

oi.jAza^ 

500DZ  0' 

ooooz  0 

5 4121 

1 

uUuOb  I 

221Z0 

1 

50120~T 

tjoooz 

0 

54062 

1 

Ui  ,3^t3U 

40026  1 

67764  0 

iOOOU 

0 

66163  0 

40000 

0 

63563  1 

60U02 

0 

lOUOO 

0 

01,3't'^o 

^ i 4(0U  i 

13ti03  0 

13443 

0 

67 /‘>6 

0 

677A6  0 

56026 

0 

677A5 

0 

01 ,3AbO 

bUOOii  0 

00006  1 

2200) 

0 

57400  1 

67401 

0 

57402  0 

57403 

1 

574O4 

0 

01 ,3A60 

67405  1 

57406  1 

67407 

0 

30063  1 

60002 

0 

13466  1 

53411 

0 

53413 

1 

01 ,3A70 

554^5  1 

534I7  0 

3341^1 

i 

63426 

1 

53427  0 

~5^43l 

1 

65714 

0 

01 ,3b00 

oooofe  1 

16674  0 

13666 

0 

IOOOU  0 

61401 

0 

13611  0 

67  763 

1 

03664 

0 

U1  *3MU 

C;  uuoui  0 

lUUOO  u 

61402 

0 

1 3 D 1 / 0 

67763 

1 

03664  0 

c; 

00002 

0 

10000 

0 

01,3620 

61403  1 

13625  1 

67763 

1 

03564  0 

Li 

00003 

1 

10000  0 

61404 

0 

13633 

0 

01,3630 

67763  1 

03664  0 

c: 

00004 

0 

IOOOU  0 

61406 

1 

13541  0 

67  763 

1 

03664 

0 

01 ,36aO 

Li  00006  1 

lOOOO  u 

61406 

1 

13347  0 

67763 

1 

03364  0 

Li 

00006 

1 

lOOOO 

0 

01,3650 

6140)  0 

13555  0 

67  763 

1 

03664  0 

L: 

0000  7 

0 

10000  0 

06U00 

1 

Ci 

01203 

1 

0 1 ♦ 3 56U 

6 (Ibi  i 

0356^  U 

c : 

000 1 0 

64064 

1 

6UU02  0 

30000 

1 

54002 

1 

01  ,3670 

inti  1 

bOUfaif  U 

50002 

0 

27377  1 

40064 

1 

50002  0 

13453 

1 

54016 

1 

0 1 « 360U 

t*OoOb  1 

22012  1 

37744 

1 

574OT  0 

>74^6 

1 

S740S-  1 

5T4t74 

O' 

57403 

i 

01,3610 

U 

57401  0 

b7400 

1 

6 7 743  0 

26026 

1 

56076  0 

‘*7167 

1 

55076 

0 

01,3620 

UUOUb  i 

46  715  0 

63431 

1 

63427  0 

t)34^;> 

1 

53423  1 

53421 

0 

53417 

0 

b3  Ai!3  i 

53^13  i 

t>34 1 1 

5^00b  0 

23436 

1 

37762  0 - 

260&2 

T 

55434 

I 

01,36AO 

UUOUb  i 

43652  1 

21164 

1 

11164  1 

13663 

0 

13646  1 

1 3b4  ^ 

0 

11153 

0 

3 T '0 

27164 

1 

05663  1 

03670 

0"' 

ct 

02063 

0 

01,3660 

336  7Z  1 

63436  0 

62006 

0 

3 7 746  0 

05663 

1 

Ci 

03640  0 

020fe3 

0 

13660 

0 

01,3670 

63162  1 

5<i006  U 

0672  ) 

0 

Li  03673  0 

03674 

1 

USFI 

10532  1 

G 

G 

01,3700 

e 

e 

& 

& 

G 

G 

G 

01,3710 

S 

e 

& 

G 

fe 

G 

G 

G 

0TTTT2V 

e 

fe! 

c 

e 

e ~ 

e 



— e 

~ 

01,3730 

@ 

e 

& 

e 

G 

G 

G 

G 

0TT3T*TO 

fe 

fei 

& 

■ e 

^ — 

G 

e — 

— c — 

01 ,3  750 

@ 

@ 

& 

& 

G 

G 

G 

e 

01,3760 

nt 

@ 

& 

& 

& 

G 

G 

G 

YUL  SYSltf'  for  Atit;  RtVlSlON  0 OF  PROGRAM  BOKb  I 1 i!U  l)Y  NASA  1 1 06-U3 1 ^ XTtC  7*  1967  PAGtU81 


uC|AL  LTiylNG  ol-  PaXAGRaFH  0 OAO.  >iItM"P^ARIiY  B1|  in  binary  A|  |ME  RIGHf  (jF'  ETAtN  HQ'^Pr  "?"^OENCrrEi>  ONPEEO  fixed  MEMuRY. 
all  valid  WuRUS  APt  BAblL  INb^RUCUoNb  EXCEPT  IHuSe  MARXtP  " t ■'  UNTlRFRETIVE  OPeHATDR  WqRDS)  UR  hGm  (GqNStANtB)  . 


«200U 

03A  ^2 

0 

O35IA 

1 

3 7763 

1 

56303 

X 

5A105 

1 

561AA  0 

5AIO7 

0 

50000 

1 

U<f,2UlU 

U20U 

0 

-03313 

0 

O2O7U 

1 

0^0  70 

1 

U2O7U 

1 

O2O7O  1 

02070 

1 

02070 

i 

uArzPZD 

DEO  lU 

I ■ 

0 ^ 0 c>  X 

X 

u^U6 1 

I 

033 13 

t) 

03313 

0 

037313^0 

^Txr  0 

03313 

0 

UA.2U3U 

U33I3 

0 

02066 

0 

022A3 

0 

02355 

0 

02053 

0 

02056  0 

03313 

0 

03313 

0 

4 

03313 

0 

O33I3 

0 

^333b  1 

022  75 

02262 

0 

o<;u5 X X 

033T3 

0 ■ 

02AA6 

0 

UA,2UbO 

U22b6 

X 

05225 

1 

c_: 

X2003 

1 

0A666 

0 

05225 

1 

Ci  56350  1 

0A666 

0 

05225 

1 

UA,2(J6U 

c; 

t)63t)3 

i 

36311 

1 

70271 

1 

10000 

0 

O2O7O 

1 

03313  0 

37  767 

0 

5A107 

0 

UA,2070 

102  10 

0 

02075 

X 

02075 

1 

OZ07A 

V 

05567 

0 

02213  TT 

37767 

0 

Uit,2100 

bA30& 

0 

02102 

0 

50107 

1 

3A300 

0 

7A556 

1 

6A11A  1 

30270 

1 

5A133 

1 

UAiZllU 

0321  1 

0 

36311 

X 

702  71 

1 

lOOOO 

0 

02125 

0 

50127“  0 

56272 

0 

5A022 

0 

UA.2120 

AO022 

0 

a0O22 

u 

56022 

1 

6010  7 

X 

021A2 

1 

50127  0 

56272 

0 

5^144 

1 

UA,213U 

inbi 

0 

5A1A5 

0 

3A5  70 

X 

0735  7 

X 

561A5 

1 

6OIO7  1 

5A1A5 

0 

021A2 

1 

UA.2U0 

2bl  AA 

1 

02160 

X 

50127 

0 

5A272 

1 

AO27O 

0 

50127  0 

6220a 

0 

00006 

1 

UA,21bU 

I21S2 

1 

02201 

0 

36311 

1 

7O27I 

X 

10000 

0 

02160  1 

AO27O 

0 

02202 

0 

U*t  f 2 1 fct) 

0 ^Tbb 

1 

c : 

02211 

X 

i.63  i i 

1 

70271 

1 

50000 

X 

02165  1 

O2I7E 

1” 

0 OO  0 ^ 

X 

OA,2l7U 

AOlAb 

0 

521A6 

0 

561A6 

1 

50127 

0 

5A2  76 

0 

561A5  1 

50127 

0 

5A272 

1 

UA.220O 

021  S6 

1 

IO27O 

0 

5A270 

0 

05  b b ( 

0 

L ; 

00022 

1 

Cl  00020-0  ‘ 

Ci  ^ 0012 

I 

c: 

00005 

X 

UA.221U 

c; 

UOOOU 

X 

c: 

0517A 

0 

c: 

13261 

0 

50270 

1 

3221  7 

1 

5A127  1 

00002 

0 

C! 

00004 

0 

Ui»*2220 

l; 

OUOUit 

0 

c; 

OOOOA 

0 

e: 

OOOOA 

0 

l; 

OOOU^t 

0 

0: 

00003 

1 

Ci  00003  1 

c:  U0003 

1 

Ci 

00003 

1 

* 22  3U 

c ; 

0UD03 

X 

C ; 

00002 

0 

c: 

00002 

0 

l: 

00002 

0 ■ 

0: 

00002 

0 

Ci  00002  0 

- - OAT36 

1 

c: 

oouoi 

0 

Oa*22aO 

c.: 

OUOOi 

0 

c; 

00000 

1 

c: 

00000 

1 

illbl 

0 

5A272 

1 

3A665  0 

5A270 

0 

02557 

1 

3776  1 

5A271 

5^304 

X 

^<♦505 

5A126 

0 

05567~0 — 

3TT67 

0 

5A273 

0 

UA,226U 

0 

022A6 

0 

0233A 

X 

02321 

0 

37762 

0 

50127  0 

67  755 

1 

262  71 

1 

UA,2Z70 

10306 

0 

37767 

0 

5A306 

0 

0^^ 

1 

05567 

0 

0233A  1 

02301 

1 

37  763 

1 

UA.230U 

0226b 

1 

22002 

u 

02213 

0 

50127 

0 

3232  7 

0 

5A113  0 

67  763 

1 

6A112 

1 

UA.2310 

3 nb  1 

0 

5A11A 

X 

56113 

X 

03301 

0 

37751 

0 

5A11A  1 

56U2 

0 

03301 

0 

*2320 

22002 

02213 

5OI27 

32327 

0 

5A112  T 

-67T63 

t 

5A113 

0 

OA.2330 

02310 

X 

L; 

00005 

1 

Cj 

00003 

1 

L' 

00000 

1 

22002 

0 

36311  1 

70271 

1 

10000 

0 

0556  7 

AA527 

X 

0^350 

0 

4«f530 

X 

0^350 

0 

AA53 1 0 

02350 

0 

05567 

0 

UA.23bU 

b02ru 

1 

00006 

X 

1235A 

0 

00002 

0 

00001 

0 

56105  0 

5A303 

0 

OOOOA 

0 

UA,2361) 

3 77SZ 

0 

00006 

X 

05011 

1 

3^4^^ 

1 

70326 

1 

677A5  0 

5A326 

1 

A56A2 

0 

70 

5A366 

A 7 752 

X 

70365 

0 

63^752-0 

-5A3^65 

0 

42443 

X 

b33‘.36A  rUL  5YSIEF  At>C : (REVISION  0 OE  PKOWAM  BURSli^u  BY  NASA  ^IU<:U06-U31  " DEtTr.^lgb?  ^ “ PACjEH82 


uCiAL  UTStINIj  o'-  PAKASKAPH  a OAl.  with  PARIiY  BI|  in  binary  A|  THt  KI0H|  EACH  WoRPT  "P"  DETrOTtYS^UNOSEU  MXEP  MEMoRY. 
all  VALIP  WoRPS  are  basil  instructions  E^^EPT  THoSe  MARReP  "i"  UNTERPReUYe  OPeRATUR  WORDS)  UR  "Cn  (CONSTANTS). 


0A»ZaOO 

)0a1^ 

1 

67  753 

1 

>44 1 2 

1 

47732 

1 

00006 

1 

03013 

0 

42442 

0 

00006 

1 

OA.ZAlO 

03011 

I 

34370 

1 

54107 

0 

00U04 

0 

3OIO  7 

1 

10313 

1 

67763 

1 

02424 

1 

6776^ 

i 

400U0 

r244>  1 

02427 

1 

4OOOO 

0 

7244'5 

r 

■400  ox; 

0 

50107 

1 

U^,2<»3U 

34313 

1 

OOU03 

1 

10107 

0 

02412 

1 

illb! 

0 

55360 

1 

55361 

0 

55362 

0 

55>35  ? 

0ST56  7 

c • 

1 

t. ; 

1 

; 

1 

c 

: 73777 

1 

IO27O 

0 

67763 

1 

Uif, 2^*50 

02432 

0 

67763 

1 

50000 

1 

3221  7 

1 

54127 

1 

10306 

0 

02464 

0 

02461 

0 

U4,2A6P 

02461 

0 

30127 

0 

0230b 

0 

02301 

X 

10127 

1 

54127 

1 

02506 

0 

32555 

0 

26304 

30127 

541 1> 

OOUOb 

1 

2627^ 

1 

U>'2t^6 

0 

C; 

1T3 15 

0 

30116 

1 

PA.ZSOO 

34127 

1 

02304 

1 

24306 

1 

0336  7 

u 

22002 

0 

02516 

1 

65336 

1 

10000 

0 

UA  |2510 

UU0U2 

04736 

1 

0>>67 

0 

22002 

0 

022 1 3 

0 - 

37767 

0 

50127 

u 

0A,2b2O 

342  72 

I 

30127 

0 

34273 

0 

34114 

1 

3012  7 

0 

47755 

0 

70271 

1 

72556 

1 

UA,2S3U 

342  7l 

1 

50127 

U 

32546 

1 

34133 

1 

0321  7 

0 

50127 

0 

32551 

1 

54470 

0 

UA,2bA0 

0253  7 

1 

47  762 

1 

262  70 

0 

0233  7 

1 

3OI27 

0 

34525 

1 

54270 

0 

ooool 

0 

U<M2t>5U 

C;  UU0i6 

0 

C;  00005 

1 

C: 

00004 

0 

L: 

U0015 

0 

c; 

00011 

1 

c 

i 00003 

1 

c: 

77  774 

0 

30270 

1 

Ot* 

54021 

42572 

1 

30021 

1 

5631  3 

0 

00006 

1 

6Z57l> 

1 " 

24307 

0 

0A,2b7U 

UU0U3 

1 

00002 

0 

C: 

O4OOU 

0 

37  76  7 

0 

34146 

0 

02632 

1 

02600 

0 

02626 

1 

0<»  *260^ 

027,43 

1 

10144 

1 

56144 

0 

O2606 

0 

02615 

1 

67771 

6"2657 

T 

54144 

1 

04,2610 

02613 

i 

37  745 

0 

26144 

1 

37  762 

0 

02574 

0 

56144 

0 

62657 

1 

10000 

0 

OA.2620 

02607 

1 

04736 

1 

bl  tbi 

1 

40U0U 

0 

0260  7 

1 

00006 

1 

5014b 

1 

32654 

1 

y 263U 

i)ii\ 

i 

00002 

10144 

1 

0 

00002 

0 

12636 

1 

^T7^f5 

1 

70144 

1 

Oa,26AO 

1 

>0002 

0 

00001 

0 

OUUOb 

1 

50146 

1 

32654 

1 

52145 

0 

O7357 

1 

>21  14 

■0266  J 

O5b05 

1 

^ • 

03656 

1 

C ; 

) 16314 

6“ 

314^63 

•i. 

cr  I6O40 

1 

OA.2660 

32114 

1 

32145 

0 

07357 

1 

03223 

1 

1.; 

12513 

0 

02677 

0 

56146 

1 

56146 

1 

OA.2670 

>4144 

1 

02663 

u 

026  7 7 

0 

02663 

0 

0267  7 

0 

03072 

1 

02663 

0 

56002 

0 

Oa.2700 

34111 

1 

30130 

0 

O27O2 

0 

02  720 

0 

5OIO7 

1 

30140 

1 

74563 

1 

04523 

1 

04,2710 

OUOOb 

i 

50000 

1 

30001 

0 

52145 

0 

07327 

0 

07155 

1 

C! 

00113 

1 

OOlll 

0 

0^10 

501  30 

0 2 723 

0 

U2726 

0 

033-1^ 

(3 

oxmob 

1 

50135 

0 

04,2730 

3O0O1 

u 

32145 

u 

3432  7 

0 

34270 

0 

37  76  7 

0 

54146 

0 

07327 

0 

03173 

1 

0 7 1 >5 

1 

c • 

10143 

37751 

0 

02747- 

1 

47731 

1 - 

60145 

1 

04,2730 

U31U4 

I 

04611 

0 

04611 

0 

03113 

1 

04611 

0 

10144 

1 

02  762 

0 

02  762 

g 

04,2760 

4U0UU 

0 

54144 

1 

10111 

1 

O3OUU 

1 

02774 

1 

10144 

1 

04  736 

1 

02  7 76 

0 

56144 

nv*i 

1 

54144 

1 

05225 

1 

r~t304D 

-t 

47^643 

1 

02773 

g 

633‘^36A 

YUU  5Y5[tK  7 3K  AljC 

i KtVlSlON  0 

Oh 

pkOOKAM  bUKblX^U  bY  1 

NAbA 

2021106-0-31 

niEC  1»  1967 

PACE  11 83 

UCJAU  LIbTiN'J  Ur  paka<jKAKM 

WITH 

PAKl  1 T t3i  1 IfM 

DlNMr^T  Ml 

IHfc 

kxoMT  ur  1 

lAun  wo^'D;  i«e"  UtNOTt^ 

UNUbLU  rXAtD 

MEMUKY, 

all  valid  rtoKDb  A^^t  ' 

3AblL 

INbTWUCl IONS 

E^CtHT  jHObt 

MAKK.tO  "1" 

( lNTtH»"Ktl  IVt 

Oh-tKATOK  hORDb)  oK  "O' 

''  (OOl'ibTANib) 

• 

U^,,3U0U 

‘tOl'.'t 

X 

77  1A3 

X 

<*0000 

0 

02  173 

0 

l; 

26161 

0 Ci 

30707  1 t: 

21616  0 

C 

: 07071 

0 

D<»,301U 

ti  ri52f 

X 

0 1135 

X 

L| 

: 00113 

I 

56XA6 

1 

. b6l55 

1 

56155  0 

00006  1 

13021 

0 

f 

033lb 

u 

03102 

1 

03113 

I 

02  175 

1 

XOX^A 

1 

U3tr31  TT 

T731T31  0 

03315 

0 

0<t,3U3U 

U33iS 

D 

33010 

0 

26155 

1 

u^Xbb 

1 

L; 

03006 

1 

37750  1 

60155  1 

03105 

1 

0if,3040 

0Z7S2 

U 

01136 

X 

C; 

00113 

X 

bbX4b 

X 

b 0 UUU 

1 

55196  0 

37  16  1 0 

60155 

1 

0<.,3U50 

U31Ui( 

X 

03113 

X 

50130 

0 

03053 

1 

03065 

0 

30107  1 

6OI35  0 

55002 

1 

,i06U 

1 

60U02 

0 

55001 

1 

02  175 

X 

3776  1 

0 

03056  1 

07155  1 

C 

: 00113 

1 

u'hButo 

030  n 

1 

O3O43 

0 

560u^ 

0 

55115 

1 

36306 

X 

64113  0 

“04611  0 

10113 

0 

Ua,310U 

U30  7S 

u 

ooiu 

u 

56155 

1 

oUUOU 

1 

0 

00002  0 

6OI44  0 

5AX 

1 

U4  1 3 I i U 

UU0O<i 

5Al  1 1 

X 

U0002 

0 

10111 

1 

03315 

0 

00002  0 

03513  0 

56002 

0 

U't.SiZO 

S41U5 

X 

lOUi, 

X 

03131 

1 

03131 

X 

67763 

1 

55155  1 

02321  0 

50156 

0 

Ui(,313y 

03133 

u 

02301 

1 

56155 

1 

63172 

u 

b5l5b 

0 

37767  0 

60145  0 

55155 

1 

y't,3Uo 

U31A4 

u 

37753 

0 

55I55 

1 

u 

27761 

0 

55127  1 

3557O  1 

O7357 

1 

U't,3l5U 

i01<ti, 

0 

35300 

u 

15556 

1 

5^X  X*» 

1 

27767 

0 

56156  1 

66155  1 

5Ai  AA 

1 

UA , 3 160 

362  10 

X 

i 33 

X 

0321  1 

0 

10127  1 

03155  1 

55665 

X 

U<f,3l70 

6A2  lO 

u 

00X05 

0 

L: 

02576 

0 

>6UU^; 

0 

b5105 

1 

37767  0 

55114  1 

36311 

1 

f 3 ^ 

03301 

u 

37761 

0 

03301 

0 

10145 

1 

03215 

0 

032T5T) 

67163  1 

54XA4 

1 

u<t,3<;io 

u 

5OI55 

0 

55155 

0 

03215 

X 

02301 

1 

35530  0 

O3I45  1 

56002 

u 

U<t,3i!2U 

5A1  O^t 

u 

35536 

u 

7OI33 

1 

0 

56021 

1 

55131  0 

37163  1 

70133 

1 

03233 

03253 

I 

56  X X 

UAbbO 

0 

55115  ^ 

37r56“0 

70133 

X 

y^,32<tU 

10000 

u 

37162 

u 

67  163 

1 

55133 

X 

UOOOifr 

0 

5OI3I  1 

10313  1 

03251 

1 

67763 

73275 

00006  1 

ff0  -l"l-4  0 

OOuOb 

X 

U4,326U 

13272 

0 

50133 

0 

53275 

0 

lOi32 

u 

60115 

0 

50000  0 

50131  1 

56313 

u 

y<M3270 

UUOUb 

X 

63273 

X 

2530  1 

0 

UUUO3 

X 

00105 

1 c; 

00037  0 C! 

01  140  0 

Ci 

; 02000 

0 

Ui»,330U 

t!  O37AO 

X 

55131 

0 

37  162 

0 

55133 

X 

56002 

0 

55104  0 

03244  0 

03217 

0 

Ui,,33lU 

333I2 

1 

O323C 

0 

c: 

13250 

1 

345^5 

0 

55126 

0 

O457I  0 

43325  1 

60126 

1 

13323 

00126 

X 

X 

l: 

01501 

X 

1)4464  0 - 

“ilTSi  t 

55305 

0 

UA,333U 

OAfebb 

0 

05626 

1 

03<^A0 

X 

04566 

X 

57763 

0 

03327  1 

57161  1 

OOUOb 

1 

0^666 

0556  1 

0 

37  r66 

X 

55270 

0 

55133  1 

“37T63  1 

70133 

X 

U<t,335U 

36133 

u 

55021 

u 

56021 

1 

5OUOU 

1 

10313 

1 

03357  0 

05  136  1 

67  163 

1 

U<»,336U 

30133 

u 

73275 

0 

5OI 33 

0 

U336A 

u 

03366 

1 

05532  1 

55115  1 

57  166 

0 

67763 

X 

03375 

u 

05  136 

1" 

54133  t'  

©3217  0 

50270 

0 

'6J3''.36A  YOL  SYSlfcK  FJR  AlaC:  REVISION  0 OF  PKOORAM  BURSll^O  BY  NASA  <iUi;U06-031  " , 1967  “ FAQtllSA 


UCyAO  UI5]lNe  oF  PARAORAHH  # 0A3.  miH  Parity  bit  in  BINAHY'Ai  IFTE  RIOMT  of  ‘EAON'  WoRD*  "^e'^l^flOTtS^UNUSEXr  fixed  MEMuRY. 


all  yalio 

WORDS  ARt  BASIL 

INS7KOLTI0NS 

except  those 

MaRXeP  "1"  (INTERPRETIVE 

operator  WORDS) 

OR  i>Li 

’ (L(ji*StANTS)  . 

OA.3AOU 

64527  0 

10000  0 

56^70  1 

67763  1 

03344 

1 

37767  0 

54270 

0 

63436 

0 

UA.3A10 

3OOUU  1 

10313  1 

03414  0 

04736  1 

bllbi 

1 

77751  1 

54114 

1 

5O27O 

1 

' UA,3F20 

3 '347)4  I 

03301  <S 

“Tf0270“0 

6'54  3t  V 

?6270“  F 

t f f 

1 

O34O6 

u 

UA.3A3U 

34527  0 

64270  0 

02514  0 

OOI26  1 

0;  00000 

1 

c: 

00001  0 

t! 

00003 

1 Cj 

OOUO4 

0 

10327  0 

0T446  1 

055F7  0 

03446  1 

54327 

0 

034"64~  1 

^11 6 r 

O’ 

56327 

1 

U4,3^5U 

00004  0 

05551  0 

10305  0 

03470  1 

05567 

0 

03466  0 

Ibi 

a 

50064 

0 

U<t,3‘»6U 

60154  1 

50064  0 

54154  0 

00003  1 

O47II 

1 

05567  0 

767 

0 

03457 

1 

UA,3A70 

37763  1 

03457  i 

54001  1 

iU33^  0 

03477 

30001  '0” 

^5^30 

0 ■ 

37762 

0 

UA,3S0U 

54134  0 

50134  1 

10333  0 

03505  1 

03510 

0 

10134  0 

03500 

1 

03554 

0 

50134  1 

54333  0 

05545  0 

54001 

t 

1030?  0^ 

03521 

-j 

30001 

0 

0A.3S20 

o;>230  0 

37762  0 

54330  0 

:J0001  0 

56335 

1 

56334  0 

56333 

1 

10000 

0 

U^»,3;)3U 

03554  0 

03533  1 

03554  0 

04601  1 

30001 

0 

05545  0 

Sb'ilO 

1 

05505 

1 

L;  03543  0 

C;  10060  0 

05727  0 

O47I4  1 

035S<7 

0 

0 

UT 

c 

00003 

1 

37763 

I 

UA,3SSU 

54330  0 ■ 

05567  0 

37  76  7 0 

03550  1 

06000 

1 

Li 

01206  1 

c: 

03556 

1 c: 

03557 

0 

U4  * 3S6U 

CK.5M  6666  7 0 

e 

e 

& 

& 

g 

— e — 

UAi3S70 

g 

& 

& 

& 

fe 

(ff 

e 

» 36UU 

e 

fe* 

iSt 

& 

b 

fe 

e 

Iff 

OA»3bIO 

F 

& 

e 

& 

& 

e 

U4*362U 

§ 

e 

e 

& 

& 

(ff 

04*3630 

e 

fe 

— e 

& 

— e — 

e — 

04.3640 

§ 

& 

& 

(S 

& 

Iff 

U^t365U 

& " 

e 

e 

g 

B 

— e — 

04*3660 

e 

& 

& 

Iff 

& 

& 

IS 

& 

04*3670 

@ 

& 

& 

e 

a 

& 

c 

U't*3700 

g 

& 

© 

(ff 

e 

e 

(ff 

U^*371U 

g 

e 

& 

(ff 

& 

(ff 

(ff 

04*3120 

- § 

6! 

e 

®— 

r 

— e 

r 

04*3730 

§ 

& 

& 

e- 

Iff 

e 

(ff 

* 3740 

<g 

y 

e 

e 

B 

— e — 

— - 

U4»3  750 

§ 

& 

& 

e 

& 

e • ' 

04*3760 

§ 

@ 

e 

Iff 

& 

& 

Iff 

(ff 

& 

(ff 

e 

§ 

e 

fa33^r6A  YUL  SYSitN'  AC)C:  KeVYISION  0 OF  PKOWaM  BUKbri/O  BTF  NASA  iiU^:  1 10b-U3l  Dtt^  ^ , 19b7  ^ PAGtllBS^^ 


yCiAt-  LISiIN^J  UF  PAKaCjKAFH  * OAA.  WHH  PARIlY  BI|  IN  BINARY  A-j  fHE  KItiH|  o1-  E7H-H  WoRUl  TTEFFOTtS  UNUbEO  FIXED  MEMoKY, 
ALL  valid  NOKUS  ARt  BASIL  INB|KULt10N5  E>(CePT  THOBe  MAKK.EL  "I"  1 1 NteRPRLT  1 Vt  OPeRATUK  WQRDS)  qR  »Ln  (LqnSiANiS). 


0«j,2UOU 

03344 

1 

13403 

i 

02663 

0 

37  < 

U 

64306  0 

345°5  0 

54126  0 

10307, 

1 

0S.2U10 

0^031 

1 

02031 

1 

02013 

1 

3631  1 

1 

7O27I  1 

10000  0 

02020  1 

02024 

0 

' ■ " US,Z020  " 

ro2 10 

0 

0Z3^4 

U 

1323  Z4 

0 

U2yZ4 

U 

4O3O4  X 

543O4  X 

01T62^-  1 

0U3U4 

0 

US,2U30 

e; 

UUOJU 

I 

37  767 

u 

542/1 

1 

X 

62030  0 

00006  1 

62116  0 

00U06 

1 

US.ZOAU 

320  ^6 

1 

52UU6 

0 

6013O 

0 

02043 

1 

02046  1 

02176  0 

X 0 i X 

02114 

X 

Ob,2U50 

u 

02055 

u 

24310 

0 

04621 

0 

02102  0 

37745  0 

64306  0 

44605 

1 

US.ZUbO 

6U126 

1 

00006 

1 

12064 

0 

U2  iOU 

X 

02256  1 

10271  1 

02324  0 

56276 

1 

06,20/0 

04513 

1 

00U06 

IT 

320/6 

1 

52006 

0 

U2  X X6  0 

C! 

02000  XT 

CT  46060  V ■ 

C; 

77772 

0 

06,2100 

30146 

i 

04613 

i 

47760 

0 

70272 

I 

620/7  0 

00006  1 

1211b  1 

34631 

1 

06,2110 

542  fO 

u 

30310 

u 

03222 

u 

X X 6 

0 

67763  X 

045X3  1 

■42"l"3i  1 

60272 

06,2120 

lUOOU 

u 

67  763 

X 

02124 

1 

02133 

1 

54144  1 

04666  0 

56144  0 

62132 

u 

06,2130 

06230 

u 

C: 

OOObO 

u 

Z200U 

1 

50272 

0 

32136  1 

05230  0 

Cl  12324  1 

C! 

12340 

0 

Ob,2UO 

c; 

12345 

u 

e: 

12362 

u 

c: 

12333 

1 

l; 

X^3^6 

u 

12445  1 

OJ 

10/22  1 

C:  11316  0 

C! 

I3O77 

0 

06,2150 

c; 

1301^ 

u 

c; 

13077 

0 

(. : 

I3O7  7 

0 

l; 

13011 

0 

13077  0 

C! 

130/7  0 

Ci  12324  1 

c: 

12620 

0 

U 5 ^ 2 1 t)U 

^ 1 

12631 

C ; 

1^646 

L ; 

IZ5  7^ 

X 

c; 

X Z 5 3 6 

I 

L* 

12324  1 

c; 

132  1 4 X 

C.  • X 3 3 X 4 0 

c; 

X 3340 

X 

06,2170 

c; 

1 1343 

0 

11326 

u 

L; 

11333 

X 

e: 

13414 

1 

l; 

02000  0 

c; 

13267  0 

10136  1 

02203 

X 

05,2200 

02324 

O22O3 

1 

022U3 

1 

6027^  0 

0000  6 X 

6ZZT*?  0 

02116 

0 

06,2210 

3 ^762 

0 

5410/ 

u 

62236 

1 

54X35 

1 

50107  1 

30140  1 

64112  1 

02721 

1 

06,2220 

02236 

1 

02223 

0 

24112 

0 

30112 

u 

74663  1 

04523  1 

60O0U  1 

30000 

1 

V>^  ♦ 2 ^ 

50135 

0 

56  Ou  0 

1 

1010/ 

0 

022 1 1 

X 

O2  X X 6 0 

00115  1 

5OUOO  1 

12240 

X 

06,2240 

OUOU2 

u 

00UO2 

u 

U0002 

u 

UUUO2 

0 

12260  0 

12250  0 

00002  0 

12260 

0 

^5  f 2 <^5^ 

5OQO2 

OOOUl 

34527 

12267 

X 

34530“  0 

1225T  1^ 

3453  X X 

54270 

0 

Ob, 2260 

4U0U2 

1 

64304 

1 

0620b 

0 

C; 

10514 

0 

04622  0 

445O5  1 

6012b  1 

00006 

1 

05,2270 

122  /3 

1 

47767 

X 

6432  7 

0 

OUXiJb 

1 

642/3  0 

56002  U 

64107  0 

OOUOb 

X 

06,2300 

320  16 

1 

62006 

u 

10136 

1 

67  763 

1 

123U7  0 

12310  0 

12310  0 

O45I3 

i 

05,2310 

34566 

0 

542/0 

0 

302/3 

1 

12322 

1 

642  72  1 

56002  0 

6410/  0 

34665 

0 

• 2 J2U 

642  lO 

03’2^55 

UOIO7 

1 

O52Z5  X 

c; 

1 m 5“o — 

“4TT67rr 

023/6 

X 

06,2330 

60136 

0 

40OU2 

1 

56122 

0 

47  763 

u 

02376  1 

50135  0 

40001  1 

66121 

0 

, 234 y 

U'2V4'2U 

501  3 5 

4OUOU 

56120 

X" 

OZ357  X 

■4/763  0 

02-376“ I 

50135 

0 

05,2350 

40001 

1 

02343 

X 

47  762 

1 

023  7b 

1 

60136  0 

40002  1 

02343  1 

4/762 

1 

05,2360 

602  U 

0 

10000 

u 

02366 

0 

UUX^6 

1 

02366  0 

64112  1 

5OOOO  1 

3452/ 

u 

642/0 

5^  iid 

4^  IZU 

66112  0 

■ozrei  1^ 

6YT1-13'  0 

22002 

■^33436*  YOt  SYSItf'  A^jC.!  RtVTSIOT^  0 OF  PROGRAM  BOR5U3U  «Y  NASA  a03U06-U31'  T)tC  7,  1967  ^ PAQtH86 


uCiAU  LISflNG  OF  PARAGRAPH  # OAS.  HItH  PARIjY  Blf  IN  B INARY  A | i HE  R IGHj  qF  EAGM  WoRUr  "g"  UENOT^^’^WISEtr'PlXED  WEMuRY. 
all  valid  words  ARt  BASIL  INSTRUCTIONS  E^CfcPT  THOSe  MARAeD  "1"  (INTERPRETIVE  OPtRATUR  WORDS)  OR  ”L"  (CONSTANTS), 


06.2A0U 

4)763 

u 

60273 

1 

00006 

1 

12417 

u 

60130 

0 

32442  1 

5OOOO  1 

30000 

1 

05.2A10 

7456O 

1 

04641 

0 

60113 

1 

xoooo 

0 

OOOOi 

0 

04736  1 

02324  0 

00001 

0 

' - 

22002 

0 

30136 

6 < ^ b 3 

X 

00UU6 

1243E 

02*f2'6  0 

02431 

US.2A3D 

oocoi 

0 

02  713 

0 

02236 

1 

uouoi 

0 

24136 

0 

00001  0 

00006  1 

50310 

0 

(Jb,2A4U 

“ ooooo 

i 

^fOOOO 

0 

12343 

L ; 

00 n 7 

1 

C. ; 

00  X 36 

5 0 X 3 0 ^ 

32442  1 

5OOOO 

1 

06,2450 

30000 

1 

74660 

1 

0^541 

0 

5410  ( 

0 

64112 

1 

60135  0 

5OOOO  1 

40000 

0 

06,2460 

60112 

u 

56274 

u 

10112 

1 

0<:454 

0 

3776> 

0 

54146  0 

54146  0 

50X07 

1 

05,2470 

34527 

0 

54270 

u 

6010^ 

1 

X 

54X44 

02734  0 

54113  ^ 

00006 

X 

06,2600 

32512 

0 

52006 

u 

60130 

0 

02603 

0 

0260? 

1 

02721  1 

02522  0 

02713 

0 

06,2610 

02522 

u 

'C':  02037 

1 

C; 

46060 

05206 

0 ; 

11117 

0 

10 1:07  0 

■ (72520-  1 

00 126 

X 

06,2620 

54107 

0 

02464 

0 

60000 

1 

32525 

1 

05230 

0 

C!  11315  0 

c:  12513  0 c: 

10573 

1 

06,2630 

C:  10660 

0 

c:  10665 

0 

c; 

106  72 

0 

c: 

10601 

1 

l; 

106/4 

0 

47762  1 

02376  1 

32673 

1 

06,2S40 

O23I4 

u 

02252 

u 

32674 

0 

023l4 

0 

02254 

0 

32675  1 

02314  0 

02256 

1 

06,2660 

46306 

u 

02676 

1 

00006 

1 

3207b 

1 

52006 

0 

37767  0 

02  762  0 

50135 

0 

U5t<ii>6U 

0 

37763 

1 

0<^76<^ 

50135 

X 

3 f 762  0 

02  ^ 6 2 0 

50X35 

0 

06,2670 

64002 

1 

02663 

0 

47763 

0 

02376 

1 

326/3 

1 

02314  0 

02252  0 

32674 

0 

U D * 2 feOO 

02314 

02254 

47766 

02676 

X 

OOOO6 

X 

32076  X“ 

5^0t?6  0 

37767 

0 

05,2610 

02762 

u 

60135 

u 

64000 

0 

3 7 763 

i 

02/62 

0 

50135  0 

54001  1 

02663 

0 

Ub,2620 

02262 

u 

00U06 

I 

320  76 

1 

6200b 

0 

3 7767 

0 

02762  0 

50136  0 

54000 

0 

C/!>  9 ^ &3O 

02663 

47763 

02376 

37  745 

54306 

02254  “0 

32076 

X 

05,2640 

62006 

0 

37763 

i 

02762 

0 

60136 

0 

54001 

1 

02663  0 

47  762  1 

02376 

1 

9 2650 

37745 

54306 

0^^66 

1 

uuu06 

X 

32^076 

1 

' 520  G6  ^6 — 

3T7E2  0 

02762 

05,2660 

60136 

0 

64002 

1 

02663 

0 

3 7 76  7 

0 

54271 

1 

47767  1 

64306  0 

44565 

1 

05,2670 

642  70 

u 

05225 

1 

C; 

11440 

X 

L; 

00021 

1 

0; 

00022 

1 

C:  00023  0 

64107  0 

40271 

1 

06,2700 

5^021 

u 

40021 

0 

40021 

0 

iUOOO 

0 

12706 

0 

00002  0 

6OIO7  1 

00006 

1 

06,2710 

12712 

0 

02324 

u 

00002 

0 

66002 

0 

54104 

0 

34557  1 

7OI37  0 

04532 

1 

U5  9 2720” 

56002 

54104 

X 

32753 

X 

54001  1’  - 

5^i'07  1 

34656 

0 

05,2  130 

70143 

0 

50001 

u 

ooooo 

1 

00104 

1 

56002 

0 

54104  0 

50130  0 

02737 

0 

U6 « 27^0 

02766 

i 

5U  i u 7 

1 

32  753 

X 

54001 

X 

50107 

X 

34556  0" 

70137  0 

500U  X 

0 

06,2750 

uuouu 

1 

60UO0 

1 

00104 

X 

02  712 

1 

04532 

1 

04541  0 

34556  0 

70137 

0 

05,2  T60 

6U0UU 

I 

00104 

1 

64107 

0 

66002 

0 

54105 

1 

37767  0 

54111  1 

50107 

1 

*2770 

^^2  n 

54145 

5010  7 

X 

662/4 

0 

54144 

X 

- 50^1 30—0 

02  776  0 

03023 

0 

■633^6A  YUL  SVbltT^  PJK 

AOC! 

KEVISION  0 UF  PKQGRaM  BUKblizu  PY  NAbA  2021106-031 

Dec  "7^ 

1 1967 

PAGEri87‘ 

OC|AL  UISflNlj 

Qh  PAKAtoKAHM 

at  046* 

WiT»^  HAKllY  t51 

1 

1 DilNA^T  A| 

ynt  Kionj  (jr  i 

LAV-n 

WQi'Uj  L'tlNUitw  UlMUdtO  rlAtO  ntnu“T* 

all  valid  WuHUb  ARt 

5A51L  INblKUCllONS  Tl^O^fc 

MARK. to  "1" 

UNTLRPRbTlVt 

OReRATUK  WCRDb)  UR 

iiL>i  (LQiMbl  AN/b)  , 

U^, 3UOO 

SOlOf 

1 

3UU0 

1 74563 

1 

04513 

1 

00006 

1 

60107  1 

54I35  1 

10271 

1 

Ui,30lU 

03051 

u 

02  /21 

1 02236 

1 

03U4U 

0 

24135 

0 

30135  0 

26107  0 

37767 

0 

tTbrsozo 

5010/ 

I 

"53  77  7 

W 0 JO4O 

0 

04"52  r 

cr 

10271 

1 

03051  Y) 

02717  0 

1 

US, 3030 

U303A 

0 

37  fbl 

0 5410/ 

0 

U3014 

1 

30136 

0 

67763  1 

00U06  1 

13044 

0 

ut),304a 

5bl  AA 

0 

OOIO5 

U L • U^U4p 

1 

Cj  46060 

0 

56144 

0 

00006  1 

50510  0 

01000 

0 

03,3050 

02603 

u 

02  /3A 

0 54113 

0 

UOOUb 

1 

33043 

0 

52006  0 

50130  0 

03057 

0 

05,3060 

03063 

1 

02721 

1 03064 

0 

02/13 

0 

5OOOU 

1 

33067  0 

05230  0 

c:  11315 

u 

05,3070  C! 

11021 

1 

c 

! 10/Al 

1’  c:  11011 

1 

11041 

1 l: 

1 1 U66 

1 

c; 

11024  "1 

CT  iniim 

47745 

I 

05,3100 

^0310 

1 

5a1a5 

0 33401 

1 

/O2  /2 

1 

04541 

0 

54022  0 

56022  1 

60273 

i 

05,3110 

i 

AO33O 

0 67/62 

0 

10000 

u 

04711 

1 

03121  0 

04^36  1 

37/67 

0 

05,3120 

5A303 

0 

00004 

0 10311 

0 

03130 

u 

37763 

1 

05663  1 

C!  03134  1 

C;  12060 

1 

05,3130 

521A5 

u 

52312 

0 00003 

1 

00126 

1 

04605 

0 

10312  0 

03142  0 

03142 

0 

05,31AU 

03153 

0 

03153 

0 33157 

1 

05663 

1 0; 

03134 

1 

Li 

12060  1 

35210  1 

O55O5 

1 

05,3150  l; 

U316U 

u 

c 

! 12060 

1 0572/ 

0 

int( 

0 

54311 

0 

54312  0 

05/2/  0 

c:  00144 

0 

*3l6U 

1U312 

u 

031o5 

0 03165 

0556/ 

U5567 

0 

10303  0 

7/3212  0 

33401 

1 

05,3170 

/0311 

u 

5A113 

0 04460 

1 

0556  / 

u 

33210 

1 

70311  0 

04532  1 

54020 

1 

U5 , 3^00 

56020 

u 

54272 

1 33211 

0 

54126 

0 

47/45 

1 

70312^0 

^'rtiT6"0 

02037 

i 

05,3210  L; 

UU7UU 

u 

c 

: 0AA35 

1 04601 

1 

0556  / 

u 

3452/ 

0 

54270  0 

30310  0 

05241 

0 

05,3220 

UJ222 

u 

05567 

0 54022 

0 

56U0^: 

u 

54105 

1 

3/746  0 

26270  0 

37  /6l 

u 

*3230 

5A12  / 

1 

A0U22 

0 4002if 

O' 

4UUi:<' 

4OOUU 

0 

77765  0 

^0000  I' 

34300 

0 

05,32A0 

^A556 

1 

5a11A 

1 562  /0 

1 

54I35 

1 

10000 

0 

54270  0 

05225  1 

Ci  11307 

u 

05  * 3250 

10127 

O323O 

0 44565 

1 

54^7^ 

00105 

0 

54020  r 

5 6 Ov  d 0 

-54105 

1 

05,3260 

37703 

1 

5A127 

1 40020 

1 

AUUilU 

1 

56020 

0 

54022  0 

03235  0 

03302 

0 

05,3270 

3 /7b  / 

u 

56273 

1 54144 

1 

34566 

u 

542  /O 

0 

05206  0 

C;  1055/  1 

30144 

0 

05,3300 

05225 

1 

c 

: 11315 

0 4000^; 

1 

54304 

1 

34566 

0 

54270  0 

37/6/  0 

54273 

u 

05,3310 

O57O6 

0 

c 

: 10557 

1 04622 

0 

00126 

1 

37763 

1 

7O337  1 

10000  0 

03336 

1 

35723 

5'4^l"44 

A 47  r63-vr- 

bAlsO 

1 

"04-6BlSr"0 

3450t>— 0 

54147 

i 

05,3330 

UUQUb 

1 

303A1 

1 52146 

0 

3U15U 

u 

UOOO4 

0 

00144  0 

34562  1 

03321 

1 

0 5 * 3 3^0 

3456  i 

1 

54I44 

1 3033/ 

0 

03324 

1 

33363 

1 

54126  0- 

33401  1 

7OII3 

0 

05,3350 

5A1  AA 

L 

33A02 

1 /0113 

0 

04532 

1 

54020 

1 

56020  0 

54145  0 

10144 

1 

05,3360 

U330A 

0 

561A5 

1 02314 

0 

U4464 

0 

10145 

0 

03371  1 

56144  0 

02274 

1 

56lA5 

1 02314 

0 

56144 

0 

02274 

1 

37767"0 

5*4305  0“ 

64306 

0 

633436A  YUL  SYiltr  FOR  AtiC:  HtVISION  0 OF  PHOORAM  BURSIIZO  BY  NASA'  2Uiin06-031 


PAQtll88 


(jCiAL  LISlINO  uF  PAKAORAPH  # OA  ? t WJ|Fi  PaRIiY  BI  | IN  BINARY  A|  tFIE  R10H|  (jF  EAOF1  WQRt)*  CEnOtES  UNU5EO  FIXED  MEMuRY. 

ALL  VALID  rtoRDb  ARt  BASIL  InSiRULtIONS  eXCePI  THOSe  NARXeP  "1"  I INTERPRET IVt  OPERATOR  WORDS)  qK  ”L"  (LoNStANIS), 


05»3A0U 

02031  1 

Ci 

00077 

i 

Li  07700  1 

3A56  1 

X 

562)0  1 

54130 

1 

30302  0 

22002 

0 

Ob,3AlO 

03255  0 

56130 

0 

5A27U  0 

OOUOi 

0 

00004  0 

47763 

0 

70366  0 

67  )63 

1 

' U5,3A2U 

5A3E6  0 

33A^7 

1 

u0006  1 

U 5 0 1 1~ 

1 

33A60  0 

54326 

1 

37T52‘7) 

00006 

i 

U5,3A30 

05013  0 

3A570 

i 

5A10)  0 

43455 

1 

5010)  1 

54313 

i 

10107  0 

03432 

1 

U5,3AAU  ' 

A3A56  I 

5A31A 

5431?  0 

“54321 

37)6A  0 

543O7 

1 

33462 

X 

U5,3A5U 

UU0O4  u 

05663 

1 

C:  03463  0 L; 

12060 

1 

0556)  0 

Ci 

05675 

0 

Ci 

07675  X 

Ci  00175 

1 

Obi3A6U 

L:  A0650  0 

c: 

00115 

1 

Li  oo/’aA  1 

35210 

1 

05505  1 

C! 

O347O 

1 

C! 

120e,0  1 

05)27 

0 

05,TA70 

A3A6I  0 

00004 

0 

UUUU6  X 

0301 1 

1 

A7752  1 

O0UU6 

1 

030 13  0 

37745 

0 

O5 ,3SOU 

5A326  1 

A3521 

u 

f0366  0 

05bA2 

1 

54366  0 

43523 

1 

)03(55  0 

65641 

1 

U5,3SlU 

b^365  0 

43t?22 

0 7)55 

X 

02001  1 

O5225 

Obi3S2U 

Li  11333  1 

16001 

i 

Li  00330  1 Li 

55000 

1 Li 

035.i4  1 

Ci 

03525 

0 

CKSM 

05305  1 

e 

US.3S3U 

g 

@ 

& 

is 

& 

& 

e 

e 

e 

& 

fe- 

e 

a 

e 

e 

US.3S5D 

g 

@ 

& 

& 

& 

& 

U9»366D 

e 

e 

g 

V 

f 

Ut)*3t>7U 

g 

e 

& 

& 

& 

§ 

IS 

05t3600 

e 

e 

e 

gl 

g 

e 

g 

US. 3610 

g 

& 

& 

is 

g 

g 

& 

e 

05.3620 

g 

(S? 

& 

is 

is 

& 

e 

e 

U!) » 363U 

& 

& 

<s 

& 

e 

& 

& 

05.36AO 

& 

S' 

(S 

fe 

e 

* 3fe50 

fS 

e 

e 

e 

& 

— e 

G 

05.3660 

g 

& 

IS 

& 

e 

& 

e 

05.3670 

§ 

& 

& 

& 

& 

& 

e 

G 

05.3)00 

g 

& 

& 

IS 

e 

& 

G 

G 

05.3710 

g 

& 

& 

e 

is 

& 

G 

G 

0^*3720 

6 

& 

e* 

' g - - 

e 

e 

e— 

U>*373U 

& 

& 

is 

& 

& 

e 

& 

U5 » 37^0 

& 

& 

fe> 

— e 

G 

05.3750 

§ 

& 

(S 

e 

(S 

g 

e - 

e 

U5f3^6U 

g 

& 

& 

& 

iS 

& 

G 

e 

05.3770 

e 

e 

~e — 

g — 

— g — 

— e 

e 

PAGtll89 


^b33<T3^  YUL“SYb|tN''  f-JK  A&C!  KtVlSION  0 OF  PkO^KAM  BUKb  I iiu  BY  NAbA  2Uiiri06-B31  ' ‘ 196T 


oC]AL  LISflIMB  uF  PaKA&RAFH  « 050,  WI7R  PARIfY  Bi  | IN  BrNARY  A T T KIC3H7  qF  EAXH  WqRB;  "§"  TitNOjE^’  ONUb^B  FIXtU  MEMuKY. 
all  VALIB  WUHB5  ARt  BAbiL  INbTRULlloNb  E^CbPl  iBUSt  MARK-tB  "I"  1 1 Nl tRPRtT  1 Yt  OFeRATUR  WORDb)  UR  "L"  (LQImStANtS)  , 


U6*^U00 

e; 

0^b^  f 

0 

c; 

02919 

1 

Ll 

05  7A1 

0 

Ll 

0 

Ll 

06663 

1 

05221 

u 

Li  lOUOO  0 

Li 

05576 

0 

06,2010 

C; 

U'tOOi 

0 

L; 

10000 

0 

Ll 

055  76 

0 

Ll 

U40U3 

0 

^l 

O03U3 

i 

c: 

79321 

1 

Li  17112  0 

Ci 

20000 

0 

06,  zero 

r; 

0Z0153 

0 ■ 

c; 

7^r06‘t  0 

Ll 

0130A 

T" 

LT 

/565/  X 

Ll 

19069 

0 

CJ 

1 5530 

0 

Cf  7'9TA1  cr 

c; 

11113 

X 

06,2030 

0; 

^0000 

0 

L; 

03023 

u 

L; 

6606A 

0 

Ll 

1117  1 

0 

Ll 

15696 

1 

l: 

15719 

1 

Li  I257A  1 

Ll 

75123 

0 

U6*2D(:,0 

c: 

d^iii 

0 

Ll 

iim 

0 

C; 

1561<, 

0 

Lt 

^bTli 

0 

Ll 

UU62U 

0 

C! 

75a70 

0 

L!  25  17  3 0 

Ci 

76035 

0 

06,2050 

Ll 

7555A 

1 

C; 

21779 

0 

Ll 

012  lA 

1 

Ll 

/5^Z6 

0 

L; 

1 1713 

1 

t: 

00310 

a 

Li  75361  1 

Li 

U 113 

1 

06,2060 

l; 

( n n 

0 

Ll 

75621 

0 

c: 

03115 

1 

Ll 

0X356 

0 

Ll 

75566 

0 

c: 

03713 

1 

Li  77  17  1 0 

Ci 

75361 

1 

06,2070 

t; 

037  13 

1 

Li 

001 AA 

0 

C: 

753  1 A 

0 

L : 

03  7 1 3 

I 

Li 

20000 

0 

c: 

0Z017^ 

-c:  79O6A  0 ■ 

cr 

20000 

0 

06,2100 

c; 

02032 

i 

c; 

7a06a 

0 

Ll 

0130a 

1 

Ll 

1565  1 

1 

Li 

7aU6a 

0 

Ll 

iim 

0 

Li  75a53  1 

Li 

O3II3 

1 

0 C>  f ^ i 10 

e; 

01750 

1 

C; 

0 

Ll 

03  713 

1 

L 1 

X5530 

0 

C; 

19791 

0 

Li 

11713 

1 

Li  O^iriT  1 

- c ; 

79665 

X 

06,2120 

L ; 

U 7 i 3 

1 

c.; 

11610 

0 

Ll 

7932  1 

X 

Ll 

11  ll3 

1 

l: 

00062 

0 

Ll 

79535 

1 

Li  11115  1 

Li 

00372 

1 

06,2130 

CJ 

1A5Z  ! 

1 

c : 

11  115 

i 

l; 

769  13 

0 

Li 

1993  1 

1 

l; 

11  7 1 5 

1 

Ci 

00769 

1 

Li  79915  1 

Li 

11  1I3 

X 

Ll 

1 n u 

0 

c; 

755^7 

0 

Ll 

2III9 

0 

Ll 

n n ( 

0 

Ll 

tbbm 

1 

Li 

2177a 

0 

Ci  00062  0 

Li 

75a15 

0 

06,2150 

03713 

1 

L; 

n m 

0 

Ll 

Ib'iOl 

1 

Ll 

1 1 Il3 

1 

L; 

01  7A3 

0 

c; 

755O7 

1 

Li  56003  1 

Ci 

11  m 

0 

06^^160 

c; 

15790 

0 

L i 

15/15 

0 

L 1 

001^^^ 

0 

L 1 

lb  1 n 

X 

L 1 

15715 

0 

Li 

02260 

1 

Ci  752^91 

Ll 

03  113 

X 

06,2170 

e; 

00310 

0 

c_: 

75215 

0 

Ll 

03  Il3 

1 

Ll 

OUX^*t 

0 

Ll 

Ibi'il 

0 

Li 

03713 

1 

Li  13560  0 

Ll 

75200 

X 

Ob 

c; 

03713 

i 

c: 

OOI,,A 

0 

Ll 

75232 

O' 

Ll 

B3713 

I 

Li 

2OOOO 

0 

Li 

0265V 

T 

- Cr^06^5  V 

cr 

mil 

0 

06,2210 

Li 

19326 

0 

Li 

21173 

1 

Ll 

O97OA 

6 

Ll 

192  12 

0 

Ll 

Z177B 

1 

Li 

30000 

1 

Ci  03590  0 

Li 

60065 

1 

06,2220 

Li 

10000 

0 

Ll 

02670 

1 

Ll 

56003 

1 

Li 

X500U 

0 

Li 

02056 

0 

Li 

56003 

1 

Ll  25U00  0 

l: 

03507 

0 

0^  f ^ ^ 3 0 

L ; 

60065 

1 

L i 

Ol^O^t 

1 

L 1 

19693 

0 

L ; 

6606** 

0 

Li 

27OOO 

1 

Ll 

03157 

1 

L ; V6U6A  0 

c; 

lb‘*lZ 

1 

06,22aO 

Li 

1a5A  1 

1 

L: 

11115 

1 

Ll 

21000 

1 

Li 

B2a12 

1 

Li 

6006  a 

0 

Li 

00310 

0 

Li  751a9  1 

Ll 

17112 

0 

C.  5 

75777 

1 

Ll 

1 f f 1 z 

L ? 

^ 1 

03575 

0 

C; 

ZAOOr 

i 

— Cl -00310  0 

Cr 

75199 

1 

06,2260 

Li 

1 1712 

0 

Ll 

200O0 

0 

Ll 

02133 

1 

Li 

60065 

1 

Li 

U0310 

0 

Li 

7519A 

1 

Ll  I7IU  0 

C! 

00000 

1 

06,2270 

Ll 

00000 

1 

Ll 

00000 

1 

u 

20000 

0 

Ll 

02020 

1 

Ll 

72065 

1 

Li 

77777 

u 

Ll  75106  1 

Li 

05112 

0 

06,2300 

Li 

<;U0OO 

0 

c: 

02  727 

1 

Ll 

72065 

1 

Li 

^0000 

0 

Li 

02751 

0 

Li 

72065 

1 

Ll  20U00  0 

Li 

02710 

0 

06,2310 

L; 

12065 

1 

C; 

20000 

0 

Ll 

02126 

0 

Ll 

12065 

1 

Ll 

/77/7 

0 

Li 

75666 

0 

Li  05112  0 

Ci 

20000 

0 

Ob « ^ 3^u 

0Z650 

0 

Li 

7*:U65  1 

c: 

0 0 6Z  0 

0 

LX 

TbllT 

r 

Li 

1771Z 

0 

Ll 

7777T 

cr 

— cr  75 10  re 

L! 

17712 

0 

06,2330 

Li 

ni  n 

0 

Li 

75777 

1 

Ll 

1711Z 

0 

Li 

16935 

1 

Li 

157  7 1 

1 

Ll 

17712 

0 

Li  77177  0 

Li 

Ibibti 

0 

ZI7 

L l 

0076f» 

1 

c : 

75225 

0 

Ll 

55  7 10 

X 

Li 

3OOOO 

I 

c: 

025a1 

0 ■ 

Ci  22007  0 

Ll 

0076a 

1 

06,2350 

L i 

75225 

0 

C; 

55770 

1 

L 1 

33000 

1 

^ J 

02A90 

0 

Ll 

5A00A 

1 

Li 

30000 

1 

Li  02969  0 

Ci 

5A00A 

1 

06,2360 

Li 

tbiiii 

0 

c: 

7550A 

1 

Ll 

03710 

1 

Li 

oouou 

1 

Li 

OOOlO 

0 

Ll 

OOOll 

1 

Li  00021  1 

Ci 

00000 

1 

i 

L i 

OOZ  i 1 

L 1 

X 

Li 

0026^ 

0 

Ll 

00333- 

X — 

— f* — O' 

30151 

X 

633‘.36A  yUL  SySltiv  h3«  A6CT  REVISION  0 Or  pROORAM  BURblTZO  BY  NASA  20ZH06-03r  “ T3E:C~7TT967  pA&tlI90 


UCyaL  t-lS|  1 Nfa  TlI^~PARAtiRARH  » oj,i,  WljH  RaRIt'^  I*lT  IN  Ani+t  o'"  EAOM  WoRO»  "6"^I-'EN0TEI>  OnWSeU- PIA^D  MeMuRY, 


All  vAlIu 

SASIl 

instructions 

EXCEPT  THOSt 

marxlu  "1"  (INTEKrRLTIVE  OrLRATOR  WCRoS)  ok 

"C"  (CONSTANTS). 

06,2aOU 

69090 

1 

59U5  0 

32003  0 

54  ^ 34  0 

32000  0 

59197  1 

32906  0 

59/37 

0 

06,2A1U 

30199 

0 

76352  1 

10009  0 

12929  0 

10199  1 

10000  0 

12513  0 

35690 

0 



0631& 

u - - 

Cr;-  055B7  9 

t/HUOj  ~0 

75362  1 

10000  0 

T2975—I 

00006 

A 

U6.2A3U 

60196 

i 

31617  9 

52/36  1 

30A44  0 

77/66  0 

65336  1 

10909  0 

12576 

0 

U6,2AAU 

Cj  377^6 

0 

17993  I 

12S10  0 

32999  1 

59/39  0 

5OI45  1 

'31119  1 

c 

c 

c 

c 

0 

U6,2A5U 

29090 

1 

12959  1 

19069  0 

129/3  1 

4OOOO  0 

59001  1 

50196  1 

91113 

1 

Ubt2A60 

00006 

1 

60025  9 

AQOOO  0 

40000  0 

62999  0 

67763  1 

60901  0 

10000 

0 

96*2970 

3776  1 

12973  1 

12^73  1 

67^63  A 

OO734  1 

32005  0 

59197  “1 

32901 

A 

Ob.EbOO 

69737 

0 

30199  9 

76392  0 

69199  1 

00006  1 

50195  1 

3151/  0 

52/36 

1 

U6  1 2 !>  1 

601^5 

i 

3111^  i 

90739  1 

54020  A 

10029  1 

A 25  A 6 0 

A~2  6 1 6 0 

32UU5 

0 

96.2620 

6973  1 

0 

30199  9 

69021  0 

69921  1 

5OI45  A 

62369  1 

59196  0 

00906 

1 

96.2639 

69196 

i 

32002  1 

22/36  0 

AOOOO  0 

29000  1 

12610  0 

29000  1 

59  735 

1 

96.2699 

32099 

1 

59739  9 

30/36  0 

77/62  1 

10000  0 

12603  1 

50196  1 

32900 

0 

96.2650 

190  73 

0 

53159  1 

00006  A 

40025  A 

21159  1 

00006  1 

31933  1 

21159 

A 

U6  »256U 

1 Xll)3 

12571  A 

12669  0 

12‘^7'J  A 

11159  1 

I257I  A 

I2^bf  0 

12970 

A 

96.2679 

12973 

i 

32002  1 

59/39  0 

00006  A 

31159  0 

00739  1 

32909  1 

54  ^34 

0 

U()  f 2 feOU 

601^6 

i 

A 1 0 

I9O73  0 

99/36  1 

69736  1 

50196  1 

32900  0 - 

12997 

0 

96.2619 

0 

32003  0 

69/39  0 

50196  1 

32090  0 

OO739  1 

30197  0 

59/37 

0 

96.2629 

60196 

1 

32363  9 

60199  0 

oOA4H  0 

60199  0 

59196  0 

12527  1 

36311 

1 

U6  9 2630 

26 1 ‘♦b 

32005  0 

54737  0 

A252?  1 

22973  0 

30065  A 

nrb'>  0 

6UUUU 

A 

96.2699 

69061 

i 

30065  1 

/9291  0 

OOOOb  A 

77750  0 

5A062  1 

30966  1 

72/05 

0 

U 6 f 2 6 5 0 

T^S'^O  A 

14175  A 

3006<^  0 

500'61“0~ 

55976  0 “ 

10066 

0 

06 • 2 660 

I^6lA 

1 

12662  9 

900/2  0 

229/2  1 

609/1  1 

53076  0 

10966  0 

12670 

0 

96.2670 

12679 

1 

99025  1 

5OO7I  1 

56111  9 

10966  0 

I27IO  1 

12/13  1 

90025 

1 

96.2700 

69061 

0 

56111  9 

39065  1 

62  (Ob  A 

lOOOO  0 

Ci 

60000  1 

C:  17777  0 

12/13 

1 

96.2710 

00006 

i 

30025  0 

53933  0 

40062  A 

5OO6I  0 

55075  0 

30902  0 

22073 

u 

06*2  ^20 

1 

5 2 Ou  6 0 

22073  0 

39962  0 

60061  0 

55076  9 ' 

-3t>t77tr  0 

50961 

0 

96.2739 

66112 

0 

00996  1 

30069  0 

50061  0 

63516  0 

12657  0 

09699  0 

33012 

1 

96.2799 

59196  9 

330 A 5 0 

9966/  1 

29196  1 

330113  0 

09657  1 

09975 

c» 

96.2759 

1 

02  752  9 

92792  1 

330A4  A 

0966/  1 

99975  0 

05566  1 

02/62 

0 

96.2769 

3933  7 

0 

02  790  9 

33016  0 

9966/  1 

00004  0 

37762  0 

95663  1 Ci 

03023 

0 

37763  A 

05663  A 

C!  93166  0 - c: 

19069  0 

363"ir  1 

0-5663  1 C: 

03253 

u 

BT3^36A  yUL  SySItf/  f-JK  A^Cj  KtViSrON'O  OF  pROqRAm  BURSIIZO  By  NASA  30^1106-031  0EC“?,'  T^7  pAotllyl 


UClAL  LIStInO  of  paragraph  * 0S3.  RUH  PARllY  BI1  IN  BINARY  A|  iHt'RlOiTRT  OF  eAOF  WoKOr  "e"  TStYlOTtS^  UTOStO  FlXtD  MfcMuRY, 
All  VAplt;  wORqB  are  HASIe  INStRucTIONB  EXCEPI  those  nARNEq  "1"  (INTbRpRbTlVt  Operator  WORpS)  ok  "L"  (lONETANIS)  . 


U6»300U 

e ; 

14064 

u 

3^761 

0 

05663 

1 

c; 

03573 

0 

l; 

1406^ 

0 

37766 

1 

05663 

1 

l; 

03461 

1 

U6*3U1U 

l; 

u 

05566 

1 

0200  f 

1 

l: 

U2102 

0 

c; 

02130 

1 

C!  OO4OI 

1 

c: 

04  7OO 

1 

11407 

1 

U6  * 3u<;u 

1 

05727 

0 

1 

5^740  7 

1 14  i’O 

1 

U3U27  1 

03017 

1 

51407 

0 

U6tiU3U 

31420 

u 

05663 

i 

OJ 

03046 

0 

l; 

14064 

0 

0572  7 

0 

37767 

0 

00006 

1 

01005 

0 

06.3040 

auoo6 

i 

CT10U6 

0 

^140  7 

0 

11410 

1 

51407 

0 

55410 

1 

" 51407" 

0 

114T0" 

1 

06. 3050 

03052 

0 

03017 

i 

51407 

0 

31430 

1 

05663 

1 

L:  03060 

1 

t: 

140&4 

0 

05727 

0 

06.3060 

5140  1 

0 

31440 

0 

55401 

1 

51407 

0 

31450 

1 

554O2 

1 

00006 

1 

00032 

0 

y 6 * 3^  7^ 

^^ocoo 

u 

56403 

0 

37  765 

1 

55404 

1 

31403 

r 

51404^ 

"T7Y54 

1 

"10000 

0 

06,3100 

0311  / 

u 

iU04 

1 

03073 

0 

31401 

0 

00006 

1 

01005 

0 

31402 

0 

00O06 

1 

U6  * 3 1 1 0 

U 1 (JUfe 

0 

51407 

0 

31460 

1 

W5663 

1 

c,; 

0303  5 

1 

cr  14064 

0 

tX5'727 

"0 

51404 

0 

06,3120 

1 

7I4OI 

1 

554OI 

1 

51404 

0 

43132 

0 

71402 

1 

55402 

1 

O4755 

1 

06,3130 

e; 

OHIO 

0 

03101 

1 

L: 

00010 

0 

c; 

00020 

0 

0: 

00004 

0 

t:  00200 

0 

C! 

OOOUl 

0 

c: 

00002 

0 

U6«3I40 

c; 

uon4U 

u 

c; 

00100 

0 

c: 

00040 

0 

l; 

00U20 

0 

00100 

0 

c;  00200 

0 

c: 

oooio 

0 

c: 

00001 

0 

06,3150 

l; 

UUOU<f 

a 

C; 

00002 

0 

11470 

1 

03155 

0 

05727 

0 

55470 

1 

51470 

0 

11471 

0 

0 5 * j i 5U 

U31  62 

03  152 

i 

5 l4  7O 

314  ^4 

U566A 

1 

C*  03206 

0 

c; 

I40b4- 

0‘ 

05727 

0 

06,3170 

0 

00006 

1 

02011 

0 

6 7 746 

0 

00006 

1 

01011 

0 

51470 

0 

11471 

0 

W6  ♦ 

10000 

u 

03203 

0 

TJSISZ' 

r 

6 7 763 

1 

51470 

0 

55471 

0 ^ 

^470 

0 

31502 

1 

06,3210 

55406 

u 

51470 

0 

3147  7 

1 

05663 

1 

L; 

0321  7 

0 

C:  14064 

0 

05  72  7 

0 

45210 

0 

U6*3^20 

UU0U6 

1 

02011 

u 

6774  7 

1 

00006 

1 

01011 

0 

II4O6 

0 

03235 

0 

51470 

0 

3 i 5^t> 

05663 

1 

C; 

031  7O 

1 

^ i 

14064 

0 

05727 

0 

11406 

u 

"03240 

1 

03225 

X 

06,3240 

55406 

u 

33246 

L 

05663 

1 

l; 

03235 

0 

14064 

0 

05727 

0 

ei 

27340 

0 

11510 

0 

03252 

1 

05727 

0 

55510 

0 

51510 

1 

II51 1 

1 " 

03257" 

1 

-0T24T 

0 

51510 

X 

06,3260 

3I525 

1 

05663 

i 

C; 

0330U 

1 

c; 

14064 

0 

05  727 

0 

43364 

1 

00006 

1 

03012 

1 

06,3270 

51510 

i 

11511 

1 

10000 

0 

03275 

1 

03247 

0 

67763 

1 

51510 

1 

55511 

X 

06,3300 

5I5IO 

1 

31541 

0 

05663 

1 

e; 

0330b 

1 

l; 

14064 

0 

05727 

0 

33363 

1 

00006 

1 

06,3310 

06032 

0 

73363 

0 

00006 

1 

13321 

0 

B5656 

1 

O55O5 

1 

c: 

03334 

0 

c: 

140^4 

0 

O5727 

5I5IO 

■31^71 

73354 

1 

00006 

1 

crj^oiz— r ■ ■ 

"^IMO 

It 

31555 

0 

06,3330 

05663 

1 

t; 

03265 

0 

c; 

14064 

0 

05  72  7 

0 

046A4 

0 

33363 

1 

54337 

1 

33365 

1 

^6  * 33^^ 

7 

33366 

O465  7 

1 

04,622 

04475 

0 

05566 

1 

33  55" 

1 

OOUO4 

0 

06,3350 

3 ^762 

0 

05663 

i 

C; 

03306 

1 

Cj 

14064 

0 

05566 

1 

00004 

0 

37762 

0 

05663 

1 

06«336U 

Ll 

03321 

1 

e; 

14064 

u 

05566 

1 

c: 

01400 

1 

l: 

07400 

1 

C!  00125 

1 

(-! 

O5OOU 

1 

11605 

1 

05727 

1 

i 16^16 

1 

tr33T7“i" 

"0376T 

0 

51605 

0 

■^34^‘A  nruu  sYsifcM  F3R  acjc:  Revision  0 of  program  bursi  i,^u  “Esir  nasa  2u<;uo6-u3i  ' PAGtii92 

octal  listing-  0F“FAKAGKAKH  # 053*  with  PARIiY  Bn  IN  BINARY'  A|  iHE  K1GH|  EALH  WqKO?  »>eT*^i;£N0TFS-UNCr5ED  FIAEO  MEMijRY. 
all  valid  WoRDb  APt  CiAblL  IN^tRUC  f IONS  E^LeP|  T^OSe  MAKReO  "1"  UNJtRRRtTlVE  OReRATOK  WORDS)  (JK  "Lit  ( CONST  ANT^>)  • 


) 


) 


I 


I 


Ofe.S'.OO 

iiei'.  u 

05663 

1 

L;  03625  1 

e: 

; 1406A  0 

05727  0 

5l6°5  0 

31636  0 

03663 

1 

67763  1 

05663 

i 

C.  037.15  1 

c : 

: 1A06A  0 

05727  0 

51606  0 

11606  1 

10000 

0 

06  r3‘tZO 

0 

0336  7 

67  ?63~  1 

sisOs  0 

5560s  1 

?1605“^ 

3'lS2^  0 

05663 

1 

Ob.i'tSU 

C; 

037,33  0 

C.I  17.067. 

0 

05  72  7 0 

51605  0 

31630  0 

03663  1 

63660  0 

05663 

1 

■ ■ 06f3AA0  ■ 

c; 

03A05  0 

c;  iT^ObT. 

0" 

0572  7 0 

56055  0 

55^05  0 

37760  r 

00006  T.  ' 

O5OI6 

1 

Ob.S't^O 

3U05  1 

00006 

1 

63656  1 

<tUOOU  0 

40000  0 

00006  1 

77752  1 

00002 

0 

ObtB'tbU 

c: 

00031  0 

11656 

0 

03666  1 

05727  0 

36311  1 

55655  1 

51655  0 

31644 

0 

' U6»3‘t70 

o0(.)06  i 

51655 

0 

02030  0 

51655  0 

57666  0 

5t655  0^ 

316FD  0 

00006 

i 

06,3b00 

51655  0 

06030 

0 

5l655  0 

57650  0 

11655  1 

03665  0 

36570  1 

05663 

1 

U6  f 3S  1 0 

c : 

U3A6I  1 

C:  1A064 

0 

05  r^7  0 

c ; 

035  i 3 0 

C;  035!^^  1 

OKSM  63635  t 

- ..  ..  _ 

e 

U6*3S20 

® 

e 

& 

& 

e 

& 

IS 

06»3530 

@ 

@ 

& 

& 

& 

e 

e 

U6»3b<(U 

e 

& 

& 

C 

fs 

& 

e 

e 

06t3S50 

e 

& 

& 

& 

'Si 

& 

& 

e 

06  f 3560 

& 

& 

e 

& 

e 

B 

e — 

U6*3S7U 

g 

& 

& 

e 

IS 

& 

& 

B 

06>3bUU 

s 

& 

& 

e 

& 

& 

06.3610 

6 

& 

& 

e 

e 

& 

IS 

B 

06.3620 

e 

& 

& 

& 

e 

@ 

IS 

B 

UO  f 30 JU 

§ 

& 

e 

e 

@ 

e 

e 

e — 

U6*36AU 

§ 

(Sf 

& 

e 

& 

fe- 

e 

B 

06  » 3650 

e 

e 

e 

e 

e 

e 

e — 

06»3660 

@ 

& 

& 

& 

iS 

IS 

e 

06f 3670 

§ 

& 

& 

& 

is 

g 

IS 

e 

06.3700 

' @ 

@ 

& 

(S' 

e 

e 

IS 

B 

06.3710 

g 

& 

& 

e 

g 

e 

e 

B 

06 ♦ 3 ^ 20 

e 

ef 

e ^ ■ 

g 

e 

06i3730 

§ 

& 

& 

s 

& 

§ 

e ■ 

B 

06  » 3 f*¥\J 

& 

e 

e 

e 

e 

e — 

06.3750 

e 

& 

& 

' e- 

ta 

& 

e 

B 

U6»3760 

§ 

& 

& 

e- 

& 

fe 

e 

B 

e 

is! 

is 

& 

e 

g 

B 

) 


633'>36A  YUL  SYSTt^  HOH  At)C:  KEVISIUN  0 U(-  PKOGRaH  BOKSI  1 <!U  tJY  NASA  <!U^li0b-U31 


TJEt^7~l9b7  ■ ^ PAGtll93 


uCjAL  LISjING'of  PaKA&RAPH  « 05A.  WliH  PaRTiIT  BI  | IN  BINARY  A|  I «E  KISH,  yh  EA^H  WQRUf  ”'rgi'“UEN0TtSTJNU5El'  F IXED  MEMijRY . 
ALL  VALID  WORDS  ARe  BASIL  INSjRUCTIONS  E'^CePT  IHUSe  MARK-eD  "1"  ( INTeRPRlI  iVb  OPtRATUR  WORDS)  QK  «U>  (LQl'iSl  ANI 5)  , 


07.2D00 

Vi*7 1)  i) 

1 

C! 

00316 

0 

120U 

1 

^000<t 

0 

0527U 

1 

L) 

02379 

Q 

12019 

1 

00009 

0 

0),201U 

U!?2  fV 

1 

C; 

02379 

0 

0^»755 

X 

Vi 

00315 

0 

0606  3 

0 

L! 

09000 

0 

00U04 

0 

00006 

1 

uy,2vzo 

321132 

0 

53075 

0 

uuOOb 

1 

32100 

X 

53073 

0 

37076 

55310 

0 

D7.^D3U 

052  70 

1 

C; 

90263 

i 

052  70 

X 

V; 

«iOXX4 

X 

05270 

1 

c: 

90066 

0 

05270 

1 

Ci 

40U54 

1 

Of^ZOi^O 

920  75 

0 
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10367 

X 

12727 

u 

rZT37 

X 

37767 

0 

13,2730 

5O0/1 

1 

56367 

u 

05551  0 

*+UU  ^2 

0 

50065 

0 

26155 

0 

15  12  1 

1 

30072 

1 

500  1 1 

55367 

i 

15727  1 

363  1 1 

1 

12752 

X 

37762 

u - 

12752 

I 

37  163 

X 

13,2750 

02752 

0 

37  167 

0 

00005  0 

54Uyi 

0 

ijoouu 

1 

10367 

1 

12  175 

0 

12170 

1 

13,2160 

12765 

1 

5OO7I 

1 

b^3b ( 1 

12043 

u 

10000 

0 

12775 

0 

25123 

1 

12761 

1 

5OO7  1 

1 

54367  1 

15555 

X 

UbOOU“ 

’C; 

OtZl& 

“Cj — 

C7  OOOT4 

X 

C;  00050 

X 
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“ OClAL  listing  OE  PARAGRAPH  , o/6,  WITH  PARI  IT  BI  | IN  BINARY  A|  1 He  RlGH't  OF  EAX-H  WOKD;  "EenTJENOTES^NUStD  TIXeD  EIEMURY. 


ALL  VALID  lYuRDS  ARe 

3AblL 

instructions 

except  those 

makxeo  "1” 

(INTERPRETIVE 

operator  WORDS) 

CiK  "L"  (LqiyStANtS)  , 

13.3000  E!  UUOIU 

0 

c:  70000 

u 

c 

7 7500 

X 

0: 

7747/ 

0 

l; 

000  /4 

1 

00004 

0 

54071  0 

10373 

1 

13,3010  0301^ 

1 

03015 

u 

04755 

1 

Oj 

00X05 

0 

0556  7 

0 

10430 

1 

03031  0 

10504 

1 

13,3020  03031 

0 

r0560 

cr  '■ 

^3C73r  0 

177634 

03031 

0 

10'710 

0 

O303T  0 

06000 

1 

13,3030  L;  0120/ 

u 

67  /62 

u 

54373 

1 

0 

54374 

0 

50373 

0 

53777  0 

30071 

1 

13,3040  2b3/3 

1 

35653 

X 

1 

t: 

03034 

a 

c; 

46^63 

0 

02043 

1 

37  76  7 0 

563  /3 

0 

13,3050  iOOOO 

0 

5.0UOO 

1 

b40U0 

0 

0522X 

0 

3776  7 

0 

54374 

0 

37  746  0 

70373 

1 

13,'3060  iOOOO 

u 

03070 

0 

47751 

X 

703  73 

X 

67731 

0 

54373 

1 

33415  1 

03071 

1 

13,7070  334  11 

0 

0465  7 

1 

04622 

0 

044  75 

0 

03055 

1 

03055  X 

37T52  0 

70373 

X 

13,3100  IOOOO 

0 

03103 

u 

0310/ 

1 

37  751 

u 

7O373 

1 

IOOOO 

0 

03115  1 

04/55 

i 

L;  uu I i X 

0 

456^3 

1 

/03  /3 

X 

54J  73 

1 

03054 

0 

47750  0 

^7037X  1 

67750 

X 

13,3120  543/3 

X 

33467 

X 

0465  7 

1 

044  ^5 

0 

03121 

0 

03121 

0 

46311  0 

70374 

0 

13,3130  IOOOO 

0 

03121 

u . 

03135 

0 

03134 

X 

03121 

0 

36311 

1 

70374  0 

IOOOO 

0 

13,3l4U  031a2 

0 

03121 

u 

35341 

X 

/03/3 

X 

54002 

1 

5O374 

1 

3IA7I  1 

5OUO2 

0 

13,3150  54011 

0 

50374 

1 

31466 

1 

50002 

u 

54010 

1 

31470 

0 

00006  1 

50374 

1 

iJfJ X 6^  ^ 1^66 

u 

50002 

u 

540X2 

0 

37/46 

0 

70373 

X 

IOOOO 

0 

03206  0 

O3I7O 

X 

13,3170  334/0 

1 

04657 

X 

044  75 

0 

031/0 

1 

031/0 

1 

35341 

1 

7O373  1 

54002 

1 

13,3200  30342 

1 

5OOO2 

0 

b4003  0 

3U343 

V 

60002 

0 ■ 

5ADO5 

"0 

3554T  I 

70373 

1 

13,3210  543/3 

X 

00004 

0 

37763 

1 

05663 

1 

L; 

0321  7 

0 

c; 

26063 

0 

05567  0 

37763 

1 

13,3220  12720 

1 

54016 

1 

30033 

1 

54063 

0 

30034 

0 

54064 

1 

30032  0 

54065 

0 

X 

30U25 

u 

52062 

X 

56002 

u 

54012 

0 

33465 

0 

— 00006  r 

02016 

X 

13,3240  IOOOO 

0 

03243 

1 

03273 

1 

3 7 /5O 

1 

70373 

1 

IOOOO 

0 

05733  0 

10373 

1 

X3»325U 

X 

04  5 

X 

c 

00112 

0 

05733 

0 

S77ST 

0 

00006 

1 

OZOl^  T 

IOOOO 

V 

13,3260  03421 

0 

37/60 

1 

00006 

1 

020X6 

1 

xoooo 

0 

03311 

37  761  0 

00006 

1 

13,3270  02016 

1 

IOOOO 

u 

03305 

X 

3346& 

0 

00006 

1 

02016 

1 

00006  1 

13302 

1 

13,3300  05225 

X 

0;  227O7 

X 

04755 

1 

0; 

U0XX3 

X 

05733 

0 

37767 

0 

54O7O  1 

37752 

0 

13,3310  03314 

X 

37763 

X 

540  /O 

1 

3 7/51 

0 

543  74 

0 

7O373 

1 

IOOOO  0 

03321 

1 

X3t3320  U332<» 

0475 5 

X 

c 

001 14 

0 

03355 

X 

35341 

X 

T0373 

X 

5407  I 0- 

00006 

X 

13,3330  30062 

u 

50071 

X 

52001 

1 

30071 

X 

26O7O 

1 

30063 

1 

5OO7O  0 

54002 

1 

X3,334U  3U0b^ 

0 

^UOyO 

u 

54004 

X 

30065 

1 

5OO7O 

0 

5^0o-6“0” 

^7747  1 

6O374 

X 

X3,335U  <tU0OO 

u 

70373 

X 

603  /4 

X 

543  /3 

1 

03355 

1 

37767 

0 

54073  1 

37  751 

0 

13,3360  /O3/3 

X 

lOOUO 

0 

03365 

X 

37  754 

0 

54073 

X 

37752 

0 

70373  1 

IOOOO 

0 

37755 

25073 

X 

3565^ 

1 

0 5 505 

X 

c; 

03-4  V3^ 

C;^  2'6063  0 

30073 

0 
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octal  ursi INC 

Ob  PARACKAKH  # 0 7 7 , W 1 pH 

PARI  1 Y bir  IN 

BINAKY  A1 

RICH/  OF  EACH 

W0':<0;  II§M 

UNObEO  fixed  Memory, 

all  valio 

rtuKUb  Apt  1 

3A51L 

INbTPLICTlONb 

EACePt  THuSe 

mark-eo  "1" 

llNTERPPtTlVE  OPePATUR  tiQRDb)  qP  "O' 

" (LqIySi ANT&)  , 

13.3AOO 

5OO6A 

0 

5A1aA  1 

05733  0 

10X44 

I 

03a0/  1 

33A72  0 

03A11  0 

33A/3 

1 

13.3A1U 

601AA 

0 

5A113  0 

30327  1 

5A15A 

0 

UA4A7  1 

c:  05100  0 

3015A  1 

6432/ 

0 

itttazo 

05y6  7 

0 

“ 37  7A6^^ 

70373~1 

10000 

0 

0343^  1 

37762  tJ 

70373  1 

10000 

0 

i3,3A30 

03A5A 

1 

03A36  0 

35632  0 

70373 

1 

lOOOU  0 

03AA1  0 

OA  755  1 

C;  00115 

1 

13,3A40 

03Ai)A 

1 

A7  7A?  0 

7037^ 

ai  i‘<t 

1 

563/3  0 

77747  0 

lODOO  0 

03A54 

X 

13.3A5U 

403  ^4 

0 

70373  1 

5A3  73  1 

03356 

1 

A5632  1 

70373  1 

563/3  0 

77  746 

1 

13.3A6U 

iOOOO 

0 

03355  1 

37  751  0 

263/3 

i 

03355  1 

c;  0003A  0 c: 

OOIaO  1 

C;  021A3 

u 

IX,:3A70 

c; 

; 0244Z 

1 

c;  05300  1 

C:  02130  1 

L • O50OU 

1 

54016  X 

56002  0 

b40l2  0 

046U5 

0 

i3»3>00 

3A556 

0 

00006  1 

O2015  1 

5aO/3 

1 

35210  1 

05505  1 c: 

02002  1 

c:  10060 

0 

13, 3310 

30073 

0 

5006A  0 

5A1AA  1 

05  733 

0 

5^016  1 

56002  0 

540'X 2 0 

O46O5 

0 

13,3320 

3 7 7 b 7 

0 

560A5  0 

5AO73  1 

3 7 761 

0 

00006  1 

05011  1 

3A556  0 

700/3 

1 

13,3330 

560  73 

0 

56021  1 

550/6  0 

035  7 7 

1 

/A556  1 

63611  1 

03606  1 

035/7 

1 

13,33A0 

7A556 

1 

4OOOO  0 

03606  1 

035  73 

0 

A3550  0 

600/3  0 

XOOOU  0 

03556 

1 

13,3330 

e ; 

1 00022 

1 

03556  1 ■ 

A7761  1 

7OO73 

1 

5A0/5  1 

03562  0 

37  761  0 

700/5 

1 

i ^ 

ioouu 

0 

05733  0 

56073  0 

O35O3 

X 

0357^  0 

A7761  ■ 1 ' 

7OO75  1 

67761 

0 

13,3370 

5A0  75 

1 

05733  0 

05^33  0 

570/6 

1 

60000  1 

54021  0 

00002  0 

40021 

0 

i 3 « 36^^*^ 

A0021 

0 

A0021  0 

40021  0 

4002  1 

O'  ' 

AOOOO  0 

" 00002^ 

600/3  0- 

10000 

0 

13,3610 

0356A 

0 

C;  777AO  1 

0356A  0 

00002 

0 

L:  0361A  1 

c:  03615  0 CKbN 

O/ObO  0 

& 

13,3620 

@ 

& 

& 

e 

& 

g 

IS! 

e 

i 3 1 36  30 

§ 

& 

& 

e 

s 

B 

B 

13.36A0 

6 

& 

& 

(2 

g 

(S 

e 

X 3 » 3 16  50 

§ 

e 

e — 

e — 

e 

B 

— c 

e — 

13,3660 

§ 

& 

& 

& 

12 

& 

e 

e 

. 13,3670 

g 

& 

& 

& 

(2 

g 

e 

13,3700 

@ 

& 

& 

e 

g 

g 

e 

e 

13,3710 

g 

& 

& 

& 

& 

g 

e 

e 

T3T3TZ0 

& 

§ 

& 

e 

e 

e 

B 

13,3730 

g 

& 

& 

& 

g 

g 

S' 

13,3  7A0 

@ 

e 

e 

e 

e~ 

g 

B 

6 

13,3750 

(> 

& 

& 

iSf 

(2 

& 

e 

e 

i3»3  ^60 

@ 

& 

& 

(2 

g 

e 

& 

13,3  7 70 

& 

e 

B 

e — 

e 

e 

g — 

bSB'tieA  ruL  bVSl'tM  l-JK  AtiC:  KEViSlDM  0 OTT'KObKAM  BUkb  | i^U  bY  (\iAbA  106-03 1 " ^ DtC  7*  ly67  PAGtiail 
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all  valid  WqHOB  ARe  BAblO  INblkUCj  IQNS  E^CePI  THu5e  NAKXtP  "1"  (INTERPRETIVE  OPeRATOK  WQRDS)  uK  «(.«  (OQlYblANTb)  . 


m,2UOo 

3 nbi 

1 

55512 

1 

05206 

U 

4^6UUU 

u 

06112 

0 

ii 

nbzi, 

1 

Li  3O553  1 

1 ; 

77624 

1 

1A.3010 

C; 

30325 

0 

1 ; 

45014 

0 

C; 

00065 

1 

3040  t 

1 

1 : 

777  16 

1 

33700 

0 

04651  1 

044/5 

0 

TA.Z020 

lZ7kO 

1 

12015  0 

5633  ( 

0 

55544 

1 

1034'^ 

X 

X3UD3  U 

02621  cr 

02524 

0 

iA,2U3U 

02135 

1 

05206 

0 

e- 

Zb  151 

0 

12  170 

1 

02241 

1 

02762 

u 

02  152  0 

05206 

0 

lA.2040 

CJ 

26252 

0 

O52O6 

0 

0 « 

26  151 

0 

12  1 lO 

X 

0 21 3 5 

X 

04724 

X 

02263"  I 

05206 

0 

1A.2050 

e ; 

30424 

0 

11512 

1 

12065 

1 

X2U^^  ( 

1 

I277U 

1 

55512 

1 

00004  0 

35644 

1 

1A.2U6U 

O55I6 

0 

c; 

03105 

0 

c: 

30065 

1 

UUUU3 

1 

020^9? 

0 

05026 

u 

52145  0 

00003 

1 

1A.ZD70 

inbi 

O'  ■ 

54037 

1 

54040 

1 

54U<»i 

u 

55551 

0 

55537  H 

112477  1 

00004 

u 

IA.2100 

3371 1 

0 

06663 

1 

t: 

02106 

1 

l; 

30065 

1 

32134 

u 

05545 

0 

32134  0 

O555I 

u 

1A.2110 

o^tzi 

0 

31542 

0 

5554 1 

1 

05206 

0 

c; 

51731" 

0 

00003 

1 

02477  T" 

31543 

X 

i4,212U 

555A1 

1 

O52O6 

0 

0; 

5l73l 

0 

UOUO3 

1 

02411 

1 

00004 

0 

33/10  1 

05663 

1 

14,213U 

e: 

02106 

1 

c: 

30065 

1 

32134 

0 

05545 

u 

c; 

30111 

0 

00006 

1 

23546  1 

O52O6 

0 

H.214D 

c; 

2 ^046 

0 

37  163 

1 

5433  1 

1 

336  14 

1 

0465  7 

1 

37767 

0 

ub^:06  0 

Ci 

27005 

1 

1A.216U 

05206 

0 

Lj 

26  147 

1 

12170 

1 

UUUU6 

1 

503  13 

0 

30001 

0 

53565  1 

02242 

1 

14  9 21 6U 

06  1 1 

0 

I : 

45140 

0 

c : 

00373 

0 

c ; 

33  1 i<t 

0 

1 : 

45014 

0 

c? 

X 

c:~3Di7in 

x: 

32555 

0 

14,2170 

e; 

02445 

0 

C; 

02601 

1 

1 i 

17716 

1 

U52U6 

0 

l; 

27O46 

0 

37762 

0 

5433/  1 

33674 

1 

U.2200 

04657 

1 

37  167 

0 

05200 

0 

c: 

27005 

1 

37752 

0 

70074 

a 

TOUOO  0 

12215 

1 

U.2210 

05206 

0 

3U424 

0 

10310 

1 

12216 

1 

12210 

1 

12216 

1 

05206  0 

C; 

26747 

1 

14,2220 

127^0 

1 

02242 

1 

06112 

0 

1 : 

0 

l; 

00373 

0 

Ci 

33114 

0 

li  45014  0 

c: 

00205 

0 

14  9 2230 

0 ; 

30732 

c : 

32555  w 

c ; 

02453 

1 

(. : 

02607 

X 

X : 

77624 

X 

c» 

3u  r 

11 — 17624  I 

c: 

32/41 

X 

14. 2240 

1 ; 

f n fb 

1 

01546 

1 

37762 

0 

60313 

u 

^OXXU 

1 

54050 

0 

00002  0 

00006 

1 

1 4 9 2230 

2^5‘*^6 

06 1 1 2 

1 ; 

77624 

1 

C; 

32655 

0 

X : 

7777b 

X 

05206 

0“ 

“L  ; 260'6-5  0-  - 

O52O6 

0 

14,2260 

c; 

267t>l 

0 

12110 

1 

01546 

1 

UUUU6 

1 

23546 

1 

06112 

u 

li  64375  1 

c: 

02‘fOX 

0 

14,2270 

0; 

02^4^ 

0 

1 ; 

43172 

1 

0: 

00345 

u 

3O2  f6 

X 

l; 

34041 

0 

c; 

32555 

0 

C:  26423  0 

c: 

02407 

0 

14,2300 

1 ; 

76521 

0 

C! 

O2445 

0 

1 ; 

776I4 

1 

l; 

OO545 

u 

Ll 

3O3O1 

0 

C! 

34O4I 

u 

L!  32555  0 

Cl 

26431 

u 

14,2310 

C; 

02423 

0 

1 ; 

76435 

1 

02431 

0 

L ; 

3643  1 

1 

L; 

32425 

0 

i ; 

47I7O 

1 

c:  02500  0 

c: 

33627 

1 

14,2320 

1 T 

1 1776 

1 

O52O6 

0 

c; 

26751 

0 

12170 

X 

0 X &^6 

X 

I ! 

77776 

1" 

""33  /03  0 

55777 

0 

14,2330 

33721 

0 

O52O6 

0 

L; 

5I245 

u 

3 1 1A6 

u 

55400 

0 

06112 

u 

1:  13545  1 

c: 

0250/ 

1 

I4  9^340 

c. : 

c ; 

I&421 

1 

c; 

O25O7 

1 

1 : 

11  I4O 

i 

t.: 

0 2 4 1 3 

1 ; 

77676 

u 

tr  02417  1 

1 ! 

776X6 

0 

14,2350 

1 ; 

in  lo 

1 

C; 

00002 

0 

0; 

00014 

1 

1 ! 

1/131 

1 

L; 

00052 

0 

c; 

00006 

1 

l!  60533  1 

C; 

02557 

1 

14,2360 

00001 

0 

1 : 

77756 

0 

10023 

1 

1 ; 

17  145 

1 

l: 

00001 

0 

ii 

41546 

u 

Ii  47133  0 

C! 

02556 

0 

1 ; 

^1356 

X 

l; 

1 1 

77752 

X 

c* 

"XUuZT  “u 

"t  r 77^745  1 

c; 

OOUO3 

X 
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iA,2AOU 

1 ; 

Al3Ab 

0 

1 ; 

57S&2 

1 

L: 

10025 

1 

1 ; 

; 61170 

0 

e.: 

00000 

1 

l: 

30356 

1 

1!  77616 

0 

I : 

65345 

0 

1A.2A1U 

l: 

331U5 

0 

c; 

02bll 

0 

1 ; 

57546 

1 

1 ; 

; M525 

1 

l: 

02511 

0 

1 ; 

74266 

0 

CJ  3U25 

0 

c: 

02514 

0 

" ' l'rr2A2U 

17 

7 7A'3A 

t;  - 

err 

3TA5A 

1 

L:  02565 

1 ; 

r 77^  i 6 

05235 

0 

55547 

I 

64rr3 

1 

OUUO4 

u 

iA,2A3U 

12440 

1 

OOUOA 

0 

377b3 

1 

05663 

1 

l; 

02003 

0 

c; 
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1 
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0 
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1 
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1 
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1 
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0 
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1 
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0 
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1 
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u 
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0 
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1 
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u 
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1 
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0 

11373 

0 
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1 
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0 
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1 
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1 

03735 

1 
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1 
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0 
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u 
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1 

05011 

1 
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0 
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1 
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i 

55320 

1 
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1 
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1 
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1 
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1 
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1 
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1 
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1 
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WILSON  JONES 


L^Gro^Lh 


NYLON  POST  BINDER 

14-1411  N 

TYPE  1/.020  GENUINE  PRESSBOARD. 


2 PURPOSE  BINDER 

This  binder  may  be  used  to  bind  both  marginal-punched  sheets  and  forms 
punched  with  2^'.  7*,  Q'/t",  13^^'  and  14J^'  centeMo-center  holes 


Insert  posts  thru  end  holes 
of  stub  as  in  illustration  (a). 
Plug  posts  into  top  holes 
In  both  margins  of  sheets. 
Put  on  top  cover  as  In  il- 
lustrations (c)  and  (d). 
(Also  see  No.  2 below) 


TOP  AND 
BOTTOM  LOADING 

This  binder  may  be  loaded 
from  the  top  or  bottom  by 
using  posts  without  screw 
heads.  Ask  the  dealer  from 
whom  you  bought  the 
binder  for  Posts  and 
Slides  Pack  No.  1323. 


2.  CONVENTIONALLY  PUNCHED 
LOOSE  LEAF  SHEETS 
AND  STRIPPED  UNBURST  SHEETS 

Follow  steps  (a)  thru  (d)  at  left,  except  that  posts 
should  be  threaded  into  holes  in  stub  that  corre- 
spond to  holes  In  forms  or  sheets  to  be  bound. 


BURST 


1.  MARGINAL-PUNCHED  SHEETS 

UNBURST 


Insert  posts  in  end  holes  of 
stub.  Turn  counter-clock- 
wise until  heads  are  flush 
against  Inside  of  channel. 


Gather  sheets  in  even 
stack.  Insert  posts  In  sec- 
ond holes  from  both  ends 
of  the  sheets. 


Put  top  cover  on  with  stub 
turned  under.  Insert  posts 
thru  end  holes. 


(d) 

Bend  posts 
down  into  channel. 
Push  locks  over  posts 
toward  outside  ends  of 
channel  until  snug. 


j 


